دخول

Strem

السلام عليكم
اين الخطا في هذا الكود ؟
احاول جلب جميع النصوص الموجودة بالموقع التي بين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;

***محمد عبد العزيز*** · 09-02-2017, 08:17 AM

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

Agmcz · 17-02-2017, 08:39 PM

يمكنك استعمال مكونات 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
يمكنك إضافة الكود السابق لتحصل على ما تريد

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة