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

@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

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@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

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

Решение