TClientSocket и TServerSocket

@Wintersky · Регистрация: 29.01.2010

Студворк — интернет-сервис помощи студентам

У меня вопрос по неопытности, не могу разобраться... Дело в следующем. Пишу приложение (в Borland Developer Studio 2006) которое является одновременно и клиентом и сервером.
Приложение должно отправлять определенные данные на такие же клиенты, имеется адресная база, к которой происходит поочередное обращение. Сначала нужно попробовать обратится к первому адресу из списка, если не доступен то к следующему и т.д. Но тут возникает как раз проблема в том как организовать ожидание ответа. Ну и сразу тогда к конкретике и в чем собственно проблема.
Ниже моя недописаная функция которая создает подключение к сокет-серверу на указаном IP:

all_buf - глобальная переменная типа AnsiString.

all_buf получает значение IP-адреса сокет-сервера, если подключение произошло.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
void __fastcall TForm1::sock_clConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
Memo1->Lines->Add("Подключен к "+Socket->RemoteAddress+" "+Socket->SocketHandle);
all_buf=Socket->RemoteAddress;
}
 
***************САМА ФУНКЦИЯ****************
 
bool TForm1::Send_Pred (AnsiString ip)
{
   sock_cl->Host=ip;
   sock_cl->Open();
   for (int j = 0; j <= 13; j++) 
   {
      Sleep(500);
      if (all_buf==ip) 
      {
         Memo1->Lines->Add("Есть ответ от "+ip);
         return true;
      }
      if (j==12) 
      {
         Memo1->Lines->Add("Адрес "+ip+" не отвечает");
         return false; 
      }
   }
 
}

По задумке после функции sock_cl->Open(); запрос на подключение должен быть отправлен сокет-серверу, после чего мы ожидаем что произойдет подключение и переменная all_buf получит IP адрес. Но дело в том что sock_cl->Open(); выполняется только после того как функция закончит работу. Тоесть мы получаем сообщение о том что от сервера нет ответа и сразу за ним в Memo1 появляется сообщение о подключении к указанному IP.

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

P.S. Если не понятно написал, скажите где, я поясню что имеется ввиду, я тут впервые.

AntonChik · 29.01.2010, 08:51

сразу вопрос. ты ознакомился с примером чата (для BCB6), написанного на данных компонентах?
..\Program Files\Borland\CBuilder6\Examples\Interne t\Chat

p.s.
не будещее советую для кода использовать соответствующие тэги.

@Зоти Сергей · 29.01.2010, 13:36

Добавлено через 10 минут
Sleep(500 вам ничего не даст, потому, что блокирует поток).
По этому используйте после
Sleep(500)
Application->ProcessMessages();
Может помочь.

А еще лучше сделайте:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
void WaitTime(int mSec)
{
    int StartTime=GetTickCount();
    while(true)
        {
            Application->ProcessMessages();
            if(GetTickCount()-StartTime>mSec)
                    break;
        }
}
void __fastcall TForm1::sock_clConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
Memo1->Lines->Add("Подключен к "+Socket->RemoteAddress+" "+Socket->SocketHandle);
all_buf=Socket->RemoteAddress;
}
 
***************САМА ФУНКЦИЯ****************
 
bool TForm1::Send_Pred (AnsiString ip)
{
   sock_cl->Host=ip;
   sock_cl->Open();
   for (int j = 0; j <= 13; j++) 
   {
      WaitTime(500);
      if (all_buf==ip) 
      {
         Memo1->Lines->Add("Есть ответ от "+ip);
         return true;
      }
      if (j==12) 
      {
         Memo1->Lines->Add("Адрес "+ip+" не отвечает");
         return false; 
      }
   }
 
}

@Wintersky · 29.01.2010, 17:14 **[ТС]**

AntonChik
Да я видел этот пример, но там этот вопрос не затрагивался.

Зоти Сергей
Спасибо! Вроде бы работает так как нужно.

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

AntonChik 1090 / 588 / 121 Регистрация: 11.11.2008 Сообщений: 1,544
	29.01.2010, 08:51
	сразу вопрос. ты ознакомился с примером чата (для BCB6), написанного на данных компонентах? ..\Program Files\Borland\CBuilder6\Examples\Interne t\Chat p.s. не будещее советую для кода использовать соответствующие тэги. 0

@Wintersky 0 / 0 / 0 Регистрация: 29.01.2010 Сообщений: 3
	29.01.2010, 17:14 [ТС]
	AntonChik Да я видел этот пример, но там этот вопрос не затрагивался. Зоти Сергей Спасибо! Вроде бы работает так как нужно. 0