PDF aus DB anzeigen im Webbrowser?

[Sir Rufo]

Zitat von DP-Maintenance:

Dieses Thema wurde am "03. May 2012, 15:07 Uhr" von "TBx" aus dem Forum "Neuen Beitrag zur Code-Library hinzufügen" in das Forum "Programmieren allgemein" verschoben.

Zitat von Gustav.R:

Wie blond muss man eigentlich sein, um für jede Frage "Neuen Beitrag zur Code-Library hinzufügen" zu erwischen?

Zitat von blondervolker:

Nabend,

ich bin ganz blond...
Ich sitzte nicht jeden Abend bei "Delphi"...
Ich bin Laie!!!!
Drum bin ich hier...
Natürlich bekommt man eine über die "Jacke",wenn man dusseliche Fragen stellt,die die anderen schon längst gefressen haben.
Danke

Die Frage zu dieser Antwort hattest du nicht gestellt.

Aber mich würde auch mal interessieren, warum du eine neue Frage grundsätzlich unter Neuen Beitrag zur Code-Library hinzufügen einstellst?
Oder gehst du morgens auch in die Autowerkstatt und bestellst Brötchen?
Eventuell geben die ja aus Mitleid von ihren was ab

So blond kann man nicht sein, denn des Lesens bist du sehr wohl mächtig

[blondervolker]

Hallo,

bin schon eine weile hier,aber dass hab ich jetzt erst gesehen...

Hab nun gebastelt und den Webbrowser weggelassen.Aber komme nicht weiter.
Kann ich ein Oleobject mit einem DBMemo verknüpfen?

Es kommt immer eine Fehlermeldung:"ungültiger Stream".

Delphi-Quellcode:

procedure TForm17.Button1Click(Sender: TObject);
var
Stream: TMemoryStream;
Field: TBlobfield;
begin
ADOTable1.Edit;
OpenDialog1.Filter:='*.pdf|*.pdf';
    if OpenDialog1.Execute then
      begin
        TBlobField(ADOTable1.FieldByName('PDFFILE')). //PDF im DBMemo10 speichern
          LoadFromFile(OpenDialog1.FileName);
          ADOTable1.Post;
end;
end;


procedure TForm17.Button2Click(Sender: TObject);
var
Stream : TMemoryStream;  
Field : TBlobField;  
begin  
  Field := ADOTable1.FieldByName('PDFFILE') AS TBlobField;
  Stream:=TMemoryStream.Create;
  try
    Field.SaveToStream(Stream);
    Stream.Position:=0;
    OleContainer1.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

Was habe ich jetzt nach über 10 STD. falsch gemacht?

[SpTBX]

Vor kurzem hatte ich eine ähnliche Frage hier:

http://www.delphipraxis.net/168058-o...gramm-ein.html

So zu sagen -> Menü->Komponente->ActiveX importieren.

Da gibt es ein ActiveX Control für PDF.

Das einfach nehmen und fertig.

Wenn in anderen Fällen der Webbrowser sichtbar bleiben soll, für diesen Fall unsichtbar machen und stattdessen das AxtiveX control mit der Datei an gleicher Position anzeigen und danach das ActiveX Control unsichtbar und den Webbrowser wieder sichtbar machen.

Oder Webbrowser und ActiveX Control auf zwei Registerkarten verteilen, je nach Anforderung.

[Bernhard Geyer]

Zitat von SpTBX:

Da gibt es ein ActiveX Control für PDF.

Das einfach nehmen und fertig.

Und dann vom Kunden die Info bekommen das es nicht geht weil er statt eines Adobe Readers z.B. den Foxit-Reader hat.

[blondervolker]

Guten Morgen,

hab nun das Acropdf auf die Form geklatscht.Im Datenbankmemo1'PDFFILE' hab ich ein Blobfeld.Dort ist die PDF Datei schon gespeichert im "Wurstelformat".
Wie bekomme ich das Ding jetzt zur Vorschau?
Bei dem Code wird gemeckert:
E2007 Konstante oder Typenbezeichner erwartet

Delphi-Quellcode:

procedure TForm17.Button2Click(Sender: TObject);
var
PDFFILE:Acropdf1;
begin
AcroPDF1.LoadFile('ADOTable1.PDFFILE.pdf');
end;

[Klaus01]

Guten Morgen,

ich denke nicht, dass Acropdf eine Datei direkt aus der Datenbank laden kann.
loadFile riecht auch eher nach dem Laden von einer Datei.

Und dann könntest Du noch kurz erklären, was Du dir dabei gedacht hast:

Delphi-Quellcode:

procedure TForm17.Button2Click(Sender: TObject);
var
  PDFFILE:Acropdf1;
begin
  AcroPDF1.LoadFile('ADOTable1.PDFFILE.pdf');
end;

Ist AcroPDF1 nun ein Type oder eine Instanz?

Grüße
Klaus

[blondervolker]

Hab es jetzt so probiert und es kommen keine Fehlermeldungen mehr.
Bin ich schon mal Stolz.

Außer ein Infofenster,ich soll die dusseligen Lizenzbedingungen von Adobe akzeptieren.Aber ich kann da nicht mal ein Häkchen setzen.
So ein Müll...

Delphi-Quellcode:

procedure TForm17.Button2Click(Sender: TObject);
var
PDFFILE:PDFViewer.TAcroPdf;
begin
AcroPDF1.LoadFile('ADOTable1.PDFFILE');
end;