Работа с clientsocket и serversocket

[mroff]

Создаём новый проект и кидаем на форму clientsocket с вкладки internet, 2 edit- в них будем писать ип к которому будем коннектиться и текст мессаги, 8 button- которые будут посылать серверу команды "так же memo там будет лог".
создаем клиент!
OnCreate пишем:

cs.Host:=edit1.Text; //Наш хост, тобиш ип который вы будете вписывать в edit1
cs.port:=123; //Указываем порт в нашем случае инфа будет передоваться через 123 порт

теперь у в обработчике собития OnClick кнопки "Коннект" пишем код:

var s:string;
begin
cs.Active:=true; //Коннектимся
if cs.Socket.Connected=true then begin //Если подключились то
memo1.lines.add('Соединение установленно...'); //пишим в memo
end else //в противном случае пишим это
memo1.lines.add('Соединение неустановленно...'); //<--вот это
теперь у кнопки "Дисконнект"

cs.Close; //Закрываем сокет
memo1.lines.add('Соединение закрыто!'); //пишим в memo

теперь у кнопки "Открыть сидюк"
cs.Socket.SendText('CDOPEN');//посылаем серверу комманду CDOPEN
теперь у кнопки "Закрыть сидюк"

cs.Socket.SendText('CDCLOSE');//посылаем серверу комманду CDCLOSE

теперь у кнопки "Потушить монитор"

cs.Socket.SendText('MONIKOFF');//посылаем серверу комманду MONIKOFF

теперь у кнопки "Ребутнуть удалённый"

cs.Socket.SendText('FORCE');//посылаем серверу комманду FORCE

теперь у кнопки "Послать сообщение"

cs.Socket.SendText('MSG'+edit2.text);//посылаем серверу комманду FORCE

НАПОМИНАЮ CS - clientsocket сменим имя на cs клиент готов посмотрите может где что не так?
а теперь СЕРВЕР

На форму кидаем serversocket с вкладки internet
У формы в событии OnCreate пишем

serversocket1.port:=123;//Назначаем порт
serversocket1.active:=true//начинаем слушать порт

Теперь у компонента serversocket1 в событии clientread пишем код

var s:string; //обьявляем переменную в которой будут храниться данный которые пришли от клиента
begin
s:=socket.ReceiveText; //присвиваем переменной s текст который пришёл от клиента
if s='CDOPEN' then //если CDOPEN то открыть сидюк
mciSendString('Set cdaudio door open wait', nil, 0, handle);ТУТ ВЫДАЕТ ошибку почему?
if s='CDCLOSE' then //если CDCLOSE значит закрыть сидюк
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
if s='MONIKOFF' then //Если пришла комманда MONIKOFF значит вырубаем монитор
SendMessage(form1.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
if s='FORCE' then //Если пришла комманда FORCE то вырубаем комп
ExitWindowsEx(EWX_FORCE or ewx_force,0);
if copy(s,1,3)='MSG' then //копируем первые 3 символа, если они равняються коммане MSG значит вывести мессагу
Messagebox(0,pchar(copy(s,4,length(s))),'Message',0);

[Apchi]

хотя бы ошибку написали что ли...

[Aliens_wolfs]

mciSendString('Set cdaudio door open wait', nil, 0, handle);ТУТ ВЫДАЕТ ошибку почему?

В Uses проекта своего добавте mmsystem и ошибки не будет

Примерно так:

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, mmsystem;

[shatun6]

"

cs.Socket.SendText('FORCE');//посылаем серверу комманду FORCE
cs.Socket.SendText('MSG'+edit2.text);//посылаем серверу комманду FORCE

"
ЦИТИРУЯ ЧУЖОЙ КОД, ХОТЯ БЫ ИСПРАВЛЯЙТЕ ЯВНЫЕ ОПЕЧАТКИ АВТОРОВ.