INDY-Emails: Probleme mit Attachments

[meggles]

Hallo,
sorry, ich komm einfach nicht weiter:
Wie kann ich die Attachments einer erhaltenen Email (Indy 9) als Blobfeld in einer Datenbank speichern? (IB 7) Das muss irgendwie über einen Stream gehen, ich checks aber irgendwie nicht. Ebenso das auslesen.
Wäre toll, wenn mich da mal jemand von der Leitung schubsen könnte
Danke!
Simon

[sakura]

Was genau ist Dein Problem, an das Attachment zu gelangen oder die Daten in der DB zu speichern?

......

[meggles]

Hi sakura,
also das speichern in der DB funzt.

Delphi-Quellcode:

vstream := TStringStream.Create('');
TIdAttachment(MessageParts[vi]).Encode(vStream);
vStream.Position := 0;
ParamByName('inhalt').AsString := vStream.DataString;
execSQL;

Nun hab ich shcon mal weiterprobiert und lese die Datei so wieder aus der Datenbank:

Delphi-Quellcode:

  vFileStream := TFileStream.Create(vDir + 'TEMP\'+gvanlagenarray[lvAnhaenge.itemindex].Dateiname, fmCreate);
  with fDM.IB_Cursor do
  begin
    if active then showmessage('ibcursor offen! (ActAttOeffnenExecute)');
    close;
    sql.Text := 'select inhalt from email_blob where ID = '+inttostr(gvAnlagenarray[lvAnhaenge.ItemIndex].id);
    prepare;
    open;
    vStream := CreateBlobStream(FieldByName('inhalt'),bsmRead);
    vFileStream.Write(vStream,vStream.Size);
  end;

Das funzt aber nicht - ich krieg ne 0 KB-Datei. Woran liegt das?
Hoffe, Du kannst mir helfen
Danke!
Simon

[shmia]

Zitat von meggles:

Das funzt aber nicht - ich krieg ne 0 KB-Datei. Woran liegt das?

Richtig kopieren:
vFileStream.CopyFrom(vStream, 0);

[meggles]

Hm, auch damit bleibt die Datei 0KB groß. Ich kann sie auch erst öffnen, wenn ich mein Programm volständig schließe, vorher heißt es, dass sie nicht geöffnet werden kann, weil noch darauf zugegriffen wird....

[shmia]

Zitat von meggles:

Hm, auch damit bleibt die Datei 0KB groß. Ich kann sie auch erst öffnen, wenn ich mein Programm volständig schließe, vorher heißt es, dass sie nicht geöffnet werden kann, weil noch darauf zugegriffen wird....

Das bedeutet, die Datei wird korrekt geschrieben, ist aber exclusiv geöffnet.
2 Möglichkeiten:
* vFileStream schliesen
FreeAndNil(vFileStream); * den FileStream mit Share-Rechten öffnen
vFileStream := TFileStream.Create(dateiname, fmOpenWrite or fmShareDenyWrite);