Нужен полный ответ, событие OnClientRead компоненту TServerSocket

← →
delpher_gray (2002-09-05 18:46) [0]

Привет Делферы !
Задаю этот вопрос уже 4-ый раз ! Как мне написать событие OnClientRead, компонету TServerSocket ?? Огромная просьба отвечайте полность, допишите код ! А не просто пара бесполезных слов...
Вод код:
var Socket: TServerSocket; begin Socket := TServerSocket.Create(nil); Socket.Port := 1382; Socket.Open; end;Заранее благорарен, Овсянников Сергей !

← →
Digitman (2002-09-05 18:57) [1]

Заглянуть, например, в демо-проект chat.dpr да посмотреть, как это там сделано - тоже пара бесполезных слов ?

← →
Digitman (2002-09-05 18:59) [2]

Совет воспользоваться глоб.поиском по PAS-файлам в каталоге с демо-проектами Делфи на предмет нахождения ключ.слов TServerSocket и OnClientRead - тоже бесполезные слова ?

← →
YouNick (2002-09-06 10:58) [3]

2Digitman: полностью согласен ;). Это лишнее подтверждение проблемы, которую я поднимал в форуме "Потрепаться".

2Delpher_gray: а ты показал бы свою реализацию этого события, тебя бы поправили, если там что-то не правильно .... Как у нас говорят: "Читайте доки - они рулез!".

← →
delpher_gray (2002-09-12 17:45) [4]

Мне нужен ОТВЕТ !!!!!!!!!!!!
:-)

← →
Digitman (2002-09-12 18:39) [5]

>delpher_gray

Ставь конкретный и корректный вопрос - будет тебе и ответ

← →
Song (2002-09-12 19:18) [6]

Не понятно что Вам надо. Скажите что Вы хотите посылать на сервер и что он должен делать на ту или иную комнду. Вы же привели лишь код инициализации сервера.

← →
delpher_gray (2002-09-14 16:32) [7]

Так вот... Я пишу трой (троян), если скрывать форму, то сервак будет сильно много весить, вот я и собрался написать сервер на консоле... Пример: я подсоеденяюсь к серверу, и посылаю ему команду "b5all", а сервак отделяет от принятого текста "b5", а потом смотрит что идёт дальше если это как в этом примере "all", то он посылает список запущенных приложений вот таким форматом: ;Rnaapp;Osa;Systray; и т.д... У меня есть все эти коды, но я не знаю как можно задать событие компоненту в консольном приложении, например если быдете отвечать, к примеру пишите чтоб на команду "b5", сервак закрывался ( "Application.Terminate"). Вот и всё, думаю всё ясно...

← →
Polevi (2002-09-14 17:10) [8]

delpher_gray © (14.09.02 16:23)
Это есть у каждого хорошего делфера, но никто тебе исходник не даст сам пиши !!! Мне 14 лет, я уже написал трой покруче СМЕРТЬ ЛАМЕРА !

хехе
ну нет слов просто, одни междметия..

← →
Blast (2002-09-15 00:05) [9]

ГОСПОДА-ТОВАРИЩИ МАСТЕРА-РЕБЯТЫ !!! Что же ето такое ?? Раньше чтоб написать вирусяку под ДОСом нада было досканально изучить системные ф-ции, Ассемблер... А терь !!! Какой-то "мастер" в открытую го-во-рит - "Дайте мне, мол, ИСХОДНИКИ трояна !!! Да еще чтоб оно весило как консольное приложение !!!" - такой наглости я даааавно не видал...

Blast 8-|

← →
VID (2002-09-15 00:21) [10]

To delpher_gray:
procedure ClientReadEvent(Sender: TObject; Socket: TCustomWinSocket);
begin
ShowMessage(Socket.ReceiveText);
end;

TServerSocket.OnClientRead:=ClientReadEvent;

Ты об этом ???

← →
delpher_gray (2002-09-15 20:05) [11]

Балин... Форум чуть глюкует, про смерть ламера я совсем другому ответ писал... VID ! Наконец-то кто-то написал то что надо ! А не просто как Blast :-)
Писибо !!!

← →
delpher_gray (2002-09-16 11:12) [12]

Это опять я !
Я сделал как посоветовал VID, всё вроде бы правильно, но при компиляции Delphi выдаёт ошибку процидуры... Типа не знаетчё такое procedure, видимо в код надо что-то дописать... Подскажите что !
to Polevi
Polevi, ты чё читать не умеешь ?? Я сказал же что у меня есть трой, и он работает, но сервак много весит. Вот я и спрашиваю как сделать событие компоненту...

← →
Polevi (2002-09-16 11:49) [13]

ты очень крутой, боюсь тут никто не знает..

← →
delpher_gray (2002-09-16 13:09) [14]

to Polevi
Иди в раздел Потрепаться !
Вот полный код проги:
program PServer; uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ScktComp; begin ServerSocket1.Create(nil); ServerSocket1.Port := 13; procedure ClientReadEvent(Sender: TObject; Socket: TCustomWinSocket); begin Socket.SendText("It WORK !"); end; ServerSocket1.OnClientRead := ClientReadEvent; while true do ServerSocket1.Open; ServerSocket1.Free; end.
Чё-то не так с процедурами...

← →
s002156Shurik (2002-09-16 13:27) [15]

Ты серьезно хочеш это откомпилить?
:))))))))!!!
блок procedure смести на 3 строки вверх! для начала.
Ужасть какойто!

← →
YouNick (2002-09-16 13:52) [16]

проблема даже не в том, то скомпилить не получится, а в том, что это полный бред!!!!

2delpher_gray: Это либо бред сумасшедшего, либо ты из нас пытаешься таких сделать!!!!

← →
Polevi (2002-09-16 16:32) [17]

нам не понять, это слишком гениально

Нужен полный ответ, событие OnClientRead компоненту TServerSocket Найти похожие ветки