Discussion :

[Mardull]

Bonjour à tous !

Je cherche à créer une erreur HTTP avec un CGI développé en Delphi 7.

Ce que je souhaite faire, c'est vérifier l'adresse IP d'un visiteur du CGI, et si cette adresse IP n'est pas autorisée à se connecter à l'application, renvoyer une erreur HTTP 401 (Autorisation refusée).

Est-ce possible de renvoyer cette erreur dans cette configuration ?

Merci d'avance

[Paul TOTH]

oui.

qu'utilises-tu pour faire du CGI ?

[Mardull]

J'utilise Delphi 7 dans lequel j'ai créé un nouveau projet "Application Serveur Web'.

Dans cette application, j'utilise un WebModule pour la gestion des Actions, ainsi qu'un PageProducer pour la construction de mes pages HTML.

[ShaiLeTroll]

Faudrait essayer d'affecter 401 à la propriété StatusCode du WebResponse que le TWebModule est en train de préparer

[Mardull]

C'est effectivement ce que je cherchais, merci !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Response.StatusCode := 401;
    Response.SendResponse;