| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Две посылки, один прием

Urvin ©   (2003-09-20 20:51:00) 

Проблема возникла. Для отсылки на сервер сообщения надо кнопку нажать дважды, это напрягает. код примерно такой:
КЛИЕНТ:
ClientSocket1.Host:="Host";
ClientSocket1.Port:=2003;
ClientSocket1.Active:=True;
ClientSocket1.Socket.SendText("Ну вобщем-то это и есть та строка");
ClientSocket1.Active:=False;
CЕРВЕР:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
Str: String;
begin
Str:=Socket.ReceiveText;
ShowMessage(Str);
end;
Все-таки, два раза нажимать не нравится

---

Urvin   (2003-09-21 02:08:00) [1]

НЕ! не в том дело-то. Послать надо один раз одну строку. Только получается со второго раза. Закрываю все потому, что потом надо переключиться на следующий комп.

---

Senti   (2003-09-21 00:57:00) [2]

а зачем ты закрываешь сокет после отправки ?
если хочешь пользоваться своим алгоритмом сделай цикл.


i - Нужное число отправки сообщения
for j:=1 to i do
begin
ClientSocket1.Host:="Host";
ClientSocket1.Port:=2003;
ClientSocket1.Active:=True;
ClientSocket1.Socket.SendText("Ну вобщем-то это и есть та
строка");
ClientSocket1.Active:=False;
end;


---

Наверх