Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.01;
Скачать: CL | DM;

Вниз

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

 
Balabolin Oleg ©   (2002-06-20 09:37) [0]

Может кто сможет помочь, а то я уже...

Надо написать dll - plugin к одной проге... На Дельфи
Пример такой dll ки есть, но на C

Все попытки перевести это хозяйство из C в Delphi потерпели неудачу...
Я уже совсем запутался в этих указателях, и прога постоянно вылетает с Access Violation :(

Может кто-нибудь сможет написать прототипы функций в Delphi?

Часть кода примера на С...
typedef struct PtPluginInfo_ {
DWORD dwSize;
FARPROC lpfnProcPtr;
DWORD dwProcParam;
DWORD dwType;
LPSTR lpszName;
LPVOID lpTypeInfo;
} PtPluginInfo, *LPPtPluginInfo;

LPPtPluginInfo lpInfo = NULL;

WORD PluginInitModule(LPPtPluginInfo *lpPluginInfo, LPWORD lpwItems)
{
lpInfo = (LPPtPluginInfo)LocalAlloc(LPTR, sizeof(PtPluginInfo) * iCount);



*lpPluginInfo = lpInfo;

*lpwItems = iCount;

}


 
Игорь Шевченко ©   (2002-06-20 10:00) [1]

А вы что написали ? Мне было бы удобнее исправлять ошибки (есть есть) в вашем коде.

С уважением,


 
PVOzerski ©   (2002-06-20 11:10) [2]

type
PtPluginInfo=packed record
dwSize:DWORD;
lpfnProcPtr:FARPROC;
dwProcParam,
dwType:DWORD;
lpszName:LPSTR;
lpTypeInfo:pointer;
end;
LPPtPluginInfo=^PtPluginInfo;

var
lpInfo:LPPtPluginInfo=nil;

type //эти 2 декларации - на случай, если pwItems - массив
tWord=array[0..0]of word;
LPWORD=^tWord;

function PluginInitModule(var lpPluginInfo:LPPtPluginInfo; pwItems:LPWORD):word;cdecl;
begin
lpInfo:=LPPtPluginInfo(LocalAlloc(LPTR,sizeof(PtPluginInfo)*iCount));



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

Текущий архив: 2002.07.01;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
1-956
GT-9121A
2002-06-19 12:05
2002.07.01
Delphi 6 как сделать так, что бы при каждом открытии Delphi


1-981
aak
2002-06-19 18:14
2002.07.01
копировать папку функциями паскаля?


4-1242
MisterBin
2002-05-02 16:27
2002.07.01
Закрыть чужое окно при наведении на него мышкой


6-1128
Doom
2002-04-19 23:26
2002.07.01
Как получить почту и при этом не удалять ее с сервера?


1-988
Янушка
2002-06-20 12:29
2002.07.01
Непослушная Label