Ir para conteúdo
Fórum Script Brasil
  • 0

INTRAWEB


Guest venusto

Pergunta

alguém pode me ajudar a conseguir uma rotina em Intraweb para obter o ip de um usuário.

Preciso dessa função para segurança de um aplicativo que estou desenvolvendo...

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

Ve se esta serve. :rolleyes:

function GetLocalIP : string;

type

TaPInAddr = array [0..10] of PInAddr;

PaPInAddr = ^TaPInAddr;

var

phe : PHostEnt;

pptr : PaPInAddr;

Buffer : array [0..63] of char;

I : Integer;

GInitData : TWSADATA;

begin

WSAStartup($101, GInitData);

Result := '';

GetHostName(Buffer, SizeOf(Buffer));

phe :=GetHostByName(buffer);

if phe = nil then Exit;

pptr := PaPInAddr(Phe^.h_addr_list);

I := 0;

while pptr^ <> nil do begin

result:=StrPas(inet_ntoa(pptr^^));

result := StrPas(inet_ntoa(pptr^^));

Inc(I);

end;

WSACleanup;

end;

Observações

Se o endereço IP for designado pelo servidor, a cada conecção teremos um endereço IP diferente e, obviamente, se não estivermos conectados, não conseguiremos obtê-lo.

Link para o comentário
Compartilhar em outros sites

  • 0
Guest Vitor Maringá

bom galdisson...

intraweb é uma ferramenta q simplifica o desenvolvimento de aplicações web....exes que rodam na internet....não sei se você já viu...mas o email do terra por exemplo pode-se ver na barra de status algo como .....alguma coisa.exe....

é mais ou menos isso....pelo menos no delphi...hehehe....onde você pode programar como se fosse para um software normal...

ela usa codigo html para se situar como uma pagina...mas usa CGI (Common Gateway Interface), ISA (Api pra net)...etc...

espero ter ajudado...

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...