delphi 编写的com 对象 用delphi 的调用实例

delphi 编写的com 对象 用delphi 的调用实例

COM 对象与 前一篇文章的 PHP调用的COM为同一个对象，故不例出COM.

procedure TForm1.Button4Click(Sender: TObject);
var
myCounter, mReturn: variant;
begin
myCounter := CreateOleObject('abc.myxml');
mReturn := myCounter.xml;
showmessage(mReturn);
showmessage(myCounter.xmldata);

end;