XLSReadWriteII21的使用

• 
  XLSReadWriteII21是一个读写Excel的组件。他的一般已用只要按照Demo操作基本都能实现，只要不是非常复杂的应用，XLSReadWriteII21还是能够胜任的。
      最近被派了一个写入图库的应用，图库是Gallery2图库，本身支持自定义字段功能，原始文件是一个排版完整的Excel表格，程序的目标是读取Excel表格的文字图片信息，写入Gallery2或者是生成一个SQL语句，直接插入到Gallery2的MySQL数据库。只要把自定义的信息和图片名称对应起来就好。
      XLSReadWriteII21使用MSOPictures来存储图片对象，使用Sheet.DrawingObjects.Pictures来对图片布局，因此就有可能存在这样的情况，DrawingObjects.Count和MSOPictures.Count不相等。这是因为Sheet.DrawingObjects.Pictures对象存储的只是对DrawingObjects的一个引用。因此需要解决的问题是：已知行号和列号，如何在得到图片在MSOPictures中的索引或者对应值。
    Function GetID(row: integer): integer;
    var
      i: integer;
    begin
      result := 0;
      for i := 0 to XLSReadWriteII21.Sheet[sheet].DrawingObjects.Pictures.Count – 1 do
      begin
        if XLSReadWriteII21.Sheet[sheet].DrawingObjects.Pictures[i].Row1 = row then
          result := XLSReadWriteII21.Sheet[sheet].DrawingObjects.Pictures[i].PictureId;
      end;
    end;
  然后通过XLSReadWriteII21.MSOPictures.Items[id – 1].SaveToFile(‘f:/pic/otm002/’+ fn );方法存入到指定文件夹。但这种方法的前提是图片对齐cell。
  资料：Gallery2的自定义字段表：g2_customfield       Gallery2的项目表：g2_item