怎么样将数据库中的jpg图像文件导出来成为jpg文件 ( 积分: 100 )

Y

yorkjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-27

• #1

我的数据库是一个人员资料数据库,有图像字段
因为dbimage控件无法存储jpg文件,我就下载了一个
dbimageex控件存储jpg文件.因为我做的是一个上报程序
由各地将这些资料上报到总部,然后制卡.
上报上来后需要将数据库中的图片导出来,然后制卡用
应该怎么做呢

 

Y

yuanlaqin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-27

• #2

用stream技术啊。搜一下吧，这个论坛里面很多的。找不到了再找我

 

Y

yorkjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-27

• #3

你就给我个源代码吧,好不好,我也懒得找了,谢谢了,好使了,马上给分

 

大

大懒虫！！

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-28

• #4

var
loc_obj_stream : Tstream
jpg : TJpegImage;
begin
loc_obj_stream := TStream.Create;
//这部份，数据库字段，存到loc_obj_stream 流，自己去网上查一查
////
////
/////////////////////////////////////////////////////////////
jpg := TJpegImage.Create;
jpg.LoadFromStream(loc_obj_stream);
jpg.SaveToFile('文件名.jpg');
end;

 

大

大懒虫！！

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-28

• #5

var
loc_obj_Field:TBlobField;
loc_obj_stream : TMemorystream;
jpg : TJpegImage;
begin
loc_obj_Field:= (query.Fields [0] As TBlobField);
loc_obj_stream := TMemorystream.Create;
loc_obj_Field.SaveToStream (loc_obj_Stream);
jpg := TJpegImage.Create;
jpg.LoadFromStream(loc_obj_stream);
jpg.SaveToFile('文件名.jpg');
end;

 

Y

yorkjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-29

• #6

多人接受答案了。