جلب نص معين من موقع - نسخة قابلة للطباعة

جلب نص معين من موقع - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : جلب نص معين من موقع (/showthread.php?tid=8390)

جلب نص معين من موقع - Strem - 07-02-2017

السلام عليكم
اين الخطا في هذا الكود ؟
احاول جلب جميع النصوص الموجودة بالموقع التي بينIP-WB
نجحت في جلب اول نص وحاولت عمل حلقة تكرارية الجلب جميع النصوص لاكن الامر لم ينجح

كود :
var
  Start, Stop: Integer;
  Str, SubStr, SubStr2, S: string;
 iall : IHTMLElement;
  i:Integer;
 begin
    if Assigned(WebBrowser1.Document) then
    begin
      iall := (WebBrowser1.Document AS IHTMLDocument2).body;
      while iall.parentElement <> nil do
      begin
        iall := iall.parentElement;
      end;
 
   for I := 0 to WebBrowser1.OleObject.Document - 1 do
  begin
 Str := WebBrowser1.OleObject.Document[I];
  Str := iall.outerHTML[i];
  SubStr := 'IP';
  SubStr2 := 'WB';
  if Pos(SubStr, Str) > 0 then
  begin
    Start := Pos(SubStr, Str);
    Stop := Pos(SubStr2, Str);
    S := Copy(Str, Start + Length(SubStr) , Stop - (Start + Length(SubStr)));
   Memo1.Text:= S;
  end;
 end;
 end;
 end;

RE: جلب نص معين من موقع - محمد عبد العزيز - 09-02-2017

http://delphi4arab.net/forum/showthread.php?tid=2880

RE: جلب نص معين من موقع - Agmcz - 17-02-2017

يمكنك استعمال مكونات indy

كود :
uses
  IdHTTP;

procedure TForm1.Button1Click(Sender: TObject);
var
  HTTP: TIdHTTP;
  Response: string;
begin
  HTTP := TIdHTTP.Create(nil);
  try
    HTTP.HandleRedirects := True;
    Response := HTTP.Get('http://www.example.com');
    {your code}
  finally
    HTTP.Free;
  end;
end;

Response تجد به رد السرفر وهو من نوع string
يمكنك إضافة الكود السابق لتحصل على ما تريد