Импорт из С dll на Дельфи

[apromix]

Здраствуйте. Подскажите, как мне правильно импортировать функцию из C++ библиотеки в свою прогу на Дельфи?

Функция С++:
int ox_GetMM(LBtn& loc);

Импортирую:
function ox_GetMM(loc: LBtn): Integer; дальше импорт и все такое...

Загвоздка в том, что получаю 0 от функции, значит ошибка, плюс не могу получить данные из записи LBtn. Как тут поступить? Спасибо.

[Пепел Феникса]

там вроде var нужен

function ox_GetMM(var loc: LBtn): Integer;external <имя ДЛЛ>;

[apromix]

Я немного продвинулся вперед сам, и сейчас все, что не выходит - это непонятка с указателями на запись с библиотеки, как узнать содержимое записи?

Структуру (запись) объявляю так:

type
  PLBtn = ^LBtn;
  LBtn = packed record
    ...
  end;

  ...

  function MM(lk: PLBtn): Integer; stdcall; external MMDLLFile;

Мне вот по щелчку на кнопке нужно вывести содержимое поля записи LBtn. Что записать в обработчик?

[Пепел Феникса]

если делали через var то как обычно.
если через указатель то надо его разименовывать.

[apromix]

Я добавил пример, подскажите,как разименовать указатель?

[Пепел Феникса]

type
 PMy=^TMy;
 TMy=record
  i:integer;
  s:PChar;
 end;

var M:PMy;

New(M);
M^.i:=1024;//это главное.
Dispose(M);

[apromix]

Это я уже понял, а как с С++ DLL импортировать function MM(lk: PLBtn): Integer; stdcall; external MMDLLFile и узнать содержимое записи PLBtn (есть указатель на нее)?

Мне вот по щелчку на кнопке нужно вывести содержимое поля записи LBtn. Что записать в обработчик?

Постоянно выбивают ошибки с памятью. Если пишу function MM(var lk: PLBtn)..., то ошибки нет, но не работает. Или var здесь нельзя использовать?

[Пепел Феникса]

а обьект что передаете через указатель то не забудьте его создать сначало.
если через вар то обычно он уже обьявлен.

function MM(lk: PLBtn): Integer; stdcall; external MMDLLFile

ваша функция называется MM?

[JTG]

В сишных библиотеках обычно модель вызова cdecl, а не stdcall

[apromix]

Так, я тут многое понял с указателями, но ошибки все равно получаю.

C++ H:

...
struct QBoxLocBtn {
	int id;				// ID кнопки для GetButton(), локации для GetLocation()
	int bcnt;			// GetLocation() возвращает кол-во кнопок для данной локации; 
	int flag;			// GetButton() возвращает flag (if flag==1, then button - visible)
	int tag;			// AddLocation(), AddButton(): 
						//	if tag == 1 then <есть скрипт> 
						//	if tag == 0 then <нет скрипта>
	char define[DEFINE_SIZE];	// Описание локации(кнопки)
	char name[NAME_SIZE];		// Название локации (кнопки)
	char script[SCRIPT_SIZE];	// Скрипт локации (кнопки)
};
...
QBOX_API int qbox_GetLocation(QBoxLocBtn& qb_loc);
...

Delphi:

unit untQBoxImportFromDLL;

interface

type
  PQBoxLocBtn = ^QBoxLocBtn;
  QBoxLocBtn = packed record
    id        : Integer; // ID кнопки для GetButton(), локации для GetLocation()
    bcnt      : Integer; // GetLocation() возвращает кол-во кнопок для данной локации;
    flag      : Integer; // GetButton() возвращает flag (if flag==1, then button - visible)
    tag       : Integer; // AddLocation(), AddButton():
		  				           //	if tag == 1 then <есть скрипт>
                         //	if tag == 0 then <нет скрипта>
    define    : PChar;   // Описание локации(кнопки)
    name      : PChar;   // Название локации (кнопки)
    script    : PChar;   // Скрипт локации (кнопки)
  end;

const QBoxDLLFile = 'QBox.dll';

function qbox_Init: Integer; stdcall; external QBoxDLLFile;
procedure qbox_Quit; stdcall; external QBoxDLLFile;

function qbox_LoadQuest(const fname: PChar): Integer; stdcall; external QBoxDLLFile;

function qbox_GetLocation(qb_loc: PQBoxLocBtn): Integer; cdecl; external QBoxDLLFile;
function qbox_GetLocCnt: Integer; stdcall; external QBoxDLLFile;


function qbox_GetButCnt(lid: Integer): Integer; stdcall; external QBoxDLLFile;

function qbox_GetVersion: PChar; stdcall; external QBoxDLLFile;
function qbox_GetAuthors: PChar; stdcall; external QBoxDLLFile;

implementation

end.

И уже в самой программе:

...
procedure TfrmQBoxMain.Init1Click(Sender: TObject);
var
  QA: PQBoxLocBtn;
  QB: QBoxLocBtn;
begin
  qbox_Init;
  qbox_LoadQuest(PChar('Island.qbf'));
//  New(QA);
//  QA^.name := PChar('SERG');
  ShowMessage('GetLocation: ' + IntToStr(qbox_GetLocation(QA)));
//  ShowMessage(StrPas(QA^.name));
  ShowMessage(StrPas(QB.define));
  Dispose(QA);
end;
...

Что я делаю не так? Выбивает: Invalid pointer operation.