做了个人事管理的程序,其中有照片一项。
用的是SQL,将照片设为image.
在页面用IMAGE浏览照片.
照片是JPEG格式当有照片时浏览正常,但也有个别还没有照片的,
浏览时错误提示为jpeg error #42
用的是SQL,将照片设为image.
在页面用IMAGE浏览照片.
照片是JPEG格式当有照片时浏览正常,但也有个别还没有照片的,
浏览时错误提示为jpeg error #42
解决方案 »
- BMP 文件的储存格式 我想要把BMP转换成我自己定义的格式
- 问一个很菜的关于串口的问题!
- 把Tfield 放进 Tobject中 只能保存最后一条记录的值?? 大家给我看看这段代码有什么问题啊,我为什么取不到我要的值
- 急啊,客户在等着用呢,在线等待
- 最小化到托盘上
- 高分请教 delphi7 中 indy 版本的问题
- 200分关于将Memo的内容保存到数据库的问题。
- 如何使fastreport界面显示和提示为中文?
- 网络高手请进来!
- ch81(missile)
- new一个dataModel,可是query1的Connection属性并没有datamodel选项?急求大侠帮哦
- 关于其他程序里控件的句柄问题!请大侠帮忙!
temp: TMemoryStream;
begin
//……
TBLOBFIELD(FeildByName('Img')).saveToStream(Temp);
temp.position:= 0;
image1.picture.loadFromSteam(temp);
end;
.......
Jpg : TJPEGImage; begin
jpg := TJPEGImage.Create;
try
jpg.Assign(mast_qry1.FieldByName('f_Img'));
if jpg <> nil then
Image1.Picture.Assign(jpg)
else Image1.Picture := nil;
finally
jpg.Free;
end;
end;
if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
begin
Stream:=TMemoryStream.Create ;
Jpg:=TjpegImage.Create ;
TBlobField(mast_qry1.FieldByName('f_img')).SaveToStream(mStream);
Stream.Position :=0;
jpg.LoadFromStream(Stream);
image1.Picture.Assign(Jpg);
end
else
begin
image1.Picture :=nil;
end;解决了,谢谢大家