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:
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:
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?