Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

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

Polevi (2002-09-16 16:32:00) [1]
нам не понять, это слишком гениально

YouNick (2002-09-16 13:52:00) [2]
проблема даже не в том, то скомпилить не получится, а в том, что это полный бред!!!!

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

s002156Shurik (2002-09-16 13:27:00) [3]
Ты серьезно хочеш это откомпилить?
:))))))))!!!
блок procedure смести на 3 строки вверх! для начала.
Ужасть какойто!

delpher_gray (2002-09-16 13:09:00) [4]
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.
Чё-то не так с процедурами...

Polevi (2002-09-16 11:49:00) [5]
ты очень крутой, боюсь тут никто не знает..

delpher_gray (2002-09-16 11:12:00) [6]
Это опять я !
Я сделал как посоветовал VID, всё вроде бы правильно, но при компиляции Delphi выдаёт ошибку процидуры... Типа не знаетчё такое procedure, видимо в код надо что-то дописать... Подскажите что !
to Polevi
Polevi, ты чё читать не умеешь ?? Я сказал же что у меня есть трой, и он работает, но сервак много весит. Вот я и спрашиваю как сделать событие компоненту...

delpher_gray (2002-09-15 20:05:00) [7]
Балин... Форум чуть глюкует, про смерть ламера я совсем другому ответ писал... VID! Наконец-то кто-то написал то что надо ! А не просто как Blast :-)
Писибо !!!

VID (2002-09-15 00:21:00) [8]
To delpher_gray:
procedure ClientReadEvent(Sender: TObject; Socket: TCustomWinSocket);
begin
ShowMessage(Socket.ReceiveText);
end;

TServerSocket.OnClientRead:=ClientReadEvent;

Ты об этом ???

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

Blast 8-|

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

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

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

Song (2002-09-12 19:18:00) [12]
Не понятно что Вам надо. Скажите что Вы хотите посылать на сервер и что он должен делать на ту или иную комнду. Вы же привели лишь код инициализации сервера.

Digitman (2002-09-12 18:39:00) [13]
>delpher_gray

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

delpher_gray (2002-09-12 17:45:00) [14]
Мне нужен ОТВЕТ !!!!!!!!!!!!
:-)

YouNick (2002-09-06 10:58:00) [15]
2Digitman: полностью согласен ;). Это лишнее подтверждение проблемы, которую я поднимал в форуме "Потрепаться".

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

Digitman (2002-09-05 18:59:00) [16]
Совет воспользоваться глоб.поиском по PAS-файлам в каталоге с демо-проектами Делфи на предмет нахождения ключ.слов TServerSocket и OnClientRead - тоже бесполезные слова ?

Digitman (2002-09-05 18:57:00) [17]
Заглянуть, например, в демо-проект chat.dpr да посмотреть, как это там сделано - тоже пара бесполезных слов ?

Наверх

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