cxgrid 读取图片问题(下面程序图片不出来)
时间:2011-11-28
来源:互联网
procedure TF_BizShip_L.FormCreate(Sender: TObject);
var
tmpMemStream: TMemoryStream;
tmpSize: LongInt;
tmpStr: String;
begin
inherited;
if not aq_Bus_M.Active then aq_Bus_M.Active:=True;
aq_Bus_M.first;
while not aq_Bus_M.Eof do begin
tmpMemStream := TMemoryStream.Create;
tmpMemStream.LoadFromFile('\\server\Cost\'+aq_Bus_M.FieldByName('OUR_NO').AsString+'.JPG');
tmpSize := tmpMemStream.Size;
SetLength(tmpStr, tmpSize);
tmpMemStream.Read(tmpStr[1], tmpSize);
tmpMemStream.Free;
tvFilms.DataController.SetValue(tvFilms.DataController.RecNo-1, tvFilmsPHOTO.Index, tmpStr);
aq_Bus_M.Next;
end;
end;
var
tmpMemStream: TMemoryStream;
tmpSize: LongInt;
tmpStr: String;
begin
inherited;
if not aq_Bus_M.Active then aq_Bus_M.Active:=True;
aq_Bus_M.first;
while not aq_Bus_M.Eof do begin
tmpMemStream := TMemoryStream.Create;
tmpMemStream.LoadFromFile('\\server\Cost\'+aq_Bus_M.FieldByName('OUR_NO').AsString+'.JPG');
tmpSize := tmpMemStream.Size;
SetLength(tmpStr, tmpSize);
tmpMemStream.Read(tmpStr[1], tmpSize);
tmpMemStream.Free;
tvFilms.DataController.SetValue(tvFilms.DataController.RecNo-1, tvFilmsPHOTO.Index, tmpStr);
aq_Bus_M.Next;
end;
end;
作者: zdgood 发布时间: 2011-11-28
高手们帮帮忙啊!怎么能用cxgrid显示图片,图片在服务器的文件夹内。
作者: zdgood 发布时间: 2011-11-28
...
tmpMemStream.Position:=0;
tmpMemStream.Read(tmpStr[1], tmpSize);
...
tmpMemStream.Position:=0;
tmpMemStream.Read(tmpStr[1], tmpSize);
...
作者: wdonghai 发布时间: 2011-11-28
还是一样啊!
现在问题是:有图片的提示 jpeg error #53错误,
图片是空的提示 \\server\Cost\our_No.jpg 文件没有。
现在问题是:有图片的提示 jpeg error #53错误,
图片是空的提示 \\server\Cost\our_No.jpg 文件没有。
作者: zdgood 发布时间: 2011-11-28
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读:74
-
如何安装mysql8.0
阅读:31
-
Word快速设置标题样式步骤详解
阅读:28
-
20+道必知必会的Vue面试题(附答案解析)
阅读:37
-
HTML如何制作表单
阅读:22
-
百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!
阅读:31
-
ET文件格式和XLS格式文件之间如何转化?
阅读:24
-
react和vue的区别及优缺点是什么
阅读:121
-
支付宝人脸识别如何关闭?
阅读:21
-
腾讯微云怎么修改照片或视频备份路径?
阅读:28