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

Вниз

Евент для ServerSocket   Найти похожие ветки 

← →
delpher_gray   (2002-09-17 12:22) [0]

Привет Делферы !
У меня есть код проги, написанной в консольном приложении, которая запускает сервер на 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-17 12:42) [1]

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

---

← →
Digitman   (2002-09-17 12:45) [2]

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

---

← →
delpher_gray   (2002-09-18 12:47) [3]

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

---

← →
REA   (2002-09-18 13:28) [4]

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

---

← →
delpher_gray   (2002-09-18 15:12) [5]

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

---

← →
REA   (2002-09-18 16:09) [6]

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

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

TCPHandler: TMyClass;

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

---

← →
delpher_gray   (2002-09-18 17:03) [7]

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

---

← →
REA   (2002-09-18 17:56) [8]

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

---

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

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

Наверх

Память: 0.45 MB
Время: 0.007 c