写入图片:
TBlobField(ADOQuery1.FieldByName('OLE字段名')).LoadFromFile();
TBlobField(ADOQuery1.FieldByName('OLE字段名')).LoadFromStream();
显示图片:
var ImageTempMS:TMemoryStream;
begin
if ADOQuery1.FieldByName('OLE字段名').IsNull then Exit;
try
ImageTempMS:=TMemoryStream.Create;
TBlobField(ADOQuery1.FieldByName('OLE字段名')).SaveToStream(ImageTempMS);
ImageTempMs.Position:=0;
try
Image1.Picture.Graphic.LoadFromStream(ImageTempMS);
except
on EInvalidGraphic do ShowMessage('图片格式无效!!');
end;
finally
ImageTempMs.Free;
end;
Image1.Refresh;
end;