HostName em IBX

Question

Algu�m sabe como pegar o HostName de uma conex�o com IBX?...

Vitor Alcantara · Answer

Voc� pode utilizar o componente tIBDatabaseInfo.Ex: IBDatabaseInfo1.DBSiteName;...

Pestana_ · Answer

[quote:227378e1d0=�Vitor Araujo Alcantara�]Voc� pode utilizar o componente tIBDatabaseInfo.

Ex: IBDatabaseInfo1.DBSiteName;[/quote:227378e1d0]

muito bom [b:227378e1d0]Vitor Araujo Alcantara[/b:227378e1d0] e eu que utilizava est� rotina para pegar o HostName, desse jeito que voc� postou fica melhor.

function NomeComp : String;  // rotina que pega o nome do computador.
Var
   lpBuffer : Array [0..20] of Char;
   nSize, erro : dWord;
   mRet : boolean;
   mensagem : string;
Begin
   nSize := 120;
   mRet  := GetComputerName(lpBuffer,nSize);
   if mRet then
     Result := lpBuffer
   else
     begin
        erro := GetLastError();
        mensagem := �Ocorreu o erro �+IntToStr(erro)+� ao procurar o nome do computador.�;
        MessageBox(Screen.ActiveForm.Handle, PChar(mensagem), �Aten��o�, mb_Ok + mb_IconError);
        Result := ��;
     end;
end;

flw.

F�rum HostName em IBX #349272