Einzelnen Beitrag anzeigen

Benutzerbild von blondervolker
blondervolker

Registriert seit: 14. Sep 2010
Ort: Bei: Leeeiipzzhhh
381 Beiträge
 
Delphi XE2 Architect
 
#8

AW: PDF aus DB anzeigen im Webbrowser?

  Alt 7. Mai 2012, 09:19
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?
www.bewerbungsmaker.de

Geändert von blondervolker ( 7. Mai 2012 um 10:20 Uhr) Grund: Etwas vergessen
  Mit Zitat antworten Zitat