Moin !
Ich lade Dateien mit IdHTTP von einem Server. Der Code sieht im Prinzip so aus:
Delphi-Quellcode:
lStream := TFileStream.Create(TargetFolder + Filename, fmCreate or fmShareDenyNone);
lStream.Position := 0;
repeat
// Damit sich das Programm nicht aufhängt
Application.ProcessMessages;
//Hier wird gebrüft ob die restlichen Bytes größer sind als cFileSplitSize
if (BytesInsgesamt-BytesKopiert) > cFileSplitSize then
//Hier wird einmal die cFileSplitSize eingestellt
IdHttp.Request.Range := Format('%d-%d', [BytesKopiert, (BytesKopiert+cFileSplitSize-1)])
else
IdHttp.Request.Range := Format('%d-' , [BytesKopiert]);
Application.ProcessMessages;
//Den eingesttelten Teil herunterladen und ihn die Datei speichern
IdHTTP.Get(FileToLoad , lStream);
BytesKopiert := BytesKopiert+cFileSplitSize;
Application.ProcessMessages;
until (BytesKopiert >= BytesInsgesamt); //Schleife beenden wenn datei fertig
if Assigned(lStream) then lStream.Free; //FileStream freigeben wenn gesetzt
Das funzt auch ganz gut soweit. Die Dateien werden in Blöcken geladen.
Nun habe ich aber z.B. bei Textdateien das Problem das die Zeilenumbrüche nicht 0D0A sind sondern auf 0A gestutzt werden.
Andere Dateien hingegen werden allerdings problemlos geladen. Wenn ich z.B. eine EXE übertrage ist alles ok.
Nun stellt sich mir die Frage ... Liegt das an TFileStream oder an IdHTTP? Und was kann ich dagegen tun?
Muss ich ggf. beim Stream Create einen zusätzlichen Parameter angeben?
Braucht IdHttp evtl. eine spezielle Einstellung?
Im Grunde will ich ja nur Dateien als Binärstream downloaden.
@Mod: Sollte das eher an IdHTTP liegen, bitte ins Internet Forum verschieben - Sorry.