Главная страница
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.016 c
1-48207
Vovaka
2002-08-02 09:02
2002.08.15
Помогите. Нужен Delphi 6 Enterprise Update Pack 2 +


14-48250
blackman
2002-07-19 11:14
2002.08.15
Была сделана примитивная задачка.


1-48169
Belov
2002-08-02 13:22
2002.08.15
Как получить пусть к папке Start - Programs


1-48187
Не зарегистрированный чайник
2002-08-01 20:21
2002.08.15
Вопросик возник


1-48193
Hellman
2002-08-02 19:18
2002.08.15
TListView