Скачать: CL | DM;

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

← →
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]

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

---

← →
kami ©   (2008-10-12 18:52) [7]

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

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

---

← →
Сергей М. ©   (2008-10-13 09:15) [8]

> jonin   (12.10.08 16:36) [3]


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

---

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

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.008 c