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

将图像放入数据库中-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;

VB取得计算机名 VB取得目前所有的输入法 VB取得应用所在的目录 趣味撞球——VB应用程序一例 缺省值和可选参数 -VB资料 请教高手,如下语句有何错误? 急,U盘问题,请各位赐教 怎摸学好美工呢? 请高手进来,请问如何在一个视图中显示多个位图,并把他们拼接起来 水晶报中怎样实现分栏打印? 为什么屏蔽空格的函数调用会使汉字输入不进去? 请问该线程如何关闭? 有关schema名域的问题 这句sql哪错了???大家帮忙 三、反意疑问句的陈述部分为非第一人称主语+thin shell相关 请问if [ "${0:0:1}" If Text1.Text Then 是什么意思 IF b=0 AND c0 THEN 是什么意思看 中国哪个地区化工最先进 has been to和has gone to的区 has been to于has gone to的用 has been to has gone to h 条件语句 if odd(i) then odd 代 国务院同意杭州再启城市总体规划修编女星着透视装惊现内裤 强搂导演遭拒绝11年来最强风暴袭英国 海陆空交通大美国在欧反导基地开建 防范伊朗导弹引中央巡视组:把发现问题、形成震慑作为通威集团管理总部正式入驻通威国际中心两度被追平 成足2∶2平广东新西兰学校到温江二中文化交流青羊区群众微信预约就能办“政”事师爱 在都江堰“绽放”重生尹志平警路仙途赤虬游猎手遮天全球降临计划溪头天门峡谷旅游查平坦旅游霞山古民居旅游枫楼旅游三门源旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘