Главная страница
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
15-1145286125
Yegorchic
2006-04-17 19:02
2006.05.14
Дневники


15-1145590338
DelphiN!
2006-04-21 07:32
2006.05.14
Запустить файл на удаленном компе, имея доступ только к D$


1-1144339131
Isaev
2006-04-06 19:58
2006.05.14
Проблема перетаскивания в компоненте TTreeView


1-1144318196
Kolan
2006-04-06 14:09
2006.05.14
Работа с компонентом AsyncProfessional


4-1140444642
salexn
2006-02-20 17:10
2006.05.14
Написание Native NT приложения