Форум: "Сети";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];
ВнизПочему никак не разберусь ! :-( Найти похожие ветки
← →
SemFLY (2001-11-11 18:56) [0]Сделал я на Socket’ах клиент и сервер.
Посылаю клиенту команду открыть CD-ROM он открывается, потом посылаю команду на закрытие и ничего не происходит. В чём здесь дело ?
- - - - - - - - -
Вот код сервера.
procedure TForm1.ServerSocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ShowMessage ("Соединение не установлено !");
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ServerSocket1.Open;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ServerSocket1.Socket.Connections[0].SendText(Edit1.Text);
end;
Если в Edit указано "o"- то открыть, если "c" - закрыть.
- - - - - - - -
Код клиента.
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
If Socket.ReceiveText = "o" then
begin
mciSendString("Set cdaudio door open wait", nil, 0, handle); {откpыть}
Memo1.Lines.Add("CD Open !");
exit
end
else
if Socket.ReceiveText = "c" then
begin
mciSendString("Set cdaudio door closed wait", nil, 0, handle); {закpыть}
Memo1.Lines.Add("CD Close !");
end;
end;
Спасибо ! :-)
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c