Форум: "Основная";
Текущий архив: 2004.04.04;
Скачать: [xml.tar.bz2];

Вниз

вызов функции из DLL   Найти похожие ветки 

← →
MetalFan ©   (2004-03-17 17:55) [0]

Доброе время суток, Мастера!
у меня такая трабла:
есть некая DLL с набором експортируемых функций, написанная на C.
есть пример на C.
как мне его раелизовать в Delphi?
вот код на C:

extern int azinit(char * cb, char * dicname);
...
int   i, j, rci;
char  CB1[1100];
char  usukpath[64];
...
strcpy(usukpath,"usuk.dic");
rci = azinit(CB1, usukpath);

как правильно описать тип функции azinit и
как передать в нее параметры в Delphi?

---

← →
MetalFan ©   (2004-03-17 17:56) [1]

сорри за повтор!!!
Сервак какие-то ошибки выдает((((

---

← →
MetalFan ©   (2004-03-17 18:46) [2]

никто не может помочь?

---

← →
nikkie ©   (2004-03-17 20:28) [3]

function azinit(PChar cb, PChar dicname): integer; stdcall; extern "xxx.dll";

var
 cb1, usukpath: String;
 rci: integer;
begin
 usukpath := "usuk.dic";
 SetLength(usukpath, 64);
 SetLength(cb1, 1100);
 rci := azinit(PChar(cb1, usukpath);
end;

---

← →
Игорь Шевченко ©   (2004-03-17 20:57) [4]


function azinit(cb, dicname : PChar): Integer; cdecl;
...
var
 i, j, rci: Integer;
 CB1: array[0..1099] of char;
 usukpath: array[0..63] of char;
...
 StrCopy(uzukpath, "usuk.dic");
 rci := azinit(CB1, usukpath);


---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.04.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.031 c