Italian community of Lazarus and Free Pascal

Programmazione => Generale => Topic aperto da: xinyiman - Ottobre 27, 2012, 09:11:39 pm

Titolo: Ricavare l'indirizzo IP
Inserito da: xinyiman - Ottobre 27, 2012, 09:11:39 pm

Ciao ragazzi chi sa dirmi come recuperare l'indirizzo IP di un host name...synapse o Indy è indifferente

Titolo: Re:Ricavare l'indirizzo IP
Inserito da: bonmario - Ottobre 28, 2012, 08:03:37 am

Ciao,
non so come si fa da codice. Se non trovi niente, puoi leggere l'output del comando ping, sempre che il PC da cui lo lanci abbia l'accesso ad internet.

Ciao, Mario

Titolo: Re:Ricavare l'indirizzo IP
Inserito da: nomorelogic - Ottobre 29, 2012, 12:45:42 pm

se non ricordo male, una volta che un socket è connesso, che sia client o che sia sever, dovresti avere a disposizione qualcosa come "GetClientAddress"

Titolo: Re:Ricavare l'indirizzo IP
Inserito da: xinyiman - Ottobre 29, 2012, 07:27:42 pm

Citazione da: nomorelogic - Ottobre 29, 2012, 12:45:42 pm

se non ricordo male, una volta che un socket è connesso, che sia client o che sia sever, dovresti avere a disposizione qualcosa come "GetClientAddress"

Un esempietto lo possiedi?!

Titolo: Re:Ricavare l'indirizzo IP
Inserito da: nomorelogic - Ottobre 31, 2012, 12:26:10 pm

eccolo, ricorda di mettere in uses: blcksock

Codice: [Seleziona]

var x: TBlockSocket;
    s: string;
begin
  x := TBlockSocket.Create;
  try
    s := x.ResolveName('www.lazaruspascal.it');
    ShowMessage(s);
  finally
    x.Free;
  end;
end;          

Edit:
pardon, dimenticavo, l'ho fatto con synapse