PDA

Visualizza la versione completa : [DELPHI] Esecuzione di WHOIS tramite sito esterno


camaleonteplus
27-10-2009, 19:03
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:

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:

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?

camaleonteplus
27-10-2009, 20:43
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'

Dalton
28-10-2009, 09:15
procedure TForm1.WhoisClick(Sender: TObject);
begin
ShellExecute(0, nil, 'http://whois.domaintools.com/' + pansichar(IPLocale.Caption), nil, nil, 0);
end;

Ciao!

camaleonteplus
28-10-2009, 09:37
Grazie!

Loading