Вызов 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)

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

[Tony Green]

Обстоятельства изменились. Теперь так: есть пара функций в DLL следующего вида:

PHP код:

function RetString(s: PChar): PChar;
begin
  result := s;
end;

function RetInteger(i: Integer): Integer;
begin
  result := i;
end; 


При их вызове из axapta вот таким путём:

PHP код:

retString.returns(ExtTypes::String);
retString.arg(ExtTypes::String);
s = retString.call('My String'); 


или вот так соответственно:

PHP код:

retInteger.returns(ExtTypes::DWord);
retInteger.arg(ExtTypes::DWord);
i = retInteger.call(2); 


получаем ошибку:
Значение регистра ESP не было сохранено при вызове функции 'RetString' в библиотеке DLL 'retdata'. Причиной может являться вызов функции DLL, которая объявлена с неверным числом аргументов.

Есть предположения, что это значит и как бороться?

[Tony Green]

Ура. Ответ нашелся сам в help'e от Delphi в разделе Calling conventions.

При объявлении функций в dll нужно в конце приписать pascal; вместо register, который подразумевается по умолчанию и пропускает параметры через регистры CPU...

[Wamr]

Надо поставить stdcall
function RetString(s: PChar): PChar; stdcall

[Tony Green]

да. stdcall тоже должен прокатить. он ведь только порядком параметров от pascal отличается...

[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]

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