Управление через лан

[yura-cat]

Я изучаю дельфи основываясь на несложных примерах
У меня 2 компьютера. В общем как сделать : Один компьютер посылает пакет второму через UDP порт, заставляя того открыть Cd-rom ?

[Terran]

Сообщение от yura-cat

Я изучаю дельфи основываясь на несложных примерах
У меня 2 компьютера. В общем как сделать : Один компьютер посылает пакет второму через UDP порт, заставляя того открыть Cd-rom ?

Вы можете сделать так:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
IdUDPClient1.Send('A');
End;
-------------------------
Uses
 IdSocketHandle, MMSystem,...
...
Procedure TForm1.FormCreate(Sender: TObject);
Begin
IdUDPServer1.Active:=True;
End;
Procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
Begin
MciSendString('Set CDAudio Door Open',Nil,0,Handle);
End;

Сидером будет открываться, когда в порт придут любые данные. Но этот вариант не очень хороший. Вы можете ещё делать проверку приходящих данных и потом выполнять действия. Лучше всего для этих целей использовать ServerSocket и ClientSocket. С ними удобней и проще работать и они будут надёжнее.

[yura-cat]

В панели я не смог найти Soket server\client, где эта функция находится?
Приведите пожалуйста небольшой рабочий пример моей задумки на сокетах.

[Terran]

Сообщение от yura-cat

В панели я не смог найти Soket server\client, где эта функция находится?
Приведите пожалуйста небольшой рабочий пример моей задумки на сокетах.

ServerSocket и ClientSocket - это стандартные компоненты в Делфи. Если у вас их нету, то вы должны их установить. Для этого выберите вкладку Component\Install Packages и в появившемся окне нажмите add и выберите папку Bin в директории с делфи и там найдите эти компоненты и установите их. Потом они должны у вас появится на вкладке Internet. А вот пример кода, который будет открывать сидиром по нажатию на кнопку с проверкой приходящих данных.

Uses
  MMSystem,...
...
Procedure TForm1.FormCreate(Sender: TObject);
Begin
ServerSocket1.Active:=True;
End;
Procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
Var
S: String;
Begin
S:=Socket.ReceiveText;
If S='CD' Then
Begin
MciSendString('Set CDAudio Door Open',Nil,0,Handle);
End;
End;
----------------------
Procedure TForm1.Button1Click(Sender: TObject);
Begin
ClientSocket1.Active:=True;
ClientSocket1.Socket.SendText('CD');
End;

[yura-cat]

Получилось установить эти сокеты, создал две проги в первой сервер, во второй клиент. ВСе как вы и показали мне. Но все-равно не работает. Возможно я неправилно настраиваю эти сокеты. Приведите пожалуйста пример настройки Сервера\клента (сокет)

P.S
у меня почемуто процедура клинта (сокет) вот так выглядит "procedure TForm1.ClientSocket1Connect(Sender: TObject"

[yura-cat]

Спасибо, в общем я во всем сам разобрался) нужно было перевести просто сокет в режим прослушивания ! =)

[yura-cat]

Расскажите пожалуйста как сделать чтобы :
В программе - клиенте вводишь текст в поле, клиент передает это на сервер! Сервер виде ShowMessage выдает текст который послал ему клиент.

[Terran]

Сообщение от yura-cat

Расскажите пожалуйста как сделать чтобы :
В программе - клиенте вводишь текст в поле, клиент передает это на сервер! Сервер виде ShowMessage выдает текст который послал ему клиент.

Можете сделать так:

Procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
Var
S: String;
Begin
S:=Socket.ReceiveText;
ShowMessage(S);
End;
-------------------------
Procedure TForm1.Button1Click(Sender: TObject);
Begin
ClientSocket1.Active:=True;
ClientSocket1.Socket.SendText(Edit1.Text);
End;