ist schon klar das dies nix mit dem Fehler zu tun hat, es ist eben nur aufwendig wenn man erst deinen source kopieren muss und ordentlich einrücken weil
Delphi-Quellcode:
else if idMEssage1.MessageParts.Items[intIndex] is TIdAttachmentFile then begin
attFileName := (idMEssage1.MessageParts.Items[intIndex] as tIdAttachmentFile).Filename;
TidAttachmentFile(idMessage1.MessageParts.Items[intIndex]).SaveToFile(path+'\tmp\'+attFileName);
ID2 := ID2+1;
anhang_id_list.Add(IntToStr(ID2));
anhang_list.Add(attFileName);
end;
gar keine Einrückung hat (eigentlich wir das zwischen begin und end eingerückt).
Zum Fehler. Woher weißt du das in dem Stream nix drin steht? Durch den Debugger?
Wenn du vor
Pic2DB.StoreStreamInDB(TBlobField(IBTable1.FieldByName('AID')),anhang_id_list_stream);
ein
anhang_id_list_stream.SaveToFile(YourFilename);
einfügst ist die datei dann auch leer? Wenn nicht würde ich einfach drauf tippen das deine "Pic2DB" einen fehler hat oder der cast "TBlobFiled(IBTable1.FiledByName('AID'))" fehl schlägt.