Moin moin liebe DPler,
ich hab gerade mal eine Frage zu der IdFTP Komponente.
Und zwar suche ich nun schon ne weile nach einer Möglichkeit abzufragen, ob diese gerade versucht eine Verbindung zu einem Server herzustellen und diesen Verbindungsaufbau abzubrechen, habe da aber bisher noch keine Lösung gefunden.
Außerdem bin ich mir beim Beenden gerade etwas unsicher, denn ich habe in der FormCloseQuery im moment folgendes drin stehen:
Delphi-Quellcode:
procedure TMain_Form.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
CanClose := MessageDlg('
Sind Sie sicher, das Sie das Programm schließen und beenden wollen?' + #13#10 + '
Alle laufenden Transfers werden abgebrochen!', mtConfirmation, [mbYes,mbNo], 0) = mrYes;
if CanClose = true
then
begin
{ Überprüfe ob gerade Verbindung hergestellt wird }
//LÖSUNG NOCH GESUCHT
{ FTP Verbindungen trennen }
//Trenne
if FTPSrv.Connected
then
begin
//FTPSrv.Abort;
FTPSrv.Disconnect;
FTPSrv.Quit;
end;
//Beende
Application.Terminate;
end;
end;
Habe aber festgestellt, das wenn ich das Programm beende dies zweimal beenden muss, bevor die Anwendung geschlossen wird. Auch hier suche ich noch nach einer Lösung
Besten Dank im voraus für eure Unterstützung.