Events, procedures, dll [D6, Win2k]
Ivan Karikh © (2002-07-31 14:56:00)
Помогите ламеру! (
есть 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:00) [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);
Наверх 
ЧАТ |
Орешник |
|
