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;
tmpMemStream.Position:=0;
tmpMemStream.Read(tmpStr[1], tmpSize);
...
现在问题是:有图片的提示 jpeg error #53错误,
图片是空的提示 \\server\Cost\our_No.jpg 文件没有。
我估计是图片的格式问题报的错