FileStream / MemoryStream

[lucius]

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$[e-mail]
eu0qv3$nau$[e-mail]

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.