TsgcWebSocketHTTPServer › Eventos › OnCommandGet
Se activa cuando el servidor HTTP recibe una solicitud GET, POST o HEAD para que la aplicación pueda construir la respuesta.
property OnCommandGet: TIdHTTPCommandEvent;
// TIdHTTPCommandEvent = procedure(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo) of object—
OnCommandGet es el punto de entrada principal para el tráfico HTTP (GET, POST y HEAD) gestionado por el componente. ARequestInfo expone la solicitud (Document, Params, AuthUsername, Headers, PostStream, RemoteIP...) y AResponseInfo es la respuesta saliente: establezca ContentText o ContentStream con el cuerpo, ContentType con el tipo MIME y ResponseNo con el código de estado HTTP (200, 404...); llame a AResponseInfo.ServeFile para servir un archivo desde disco. Los manejadores se ejecutan en el contexto del hilo de conexión, por lo que debe evitar el acceso directo a la interfaz de usuario o utilizar un despacho sincronizado. Las solicitudes de archivos que ya residen en DocumentRoot se sirven automáticamente y no activan 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;