Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.05.2008, 12:31   #1
AngelOfDeath
Delphi/C++/Asm
Форумчанин Подтвердите свой е-майл
 
Аватар для AngelOfDeath
 
Регистрация: 28.03.2008
Сообщений: 358
По умолчанию Делать проверку при спрятонной форме

Делаю приложение с сокетами
Клиентская чать невидима
Как сделать так чтоб сокеты при невидимой форме проверяли пришедший текст и выполняли действие
Код:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
if Socket.ReceiveText='s' then
   ExitWindowsEx(EWX_REBOOT,0);
end;
AngelOfDeath вне форума Ответить с цитированием
Старый 01.05.2008, 14:36   #2
Dj_smart
Капсула от спама
Форумчанин
 
Аватар для Dj_smart
 
Регистрация: 04.03.2008
Сообщений: 779
По умолчанию

Я читал где-то случайным образом статейку, как написать трояна (по моему, его ты хочешь сделать?).Почитай тута. А если чё, используй I_net. Он принимает по таймеру.
Если данный ответ не столь конкретен, как Вы желаете его увидеть, возможно необходимо поразмыслить, стоит ли вопрос того, чтобы о нём спрашивать на форуме?
CncFiles.ru - бесплатный файловый хостинг
Dj_smart вне форума Ответить с цитированием
Старый 02.05.2008, 07:53   #3
AngelOfDeath
Delphi/C++/Asm
Форумчанин Подтвердите свой е-майл
 
Аватар для AngelOfDeath
 
Регистрация: 28.03.2008
Сообщений: 358
По умолчанию

Мдя я ожидал большей активности!
AngelOfDeath вне форума Ответить с цитированием
Старый 02.05.2008, 14:33   #4
SNUPY
Форумчанин
 
Регистрация: 15.02.2008
Сообщений: 621
По умолчанию

Жаль удалил, но была у меня где-то прога только там сервер невидимый... она была издевательской направленности на одноклассниками на информатике....
Да конечно я давно не работал с сетью, но это делалось так
У компонента ClientSocket (и у ServerSocket) есть события Read и Write помоему одна из них должна срабатывать на пришедшее сообщение.
Помог? Ну так нажми на весы!
SNUPY вне форума Ответить с цитированием
Старый 02.05.2008, 14:45   #5
AngelOfDeath
Delphi/C++/Asm
Форумчанин Подтвердите свой е-майл
 
Аватар для AngelOfDeath
 
Регистрация: 28.03.2008
Сообщений: 358
По умолчанию

Цитата:
Сообщение от SNUPY Посмотреть сообщение
Жаль удалил, но была у меня где-то прога только там сервер невидимый... она была издевательской направленности на одноклассниками на информатике....
Да конечно я давно не работал с сетью, но это делалось так
У компонента ClientSocket (и у ServerSocket) есть события Read и Write помоему одна из них должна срабатывать на пришедшее сообщение.
Насчёт этого я знаю
Просто они не срабатывали при спрятанной форме
AngelOfDeath вне форума Ответить с цитированием
Старый 02.05.2008, 14:45   #6
AngelOfDeath
Delphi/C++/Asm
Форумчанин Подтвердите свой е-майл
 
Аватар для AngelOfDeath
 
Регистрация: 28.03.2008
Сообщений: 358
По умолчанию

Вот нашёл способ
Создавать цикл при создании формы:
Код:
procedure TForm1.FormCreate(Sender: TObject);

begin
while True do
begin
Application.ProcessMessages;
Sleep(10000);
end;
AngelOfDeath вне форума Ответить с цитированием
Старый 02.05.2008, 14:53   #7
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

AngelOfDeath, можешь попробовать так:

procedure TForm1.FormCreate(Sender: TObject);
begin
application.ShowMainForm:=false;
ClientSocket1.Active:=true;
end;
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
S:String;
begin
S:=socket.ReceiveText;
begin
If S='s' then
begin
ExitWindowsEx(EWX_REBOOT,0);
end;
end;
end;
Всегда рад помочь!
Terran вне форума Ответить с цитированием
Старый 02.05.2008, 14:57   #8
SunKnight
Участник клуба Подтвердите свой е-майл
 
Аватар для SunKnight
 
Регистрация: 14.12.2007
Сообщений: 1,434
По умолчанию

Хм. Троян и VCL? Интересно сколько понадобится времени Юзеру для обнаружения живности в диспечере, которая жрет 2 МБ оперы? Для таких целей нужно использовать хотя бы консольное приложение.
Проповедую design patterns, верую в MVC, доверяю eXtrime programming.
SunKnight вне форума Ответить с цитированием
Старый 02.05.2008, 15:35   #9
BOBAH13
Android Developer
Старожил Подтвердите свой е-майл
 
Аватар для BOBAH13
 
Регистрация: 19.02.2007
Сообщений: 3,708
По умолчанию

Я неговорю именно про то что используются компоненты для таких целей, да пусть ладно юзайте их, но вопрос на ваш вопрос Зачем вообще форму создавать ? Что нельзя прямо в теле программы ( *.dpr ) объявить нужный компонент в директиве var присвоить ему обработчики нужные и вперед...
BOBAH13 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Что делать? mujbIk Общие вопросы C/C++ 6 27.08.2008 12:24
НЕЗНАЮ ЧТО ДЕЛАТЬ!! grob77 Компьютерное железо 3 11.07.2008 11:53
Помогите проверку ввода сделать Panda Помощь студентам 3 01.07.2008 20:50
Помогите пожалуйста написать проверку ввода для этой программы Saaashka Помощь студентам 1 01.07.2008 09:11
подскажите что делать. __k1ll3r__ Компьютерное железо 4 23.02.2008 12:54