Socket delphi

Signaler
Messages postés
6
Date d'inscription
mercredi 2 septembre 2009
Statut
Membre
Dernière intervention
14 mai 2010
-
Messages postés
6
Date d'inscription
mercredi 2 septembre 2009
Statut
Membre
Dernière intervention
14 mai 2010
-
Bonjours, Je débute avec les sockets et j'ai déjà des problèmes :S

j'ai un bout de code qui me permet de me connecter en local host et ca marche très bien par contre ca ne marche absolument pas si je met une adresse du genre monsite.no-ip.org.

SockAddrIn.sin_addr.S_addr:=inet_addr('127.0.0.1');


Si quelqu'un avait une solution merci d'avance :D

1 réponse

Messages postés
6
Date d'inscription
mercredi 2 septembre 2009
Statut
Membre
Dernière intervention
14 mai 2010

J'ai trouvé merci

function getip(iip:string):String;
var ip:phostent;
ipc:cardinal;
ipa:array[1..4]of byte absolute ipc;
begin
ip:=winsock.gethostbyname(pchar(iip));
if ip=nil then begin
result:='127.0.0.1';
exit;
end else begin
ipc:=cardinal(pointer(ip^.h_addr_list^)^);
ipc:=winsock.ntohl(ipc);
end;
result:=inttostr(ipa[4])+'.'+inttostr(ipa[3])+'.'+inttostr(ipa[2])+'.'+inttostr(ipa[1]);
end;


addr.sin_addr.S_addr:=inet_addr(pchar(getip('mydomain.no-ip.info')));