Вниз
Скачать: CL | DM;

Events, procedures, dll   Найти похожие ветки 

← →
Ivan Karikh   (2002-07-31 14:56) [0]

Помогите ламеру! (
есть dll реализующая транспортный уровень сервера. Для неё необходимо реализовать интерфейс в виде:
InitializeConnection,
function InitializeConnection( UseProxy : PChar;
SrvName : PChar; OnConnect : TDLLOnConnectProc;
OnError : TDLLOnErrorProc;
OnRecieve : TDLLOnReciveProc;
out IDConnection : Integer ) : boolean; stdcall;
type
TDLLOnReciveProc = procedure (IDConnection : Integer; var Buffer:Pointer; Size:integer); stdcall;
TDLLOnConnectProc = procedure (IDConnection : Integer; aState:integer); stdcall;
TDLLOnErrorProc = procedure (IDConnection : Integer; errCode:integer); stdcall;

Что такое эти OnConnect, OnError? функции, которые вызываются при генерации событий? как эти события генерить, как это вообще происходит??? подскажите хоть с чего начинать :(


← →
Набережных С.   (2002-07-31 22:13) [1]

Нужно передать в InitializeConnection адреса написанных тобой соответствующих функций, прототипы у тебя приведены, и длл их вызовет, когда сочтет нужным, сигнализируя тебе о произошедшем событии. Примерно так:

var
ID:integer;

procedure DLLReciveProc(IDConnection : Integer; var Buffer:Pointer; Size:integer); stdcall;
begin
...
end;

procedure DLLConnectProc(IDConnection : Integer; aState:integer); stdcall;
begin
...
end;

procedure DLLErrorProc(IDConnection : Integer; errCode:integer); stdcall;
begin
...
end;

InitializeConnection(UseProxy, SrvName, DLLConnectProc, DLLErrorProc, DLLReciveProc, ID);



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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c
4-48372
z_z
2002-06-10 23:03
2002.08.15
Форма на рабочем столе


4-48355
Alexej
2002-05-12 08:10
2002.08.15
Запуск приложения без формы


1-48073
ger_kostas
2002-08-02 18:44
2002.08.15
Шифрование данных (асиметричное)


1-48085
maxim2
2002-08-05 08:22
2002.08.15
Люди не могу разобраться с заставкой


3-47977
jessis
2002-07-25 10:37
2002.08.15
Help!!!




   Наверх