BorlandTalk.com Forum Index BorlandTalk.com
Borland discussion newsgroups
 
Archives   FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Getting the IP address!

 
Post new topic   Reply to topic    BorlandTalk.com Forum Index -> Delphi Internet Winsock
View previous topic :: View next topic  
Author Message
Atmapuri
Guest





PostPosted: Sat Mar 06, 2004 11:18 am    Post subject: Getting the IP address! Reply with quote



Hi!

How do I get the IP address of the PC using sockets?

Thanks!
Atmapuri


Back to top
Sercan Oz
Guest





PostPosted: Sat Mar 06, 2004 10:48 pm    Post subject: Re: Getting the IP address! Reply with quote



Try this

function GetAddr : string;
var
i: integer;
addr: PChar;
begin
i := sizeof(Sin);
getpeername(soket,Sin,i);
Addr := inet_ntoa(Sin.sin_addr);
Result := StrPas(Addr);
end;

Best Regards
Sercan

**Sin : TSockaddrin;Soket:TSocket;

"Atmapuri" <janez.makovsek (AT) usa (DOT) net> wrote

Quote:
Hi!

How do I get the IP address of the PC using sockets?

Thanks!
Atmapuri





Back to top
Display posts from previous:   
Post new topic   Reply to topic    BorlandTalk.com Forum Index -> Delphi Internet Winsock All times are GMT
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2006 phpBB Group
SEO toolkit © 2004-2006 webmedic.