Работа с Tclient/serverSocket
Sairus © (2006-02-24 21:24:00)
всем приветы уважаемые...помогите кто может...вообщем имеется
клиент - серверная
прога...(клиент и сервер поотдельности) на сервере имеется
листбокс1, в котором итомсы
заполняются, видео режимами поддерживаемыми монитором на
компе где запущен сервак...
нужно эти данные из листбокса1 на серваке перекинуть в
клиентскую часть, тоже в
листбокс1...подскажите плизз как это можно реализовать????
желательно с примером если не
трудно... и попутный вопрос...
вот код сервака
.....
if Socket.ReceiveText='open' then
mciSendCommand(di, MCI_SET,
MCI_SET_DOOR_open,0);
if Socket.ReceiveText='cl' then
mciSendCommand(di, MCI_SET,
MCI_SET_DOOR_CLOSED,0);
.....
вот клиента
.....
procedure TForm1.Button3Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText('open');
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText('cl');
end;
.....
почему-то сервак напрочь отказывается воспринимать второе
условие, каким бы оно не было...
т.е. в моем случае он открывает сидюк, но не закрывает...если
же условия поменять местами,
то будет закрывать :)) а открыть не сможет... в чем
трабла???? нужно обнулять переменную
рецейвТекст или что??? не могу понять... :((
XeON (2006-02-25 01:17:00) [1]
Пиши на мыло. Скину тебе исходники. Оба!
Всё будет шоколад.
Мыло:
admin@VolgoDom.com
или
wolf-alone@yandex.ru
Наверх 
ЧАТ |
Орешник |
|
