+ -
当前位置:首页 → 问答吧 → cxgrid 读取图片问题(下面程序图片不出来)

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;

作者: zdgood   发布时间: 2011-11-28

高手们帮帮忙啊!怎么能用cxgrid显示图片,图片在服务器的文件夹内。

作者: zdgood   发布时间: 2011-11-28

...
tmpMemStream.Position:=0;
tmpMemStream.Read(tmpStr[1], tmpSize);
...

作者: wdonghai   发布时间: 2011-11-28

还是一样啊!
现在问题是:有图片的提示 jpeg error #53错误,
图片是空的提示 \\server\Cost\our_No.jpg 文件没有。

作者: zdgood   发布时间: 2011-11-28