unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,ipwCore, ExtCtrls, ipwwhois, ipwipport, StdCtrls;
type
TForm8 = class(TForm)
Button1: TButton;
mResponse: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
ipwWhois1: TipwWhois;
implementation
{$R *.dfm}
procedure TForm8.Button1Click(Sender: TObject);
begin
ipwWhois1:=TipwWhois.Create(self);
try
ipwWhois1.Server := 'whois.internic.net';
ipwWhois1.Query('domain.com');
mResponse.Lines.Clear;
mResponse.Lines.Add('Looking up host whois.internic.net...');
mResponse.Lines.Add('Connecting to ' + ipwWhois1.server + ' ...');
mResponse.Lines.Add(ipwWhois1.domaininfo);
except on E: EipwWhois do
mResponse.Lines.Add('Exception: ' + E.Message);
end;
ipwWhois1.Free;
end;
end.
