Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / молчит как червяк, давить пробовал = response = false / 1 сообщений из 1, страница 1 из 1
13.08.2003, 23:26
    #32235973
Marek Zdanowski
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
молчит как червяк, давить пробовал = response = false
ребята, я пытаюсь получит от него ответ но он молчит , помогите развезать язык, я знаю что он умеет говорить


1) одним словом вот апликуха, client /server
2) зверки конектються к сервачку
3) каждый клиентксий конект ето поток на стороне сервачка
4) сервачёк не промох фиксирует каждого клиента


все лкиентские конекшрны я обектом помещяю в TList descendant -а
потом например в цикле я их вытаскиваю из TList и пытаюсь им разослать сообщения напрмер командой WriteLn

грубо говоря я пишу в клиентский конекшон поток данных ну или как в моём жудком примере ето просто команда WriteLn

ближе к делу:

вот так я фиксирую каждого клиента конекшоного к сервачку
далее буду приводит тока неполные коды

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
  GetMem(NewClient,SizeOf(TClient));

  NewClient.Thread := AThread;
  NewClient.DNS    := AThread.Connection.LocalName;

  AThread.Data:=TObject(NewClient);

  with Clients.LockList do
  begin
    Add(NewClient);
    frm_main.Label2.Caption:=IntToStr(Count);
  end;




а вот так я пытаюсь разослать клиентам сообщения

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
  for i:= 0  to Clients.LockList.Count- 1  do
  begin
    ActClient:=Clients.LockList.Items[ 0 ];
    AThread:=ActClient.Thread;

    Listbox2.Items.Add(AThread.Connection.LocalName);
  
    Athread.connection.writeLn('bla bla bla');
  end;





но почемму то клиенты ни как на ето не реагируют, тоесть клиентская чясть не может инициировать хотябы event о том что сервер что то послал

чё здесь лучше сделать


благодарю
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / молчит как червяк, давить пробовал = response = false / 1 сообщений из 1, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]