PDF in DB speichern und öffnen danach Proggi-Abstutz

[blondervolker]

Hallo,

jetzt meckert Delphi:
Berufe.pas(614): E2003 Undefinierter Bezeichner: 'Sizeofchar'

Hab keinen Plan.Was ist da wieder falsch?

Delphi-Quellcode:

procedure TForm17.Button2Click(Sender: TObject);
var
  myPDF : String;
  fs : TFileStream;
begin
  fs:=TFileStream.Create('Temp\Dok.pdf',fmCreate or fmShareExclusive);
  myPDF := ADOTable1.FieldByName ('PDFFILE').AsString;
  fs.Write(mypdf[1],length(mypdf)*Sizeofchar);
  fs.Free;
end;

[DeddyH]

Das sollte wohl SizeOf(Char) heißen. Aber wieso der umständliche Weg über String, statt wie vorher direkt das BLOB-Feld zu benutzen? Du brauchst doch nur den "%Temp%"-Pfad, kannst dann mit GetTempFilename einen temporären Dateinamen generieren lassen und speicherst unter diesem Namen ab. Nun kannst Du den installierten Reader öffnen, warten, bis der wieder geschlossen wird und dann die temporäre Datei wieder löschen.

[p80286]

Zitat von DeddyH:

Das sollte wohl SizeOf(Char) heißen.

'Tschulligung das war meine Tastatur schuld

Zitat von DeddyH:

Aber wieso der umständliche Weg über String, statt wie vorher direkt das BLOB-Feld zu benutzen?

der "String" war vorgegeben, und als Buffer find ich Strings meistens sehr schön, weil da ist die Größe gleich dabei.
Aber wo wurde vorher das BLOB-Feld genutzt? Ich hab's nochmal durchgelesen aber nichts gesehen.

Gruß
K-H

[DeddyH]

Im Ausgangspost und in #9 haben wir TBlobField.SaveToFile benutzt, deshalb war ich über den String als Puffer etwas verwundert.

[blondervolker]

Danke nochmal

Hab es so gemacht:

Delphi-Quellcode:

procedure TForm17.Button2Click(Sender: TObject);
var
  myPDF : String;
  fs : TFileStream;
begin
  fs:=TFileStream.Create('Temp\Dok.pdf',fmCreate or fmShareExclusive);
  myPDF := ADOTable1.FieldByName ('PDFFILE').AsString;
  fs.Write(mypdf[1],length(mypdf)*Sizeof(char));
  fs.Free;
  if ShellExecute(Application.Handle,
                 'open',
                 PChar('Temp\Dok.pdf'),
                 nil, nil, SW_NORMAL) <= 32 then
    ShowMessage('Es ist ein Fehler aufgetreten,da in der Datenbank keine Pdf Datei gefunden wurde.');
end;

[DeddyH]

Da fehlt aber noch mindestens ein try-finally-Block. Den Dateinamen solltest Du in einer Variablen oder Konstanten ablegen und dann die benutzen, außerdem sind relative Pfade böse.

[Klaus01]

vielleicht solltest Du die Datei noch da ablegen, wo es allgemein üblich ist.
Im Temp Folder des Users oder im AppData Verzeichnis.
Stichwort dazu: SpecialFolders.

Grüße
Klaus

[blondervolker]

Ist es so richtig?

Delphi-Quellcode:

procedure TForm17.Button2Click(Sender: TObject);
var
  myPDF : String;
  fs : TFileStream;
begin
  fs:=TFileStream.Create('c:Temp\Dok.pdf',fmCreate or fmShareExclusive);
  myPDF := ADOTable1.FieldByName ('PDFFILE').AsString;
  fs.Write(mypdf[1],length(mypdf)*Sizeof(char));
  fs.Free;
  if ShellExecute(Application.Handle,
                 'open',
                 PChar('c:Temp\Dok.pdf'),
                 nil, nil, SW_NORMAL) <= 32 then
    ShowMessage('Es ist ein Fehler aufgetreten,da in der Datenbank keine Pdf Datei gefunden wurde.');

[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
  ...

[Sir Rufo]

Hauahauaha, das brennt beim Lesen ja richtig in den Augen.

Gestartet wurde der Thread mit einem Blob-Feld, dessen Inhalt direkt über eine Methode in eine Datei gespeichert wurde.

Dann die blonde Versuchung den PDF Reader direkt damit zu füttern - als Parameter einen String - kein Problem, eben fix mal die PDF-Rohdaten in einen String gepackt und dem PDF-Reader zum Fressen gegeben. Und jetzt wundern warum der meckert.

Sehr cool auch der Vorschlag die Daten aus dem String in einen Stream zu schreiben (dabei liegen die Daten eines BlobFields als Stream vor). Und mit der Methode SaveToFile (siehe erster Beitrag) wäre es noch simpler gewesen.

Sehr amüsant das Ganze - der Start als Codelib Vorschlag ist ja auch schon ein Running Gag