جلب نص معين من موقع

[Agmcz]

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