🚀 go-pugleaf

Oliver Young wrote:

>
>    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 Delphi code: ***
>
>program Project1;
>{$APPTYPE CONSOLE}

Console App....

int main(void)
{
     return 0;
}

>uses
>  SysUtils, ComObj, Windows, Classes, ActiveX, Variants;
>
>var
>  MyApp, prop, res: Variant;
>
>begin
>  CoInitialize(nil);

      CoInitialize(NULL);

>
>  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);

    MyFunction( "Some text here" );

>  WriteLn( 'Error: '  + VarToStr(res.error));
    char	ErrorString[1024];
    wsprintf( ErrorString, "Error: %i\r\n", res.error );
    cputs( ErrorString );
>
>  CoUninitialize();
>end.

Puting it all together:
int main(void)
{   char	ErrorString[1024];
    CoInitialize(NULL);
    MyFunction( "Some text here" );
    wsprintf( ErrorString, "Error: %i\r\n", res.error );
    cputs( ErrorString );
    CoUninitialize();
     return 0; /* or return res.error */
}