TsgcWebSocketHTTPServer › Eventos › OnCommandGet
Disparado quando o servidor HTTP recebe uma requisição GET, POST ou HEAD, para que a aplicação possa construir a resposta.
property OnCommandGet: TIdHTTPCommandEvent;
// TIdHTTPCommandEvent = procedure(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo) of object—
O OnCommandGet é o ponto de entrada principal para o tráfego HTTP (GET, POST e HEAD) servido pelo componente. ARequestInfo expõe a requisição (Document, Params, AuthUsername, Headers, PostStream, RemoteIP...) e AResponseInfo é a resposta de saída: defina ContentText ou ContentStream com o corpo, ContentType com o tipo MIME e ResponseNo com o código de status HTTP (200, 404...); chame AResponseInfo.ServeFile para despachar um arquivo do disco. Os handlers são executados no contexto da thread da conexão, portanto evite acesso direto à UI ou alterne para um despacho sincronizado. Requisições por arquivos que já residem sob DocumentRoot são servidas automaticamente e não acionam este evento.
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;