PDF in DB speichern und öffnen danach Proggi-Abstutz

[Sir Rufo]

Aber diese Hilfe sieht so aus, als wenn du am stolpern bist und dir gibt dann noch jemand einen Schuppser

[DeddyH]

Wenn Stützen nicht hilft, muss man es halt mit Schubsen versuchen

[mkinzler]

In die richtige Richtung, aber nicht vor das nächste Auto

[DeddyH]

Jaja , letzter Vorschlag (ungetestet):

Delphi-Quellcode:

procedure TForm17.Button2Click(Sender: TObject);
const
  FILENAME = 'Dok.pdf';
var
  PDFField: TBlobField;
  TempPath : String;
  ExecuteInfo: SHELLEXECUTEINFO;
begin
  ADOTable1.Open;
  PDFField := ADOTable1.FieldByName('PDFFILE') as TBlobField;
  if not PDFField.IsNull then
    begin
      SetLength(TempPath, GetTempPath(0, nil));
      GetTempPath(Length(TempPath), PChar(TempPath));
      SetLength(TempPath, StrLen(PChar(TempPath)));
      TempPath := IncludeTrailingPathDelimiter(TempPath) + FILENAME;
      try
        PDFField.SaveToFile(TempPath);
        ZeroMemory(@ExecuteInfo, SizeOf(ExecuteInfo));
        ExecuteInfo.cbSize := SizeOf(ExecuteInfo);
        ExecuteInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
        ExecuteInfo.lpVerb := 'open';
        ExecuteInfo.lpFilename := PChar(TempPath);
        ExecuteInfo.nShow := SW_SHOWNORMAL;
        if ShellExecuteEx(@ExecuteInfo) then
          CloseHandle(ExecuteInfo.hProcess)
        else
          raise Exception.Create(SysErrorMessage(GetLastError));
      except
        on E: Exception do
         ShowMessage('Fehler beim Öffnen der Datei: ' + E.Message);
      end;
    end
  else
    ShowMessage('Kein PDF im aktuellen Datensatz enthalten.');
end;

Wobei man das ganze ShellExecuteEx-Geraffel (und auch das Ermitteln des Temp-Verzeichnisses) natürlich besser in eine eigene Routine auslagert, in der man dann auch auf das Schließen des PDF-Readers warten könnte, um die temporäre Datei im Anschluss wieder zu löschen. Beispiele gibt es ja genug im Forum oder der Codelib.

[Andreas L.]

Ich kenne mich mit ADO nicht aus aber kann es sein das keine Daten in die Datenbank geschrieben werden weil ADOTable1.Post im except-Abschnitt steht?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOTable1.Edit;
  OpenDialog1.Filter:='*.pdf|*.pdf';
  if OpenDialog1.Execute then
  try
    TBlobField(ADOTable1.FieldByName('PDFFILE')).LoadFromFile(OpenDialog1.FileName);
  EXCEPT
    ShowMessage ('Fehler beim Öffnen der Datei!');
    ADOTable1.Post; // <-- Aufruf in Except-Bereich? 
  end;
end;

[DeddyH]

Das ist noch keinem aufgefallen (mir auch nicht) . OK, wenn wir eh schon dabei sind:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.Filter:='*.pdf|*.pdf';
  if OpenDialog1.Execute then
    try
      ADOTable1.Edit;
      TBlobField(ADOTable1.FieldByName('PDFFILE')).LoadFromFile(OpenDialog1.FileName);
      ADOTable1.Post;
    except
      on E: Exception do   
        ShowMessage ('Fehler beim Speichern der Daten: ' + E.Message);             
    end;
end;

[p80286]

Darf ich mal vorsichtig fragen um was es hier jetzt noch geht?
Lesen einer Datei und abspeichern in DB?
oder
DB-Wert in Datei Speichern?
oder doch Bahnhof,Kofferklauen?

Gruß
K-H