[firebase-br] IP Usuario conectado

Daniel Bastos danbastos em gmail.com
Qui Nov 13 13:56:02 -03 2008


Se usar Fb2.0 ou superior, veja a tabela de sistema mon$attachments

2008/11/13 Adriano Ferreira <webmaster em sssinformatica.com.br>

> Em delphi:
> function Tdm.RetornaIP: string;
> var
>  WSAData: TWSAData;
>  HostEnt: PHostEnt;
>  Name: String;
> begin
>  try
>    WSAStartup(2, WSAData);
>    SetLength(Name, 255);
>    Gethostname(pchar(Name), 255);
>    SetLength(Name, strlen(pchar(Name)));
>    HostEnt := gethostbyname(pchar(name));
>    with HostEnt^ do
>      Result := format('%d.%d.%d.%d',[byte(h_addr^[0]),byte(h_addr^[1]),
>                                      byte(h_addr^[2]),byte(h_addr^[3])]);
>    WSACleanup;
>  except
>    on E: exception do
>      MessageDlg('Erro ao tentar capturar o IP'+#13+
>                 'Mensagem original: '+E.Message, mtError, [mbOk], 0);
>  end;
> end;
>
>
>
> --
> Adriano Ferreira
>
>
>
> 2008/11/13 Alex Braga <alex.braga03 em gmail.com>
>
> > Olá, Pessoal
> > Procurei na net mas não encontrei uma solução para isso ainda .
> > É possivel pegar o ip dos usuarios conectados ao firebird ?, no meu caso
> > uso
> > delphi e gostaria de listar o ip dos usuarios conectados.
> >
> > uso o Firebird 1.5.5.
> >
> > Agradeço.
> > ______________________________________________
> > FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> > Para saber como gerenciar/excluir seu cadastro na lista, use:
> > http://www.firebase.com.br/fb/artigo.php?id=1107
> > Para consultar mensagens antigas: http://firebase.com.br/pesquisa
> >
> >
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use:
> http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>



-- 
Abs
Daniel A. Bastos


Mais detalhes sobre a lista de discussão lista