PDF-Datei (BLOB) in eine MySql-Tabelle speichern und lesen (Delphi 2010)

[DeddyH]

Du baust Dir Speicherlecks. Und IIRC musst Du zuerst "zurückspulen". Wie ist es so?

Delphi-Quellcode:

procedure TForm.ViewPDF;
var
   ts: TStream;
   ms: TMemoryStream;
begin
  ts := dm.qQuery.CreateBlobStream(dm.qQuery.Fieldbyname('Datei'),bmRead);
  try
    ms := TMemoryStream.Create;
    try
      ts.Position := 0;
      ms.LoadFromStream(ts);
      ms.SaveToFile('C:\test3.pdf');
    finally
      ms.Free;
    end;
  finally
    ts.Free;
  end;
end