узнать IP компьютера, на котором находится серверная часть

[DartMrakkk]

Значит ситуация такая:
есть клиент-серверное приложение (работает через интернет).
мне нужно каким либо образом узнать IP компа, на котором находится серверная часть. к примеру если серверная часть попала на компьютер, как она может сообщить мне об этом. Есть одно затруднение - инет у меня dialup-овский, поэтому я в нем нахожусь не посооянно и у меня динамический IP. у меня была идея чтобы серверное приложение отправляло
e-mail на мой адрес, но как это реализовать - я не знаю... может кто сможет помочь ? .... Заранее благодарен

[Alar]

http://programmersforum.ru/showthread.php?t=11229

[DartMrakkk]

и все-таки - может кто знает ?

[Mitron]

попробуй эту функцию:

uses
WinSock;

function GetLocalIP: String;
const WSVer = $101;
var
wsaData: TWSAData;
P: PHostEnt;
Buf: array [0..127] of Char;
begin
Result := '';
if WSAStartup(WSVer, wsaData) = 0 then begin
if GetHostName(@Buf, 128) = 0 then begin
P := GetHostByName(@Buf);
if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^ );
end;
WSACleanup;
end;
end;

[DartMrakkk]

нет. ИП моего компа как определить я знаю... мне необходимо чтобы серверное часть программы (которая находится на другом компе) сообщала
клиентской свой ИП. Но загвоздка в том что на клиентском компьютере ИП динамический... единственным выходом в этой ситуации я вижу - отправку
серверной частью приложения и-мейла, например на Яндекс, чтобы потом я мог загрузить и-мейл в клиентское приложение и, таким образом, я узнаю ИП удаленного компа... знает ли кто-нить как это сделать... ???

[Alar]

http://programmersclub.ru/book-indy - качай исходники