在应用程序服务器里如何获得客户机IP地址等相关信息？(100分)

在三层数据库系统里，在应用程序服务器里如何获得客户机IP地址、计算机名、登陆时间等相关信息？
功能相当于Borland提供的scktsrvr.exe程序！多谢了！

很简单，让客户端自己发过来不就可以了。

同意楼上。
在服务器端输出一个接口即可。

让客户端自己发过来,
具体来说：客户端登录时使用一些函数的到你要的信息，在发送到服务器：
如下
获得计算机的当前用户名和计算机的名称getusername和getcomputername
procedure TForm1.Button1Click(Sender: TObject);
var
peoname,comname: string;
x1:Cardinal;
begin
setlength(comname,10);
x1:=10 ;
if (getusername(pchar(comname),x1)) then
label1.Caption:=comname
else
label1.caption:='00';
setlength(peoname,100);
x1:=100;
if (getcomputername(pchar(peoname),x1)) then
label2.Caption:=peoname
else
label2.caption:='00';
end;

end.

难道要在每一个函数上都传上用户名，密码吗？晕倒。。。。

有何不可？？？

如果能在客户不发送任何多余信息的情况下,在SOCKET服务器
就能获得该客户的IP地址,那该有多方便,我想MIDAS应该提供
这点方便的吧?