前言：
说起来，用InstantObjects(以下简称IO)编程还是走了不少弯路的，因为网上资料太少，好在有IO自带了几个demo，尤其是那个Primer.dpr例程，里面有若干IQL的示例，再加上chm文档的参考，大体上还是有一个基本的概念的。
0.缘起
今天写一个博客搬家程序，写着写着，就觉得哪里不对了，因为涉及到文章及图片，需要用到数据库将这些内容的相关信息保存起来，以便增量下载。程序要用到 用户/文章/图片 三级对象的模型，两两是一对多的关系。正要用熟悉的ADO方式来做，还是觉得太笨了。要是有ORM的方式就好了。想起来曾经看到过有类似的工具介绍，上网一查，果然找到了，就是InstantOjbects。
下载，安装。一边看着文档，一边在IDE中新建一个工程，再新建一个unit，起名TestModel.pas，在菜单中选择view,进入设计器。很快的就设计好了三级对象各自属性及互相关系。
轮到生成数据库的时候有问题了，怎么new的时候没有反应呢，为什么文档中的截图里有那么多种数据库可以支持呢？重新看安装文档，原来自己漏掉了好几步。
补上所有的安装步骤，再次建立数据库，成功了。
下一步就是用IO进行编程了。今天太晚了，明天继续。
1.建模
之所以打算用博客搬家的程序做为第一个IO编程的试验，是因为它的业务逻辑及数据结构都超简单，而且涉及了一对多的典型的master-detail模型，正好拿来练手。
言归正传，开始介绍我心目中的数据库结构：
------------------------------
Blogger表：
BlogID: string
Articles: (该用户发表的所有文章的集合)
Article表：
Title: string
URL: string
Filename: string
Datetime1: (发表时间)
Pictures: (该文章下所有图片的集合)
Picture表：
URL: string
Filename: string (该图片在本地保存的文件名)
downloaded: boolean (用于在下次抓取时判断是否需要重新下载)
------------------------------
o 新建一个unit，保存为ModalUnit.pas。再新建一个mdb数据库，取名为db1.mdb。
o 打开InstantObjects Modal Explorer, 单击select units按钮，选择刚刚建立的ModalUnit.pas
o 在窗口空白处右击鼠标，选择New Class，开始创建我的第一个类 TBlogger (注：原来曾经用TUser做类名，结果出了一个古怪的select语句错误，原来是和保留字冲突了，所以我取名为TBlogger。）
o 如图填写好TBlogger的属性后，选择Attributes页片，增加各项属性。因为还没有建立TArticle类，所以暂时先不设置它的Articles属性，只设一个BlogID即好。
o 现在我点击Build Database按钮，进入到创建数据库(Database Builder)的页面。右击窗体空白处，选择New|Ado Connection（最初我在安装IO的时候，选择了Ado做为处理要使用的broker，所以现在可以看到有相应的菜单项可用。）我命名为conn，然后右击conn，选择edit，进入Ado Connection的对话框，去掉Login Prompt前的对勾，并选择好自己要用到的数据库db1.mdb，点OK就可以了。然后，在Database Builder窗口中，单击Build按钮，就会自动为我建立好数据库的各个对应表了。
到了这里，暂时可以告一段落。双击建好的db1.mdb，检查是否如同所期望的那样，建立了表格。
如果没问题，继续回到前面的步骤中去，用类似方式，建立好TArticle和TPicture及其各个字段。要注意的是，TBlogger的Articles字段，以及TArticle的Pictures字段，它们的Storage Kind一栏应选External，表示将使用外部表保存相应属性。
（注：Pictures字段是后期我在程序中编码添加的，而非象其它字段那样，纯由IO自动生成。）
2.访问IO
建好数据库之后，下一步就是编码工作了。以下着重展示如何存取InstantObjects对象。（至于下载和解析网页的代码，这里从略。）
Blogger表中保存的是新浪博客帐号，如果表中不存在相应记录，则创建之；如果已有，则提取出来。
blogger := Dm.GetAnUser('some_name');
... ...
function TDM.GetAnUser(const BlogID: string): TBlogger;
begin
with MyConnector.CreateQuery do
try
Command:= 'SELECT * FROM TBlogger WHERE BlogID = "' + BlogID + '"';
Open;
if ObjectCount > 0 then
begin
result := TBlogger.Retrieve((Objects[0] as TBlogger).id);
end
else
begin
result := TBlogger.Create();
result.BlogID := BlogID;
result.ClearArticles;
result.Store();
end;
finally
Free;
end;
end;
3. 异常
这里有一个问题，那就是当我访问TBlogger对象的时候，会出现一个异常：
Error storing object TBlogger('C371D6060453A84E9E169B2EBB2ECB74'): "Field 'Articles' not found"
好蛋疼啊！为什么会这样，明明所有的内容都已创建好了，看上去一切正常的啊。。。
既然提示Articles字段不存在，那么就试着创建一个吧。我手工建立了一个string类型的Articles字段，再次运行程序。可以了。
我往Blogger对象中增加文章后，检查了一下Articles字段的内容，发现里面是一些二进制字符，以及新增文章的ID。可以想象，IO就是这样，向Articles字段中增加对Article表的关联的。
string类型有长度限制，我试着改为备注型，结果运行几次后，出现数据错误。估计是字段类型仍然没有选对。最后，我选择了二进制类型，一切OK。
我让程序在一开始的时候，就自动检查和创建相应的字段，以避免出错：
procedure TDM.DataModuleCreate(Sender: TObject);
begin
conn.ConnectionString := GenAdoConnectionString(GetStartDir + 'db1.mdb');
conn.Open;
// 以下查找是否有Blogger.Articles字段，如没有，则增加之
if not FieldExists(conn, 'blogger', 'articles') then
conn.execute('alter table blogger add Articles IMAGE'); // IMAGE类型在Access中显示为"OLE对象"
// 以下查找是否有Article.Pictures字段，如没有，则增加之
if not FieldExists(conn, 'article', 'Pictures') then
conn.execute('alter table article add Pictures Binary'); // Binary类型在Access中显示为"二进制"，与IMAGE类型最终表现相同
end;
（分析：我估计是IO对ADO的支持不是特别好，又或者ADO中，Access数据库缺乏某些关键特性，造成Articles字段必须得手工添加。另外，IO替我自动创建的Blogger_Articles表和Article_Pictures表，始终没有看见有数据进入，一直都是空的。估计用bde或firebird等数据库，应该可以运行得正常些吧）
4. 总结
不管怎么说，我的程序最终运行成功了，数据存取正常。希望这是一个良好的开端，将来能带来更多编程上的便利。
--------------------
后记：关于IQL
IQL是Instant Query Language的简称，上网居然找不到它的语法说明。。。汗。。。
好在从Primer.dpr中找到一些示例：
All contacts: SELECT * FROM ANY TContact
All employees: SELECT * FROM TPerson WHERE Employer.Name <> ""
All employers:SELECT DISTINCT Employer FROM TPerson
Employees at customers: SELECT * FROM TPerson WHERE Employer.Category.Name = "Customer" ORDER BY Name
My friends: SELECT * FROM TPerson WHERE Category.Name = "Friend"
Contact from Alabama: SELECT * FROM ANY TContact WHERE City = "Alabama" ORDER BY Name
Corporations ordered descending by city: SELECT * FROM TCompany WHERE Name LIKE "%Corp%" ORDER BY City DESC
Employees from same city as their employer: SELECT * FROM TPerson WHERE City = Employer.City
如果有朋友有更其它资料希望能在这里交流一下。