Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi FTP-Übertragung "sanft" beenden (https://www.delphipraxis.net/85152-ftp-uebertragung-sanft-beenden.html)

inherited 27. Jan 2007 16:28

Re: FTP-Übertragung "sanft" beenden
 
Eventuell kann "theoretisch" auch TIdAntiFreeze hier weiterhelfen. :mrgreen:
Sonst versuche doch mal im OnWork-Event der FTP-Komponente eine Kontroller der Variable + ein Application.ProcessMessages einzubauen und die Variable mit dem Button zu setzen.

IngoD7 27. Jan 2007 18:11

Re: FTP-Übertragung "sanft" beenden
 
Zitat:

Zitat von FordPerfekt
Da die CPU-Last ziemlich hoch ist dauerts ein wenig aber max ne Sekunde!

Dann glaube ich langsam, dass die Indys eine Macke haben.

Immerhin besagt die Fehlermeldung, dass er 15 Minuten (!) keine Daten empfangen hat. Ist doch irgendwie blödsinnig die Aussage ... :gruebel:

Welche Indy-Version benutzt du eigentlich? Ist das die neueste verfügbare?

FordPerfekt 28. Jan 2007 09:03

Re: FTP-Übertragung "sanft" beenden
 
Zitat:

Welche Indy-Version benutzt du eigentlich? Ist das die neueste verfügbare?
Habe TurboDelphi. Bei der Installation habe ich Indy 10 gewählt!

Daniel G 28. Jan 2007 09:05

Re: FTP-Übertragung "sanft" beenden
 
Und? Was hältst du von den WinInet-Funktionen?

hsbc 28. Jan 2007 09:23

Re: FTP-Übertragung "sanft" beenden
 
Hallo allerseits,

Versuche mal folgendes: (klappt bei mir hervorragend)

Delphi-Quellcode:
1.) Im Ereignis OnWork von idFTP:
      Application.ProcessMessages einfügen

2.) In Deinem Abbruch-Button-Ereignis:
      try
        IdFTP1.Abort;
        Abbruch := true;
      except
        Abbruch := false;
      end;

3.) In Deiner Upload-Routine:
      for i := 0 to ListBox1.Items.Count - 1 do
      begin
        if NOT Abbruch then
        begin
          ... Hier deine IdFTP1.Put -
        end;
      end;
mfg
Herbert

FordPerfekt 28. Jan 2007 11:17

Re: FTP-Übertragung "sanft" beenden
 
@hsbc: Danke für die Antwort aber leider funktioniert es nicht! Es kommt derselbe Error!

@Daniel: Ich werde es mal mit diesen probieren, melde mich dann wieder!

mfg
Ford


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:40 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz