ich möchte beim Programmstart eine Ftp verbindung aufbauen

[CalganX]

Logisch... Neuer Source:

Delphi-Quellcode:

procedure TFormSplash.Timer1Timer(Sender: TObject); 
begin 
  if TransferringData then idFTP1.Abort; 
  if IdFTP1.Connected then IdFTP1.Disconnect; 
  try 
    IdFTP1.Host := Form10.Edit1.Text; 
    IdFTP1.Username := Form10.Edit2.Text; 
    IdFTP1.Password := Form10.Edit3.Text; 
    IdFTP1.Connect; 
    if idFTP1.Connected then begin
      Timer1.Enabled := false; 
      Close; 
    end else 
      Showmessage('Kann keine Verbindung aufgebaut werden');    
  except 
    ShowMessage('Kann keine Verbindung aufgebaut werden'); 
  end; 
end;