Удаленное управление компьютером

← →
jonin (2008-10-12 15:47) [0]

Пред всем.
такая праблема у меня подскажите что делаю не так.
Я в Кладовка - Исходные тексты. Модули, программы, компоненты и другое. нашел программу ля удаленного управления стал ее переделывать чтоб так сказать усовершенствовать и работать она перестала вобще))

← →
jonin (2008-10-12 15:51) [1]

вотсам код (сервера):
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;

← →
Сергей М. © (2008-10-12 16:24) [2]

За за каким хреном ты полез что-то там переделывать, если ни шиша не понимаешь как это работает ?)

← →
jonin (2008-10-12 16:36) [3]

почему то не чего не происходит на удаленном компьютере(

← →
kami © (2008-10-12 16:54) [4]

> стал ее переделывать чтоб так сказать усовершенствовать
> и работать она перестала вобще

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

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

← →
jonin (2008-10-12 18:29) [5]

в смнет

← →
jonin (2008-10-12 18:30) [6]

он активируется в начале программы и не блакируется

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

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

> jonin (12.10.08 16:36) [3]

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

← →
jonin (2008-10-13 15:01) [9]

kami спс за статью, прочитал и ве получилось

Удаленное управление компьютером Найти похожие ветки