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;

解决方案 »

  1.   

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

  2.   

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

  3.   

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

  4.   

    现在问题是:有图片的提示 jpeg error #53错误
      

  5.   

     jpeg error #53错误,
    我估计是图片的格式问题报的错