Текущий архив: 2003.11.17;
Скачать: CL | DM;
Вниз
Две посылки, один прием Найти похожие ветки
← →
Urvin © (2003-09-20 20:51) [0]Проблема возникла. Для отсылки на сервер сообщения надо кнопку нажать дважды, это напрягает. код примерно такой:
КЛИЕНТ:
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;
Все-таки, два раза нажимать не нравится
← →
Senti (2003-09-21 00:57) [1]а зачем ты закрываешь сокет после отправки ?
если хочешь пользоваться своим алгоритмом сделай цикл.
i - Нужное число отправки сообщения
for j:=1 to i do
begin
ClientSocket1.Host:="Host";
ClientSocket1.Port:=2003;
ClientSocket1.Active:=True;
ClientSocket1.Socket.SendText("Ну вобщем-то это и есть та
строка");
ClientSocket1.Active:=False;
end;
← →
Urvin © (2003-09-21 02:08) [2]НЕ! не в том дело-то. Послать надо один раз одну строку. Только получается со второго раза. Закрываю все потому, что потом надо переключиться на следующий комп.
Страницы: 1 вся ветка
Текущий архив: 2003.11.17;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.02 c
