//读&显示(TclientDataset)
var
MyJpeg:Tjpegimage;
PicSTM:TClientBlobStream;
begin
MyJpeg:=Tjpegimage.Create;
try
PicSTM:=TClientBlobStream.Create(Tblobfield(MyClientDataSet.FieldByName('MyBlobField')),Bmread);
finally
end;
if picStm.size=0 then begin image1.Visible:=false; exit; end;
MyJpeg.LoadFromStream(PicSTM);
image1.Picture.Assign(MyJpeg);
image1.Visible :=true;
Myjpeg.free;
PicSTM.Free;
end;