Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Вывод запушенных процессов. [D6, Win95/98]


Renegate ©   (2003-05-16 09:07:00) 

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


Digitman   (2003-05-16 10:56:00) [1]


> 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()


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

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


Digitman   (2003-05-16 09:23:00) [3]

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

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

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

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

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо