Einzelnen Beitrag anzeigen

Berni68

Registriert seit: 9. Jan 2006
Ort: Villingen
162 Beiträge
 
Delphi XE5 Professional
 
#1

Tidftp Problem mit Get

  Alt 21. Dez 2010, 17:28
Hallo zusammen,

folgender Code zum herunterladen von Dateien funktioniert nicht, das Bitmap ist sozusagen geschreddert, also nicht gleich der Quelldatei:
Delphi-Quellcode:
if idftp.Connected=false then idftp.Connect;
...
idftp.Get(pwFile, ms, true);
...
idftp.List(TStrings(files), mask, false);
...
idftp.Get(IdSchule.Text+'.bmp','xxx.bmp', true);
idftp.Disconnect;
Wenn ich allerdings zwischendurch die Verbindung trenne und wiederherstelle
geht es:
Delphi-Quellcode:
if idftp.Connected=false then idftp.Connect;
...
idftp.Get(pwFile, ms, true);
...
idftp.List(TStrings(files), mask, false);
...
idftp.Disconnect; // trennen
if idftp.Connected=false then idftp.Connect; // wiederverbinden
idftp.Get(IdSchule.Text+'.bmp','xxx.bmp', true);
idftp.Disconnect;
jetzt kommt das Bitmap korrekt an.

Auch wenn ich vor dem herunterladen des Bitmaps
idftp.TransferType:= ftBinary ;
einfüge geht es nicht.
Ich würde gerne das trennen und wiederverbinden weglassen.
was mach ich falsch?
Bernhard
  Mit Zitat antworten Zitat