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?