[firebase-br] IP Usuario conectado

[Adriano Ferreira]

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
>
>