Webden veri alma

[Husv]

(20-12-2022, Saat: 20:39)mrmarman Adlı Kullanıcıdan Alıntı: FMX yapıda platform gereği; TWebBrowser ile değil de

Kod: (Select All)

// System.Net.HttpClientComponent unitindedir...

TNetHTTPClient

ile verileri çekmeyi düşünmek isteyebilirsiniz. 

Örnek :

uses System.Net.HttpClientComponent, System.Net.HttpClient;

function MakeRequest(aUrl: string): string;
var
  LClient   : System.Net.HttpClientComponent.TNetHTTPClient;
  LResponse : System.Net.HttpClient.IHTTPResponse;
begin
  LClient := TNetHTTPClient.Create(nil);
  try
    LClient.UserAgent  := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/107.0.0.0 Safari/537.36';
    LClient.Accept     := 'text/html';
    LResponse := LClient.Get(aUrl);
    // 404 not forund
    // 200 OK
    case LResponse.StatusCode of
    200: // success
      Result := LResponse.ContentAsString;
    404: // not found
      Result := '[ERROR] Page not found...';
    else
      Result := '[ERROR]' + sLineBreak + LResponse.ContentAsString;
    end;
  finally
    FreeAndNil(LClient);
  end;
end;

Kullanımı :

procedure TForm1.Button1Click(Sender: TObject);
var
  LContent : string;
begin
  LContent := MakeRequest('https://www.google.com.tr');
  // ...

end;

Teşşekkür ederim

@mrmarman @vedat35