一个adoconnection一个adotable连接access数据库中的一个表
字段名为bmp类型为oleobject
procedure TForm1.Button2Click(Sender: TObject);
begin
with TForm2.Create(Self) do
ShowModal;
end;
procedure TForm2.Button1Click(Sender: TObject);
var
Stream1 : TStream;
Bitmap : TBitmap;
begin
with Form1 do
begin
RxRichEdit1.Lines.Add(ADOTable1.Fields[0].AsString);
RxRichEdit1.Lines.Add(ADOTable1.Fields[1].AsString);
Stream1 := ADOTable1.CreateBlobStream(ADOTable1BMP,bmread);
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromStream(Stream1);
ClipBoard.Assign(Bitmap);
rxRichEdit1.PasteFromClipboard;
finally
Bitmap.Free;
end;
end;
end;
