ich möchte beim Programmstart eine Ftp verbindung aufbauen

[aaron]

Hallo,
ich möchte beim Programmstart eine Ftp verbindung aufbauen, wenn das nicht möglich ist, soll eine Dialogbox zu sehen sein. Mit dem Code unten klappt das nicht so ganz,
Das Proggy bleibt hängen wenn keine Onlineverbindung da ist, und es ist Keine Message zu sehen...

Wer mag mir dabei helfen?

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 
      try 
      Timer1.Enabled := false; 
      close 
        except; 
    end 
  else 
    Showmessage('Kann keine Verbindung aufgebaut werden');   
      finally 
     end; 
  end;

[edit=Daniel B]Delphi-Tags gesetzt. MfG Daniel B.[/edit]

[Daniel B]

Hallo aaron,

wenn Du Code postest, dann schreib es bitte in den Delphi-Tags. Danke!

[ delphi]Code, Code, Code[/delphi]

Grüsse, Daniel :hi:

[aaron]

Alles klar, mache ich in Zukunft :dancer:

[CalganX]

Wenn ich deinen Source richtig entschlüssle, dann springst du in den Blöcken. Der Compiler versteht deine Sprache sozusagen nicht. Versuchs mal so:

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
      Timer1.Enabled := false;
      Close;
    end else
      Showmessage('Kann keine Verbindung aufgebaut werden');   
  except
    ShowMessage('Kann keine Verbindung aufgebaut werden');
  end;
end;

Chris

[aaron]

Vielen Dank, ich sitze da nun schon eine Weile lang daran,

Bei

Delphi-Quellcode:

end else

gibt es einen break, mitb der fehlermeldung:

Delphi-Quellcode:

[Fehler] splash.pas(83): EXCEPT oder FINALLY erwartet

[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;

[aaron]

Vielen Dank, es funktioniert wenn ich die *.exe so starte,
wenn ich das Programm in der IDE mit F9 starte, dann gibts ne Exception der Klasse EIdSocketError, Meldung:'Socket-Fehler #11001 HOst nicht gefunden'.
Ist das in der IDE normal?

[CalganX]

Hm... eigentlich nicht... Das ist mir unerklärlich... Sorry...

Chris

[Chewie]

Da alles in try..except-Blöcke eingebunden ist, werden Fehlermeldungen bei einem normalen Lauf des Programms nicht angezeigt. Nur wenn das Programm aus der IDE gestartet wird, werden sie angezeigt.
Das heißt, dein Programm funktioniert nicht so, wie es sollte, da ja ein Fehler auftaucht.

[Daniel B]

Drücke mal nur Strg+F9 und schau mal ob unten Warnungen oder Hinweise sind.

Grüsse, Daniel :hi: