PDF in DB speichern und öffnen danach Proggi-Abstutz

[DeddyH]

Versuch mal

Delphi-Quellcode:

procedure TForm17.Button2Click(Sender: TObject);
const
  FILENAME = 'Dok.pdf';
var
  myPDF, TempPath : String;
  fs : TFileStream;
begin
  SetLength(TempPath, GetTempPath(0, nil));
  GetTempPath(Length(TempPath), PChar(TempPath));
  SetLength(TempPath, StrLen(PChar(TempPath)));
  TempPath := IncludeTrailingPathDelimiter(TempPath) + FILENAME;
  fs:=TFileStream.Create(TempPath,fmCreate or fmShareExclusive);
  try
    myPDF := ADOTable1.FieldByName ('PDFFILE').AsString;
    fs.Write(mypdf[1],length(mypdf)*Sizeof(char));
  finally
    fs.Free;
  end;
  if ShellExecute(Application.Handle,
                 'open',
                 PChar(TempPath),
                 nil, nil, SW_NORMAL) <= 32 then
  ...