Вызов из Delhpi функции из API-шки, сделанной в С++. Помогите разобраться

[Bobby]

Здравствуйте всем!!!
Вот такая проблема. Есть сишная dll-ка, к которой надо достучаться и запустить некую функцию. В фунуцию передается структура сишная. Я в Сях не силен и смотрю на сишный исходник, как баран на новые ворота. Вся эта бадяга состоит из 3-х файлов:
1. amfxapi.h -- основной файл заголовка
2. amfxapiхх.h, amfxapiхх.срр -- C++ - ная обертка всего этого.

amfxapi.h -- Здесь задается описание всех структур, в том числе структуры AMFXSvrConnParams, которую дано передать

в amfxapiхх.срр идет непосредственно обращение к функциям. Для начала нужна функция amfxConnect, в которую параметром передается структура AMFXSvrConnParams.

На сколько я понимаю, необходимо:
1. задать тип RECORD, аналог структуры, с указанием типов
2. Объявить функцию с указанием типа вызова
3. вызвать нужную функцию.

Делал примерно вот так:

Объявял типы:

type
TAMFXSvrConnParams= packed record // описание структуры
server: pchar;
port,useSSL,useCrypto: integer;
accountId,userId,passwd: pchar;
end; 

type
TamfxConnect=function(AMFXSvrConnParams:TAMFXSvrCo nnParams): Integer; cdecl; //Описание функции

Непосредственно вызов функции:


procedure TFormF1.Button1Click(Sender: TObject);
const
  server : Pchar = '195.128.74.8';
  accountId : Pchar = '13230';
  userId : Pchar = 'fxdemo13230';
  passwd : Pchar = '0dfc7';
var
isconnect: integer;

begin
  DLLHandle := LoadLibrary('amfxapi.dll');
  if DLLHandle >0 then
    begin
      @connparam:=GetProcAddress(DLLHandle, 'amfxConnect');
      if Assigned(connparam) then
      begin
        AMFXSvrConnParams.server:=server;
        AMFXSvrConnParams.port:=3110;
        AMFXSvrConnParams.useSSL:=1;
        AMFXSvrConnParams.useCrypto:=0;
        AMFXSvrConnParams.accountId:=accountId;
        AMFXSvrConnParams.userId:=userId;
        AMFXSvrConnParams.passwd:=passwd;
        isconnect:=connparam(AMFXSvrConnParams);
      end;
    end;
end;

При вызове функции
isconnect:=connparam(AMFXSvrConnPar ams); вылетает Access violation....
Причин может быть миллион, не правильно переданы параметры, не те типы, не то объявление...

Помогите, кто чем может!!!!!!!!!!!!! Заранее благодарен!!!!

P.S. Во вложении исходники АПИ-шки.
1. amfxapi.h -- основной файл заголовка
2. amfxapiхх.h, amfxapiхх.срр -- C++ - ная обертка всего этого.

amfxapi.h -- Здесь задается описание всех структур, в том числе структуры AMFXSvrConnParams, которую дано передать

в amfxapiхх.срр идет непосредственно обращение к функциям. Для начала нужна функция amfxConnect, в которую параметром передается структура AMFXSvrConnParams.

[rpy3uH]

если не ошибаюсь, то сигнатура функции amfxConnect должна быть такая

int amfxConnect(AMFXSession, const AMFXSvrConnParams *p);

т.е. два параметра. первый параметр это указатель, так как объявление типа AMFXSession такое

typedef void * AMFXSession;

и второй параметр тоже указатель

значит на Delphi так

TAMFXSvrConnParams= packed record 
  server: pchar;
  port,useSSL,useCrypto: integer;
  accountId,userId,passwd: pchar;
end; 
PAMFXSvrConnParams = ^ TAMFXSvrConnParams;

TamfxConnect=function(a:pointer;AMFXSvrConnParams:PAMFXSvrConnParams): Integer; cdecl;