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?

zusammenfalten · markieren

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]

Hallo aaron,

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

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

Grüsse, Daniel

Alles klar, mache ich in Zukunft

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

zusammenfalten · markieren

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

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

Bei end else gibt es einen break, mitb der fehlermeldung:
[Fehler] splash.pas(83): EXCEPT oder FINALLY erwartet

Logisch... Neuer Source:

zusammenfalten · markieren

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;

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?

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

Chris

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.

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

Grüsse, Daniel