> > { Retrieve the computer name }
> >
> > function GetComputerName: string;
> > var
> > buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
> > Size: Cardinal;
> > begin
> > Size := MAX_COMPUTERNAME_LENGTH + 1;
> > Windows.GetComputerName(@buffer, Size);
> > Result := StrPas(buffer);
> > end;
> >
> > procedure TForm1.Button1Click(Sender: TObject);
> > begin
> > ShowMessage(GetComputerName);
> > end;
> >
> > Ciao
> >
> > Arnaldo
>
> That's not the name of the server (necessarily) - just the name of the
> computer running that procedure. In this case, the name of the server is
> also 'localhost'
> Alan
>

Yes, Alan. You are right.
But, FOR THIS PARTICULAR CASE, for Me works fine, cause the app run on the
same machine of the Server.
Somebody knows how to detect the TCP/IP - Firebird Server name??

Ciao

Arnaldo