每句对白似乎都能对应一句代码
恶少: 老板娘,把你们这里最biang的姑娘叫来!(老板娘:好咧!)
Obj := CreateComObject(CLSID_MostBeautifulGirl);
(姑娘羞答答地站在前面)恶少:这小娘挺zhun的,陪大爷玩玩吧!
Obj.QueryInterface(IID_IBunnyGirl);
姑娘:官人,小女子卖艺不卖身~~~
hr = E_NOINTERFACE;
恶少:。。。那你会唱小曲儿吧?
Obj.QueryInterface(IID_Singer);
姑娘:会唱几首
S_OK
恶少:那唱一首《十八摸》来偶听听~~~
(Obj as ISinger).Sing("18m");
姑娘:禀官人,小女子不会~~~
hr = E_NOTIMPL;
恶少:。。。那你会唱什么?
(Obj as ISinger).GetMenu();
姑娘:小女子给官人唱一首《万恶淫为首》吧!
result := '万恶淫为首;;';
………