Ik heb het nu als volgt:
HTML Code:
MemStream := TMemoryStream.Create;
Memo9.Lines.SaveToStream(MemStream);
MemStream.Seek(0,0);
ParamByName('NOTITIES').LoadFromStream(MemStream,ftBlob);
ExecSQL;
FDConnection1.Commit;
MemStream.Free;
Nu wordt de data naar de db weggeschreven alleen als ik ze dan weer inlees zijn het onleesbare karakters geworden.
Het terug lezen doe ik nog steeds als:
HTML Code:
Body.Inhoud := '';
Field := TBlobField(FDTable1.FieldByName('NOTITIES'));
Stream := FDTable1.CreateBlobStream(Field, bmRead);
try
SetLength(Body.Inhoud, Stream.Size div SizeOf(WideChar));
Stream.Read(Body.Inhoud[1], Stream.Size);
finally
Stream.Free;
end;
Memo9.Lines.Text := Body.Inhoud;
wat klopt er nog niet?
Bookmarks