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;