Скачать: CL | DM;

Работа с 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-а раза за один "сеанс"

---

← →
Virgo_Style ©   (2006-02-24 22:37) [4]

Охо-хо...

Cmd := Socket.ReceiveText;

if Cmd = ... then ...

if Cmd = ... then ...

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c