Работа с Tclient/serverSocket

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

Sairus (24.02.06 21:24)

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

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

.....

почему-то сервак напрочь отказывается воспринимать второе условие, каким бы оно не было...
т.е. в моем случае он открывает сидюк, но не закрывает...если же условия поменять местами,

то будет закрывать :)) а открыть не сможет... в чем трабла???? нужно обнулять переменную

рецейвТекст или что??? не могу понять... :((

← →
Virgo_Style © (2006-02-24 22:15) [1]

есть такое смутное чувство, что надо вызывать ReceiveText один раз за "сеанс"

← →
SaiRus (2006-02-24 22:22) [2]

и че значит, можно выполнить токо одно действие?? и без других вариантов?? тока если закрывать и открывать "сеанс" заново?

← →
SaiRus (2006-02-24 22:27) [3]

и кстати нет, я пробовал открывать сидюк 2-а раза за один "сеанс"

Охо-хо...

Cmd := Socket.ReceiveText; if Cmd = ... then ... if Cmd = ... then ...

← →
Sairus (2006-02-24 22:43) [5]

а в чем разница, либо мы присваиваем определенному значению полученный текст, либо сравниваем бес присваивания?? 0_0 но идею понял спасибо... буду проверять погодя чуть чуть :)

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