Delphi数据库编程教程（六）[2]

lang=en-us>      end; //if

     end; //while

     finally

      bs.free

     end;  //try

   end;

   一旦我们有了soi标记的位置，我们就能使用它在adoblob流中找到图片的位置。

     uses jpeg;

     ...

     procedure tform1.btnshowimageclick(sender: tobject);

     var

      bs  : tadoblobstream;

      pic : tjpegimage;

     begin

      bs := tadoblobstream.create(adotable1picture, bmread);

      try

       bs.seek(jpegstartsinblob(adotable1picture),sofrombeginning);

       pic:=tjpegimage.create;

       try

        pic.loadfromstream(bs);

        adoimage.picture.graphic:=pic;

       finally

        pic.free;

       end;

      finally

       bs.free

      end;

     end;

   运行工程，ok!