如何把.wmf格式的图象文件存入SQL SERVER的IMAGE字段又怎样显示出来(很急!!!)(100分)

  • 主题发起人 主题发起人 圆月刀
  • 开始时间 开始时间

圆月刀

Unregistered / Unconfirmed
GUEST, unregistred user!
1.如何把.wmf格式的图象文件存入SQL SERVER的IMAGE字段又怎样显示出来
2.有这样一语句:var jpg:Tjpegimage;编译错,帮助中有Tjpegimage。
此事很急,诸位大侠多费神了,小弟不省感激!
 
1. FieldByName('...').LoadFormFile
2. uses jpeg
 
DElPHI能直接处理*.wmf文件,不用TJepgImage,TImage就可以,存到字段中就用
TDBImage.PasteFromClipboard
显示用TDBImage.LoadPicture
 
1。你可以试一试Stream
 
用BLOB更好一些。
 
TBlobField(Query1.FieldByName('image')).savetostream('ss');
 
首先谢谢诸位大狭的帮助,我现在用TBLOBFIELD和TMEMORYSTREAM能存入到DB中了,
但是如果图象SIZE是2.04M程序就会抱错(我很疑惑?).至于直接从DB中把图象调出,不
知阿朱 RUN了没有,程序显示"BITMAP IMAGE IS NOT VALID"
LINGXIN的答案我早就尝试过,接他/她的语句写下去应是:
IMAGE1.PICTURE.METAFILE.LOADFROMSTREAM(SS)或
IMAGE1.PICTURE.BITMAP.LOADFROMSTREAM(SS)
很遗憾,编译仍然不能通过,所以诸位的解答我不能给分,我希望诸位的答案一定要
正确运行了的(也许我太苛刻了,不好意思!).
 
定义 SQl Server Image字段
save
var
bs:stream;
begin
bs:=Dataset.CreateBlobStream(Dataset.fieldbyname('Image'),bmWrite);
Image.picture.Metafile.Savetostream(bs);
bs.free;
dataset.post;
end;

load
var
bs:stream;
begin
bs:=Dataset.CreateBlobStream(Dataset.fieldbyname('Image'),bmRead);
Image.picture.Metafile.loadFromstream(bs);
bs.free;
end;
 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
I
回复
0
查看
618
import
I
后退
顶部