1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

procedure TForm1.ftp_buttonClick(Sender: TObject);
var idftp:Tidftp;
begin
  idftp:=TIdftp.Create(Self);
  idftp.Username:= user.Text;
  idftp.Password:= pass.Text;
  idftp.Port:=StrToInt(port.Text);
  idftp.Host:= ip.Text;
if passive.Checked = true then
  idftp.Passive := True;
if passive.Checked = false then
  idftp.Passive := false;
    try
      Idftp.Connect();
      Idftp.ChangeDir (path.Text);
begin

  FTP_Inhalt:=TStringList.Create;
  with Form1 do
  begin
    ListBox1.items.Clear;
    Idftp.Size('*.*');
    IdFTP.List(FTP_Inhalt);
    ListBox1.Items.Assign(FTP_Inhalt);
    IdFTP1.Disconnect;


with IdWhois1 do begin
Host := whois.text;
listbox1.Lines.Text := whois(trim(edtDomainToCheck.text));
// Ein Verbindungsaufbau ist nicht nötig, das macht die whois-Funktion
selbst
if connected then disconnect;
end;

  end;
end;
  except
   showmessage('überprüfe Angaben!!!');
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
begin
 idWhois1.Host := edit1.Text;
 memo1.lines.add(idWhois1.WhoIs(edit1.Text));
end;

procedure TForm1.IdWhois1Status(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: String);
begin
 memo1.Lines.add(AStatusText);
end;					

1:
2:
3:
4:
5:
6:
7:

Whois Server Version 1.3

Domain names in the .com and .net domains can now be registered
with many different competing registrars. Go to http://www.internic.net
for detailed information.

No match for "WHOIS.INTERNIC.NET".					

1:
2:
3:
4:

WEB.DE AG
Amalienbadstrasse 41
D-76227 Karlsruhe
Germany