HttpGet

Parameter

(Url : String, var RawHeader : String; Const User : String = ''; Const Password : String = '') : String;

Beschreibung

Führt einen HTTP GET Aufruf der angegebenen Url aus und gibt den Inhalt des http Returns zurück (z.B. den Inhalt einer Internet-Seite). In RawHeaders werden die Rohdaten der Transaktion zurückgeliefert und können ausgewertet werden (z.B. ReturnCodes etc.). Sobald diese Parameter User und Password gesetzt werden, werden entsprechend im HTTP Header diese Daten zur Basic Authentifizierung mit übergeben.

Tipp

Über die globale Variable HTTPTIMEOUT können Sie den HTTP Timeout individuell anpassen. Die Angabe erfolgt in ms.

Beispiele

RawHeaders := ''; 
Buffer     := HttpGet('http://www.cto.de',RawHeaders);

if pos('200 (OK)',uppercase(RawHeaders)) > 0 then
begin
  SaveStringToFile('c:\example.html',Buffer);
  ShellExecute('c:\example.html');
end else 
begin
  raise('invalid server response');
end;

Procedure EventOnStart;
begin
  ClearSelectionList('Lieferant');

  RawHeaders := '';
  HTTPResult := HTTPGet('http://localhost:4040/pub/supply/lieferanten.txt',RawHeaders) + crlf;

  if pos('200 (OK)',uppercase(RawHeaders)) > 0 then
  begin
    while pos(crlf,HTTPResult) > 0 do
    begin                                                              
      Value := trim(copy(HTTPResult,1,pos(lfcr,HTTPResult)-1));
      delete(HTTPResult,1,pos(lfcr,HTTPResult)+1);

      AddToSelectionList('Lieferant',Value,'');
    end;  
  end;
end;