Delphi - whois - Piero Tofy.it

Forum - Delphi - whois

camaleonteplus (Normal User)
Pro

Messaggi: 95
Iscritto: 05/03/2009

Postato alle 19:05
Martedì, 27/10/2009

Ho trovato un modo comodo per fare un whois sfruttando i servizi che si trovano in rete, ho trovato questo sito:
http://whois.domaintools.com
che se si completa l'indirizzo in questo modo:
http://whois.domaintools.com/24.100.200.255
mi da i dati relativi al IP che mi interessa, allora ho realizzato questo codice usando un componente TLabel da dove prende l'IP:

Codice sorgente - presumibilmente Delphi

procedure TForm1.WhoisClick(Sender: TObject);
begin
 ShellExecute(0, nil, 'http://whois.domaintools.com/' + IPLocale, nil, nil, 0);
end;

Ma mi da questo errore:
[Error] Email.pas(779): Incompatible types: 'String' and 'TLabel'
lo ho fatto anche in questo modo:

Codice sorgente - presumibilmente Delphi

procedure TForm1.WhoisClick(Sender: TObject);
begin
 ShellExecute(0, nil, 'http://whois.domaintools.com/' + IPLocale.text, nil, nil, 0);
end;

ma mi da questo errore:
[Error] Email.pas(779): Undeclared identifier: 'text'
come posso risolvere questo problema?

theprogrammer (Normal User)
Guru^2

Messaggi: 2509
Iscritto: 28/01/2009

Postato alle 19:14
Martedì, 27/10/2009

Probabilmente la proprietà è Caption non Text

camaleonteplus (Normal User)
Pro

Messaggi: 95
Iscritto: 05/03/2009

Postato alle 20:43
Martedì, 27/10/2009

Codice sorgente - presumibilmente Delphi

procedure TForm1.WhoisClick(Sender: TObject);
begin
 ShellExecute(0, nil, 'http://whois.domaintools.com/' + IPLocale.Caption, nil, nil, 0);
end;

be ho fatto in questo modo ma mi da questo errore:
[Error] Email.pas(779): Incompatible types: 'String' and 'PAnsiChar'

lorenzo (Normal User)
Guru

Messaggi: 1178
Iscritto: 15/04/2008

Postato alle 22:28
Martedì, 27/10/2009

ovviamente visto che stai usando un'api di windows è necessario passare in ingresso un puntatore a char, quindi un PChar

quindi

ShellExecute(0, nil, PChar('http://whois.domaintools.com/' + IPLocale.Caption), nil, nil, 0);

camaleonteplus (Normal User)
Pro

Messaggi: 95
Iscritto: 05/03/2009

Postato alle 9:36
Mercoledì, 28/10/2009

grazie lorenzo:

begin
ShellExecute(0, nil, PChar('http://whois.domaintools.com/' + IPLocale.Caption), nil, nil, 0);
end;