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