Вызов DLL из Axapta

[Tony Green]

Приветствую всех.

Хочу вызывать функцию внешней DLL. Например вот такой:

PHP код:

library q;

{$R *.res}

function ReturnCode(code: String): String;
begin
  result := code;
end;

exports
  ReturnCode;

begin
end. 


Вызываю из аксапты вот таким способом:

PHP код:

    DLL         q  = new DLL('c:\\q.dll');
    DLLFunction f  = new DLLFunction(q, 'ReturnCode');
    str         s;
    ;

    f.returns(ExtTypes::String);
    f.arg(ExtTypes::String);

    s = f.call('test string');

    print(s);
    pause; 


На строчке с call аксапта валится и при этом в crash log появляется запись: Stackdump exit code 487 (Attempt to access invalid address)

Помогите, плз, найти ошибку...

[velk]

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; 


В чем может быть проблема подскажите пожалуйста

[itfs]

Фигня какая-нибудь наверное, типа того, что s - str, а myProc:boolean

C уважением, itfs.

[belugin]

я думаю, ято вряд ли получится передать IAxaptaRecord в качестве параметра в функцию DLL

[AndyD]

Цитата:

Сообщение от belugin

я думаю, ято вряд ли получится передать IAxaptaRecord в качестве параметра в функцию DLL

Хе-хе. Я тоже так думал, но против лома помогает другой лом.
Вот пример с Excel и Delphi

static void Job33(Args _args)
{
    ComExcelDocument_RU excel = new ComExcelDocument_RU();
    ComVariant      cv;
    Com             doc;
    Com             app;
    ComInterface    ci;
    DLL             _DLL      = new DLL("COMCall.dll");
    DllFunction     dllfunc = new DllFunction(_dll, "ComObject");
    ;
    excel.newFile();
    excel.visible(false);
    doc = excel.getComDocument();
    app = doc.Application();
    cv = ComVariant::createFromCOM(app);
    ci = cv.iDispatch();
    DllFunc.returns(ExtTypes::DWord);
    DllFunc.arg(ExtTypes::DWord);
    DllFunc.Call(ci);
}

Исходный текст dll на Delphi

library ComCall;

uses
  Windows,
  ExcelXP;

function ComObject(Int : IDispatch) : Boolean; stdcall;
var
  app : _Application;
begin
  Result := False;
  if Int <> nil then
  begin
    int.QueryInterface(IID__Application, app);
    if app <> nil then
    begin
      app.Visible[GetUserDefaultLCID] := True;
      app.Range['a1', 'a1'].Value2 := '?????';
      app := nil;
    end;
  end;
end;

exports
  ComObject;

begin
end.

[belugin]

здорово. ну тогда придется заводить еще одну сессию через Axapta Business Connector

[AndyD]

Цитата:

Сообщение от belugin

ну тогда придется заводить еще одну сессию через Axapta Business Connector

Зачем?

[belugin]

а как еще по записи внутри аксапты получить IAxaptaRecord?

[AndyD]

А, понял! Это конечно.