Hallo Leute,
Erstmal Ich arbeite mit
Indy version 10.
Ich habe es mittels untengenannten Code geschafft Segmente von einer Binairen Datei zu downloaden und zu dekodieren nach der Orginal Datei.
Zitat:
Beispiel Segments:
eu0quj$nau$1@upload.eweka.nl
eu0qv3$nau$2@upload.eweka.nl
Delphi-Quellcode:
for H := 0 to sm.Count - 1 do
try
MyTestFile :='c:\Temp\nzbtemp\test' + IntToStr(H) + '.txt';
idNNTP1.GetBody(sm.Strings[H], idMessage1);
finally
for J := 0 to IdMessage1.MessageParts.Count - 1 do
begin
------------------------- Ersatz durch FileStream / MemoryStream -----------------------------
TIdAttachment(IdMessage1.MessageParts.Items[J]).SaveToFile(MyTestFile);
yDecoder1.InputFileList.Add('c:\Temp\nzbtemp\test' + IntToStr(H) + '.txt');
//DeleteFile('c:\Temp\nzbtemp\test' + IntToStr(H) + '.txt');
---------------------------------------------------------------------------------
end;
end;
// disconnect
try
IdNNTP1.Disconnect;
except
end;
Memo1.Lines.Add('end.');
yDecoder1.OutputPath := 'c:\Temp\nzbtemp\';
yDecoder1.Active := True;
Die verschiedenen Segmente werden erst auf der HD gespeichert und dan dekodiert nach der Orginal Datei.
Ich wollte dies mittels eines Streams ersetzen sodass nicht erst alle Segmente auf der HD gespeichert werden, Ich weiss der yDecoder kann auch SaveToStream und idMessage1 kann auch SaveToStream.
Ist dies moeglich?
Kann jemand mich weiterhelfen?
Besten Dank im voraus.
Gruss Lucius.