var
Jpeg:TJpegImage;
Stream:TMemoryStream;
begin
With DM.WareSaveImage Do
Begin
Open;
//调出JPG图像
Jpeg:=TJpegImage.Create;
Stream:=TMemoryStream.Create;
TBlobField(DM.WareSaveImage.FieldByName('image')).SaveToStream(Stream);
Close;
Stream.Seek(0,soFromBeginning);
Jpeg.LoadFromstream(Stream);
Jpeg.SaveToFile('TempJpg.jpg');
Jpeg.Free;
Stream.Free;
ShellExecute(0,'open',PChar('TempJpg.jpg'),nil,nil,SW_NORMAL);
End;