Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.21;
Скачать: CL | DM;

Вниз

Вывод запушенных процессов.   Найти похожие ветки 

 
Renegate ©   (2003-05-16 09:07) [0]

Здраствуйте! У меня проблема. Как вывести запушенные процессы сетевого компьютера на мой компьютер, используя ClientSocket & ServerSocket? Подскажите пожайлуста, на примере......


 
Digitman ©   (2003-05-16 09:23) [1]

дели вопрос свой пополам :

1. Получение списка активных процессов в Win9x/Me

2. Организация соединения между компьютерами и транспорта данных между ними с использованием компонентов TClientSocket и TServerSocket.

Это две совершенно независимые задачи, каждая из которых требует отдельного (и не самого простого) решения.

1-й вопрос - в форум "Система" и/или "WinAPI"
2-й вопрос - в этот форум



 
Renegate ©   (2003-05-16 10:26) [2]

Ну может ты мне по этим двум вопросам и подскажешь как это всё проделать?!


 
Digitman ©   (2003-05-16 10:56) [3]


> Renegate


по 1-му вопросу - изволь все же задать его в указанных форумах. Не нарушай правила.

Здесь будет идти речь только по 2-му вопросу.

Тебе придется разработать 2 приложения : приложение-сервер (ServerApp) и приложение-клиент (ClientApp).

ServerApp: (стартует первым по времени на интересующей машине с установленным с TCP-протоколом в сети)

на форме размести компонент TServerSocket,
в обработчике события формы OnCreate() размести строки
ServerSocket.Port := номер_любого_свободного_порта;
ServerSocket.Active := True;

в обработчике события ServerSocket.OnClientRead() методом Socket.ReceiveBuf() будешь считывать данные, пришедшие от клиента, содержащие различные запросы клиента к серверу, например, запрос списка работающих на машине-сервере процессов. Здесь же можно будет ответить клиенту на запрос вызовом метода SendBuf()

ClientApp: (по времени стартует позже ServerApp, стартует на "твоей" машине с установленным с TCP-протоколом)

на форме размести компонент TClientSocket
установи
ClientSocket.Port := тот_же_номер_порта_что_был_установлен_в_ServerApp
ClientSocket.Address := IP_адрес_машины_с_ServerApp
ClientSocket.Open;
while not ClientSocket.Active do
Application.ProcessMessages;


после успешного выполнения этих строчек в нужный момент времени посылай серверу запросы (по разработанному тобой спец.протоколу) , используя метод ClientSocket.Socket.SendBuf()

прием от сервера ответов на посланные запросы ожидай и осуществляй в событии ClientSocket.OnRead() с использованием метода Socket.ReceiveBuf()




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

Текущий архив: 2003.07.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
1-67861
ServerXP
2003-07-07 23:56
2003.07.21
Как создать многооконную структуру программы в Delphi?


8-67915
Yorick
2003-03-31 02:00
2003.07.21
Поворот изображения в Image ?


1-67808
Wetnose
2003-07-09 08:24
2003.07.21
BPL dependences


1-67817
clickmaker
2003-07-07 20:24
2003.07.21
Параметр lcid в TExcelApplication.Workbooks


1-67811
McSimm2
2003-07-09 13:27
2003.07.21
Нехватка памяти