怎么样实现用ADO读取数据库的.jpg的图片!有没有原代码啊!
解决方案 »
- 用网吧的usb摄像头,如何才能采集到摄像头的图片呢?
- RAVE打印报表老出现的错误提示
- 有关于去处txt文件里的所有中文字符的问题(解决问题给100分)
- csdn-你烦死了!!!!!!!!!!
- 类型转换
- 如何把DELPHI中的DBGRID控件中的数据倒入EXCEL制作报表
- dbgrid 数据录入问题
- 女程序员出路在哪里?我听很多师兄说,大四公司来招聘都找男的,女生一般都去考研,或当文职,5555555
- Delphi简单的问题
- 单号的自然生成???
- 继承控件的问题,朋友们来看看啦~~~~~~~
- 那位大虾能不能给解释一下 [goEditing, goAlwaysShowEditor] * Options 是什么意思
procedure Tform1.selectimageClick(Sender: TObject); //选择图像
begin
if openpicturedialog1.Execute then
image1.Picture.LoadFromFile(openpicturedialog1.FileName );
end;
procedure Tform1.savetodbClick(Sender: TObject); //保存图像到数据库
var
ext:string;
begin
if image1.picture.Graphic <> nil then //避免image1中无图像保存出错
begin
adotable1.Edit ;
adotable1.FieldByName('myimage').Assign(image1.Picture.Graphic);
//以下记录保存到数据库的图像格式
ext:=extractfileext(openpicturedialog1.FileName ); //取出文件扩展名
if uppercase(ext) = '.BMP' THEN
adotable1.FieldByName('isbmp').VALUE := 1 //BMP型图像数据
ELSE IF (UPPERCASE(EXT) = '.JPEG') OR (UPPERCASE(EXT) = '.JPG') THEN
adotable1.FieldByName('isbmp').VALUE := 0; //JPEG型图像数据
ADOTABLE1.Post ;
end;
end;2. 图像数据的读取及显示
procedure Tform1.ADOTable1AfterScroll(DataSet: TDataSet); //ADOTable1的AfterScroll事件方法程序
var
jpegimage:tjpegimage;
begin
image1.Picture.Graphic :=nil;
//下边BMP、JPEG两种图像数据必需分别处理
if adotable1.fieldbyname('isbmp').Asstring = '1' then //BMP型图像数据
image1.Picture.bitmap.Assign(adotable1.fieldbyname('myimage'))
//上边语句中的bitmap不能为graphic,否则会出错
else if adotable1.fieldbyname('isbmp').asstring = '0' then //JPEG型图像数据
begin //begin2
jpegimage := tjpegimage.Create ; //通过jpegimage将图像显示在image1,否则会出错
try
jpegimage.Assign(adotable1.fieldbyname('myimage'));
image1.Picture.Graphic :=jpegimage;
finally
jpegimage.Free ;
end; //end try
end; //end begin2
end;