Отладка кода Клиент/Сервер

@Skn_lamer · Регистрация: 26.03.2010

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

Нашел вот такой не сложный код сетевого чата.
Вопрос!:
Как быть с портами и адресами при запуске на одной машине?
Указывал порты разные. Пишет, что
"Windows Socket Error: обычно разрешешается одно использование адреса сокета (протокол/сетевой адрес/порт) (10048), API 'bind' "
Так вот, используются ClientSocket ServerSocket, как и где присвоить адрес Серверу и адрес Клиенту. И как быть с портом. что бы запустить клиент и сервер, на одном компьютере.

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
ServerSocket1->Active = true;
Button3->Enabled=false;
Button4->Enabled=true;
Memo1->Lines->Add("Create server complite");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Edit2->Text = ClientSocket1->Host;
Edit2->Text = ClientSocket1->Address;
ServerSocket1->Active = true;
 
Button2->Enabled = false;
Button4->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
Memo1->Lines->Add("Client connect complite");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,
      TCustomWinSocket *Socket)
{
Memo1->Lines->Add("Server connect complite");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (Edit1->Text =="")
        {
        ShowMessage("Зачем гонца с пустым письмом гонять?");
        return;
        }
Memo1->Lines->Add(Edit3->Text+":: "+Edit1->Text);
if (ServerSocket1->Active == true)
   {
    ServerSocket1->Socket->Connections[0]->
    SendText(Edit3->Text+":: "+Edit1->Text);
   }
else
   {
    ClientSocket1->Socket->SendText(Edit2->Text+":: "+Edit1->Text);
   }
Edit1->Text = "" ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
Memo1->Lines->Add(Socket->ReceiveText());
}
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
Memo1->Lines->Add(Socket->ReceiveText());
}
//---------------------------------------------------------------------------

@Зоти Сергей · 28.03.2010, 23:52

C++
1
2
3
4
5
6
        ServerSocket1->Port=3000;
        ServerSocket1->Active=true;
 
    ClientSocket1->Address="127.0.0.1";
        ClientSocket1->Port=3000;
        ClientSocket1->Active=true;

Сервер просто прослушивает порт и ждет входящих соединений.
Разговор с сервером начинает именно клиент, так что IP адрес серверу не задается.
Задается порт. Он должен совпадать с портом клиента.
Клиент привязывается по IP к серверу. Можете использовать как локальный IP (127.0.0.1 возвратный адрес говорящий, что сервер и клиент находятся на одной машине),
так и IP вашей сетевой карты.

@Skn_lamer · 29.03.2010, 00:03 **[ТС]**

а если программа используется в локалке, как клиент достучится до сервера не имея его ип?
..

@Зоти Сергей · 29.03.2010, 00:14

Вот-написал маленький примерчик обмена сообщениями.

@Зоти Сергей · 29.03.2010, 00:18

Сообщение от Skn_lamer

а если программа используется в локалке, как клиент достучится до сервера не имея его ип?
..

Никак. Можно конечно броадкаст пакеты на всю подсеть посылать. Но это уже другая тема. Клиент должен знать IP сервера в локальной сети.
Можно написать функцию, которая опрашивает все компьютеры в сети и получает их IP адреса, например

@Skn_lamer · 29.03.2010, 00:27 **[ТС]**

Так вот я и спрашиваю. Где у клиента указывается адрес до сервера? ..

@Зоти Сергей · 29.03.2010, 00:32

Перед вызовом ClientSocket1->Active=true;
Вводите IP адрес компьютера, на котором запущен сервер.
на вашем же компьютере это
ClientSocket1->Address="127.0.0.1";
ClientSocket1->Port=3000;
ClientSocket1->Active=true;

на удаленном-адрес удаленного компа. Например : 192.168.0.123

Если Вы запустите эту программку на одном из компьютерах в Вашей локальной сети и вместо 127.0.0.1 напишите IP адрес сетевой карты этого компьютера, то вы без проблем подключитесь. И нажав на Send To Server, то сервер примет сообщение.

@Skn_lamer · 29.03.2010, 00:35 **[ТС]**

Все )) понял, прошу прощение за полуночную тупость. Большое спасибо за код
..

@Accord-999 · 03.04.2010, 22:24

столкнулся на том же коде с той же проблемой, подключаюсь по localhost, порт одинаковый, вылезает
"Windows Socket Error: обычно разрешешается одно использование адреса сокета (протокол/сетевой адрес/порт) (10048), API 'bind' " хоть убейся, как проблему-то решить, друзья? работаю в билдере

@GaFBich · 04.04.2010, 22:20

Товарищи, вопрос такого характера, я сделал чат многопользовательский, алгоритмы мудренные, перегружают порой работой прием информации от клиентов, то есть когда клиент посылает серверу сообщение, оно парссируется, потом понимает что его надо обработать особым способом, запускает обработчик, а я это все реализовал в прослушки порта у сервера, то есть пока сервер обрабатывает текущее сообщение другое пришедшее он теряет, так как занят обработкой этого, я думаю надо делать через потоки? как правильно его объявить, это что то типа класса, который надо создавать по мере прихода сообщений тоесть

C++
1
2
3
4
5
6
7
8
9
10
11
class TGaf : public TThread
{            
private:
protected:
        ..//
public:
        ..
};
...//какие то операторы
 
TGaf *gaf_stream;  //объявляем класс потока

@Maikl Til · 01.05.2010, 21:51

Всем приветик. А что делать если нет TClientSoket а в заместо этого TTcpClient и TTcpServer Как их то воткнуть взамен этим ?????

@NiTan · 01.05.2010, 22:05

У тебя, наверное, стоит 2010? Если я не ошибаюсь, то TTcpClient - это практически то же самое что и TClientSoket, только в 2010 версии.

Добавлено через 1 минуту
Прочитал сообщение в вашей теме. Я не знаю. В 2010 Builder'е не работал.

Добавлено через 4 минуты
Если будет время, то прочитайте для общего пополнения знаний:http://www.rsdn.ru/article/dot... .xml#EQEAC

@Maikl Til · 01.05.2010, 23:01

Сообщение от Ni'Tan

У тебя, наверное, стоит 2010? Если я не ошибаюсь, то TTcpClient - это практически то же самое что и TClientSoket, только в 2010 версии.

Добавлено через 1 минуту
Прочитал сообщение в вашей теме. Я не знаю. В 2010 Builder'е не работал.

Добавлено через 4 минуты
Если будет время, то прочитайте для общего пополнения знаний:http://www.rsdn.ru/article/dot... .xml#EQEAC

Ты как всегда выручаешь ))) Спасибо

@Merzaffka · 05.07.2011, 10:38

Всем привет!

Пишу чат, так, чтобы сервер при нажатие кнопки "отправить" генерировал м-последовательность и каждый сгенерированный битик передавал клиенту, а тот принимал и выводил на экран.
Вот код:

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
char RegMprdFC=1, BitOutPdFC, RegMprmFC, BitOutPmFC;
unsigned int Channel=0xAB;
int i;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  ServerSocket1->Active = true ;
  Button3->Enabled = false ;
  Memo1->Lines->Add("Сервер создан") ;        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  Edit1->Text = ClientSocket1->Host ;
  Edit1->Text = ClientSocket1->Address  ;
  ClientSocket1->Active = true ;
  Button1->Enabled = false ;
  Button2->Enabled = false ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,
      TCustomWinSocket *Socket)
{
    Memo1->Lines->Add("Вы присоединены");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ServerSocket1Accept(TObject *Sender,
      TCustomWinSocket *Socket)
{
    Memo1->Lines->Add("Клиент присоединился");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    for (i=0;;i++)
 
    {
        BitOutPdFC=(RegMprdFC&0x01)^((RegMprdFC&0x8)>>3);
        RegMprdFC=(RegMprdFC>>1)|(BitOutPdFC<<3);
        //Channel=(Channel>>1)|(BitOutPdFC<<31);
        ServerSocket1->Socket->Connections[0]->BitOutPdFC;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
   RegMprmFC=(RegMprmFC>>1)|((BitOutPdFC)<<3);
   BitOutPmFC=(RegMprmFC&0x01)^((RegMprmFC&0x08)>>3);
   Memo1->Lines->Add(BitOutPmFC) ;
}
//---------------------------------------------------------------------------
[/CODE]
 
 
Но он выдаёт ошибку в 57 строчке

[C++ Error] Unit1.cpp(56): E2316 'BitOutPdFC' is not a member of 'TCustomWinSocket'[/CODE]

я так понимаю он не может передать битик BitOutPdFC, но не знаю как исправить(((
мб кто-нить сможет подсказать?

@Зоти Сергей · 05.07.2011, 22:14

C++
1
ServerSocket1->Socket->Connections[0]->SendBuf(&BitOutPdFC, sizeof(BitOutPdFC));

Добавлено через 2 минуты
Правда "зависон" гарантирован из за бесконечного цикла for (i=0;;i++)

Добавлено через 8 минут
Если Вы хотите постоянно посылать, и чтобы программа не зависла напрочь, то вставьте хотя бы в этом цикле
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
bool Finished;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Finished=false;
    for (i=0;;i++)
 
    {
        if(Finished)
              break;
        BitOutPdFC=(RegMprdFC&0x01)^((RegMprdFC&0x8)>>3);
        RegMprdFC=(RegMprdFC>>1)|(BitOutPdFC<<3);
        //Channel=(Channel>>1)|(BitOutPdFC<<31);
        ServerSocket1->Socket->Connections[0]->SendBuf(&BitOutPdFC, sizeof(BitOutPdFC));
        Application->ProcessMessages();
    }
   
}
 
 //еще одна кнопка
void __fastcall TForm1::Button2Click(TObject *Sender)
{
         Finished=true;
 }

@Merzaffka · 05.07.2011, 22:17

Спасибо!!!!

Мне надо чтоб север постоянно генерировал эти битики... может быть тогда как-нибудь можно сделать чтоб при нажатии кнопки генерировался один бит, а при приёме автоматически нажималась кнопка?

@Зоти Сергей · 06.07.2011, 01:19

При приеме на сервере или при приеме на стороне клиента нужно, чтобы кнопка нажималась?
Если на стороне клиента, то
нажмите просто на кнопку в функции чтения из сокета клиента:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
   RegMprmFC=(RegMprmFC>>1)|((BitOutPdFC)<<3);
   BitOutPmFC=(RegMprmFC&0x01)^((RegMprmFC&0x08)>>3); 
   Memo1->Lines->Add(BitOutPmFC) ;
 
   
   //только информацию нужно считать из сокета, а то он у вас "накроится".
   // например так
   int iNumberOfBytesToRead = Socket->ReceiveLength();
   BYTE * Buffer = new BYTE[iNumberOfBytesToRead];
   Socket->ReceiveBuf(Buffer, iNumberOfBytesToRead);
   //здесь можете использовать считанную информацию которая сейчас находится в Buffer
   delete [] Buffer;
   // и нажимаете кнопку создающую и отправляющую "битик" :)
   Button1->Click();
   
}

если на стороне сервера (скорей всего), то сделайте тоже самое только для функции чтения на стороне сервера (ServerSocket1Read). Только у клиента тогда Button1->Click() удалите.

Еще лучше объясните сам принцип коммуникации. Кто, что кому передает, чтобы создать в голове картинку.

Только for (i=0;;i++) удалите обязательно

@Merzaffka · 06.07.2011, 11:55

Сделала так.... но ничего всё равно не передаётся...((

ну вообще это должен быть приёмник -передатчик. Сервер генерирует битик и отсылает клиенту, тот принимает и выводит на экран. Потом ещё один бит и т.д., при этом я не должна каждый раз нажимать на кнопку.
т.е. кнопка должна нажиматься автоматически на стороне сервера

@Зоти Сергей · 07.07.2011, 00:41

Вот, накатал маленький примерчик с битиками..

Имена переменных, конечно, было бы неплохо исправить - например Button1 в BtnServerOnOff и.т.д.
Если что непонятно - спрашивайте.

@Merzaffka · 07.07.2011, 10:47

Спасибо большое!!!! В принципе всё понятно

Только надо чтобы битик принимался и перед тем как вывести его на экран, прогонялся снова через регистр

Code
1
2
RegMprmFC=(RegMprmFC>>1)|((BitOutPdFC)<<3);
BitOutPmFC=(RegMprmFC&0x01)^((RegMprmFC&0x08)>>3);

и выводился уже BitOutPmFC

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@Skn_lamer 22 / 21 / 6 Регистрация: 26.03.2010 Сообщений: 164 Записей в блоге: 1
	29.03.2010, 00:03 [ТС]
	а если программа используется в локалке, как клиент достучится до сервера не имея его ип? .. 0

@Skn_lamer 22 / 21 / 6 Регистрация: 26.03.2010 Сообщений: 164 Записей в блоге: 1
	29.03.2010, 00:27 [ТС]
	Так вот я и спрашиваю. Где у клиента указывается адрес до сервера? .. 0

@Зоти Сергей 230 / 227 / 65 Регистрация: 18.12.2009 Сообщений: 316
	29.03.2010, 00:32
	Перед вызовом ClientSocket1->Active=true; Вводите IP адрес компьютера, на котором запущен сервер. на вашем же компьютере это ClientSocket1->Address="127.0.0.1"; ClientSocket1->Port=3000; ClientSocket1->Active=true; на удаленном-адрес удаленного компа. Например : 192.168.0.123 Если Вы запустите эту программку на одном из компьютерах в Вашей локальной сети и вместо 127.0.0.1 напишите IP адрес сетевой карты этого компьютера, то вы без проблем подключитесь. И нажав на Send To Server, то сервер примет сообщение. 1

@Skn_lamer 22 / 21 / 6 Регистрация: 26.03.2010 Сообщений: 164 Записей в блоге: 1
	29.03.2010, 00:35 [ТС]
	Все )) понял, прошу прощение за полуночную тупость. Большое спасибо за код .. 0

@Accord-999 0 / 0 / 1 Регистрация: 03.04.2010 Сообщений: 13
	03.04.2010, 22:24
	столкнулся на том же коде с той же проблемой, подключаюсь по localhost, порт одинаковый, вылезает "Windows Socket Error: обычно разрешешается одно использование адреса сокета (протокол/сетевой адрес/порт) (10048), API 'bind' " хоть убейся, как проблему-то решить, друзья? работаю в билдере 0

@Maikl Til 12 / 12 / 1 Регистрация: 19.03.2010 Сообщений: 71
	01.05.2010, 21:51
	Всем приветик. А что делать если нет TClientSoket а в заместо этого TTcpClient и TTcpServer Как их то воткнуть взамен этим ????? 0

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887
	01.05.2010, 22:05
	У тебя, наверное, стоит 2010? Если я не ошибаюсь, то TTcpClient - это практически то же самое что и TClientSoket, только в 2010 версии. Добавлено через 1 минуту Прочитал сообщение в вашей теме. Я не знаю. В 2010 Builder'е не работал. Добавлено через 4 минуты Если будет время, то прочитайте для общего пополнения знаний:http://www.rsdn.ru/article/dot... .xml#EQEAC 0

@Merzaffka 0 / 0 / 0 Регистрация: 17.02.2011 Сообщений: 29
	05.07.2011, 22:17
	Спасибо!!!! Мне надо чтоб север постоянно генерировал эти битики... может быть тогда как-нибудь можно сделать чтоб при нажатии кнопки генерировался один бит, а при приёме автоматически нажималась кнопка? 0

@Merzaffka 0 / 0 / 0 Регистрация: 17.02.2011 Сообщений: 29
	06.07.2011, 11:55
	Сделала так.... но ничего всё равно не передаётся...(( ну вообще это должен быть приёмник -передатчик. Сервер генерирует битик и отсылает клиенту, тот принимает и выводит на экран. Потом ещё один бит и т.д., при этом я не должна каждый раз нажимать на кнопку. т.е. кнопка должна нажиматься автоматически на стороне сервера 0

Отладка кода Клиент/Сервер

Решение