Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.24;
Скачать: CL | DM;

Вниз

TServerSocket в консольном приложении   Найти похожие ветки 

 
Junior   (2004-08-13 22:31) [0]

Привет всем! Помогите начинающему Дельфину. Я подозреваю, что надо было вопрос задать в другом форуме ибо проблема , наверное не в TServerSocket , а в моем недостаточном понимании VCL. И все же : как в консольном приложении динамически связать событие с процедурой, в которой оно будет обрабатываться. Спасибо.

program ssk;
uses
ScktComp;
const
ivs_port = 12044;
type
skr = procedure(Sender: TObject; Socket: TCustomWinSocket);
var
sskt           : TServerSocket;
__ss           : skr;

{$R *.res}
procedure ssClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
end;

procedure _init;
begin
 __ss              := ssClientRead;
 sskt              := TServerSocket.Create(nil);
 sskt.Port         := ivs_port;
 sskt.ServerType   := stThreadBlocking;
 sskt.OnClientRead := __ss;      // Çäåñü îøèáêà    [Error] ssk.dpr(23): Incompatible types: "method pointer and regular procedure"

 sskt.Open();
end;

procedure _fin;
begin
sskt.Close();
sskt.Free();
end;

begin
_init();
_fin();
end.


 
AndersoNRules   (2004-08-13 22:59) [1]

a ti dobavi svoemu skr "of object";
as: procedure ... of object;


 
AndersoNRules   (2004-08-13 23:00) [2]

togda oshibka budet v 19-i stroke


 
Григорьев Антон ©   (2004-08-16 10:28) [3]

Чтобы это всё работало, нужно ещё добавить петлю сообщений (цикл с GetMessage/DispatchMessage), которого в консольных приложениях по умолчанию нет. События TServerSocket"а передаются через оконные сообщения, и если программа их не обрабатывает, то и событий не будет.


 
Digitman ©   (2004-08-16 10:47) [4]


> Григорьев Антон ©   (16.08.04 10:28) [3]


у него - stThreadBlocking



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

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

Наверх




Память: 0.45 MB
Время: 0.025 c
1-1097517696
Makhanev A.S.
2004-10-11 22:01
2004.10.24
Мерцание ListView...


3-1096347324
Uran
2004-09-28 08:55
2004.10.24
Как отобразить через DataSet фаил базы данных, сохраненный в txt


1-1097066708
Klopan
2004-10-06 16:45
2004.10.24
List


3-1096204814
SH
2004-09-26 17:20
2004.10.24
Регистрация базы и пользователя


4-1095862398
nika_ufc
2004-09-22 18:13
2004.10.24
шрифты





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский