说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

将图像放入数据库中-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
将图像放入数据库中-Delphi资料

怎样将BMP放入DBASE和Paradox的BLOB字段中

(1)使用裁剪板

procedure TForm1.Button1Click(Sender: TObject);

var

C: TClipboard;

begin

C := TClipboard.Create;

try

if Clipboard.HasFormat(CF_BITMAP) then

DBImage1.PasteFromClipboard

else

ShowMessage('Clipboard does not contain a bitmap!');

finally

C.Free;

end;

end;

(2)从文件调入

procedure TForm1.Button2Click(Sender: TObject);

begin

Table1Bitmap.LoadFromFile(

'c:\delphi\images\splash\16color\construc.bmp');

end;

(3)从其他控件的BITMAP类中读入

procedure TForm1.Button3Click(Sender: TObject);

var

B: TBitmap;

begin

B := TBitmap.Create;

try

B.LoadFromFile('c:\delphi\images\splash\16color\athena.bmp');

DBImage1.Picture.Assign(B);

finally

B.Free;

end;

end;

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘