如何用DELPHI 从ACCESS库中提取图象?
解决方案 »
- 图片操作问题,那位高手能看一下
- 押宝发了笔小财,借元旦散分.元旦快乐,happy new year!
- delphi中如何将UBB代码转换成Html代码
- delphi能开发IRC客户端吗??找了大半天没发现什么原代码~!!!
- 怎么用sql查询ACCESS中的日期时间的数据
- 出现以下错误是怎么回事?[Error] picture.pas(85): Incompatible types: 'Graphics.TCanvas' and 'QGraphics.TCanvas'
- Fast Report的问题:TotalPages的结果是0
- 急,谁有进销存的开发文档。高分相送
- 就业疑问
- 哪里有F1Book控件的用法?(在delphi控件面板的activx中)
- 数据是存文件好,还是存数据库好!!
- 请大家帮忙给测试一下我编写的利息计算器软件,提出错误者有分!帮忙UP者有分!
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
try
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
except
Application.MessageBox('文件类型错误','错误',MB_OK);//?????
end;
if not (Image1.Picture.Graphic Is TBitmap) then
begin
ClipBoard.Assign(Image1.Picture);
Image1.Picture.Bitmap.Assign(ClipBoard);
ClipBoard.Clear; end;//Change the picture that's not belonged to .bmp to .bmp
// picture
ADOTable1.Edit;
ADOTable1.FieldByName('pic').Assign(Image1.Picture);
ADOTable1.Post;
image1.Picture.Bitmap.Assign(nil);
//get from database
//Image1.Picture.Bitmap.Assign(TPicture(Table1.FieldByName('Image')));
end;
end;