TsgcWebSocketHTTPServer › Ereignisse › OnCommandGet
Wird ausgelöst, wenn der HTTP-Server eine GET-, POST- oder HEAD-Anfrage empfängt, sodass die Anwendung die Antwort erstellen kann.
property OnCommandGet: TIdHTTPCommandEvent;
// TIdHTTPCommandEvent = procedure(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo) of object—
OnCommandGet ist der Haupteinstiegspunkt für HTTP-Datenverkehr (GET, POST und HEAD), der von der Komponente bedient wird. ARequestInfo stellt die Anfrage bereit (Document, Params, AuthUsername, Headers, PostStream, RemoteIP...) und AResponseInfo ist die ausgehende Antwort: setzen Sie ContentText oder ContentStream mit dem Body, ContentType mit dem MIME-Typ und ResponseNo mit dem HTTP-Statuscode (200, 404...); rufen Sie AResponseInfo.ServeFile auf, um eine Datei von der Festplatte zu liefern. Handler laufen im Kontext des Verbindungs-Threads, vermeiden Sie daher direkten UI-Zugriff oder wechseln Sie zu einem synchronisierten Dispatch. Anfragen für Dateien, die bereits unter DocumentRoot liegen, werden automatisch bedient und lösen dieses Ereignis nicht aus.
procedure OnCommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo;
AResponseInfo: TIdHTTPResponseInfo);
begin
if ARequestInfo.Document = '/' then
begin
AResponseInfo.ContentText := '<html><head><title>Test Page</title></head><body></body></html>';
AResponseInfo.ContentType := 'text/html';
AResponseInfo.ResponseNo := 200;
end;
end;