Главная страница
    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.45 MB
Время: 0.006 c
3-47939
edik
2002-07-25 14:46
2002.08.15
Индексация dBase таблицы


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


1-48046
lety
2002-08-03 08:49
2002.08.15
Вид курсора при создании формы


1-48123
Robin
2002-07-31 16:56
2002.08.15
Как пользоваться пакетом(Package)


4-48357
Geser
2002-06-10 09:20
2002.08.15
Skinable Apllication





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский