static void Job10(Args _args)
{
DLL q1 = new DLL(Xinfo::directory(DirectoryType::INCLUDE)+'template\\kvl\\project1.dll');
DLLFunction f = new DLLFunction(q1, 'MyProc');
str s;
CustTable CustTable;
COM axaptaAppl;
COM axaptaCustTable;
;
axaptaAppl = new COM("AxaptaCOMConnector.Axapta");
axaptaAppl.logon("qwerty");
axaptaCustTable = axaptaAppl.CreateRecord("CustTable");
axaptaCustTable.ExecuteStmt("select CustTable");
f.returns(ExtTypes::Byte);
f.arg(ExtTypes::String,ExtTypes::String,ExtTypes::String,(axaptaCustTable));
try
{
s = f.call('qwerty','','',axaptaCustTable);
Здесь вываливается ошибка в несовместимости типов.....
}
catch(Exception::Error)
{
}
}
в DLL есть функция
PHP код:
function MyProc(username, pass:pchar;report:pchar;_AxaptaQuery:IAxaptaRecord):boolean; stdcall;pascal;
В чем может быть проблема подскажите пожалуйста