| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Евент для ServerSocket [D6, WinXP]

delpher_gray ©   (2002-09-17 12:22:00) 

Привет Делферы !
У меня есть код проги, написанной в консольном приложении, которая запускает сервер на 13 порту, но в ней есть глюк...
Само ыобытие OnClientRead не работает. Прога не компилируется, выдаёт ошибку: PServer.dpr(17): Incompatible types: "method pointer and regular procedure".
Вот код проги:
program PServer;

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp;

procedure ClientReadEvent(Sender: TObject; Socket: TCustomWinSocket);
begin
Socket.SendText("It WORK !");
end;

var
ServerSocket1: TServerSocket;
begin
ServerSocket1.Create(nil);
ServerSocket1.Port := 13;
ServerSocket1.OnClientRead := ClientReadEvent;
while true do ServerSocket1.Open;
ServerSocket1.Free;
end.
Если кто знает как это исправить доскажите плииииззззз !

---

REA   (2002-09-18 17:56:00) [1]

А деньги за нее по факсу перешлешь?

---

delpher_gray   (2002-09-18 17:03:00) [2]

To REA!
Rea ! Если тебе не трудно плиз допиши код проги :-) Ато я в этих классах и т.п. ни чего не понимаю :-)))

---

REA   (2002-09-18 16:09:00) [3]

Любой класс создай:

TMyClass = Class()
Public
MyProc нужного типа
End;

TCPHandler: TMyClass;

Initialization
TCPHandler := TMyClass.Create;
Finalization
TCPHandler.Free;
End.

---

delpher_gray   (2002-09-18 15:12:00) [4]

Вся проблема в том, что это консольное приложение...
Я не знаю как всё это поместить внутрь класса.
Если кто знает, просто допишите код.
Заранее благодарен.

---

REA   (2002-09-18 13:28:00) [5]

Она так и описана уже. Саму процедуру поместить внутрь любого класса (хоть формы).

---

delpher_gray   (2002-09-18 12:47:00) [6]

to REA
Просто надо дописать
procedure ClientReadEvent(Sender: TObject; Socket: TCustomWinSocket) of object и всё что ли ?

---

Digitman   (2002-09-17 12:45:00) [7]

разницу между процедурой и процедурным методом объекта в понимаешь ?

---

REA   (2002-09-17 12:42:00) [8]

Событие по описанию не просто процедура, а процедура класса (of object). Процедура должна быть внутри класса.

---

Наверх