Hallo zusammen,
ich speichere eine PDF in einer Datenbank folgendermassen:
Delphi-Quellcode:
procedure Datensatz_speichern_Pictures_PDF(Tabelle, Spalte, Filter_Spalte, Filter_Wert, Pfad:String; PDF_loeschen: Boolean);
var
ms, outstream: TMemoryStream;
begin
ms := TMemoryStream.Create;
outstream := TMemoryStream.Create;
outstream.LoadFromFile(Pfad);
outstream.Seek(0, soFromBeginning);
DM_Main.QueryRaw.Close;
DM_Main.QueryRaw.SQL[1] := Tabelle;
DM_Main.QueryRaw.SQL[3] := Spalte;
DM_Main.QueryRaw.SQL[5] := 'WHERE ' + Filter_Spalte;
DM_Main.QueryRaw.ParamByName('p_pdf').SetBlobData(outstream.Memory, outstream.Size);
DM_Main.QueryRaw.ParamByName('p_auftragsnummer').asstring := Filter_Wert;
DM_Main.QueryRaw.ExecSQL;
ms.Free;
outstream.Free;
if PDF_loeschen = true then
begin
DeleteFile(Pfad);
end;
end;
Es gibt aber bei uns Rechner, da wird mit dieser Funktion zwar ein Stream in der Datenbank erzeugt, aber dieser lässt sich nicht mehr laden ?
Was kann das sein ?
Muss ich eventuell beim speichern was anderes machen ? Oder müssen diese Streams dann anders geladen werden ?
Gruss
Holger