HttpGet
- Merve Yurdakul
- Former user (Deleted)
Owned by Merve Yurdakul
Juni 20, 2017
1 min read
Loading data...
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;