procedure TForm1.ButtonClick(Sender: TObject);
var
TempPic: JPEGImage;
ImgBuffer: TADOBlobStream;
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select image from imag_card where id='''+TempId+'''');
ADOQuery1.Open;
if ADOQuery1.RecordCount <=0 then
MessageDlg('没有此图像,请确认参数正确。',mtError,[mbok],0)
else
begin
ImgBuffer := TADOBlobStream.Create(TBlobField(ADOQuery1.Fields[0]),bmRead);
TempPic := TJPEGImage.Create;
TempPic.LoadFromStream(ImgBuffer);
Image1.Picture.Bitmap.Assign(TempPic);
ImgBuffer.Free;
TempPic.Free;
end;Form1为子窗体(我猜测是这个原因引起的,但是不知道如何修正),以不同的tempid查询数据库中的图片,显示过程中不出任何错,但是当我关闭窗体时便弹出JPEG Error #41,请问是怎么回事???
var
TempPic: JPEGImage;
ImgBuffer: TADOBlobStream;
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select image from imag_card where id='''+TempId+'''');
ADOQuery1.Open;
if ADOQuery1.RecordCount <=0 then
MessageDlg('没有此图像,请确认参数正确。',mtError,[mbok],0)
else
begin
ImgBuffer := TADOBlobStream.Create(TBlobField(ADOQuery1.Fields[0]),bmRead);
TempPic := TJPEGImage.Create;
TempPic.LoadFromStream(ImgBuffer);
Image1.Picture.Bitmap.Assign(TempPic);
ImgBuffer.Free;
TempPic.Free;
end;Form1为子窗体(我猜测是这个原因引起的,但是不知道如何修正),以不同的tempid查询数据库中的图片,显示过程中不出任何错,但是当我关闭窗体时便弹出JPEG Error #41,请问是怎么回事???
Stream.Seek(0, soFromBeginning);