Работа с Tclient/serverSocket

← →
Sairus (2006-02-24 21:24) [0]

всем приветы уважаемые...помогите кто может...вообщем имеется клиент - серверная

прога...(клиент и сервер поотдельности) на сервере имеется листбокс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) [1]

Пиши на мыло. Скину тебе исходники. Оба!
Всё будет шоколад.
Мыло:
admin@VolgoDom.com
или
wolf-alone@yandex.ru

Работа с Tclient/serverSocket Найти похожие ветки