TsgcWebSocketHTTPServer › Événements › OnCommandGet
Se déclenche lorsque le serveur HTTP reçoit une requête GET, POST ou HEAD afin que l'application puisse construire la réponse.
property OnCommandGet: TIdHTTPCommandEvent;
// TIdHTTPCommandEvent = procedure(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo) of object—
OnCommandGet est le point d'entrée principal pour le trafic HTTP (GET, POST et HEAD) servi par le composant. ARequestInfo expose la requête (Document, Params, AuthUsername, Headers, PostStream, RemoteIP...) et AResponseInfo est la réponse sortante : définissez ContentText ou ContentStream pour le corps, ContentType pour le type MIME, et ResponseNo pour le code de statut HTTP (200, 404...) ; appelez AResponseInfo.ServeFile pour envoyer un fichier depuis le disque. Les gestionnaires s'exécutent dans le contexte du thread de connexion ; évitez l'accès direct à l'interface ou passez en mode dispatch synchronisé. Les requêtes pour des fichiers déjà présents dans DocumentRoot sont servies automatiquement et ne déclenchent pas cet événement.
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;