Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Работа с Tclient/serverSocket

sairus © (2006-02-24 21:32:00)
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;

.....

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

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

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

Sairus (2006-02-24 22:43:00) [1]
а в чем разница, либо мы присваиваем определенному значению полученный текст, либо сравниваем бес присваивания?? 0_0 но идею понял спасибо... буду проверять погодя чуть чуть :)

Virgo_Style (2006-02-24 22:37:00) [2]
Охо-хо...

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

SaiRus (2006-02-24 22:27:00) [3]
и кстати нет, я пробовал открывать сидюк 2-а раза за один "сеанс"

SaiRus (2006-02-24 22:22:00) [4]
и че значит, можно выполнить токо одно действие?? и без других вариантов?? тока если закрывать и открывать "сеанс" заново?

Virgo_Style (2006-02-24 22:15:00) [5]
есть такое смутное чувство, что надо вызывать ReceiveText один раз за "сеанс"

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »