Stream-Schreibfehler, ich dreh bald durch!

[Sascha L]

Hallo,

ich habe folgenden Code:

Delphi-Quellcode:

var
intIndex:integer;
anhang_stream: TFileStream;

for intIndex := 0 to (IdMessage1.MessageParts.Count-1) do begin

  if idMEssage1.MessageParts.Items[intIndex] is TIdAttachmentFile then begin
  s := (idMEssage1.MessageParts.Items[intIndex] as tIdAttachmentFile).Filename;
  anhang_stream := TFileStream.Create(intIndex);
  TidAttachmentFile(idMessage1.MessageParts.Items[intIndex]).SaveToStream(anhang_stream);
  // hier steht noch Code, der damit nichts zu tun hat.
  anhang_stream.Free;
  end;

Ich habe schon alles ausprobiert. anhang_strean.Destroy, anhang_stream.free (was man ja eigentlich nimmt). Ich habe es auch ganz weggelassen, aber jedes mal bekomme ich eine Fehlermeldung -> "Stream-Schreibfehler".

Ich habe bei TFileStream.Create auch schon mal einen Order + s angegeben. Er kann dann, wenn im Anhang 2 Dateien sind, nur die erste Speichern und bei der 2. kommt dann wieder der Fehler.

Andere Streams kann ich nicht verwenden, weil beim Compilieren sonst ein Fehler kommt, da man bei TidAttachment nur nen FileStream nehmen kann.

Ich hoffe ihr wisst, wo das Problem ist

Gruß
Sascha