哥哥们妹妹还有个问题要问阿!快点教教我拉^_^!(50分)

  • 主题发起人 主题发起人 beautylily
  • 开始时间 开始时间
B

beautylily

Unregistered / Unconfirmed
GUEST, unregistred user!
我现在想浏览记录的时候每条记录对应的图片可以跟着转换,我用了
dbimage1.picture.loadforomfile(opendialog1.filename)
但是当我存的是bmp图象是可以,可是jpeg其他的进去就存了进去但是按下一条的时候
图片又消失了!为什么会这样。我用的是Graphic型存图片的!
哪位哥哥帮帮妹妹!妹妹逼着要做论文,只怪我平时爱逛玩没有好好学习:(
 
var
TempStream: TMemoryStream;
begin
//Read
TempStream := TMemoryStream.Create;
try
TBlobField(FieldByName('ImageField')).SaveToStream;
TempStream.Position := 0;
Memo1.Lines.LoadFromStream(TempStream);
Finally
TempStream.Free;
end;
//Write
TempStream := TMemoryStream.Create;
try
Memo1.Lines.SaveToStream(TempStream);
//Image1.Picture.Bitmap.LoadFromStream(TempStream);
TBlobField(FieldByName('ImageField')).LoadFromStream;
Finally
TempStream.Free;
end;
end;
珆尨芞砉腔謗跺源楊ㄩ
彆祥砑蚚dbimage饒繫艘艘狟醱腔源楊賸ㄐ
源楊珨ㄩ
var ms:Tmemorystream;
begin

ms:=tmemorystream.create;
:
TBlobfield(query.fieldbyname('image')).savetostream(ms);
ms.position:=0;
:
image1.picture.graphic.loadfromstream(ms);
ms.free;
end;

源楊媼ㄩ
if query.fieldbyname('image').isblob then

image1.picture.assign(query.fieldbyname('image'));

ps:彆踱囀奀jpg芞腔趕ㄛ婓uses 等啋囀樓奻jpeg等啋ㄛ奧珨隅猁婓image1奻啎珂溫离珨桲吽腔jpg芞ㄐ
仔細看看吧﹐應該有幫助的﹗
 
有很多乱麻耶!能不能改改^_^!真的好谢谢你哦!虽然还没试!不过还是很谢谢哥哥你
 
beautylily 有: 10个待答问题, -7个已答问题, 回答了: 0 个问题。
 
太深奥了刚才那段代码!小女子看不明白阿!还有哪位哥哥救命阿!
 
JPG 和 BMP是不一样的,BMP可以使用DB控件显示,JPG需要自己显示。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=136884
 
谢谢你们阿^_^!
 
你有没有对文件解压缩呀?那些乱麻也是程序呀,不然看不懂的。
 
多人接受答案了。
 
后退
顶部