🚀 go-pugleaf

    Yes, I know this is not proper newsgroup to ask, but I have to. :< I'm
asking this question for past 6 months and no answer. I'm trying to
translate JScript (or Delphi) code into C++ (BCB6). Please help.

*** This is JScript code: ***

var myapp = new ActiveXObject("MyCOM.MyApp.1");
var prop = myapp.CreatePropObject();

myapp.Param1 = "Some text here";
myapp.Param2 = "";
myapp.Param3 = true;
myapp.Param4 = true;

var res = myapp.MyFunc(prop);

WScript.StdOut.WriteLine("Error code:  " + res.error);

*** This is Delphi code: ***

program Project1;
{$APPTYPE CONSOLE}

uses
  SysUtils, ComObj, Windows, Classes, ActiveX, Variants;

var
  MyApp, prop, res: Variant;

begin
  CoInitialize(nil);

  MyApp := CreateOleObject('MyCOM.MyApp.1');

  prop  := MyApp.CreatePropObject;
  prop.Param1 := 'Some text here';
  prop.Param2 := '';
  prop.Param3 := True;
  prop.Param4 := True;

  res := MyApp.MyFunction(prop);

  WriteLn( 'Error: '  + VarToStr(res.error));

  CoUninitialize();
end.