Forum: Datenbanken
Delphi
by DeddyH,
3. Nov 2011
Dann liegt das Problem wohl beim Auslesen oder gar schon beim Speichern. Da kann ich leider im Moment nicht weiterhelfen.
Forum: Datenbanken
Delphi
by DeddyH,
3. Nov 2011
Das würde ja bedeuten, dass ts.Size ebenfalls nur 3 KB beträgt. Hast Du das mal überprüft? Wenn dem so sein sollte, klappt das Auslesen ja schon nicht richtig.
Forum: Datenbanken
Delphi
by DeddyH,
3. Nov 2011
Wie groß ist denn die resultierende Datei? Vielleicht ist CopyFrom besser geeignet als LoadFromStream, aber das ist nur geraten.
Forum: Datenbanken
Delphi
by DeddyH,
3. Nov 2011
Du baust Dir Speicherlecks. Und IIRC musst Du zuerst "zurückspulen". Wie ist es so?
procedure TForm.ViewPDF;
var
ts: TStream;
ms: TMemoryStream;
begin
ts := dm.qQuery.CreateBlobStream(dm.qQuery.Fieldbyname('Datei'),bmRead);
try
ms := TMemoryStream.Create;
try