TBeCBHTTPGet

Klasse zum Abruf des Quelltextes einer Internetseite.

Hinweis:

Die neuere Klasse TBeCbHTTP bietet eine bessere Fehlerbehandlung und erweitere Information im Fehlerfall.

Eigenschaften:

Allgemeine-Eigenschaften

Address:C	HTTP Adresse der Internetseite welche abgerufen werden soll.
Port:N	Port, default = 80
ReadTimeout:N	Zeitspanne in Millisekunden, nachdem ein Ladeversuch abgebrochen wird, default = 0 (nicht abbrechen)
Utf8ToAnsi:L	Sonderzeichen-Konvertiereung durchführen, default = false.
UserAgent:C	UserAgent, default = Mozilla/4.0 (compatible).
Header:C	Custom Header im Format: "Name:Wert". Es können mehrere hinzugefügt werden, die mit einem CRLF getrennt werden müssen.
PostData:C	Wenn Daten rein geschrieben werden dann wird intern Post gerufen. Post im Format: "Name=Wert". Es können mehrere hinzugefügt werden, die mit einem CRLF getrennt werden müssen.
CbValidateServerCertificate:L	SSL-Algorithmus versucht, um alle SSL-Zertifikate zu verifizieren. Default: True. Mit Wert False wird kein Zertifikat verifiziert. Nach der Verifizierung folgt OnValidate Ereignis.
CbOnValidateCertificate:E	Ereignis um einen Zertifikat zu verifizieren. Erster Parameter wird von Klasse TbeCBCertificateInfo, die alle Informationen über den Zertifikat trägt, so wie die Rückgabe-Feld Accepted.

Aktive-Eigenschaften (Methoden)

LoadHTTPTextQuelltext von gegebener Adresse abrufen. Rückgabe = Quelltext

Beispiel

CODE

|cHTTPBody:C := "", oHTTP|
oHTTP := CreateObject("TBeCBHTTPGet"),
Startseq,
    oHTTP.CbValidateServerCertificate := false,
    oHTTP.Address    := "https://postman-echo.com/headers",
    oHTTP.Utf8ToAnsi := true,
    oHTTP.UserAgent  := "Mozilla/4.0 (compatible)",
    oHTTP.Header     := "be-test:unittest",
    cHTTPBody        := 'Header Test:' + CRLF + oHTTP.LoadHTTPText,

    oHTTP.CbValidateServerCertificate := false,
    oHTTP.Address    := "https://postman-echo.com/post",
    oHTTP.Utf8ToAnsi := true,
    oHTTP.UserAgent  := "Mozilla/4.0 (compatible)",
    oHTTP.Header     := "accept:application/json" + CRLF + "be-test:UnitTest",
    oHTTP.PostData   := 'USERID=12345' + CRLF + 'PASSWD=56789',
    cHTTPBody        := cHTTPBody + CRLF + CRLF + 'POST Test:' + CRLF + oHTTP.LoadHTTPText,
Always,
    DestroyObject(oHTTP),
StopSeq,
cHTTPBody