Скачать: CL | DM;

console+sockets   Найти похожие ветки 

← →
Алексей Ким ©   (2002-09-20 13:38) [0]

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils,
ScktComp;

type TMyType = class (TObject)
procedure SSClientWrite (Sender: TObject; Socket: TCustomSocket );
end;

const PORT: Integer = 1003;

var cs: TClientSocket;
ss: TServerSocket;
MyType: TMyType;

procedure SSClientWrite(Sender: TObject; Socket: TCustomWinSocket);
var s: String;
begin
s := ss.Socket.ReceiveText;
write(s);
end;

begin
MyType := TMyType.Create;
cs := TClientSocket.Create ( nil );
ss := TServerSocket.Create ( nil );
ss.Port := PORT;
cs.Port := PORT;
cs.Host := "localhost";
ss.Open;
cs.Open;
ss.OnClientRead := MyType;
cs.Socket.SendText("hello");
cs.Free;
ss.Free;
MyType.Free;
readln;
end.

собственно трабла в "ss.OnClientRead := MyType.SSClientWrite;"
как заставить это все работать? %)

---

← →
Внук ©   (2002-09-20 13:52) [1]

type TMyType = class (TObject)
procedure SSClientWrite (Sender: TObject; Socket: TCustomWinSocket)
end;

---

← →
Digitman ©   (2002-09-20 13:59) [2]

> как заставить это все работать?


О том, как это заставить "работать" и будет ли это работать вообще в соответствии с предполагаемой логикой, пока речи не идет.

Вот "как это все скомпилировать", чтобы потом хоть как-то заработало - это совсем иной вопрос)

Вот на него ответ :

procedure TMyType.SSClientWrite(Sender: TObject; Socket: TCustomWinSocket); // Почему SSClientWrite ?? SSClientRead наверно !! Это же событие готовности к чтению , а не к записи !!
var s: String;
begin
...
end;

---

← →
Алексей Ким ©   (2002-09-20 16:08) [3]

2Digitman>
за замечания спасибо
но я делал это только для теста
пока я не могу скомпилировать
какая разница какое у меня будет
процедура когда сама прога не работает

---

← →
Digitman ©   (2002-09-20 16:16) [4]

>Алексей Ким

большая разница.

Процедура становится процедурой лишь после тогог, как она будет скомпилирована и собрана. И лишь после этого только можно (в принципе !) говорить о какой-то там работе чего-то

---

← →
Алексей Ким ©   (2002-09-20 17:43) [5]

ладна ладна сдаюсь буду писать нормально

---

← →
Digitman ©   (2002-09-20 17:53) [6]

>Алексей Ким

... и с полным пониманием того, что пишешь)

---

← →
Алексей Ким ©   (2002-09-20 18:48) [7]

ну да
(с намеком тоже ;)

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c