Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.05.14;
Скачать: CL | DM;

Вниз

Вопрос по ClientSocket   Найти похожие ветки 

 
Luka.rus   (2006-04-19 18:04) [0]

мне нужно создавать много ClientSocket одной программе, я создал массив:

clients: array[0..100] of TClientSocket;

и динамически создаю и уничтожаю сокеты:


 for i:= 0 to 100 do
   if clients[i] = Nil then begin
     clients[i]:= TClientSocket.Create(self);
     clients[i].Tag:= iTag;
     clients[i].Address:= Edit1.Text;
     clients[i].Port:= StrToInt(Edit2.Text);
     clients[i].OnRead:= ClientRead;
     clients[i].Active:= True;
     CreateClient:= clients[i];
     Break;
   end;
end;


но когда отправляю данные:
GetByTag(Socket.SocketHandle).Socket.SendBuf(r,a);

функция возвращает 0. r - массив из Byte, a - размер.
более того, проверка
clients[0].Socket.Connected
показывает, что сокет не работает, хотя я его запускаю при создании :( что я упустил?


 
Сергей М. ©   (2006-04-21 14:24) [1]


> что я упустил?


Ты упустил то что в режиме ctNonBlocking успешная установка св-ва Active = True (или эквивалентный по назначению успешный вызов метода Open) не является признаком фактического установления соединения.

Таким признаком является факт возникновения события OnConnect.

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


 
Slym ©   (2006-04-21 15:32) [2]

Код напоминает DoSилку... но очень плохую


 
SergP ©   (2006-04-22 10:43) [3]


> Luka.rus   (19.04.06 18:04)  


А зачем такое кол-во соединений с одним и тем-же сервером?


 
Luka.rus   (2006-04-22 16:35) [4]

2SergP
программа что-то вроде туннеля, из одной сети в другую. она принимает все входящие соединения, создает для каждого клиент и подключает его с основному серверу.


 
SergP ©   (2006-04-24 18:41) [5]


> Luka.rus   (22.04.06 16:35) [4]
> 2SergP
> программа что-то вроде туннеля, из одной сети в другую.
> она принимает все входящие соединения, создает для каждого
> клиент и подключает его с основному серверу.


А зачем массив создавать?... Т.е. зачем хранить где-то указатели если они либо не нужны, либо в нужный момент нужный указатель и так можно получить... ?
Кроме того используя статический массив количество соединений будет ограничено , а если использовать динамический - код будет большим...



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

Текущий архив: 2006.05.14;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.04 c
2-1146083600
chai
2006-04-27 00:33
2006.05.14
Работа с поинтерами: корректен ли этот код?


1-1141510569
Adolf
2006-03-05 01:16
2006.05.14
Запихнуть таблицу из MS Word в Delphi


8-1131913957
suslik-lamer
2005-11-13 23:32
2006.05.14
Синтезатор на Delphi


2-1146152867
fivtin
2006-04-27 19:47
2006.05.14
Переключение TabControl


1-1144157304
Кашперук Иван
2006-04-04 17:28
2006.05.14
Как сделать увеличение ширины колонки по dblclck