Pegar IP com IntraWeb

Delphi

22/01/2004

Gostaria de saber se existe a possibilidade de pegar o IP do usuário que esta acessando a página, a página foi desenvolvida com intraweb.

Desede já os meus agradecimentos.

Eduardo.


Eggustavo

Eggustavo

Curtidas 0

Respostas

Conglom

Conglom

22/01/2004

use WebApplication.IP

Ex.:
IF (COPY(WebApplication.IP, 1, 3) <> ´200´)
AND (COPY(WebApplication.IP, 1, 7) <> ´192.168´) { rede interna }
AND (WebApplication.IP <> ´127.0.0.1´) { localHost }
THEN
BEGIN
WebApplication.TerminateAndRedirect(´http://www.conglom.com.br/seguranca.htm´
+ ´#´ + WebApplication.IP);
END
ELSE
BEGIN { IP OK: continue... }
....
END;

[]s,
Mario Nieri


GOSTEI 0
POSTAR