Форум: "Сети";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Сети";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c