image从数据库中获取图片方法

procedure   TForm1 . GetPicture(pos: string ;TempQuery:   TADOQuery);
var
  MS_JpegStream:TMemoryStream;
begin
  try
    MS_JpegStream:=TMemoryStream . Create;
    with   tempQuery   do
    begin
      close;
      sql . clear;
      sql . Add( 'select  tp   from   tp' );
      Open;
    end ;
    if    tempquery . FieldByName( 'tp' ).isnull    then
    begin
      image1 . Picture . Graphic:= nil ;
    end
    else
    begin
      (tempQuery . FieldByName( 'tp' )    as    tblobfield).savetostream(MS_JpegStream);
      image1 . Picture . Graphic:= nil ;
      image1 . Picture . Graphic:=TJpegImage . Create;
      MS_JpegStream . Position:= 0 ;
      image1 . Picture . Graphic . LoadFromStream(MS_JpegStream);
    end ;
  finally
    MS_JpegStream . Free;
  end ;
end ;

procedure   TForm1 . SetPicture(id: string ;TempQuery:TADOQuery);
var
  MS_JpegStream:TMemoryStream;
  M_BitMap:TBitMap;
  M_Jpeg:TJpegImage;
begin
  OpenDialog1 . Execute;
  try
    MS_JpegStream:=TMemoryStream . Create;
    M_BitMap:=TBitMap . Create;
    M_Jpeg:=TJpegImage . Create;
    if   ExtractFileExt(OpenDialog1 . FileName)= '.bmp'    then
    begin
      M_BitMap . LoadFromFile(OpenDialog1 . FileName);
      M_Jpeg . Compress;
      M_Jpeg . Assign(M_BitMap);
    end
    else  if  extractfileext(OpenDialog1 . FileName)= '.jpg'    then
    begin
      M_Jpeg . LoadFromFile(OpenDialog1 . FileName);
    end ;
    M_Jpeg . SaveToStream(MS_JpegStream);
    with  tempQuery  do
    begin
      close;
      sql . clear;
      sql . Add( 'insert into tp (id,tp) values (' '1' ',:image)' );
      Parameters . ParamByName( 'image' ).LoadFromStream(MS_JpegStream,ftblob);
      ExecSQL;
    end ;
  finally
    MS_JpegStream . Free;
    M_BitMap . Free;
    M_Jpeg . Free;
  end ;
end ;