Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.15;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.011 c
3-48010
Alexsys
2002-07-25 21:43
2002.08.15
Поиск в табличке по неполному слову по нескольким полям


1-48119
Брат
2002-08-05 16:59
2002.08.15
Копирование файла


1-48058
anod
2002-08-04 13:39
2002.08.15
MenuItem


7-48330
esprit_bel
2002-06-01 10:12
2002.08.15
раскладка


1-48026
anod
2002-08-03 16:59
2002.08.15
Почему не работает рекурсия?