数据库与imagelist 操作

procedure TForm1.btn2Click(Sender: TObject);
var bmp:TBitmap;
jpg:TJPEGImage;
stream:TMemoryStream;
icon:TIcon;
begin
  stream:=TMemoryStream.Create;
if dlgOpen1.Execute then
  begin
    bmp:=TBitmap.Create;
    stream:=TMemoryStream.Create;
    
//    bmp.LoadFromFile(dlgOpen1.FileName);
    stream.LoadFromFile(dlgOpen1.FileName);
    stream.Position:=0;
    qry2.Open;
    qry2.Append;
    qry2.FieldByName('id').AsString:='2';
    (qry2.FieldByName('img') as TBlobField).LoadFromStream(stream);
    qry2.Post;
    stream.Free;
  end;
  jpg:=TJPEGImage.Create;
  icon:=TIcon.Create;
  bmp:=TBitmap.Create;
  il1.Clear;
  qry2.sql.text:='select  * from img_test';
  qry2.Open;
  while not qry2.Eof do
    begin
      stream.Clear;
      TBlobField(qry2.FieldByName('img')).SaveToStream(stream);
      stream.Position:=0;
      icon.LoadFromStream(stream);
      il1.AddIcon(icon);
//      jpg.LoadFromStream(stream);//jpg
  //    bmp.Assign(jpg);
      //img1.Picture.Graphic:=jpg;
//      il1.Add(bmp,bmp);
  //    img1.Free;
      qry2.Next;
    end;

  qry1.Close;
  qry1.Open;
  ds1.DataSet:=qry1;

end;