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

@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());
}
//---------------------------------------------------------------------------

@Merzaffka · 12.07.2011, 11:25

Только я не знаю как это сделать((

Как сделать чтобы клиент принимал битики, записывал их в какую-то переменную BitOutPdFC, а потом проводил операции

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

и выводил в Memo1 уже BitOutPmFC?

Добавлено через 28 минут
я сделала вот так:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    if(ServerSocket1->Active&&ServerSocket1->Socket->ActiveConnections)
        {
            static char RegMprdFC = 1;
            char BitOutPdFC=(RegMprdFC&0x01)^((RegMprdFC&0x8)>>3);
            RegMprdFC=(RegMprdFC>>1)|(BitOutPdFC<<3);
            ServerSocket1->Socket->Connections[0]->SendBuf(&BitOutPdFC, sizeof(BitOutPdFC));
 
        }
        else
        {
            Timer1->Enabled=false;
                Button3->Tag=0;
                Button3->Caption="Ïîäêëþ÷èòüñÿ ê ñåðâåðó";
        }
}

Code
1
2
3
4
5
6
7
8
9
10
void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
 
 
{       static char RegMprmFC = 1;
        char BitPd= ReceiveBuf(&BitOutPdFC, sizeof(BitOutPdFC));
        RegMprmFC=(RegMprmFC>>1)|((BitPd)<<3);
        BitOutPmFC=(RegMprmFC&0x01)^((RegMprmFC&0x08)>>3);
    Memo1->Lines->Add(BitOutPmFC);
}

но много ошибок(((

Новые блоги и статьи Все статьи Все блоги /
сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным? anaschu 12.07.2026 Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .	сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию. anaschu 12.07.2026 Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .	Сукцессия 26. Мат модель создана. anaschu 12.07.2026 Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .	Решил проблему с ошибкой пагинации сообщений с сервера на алгоритме обхода дерева "Эстафета хвоста". Hrethgir 12.07.2026 Проблема была в том, что удалялась именно новая кнопка, а не старая. Ни один ИИ не обнаружил это, а сам я смог только когда с работой стало попроще и когда заставил работать будущее автономное. . .
сукцессия 25. Хронология ошибок anaschu 12.07.2026 # От 50-тонного гриба до устойчивого леса: хроника ошибок при построении модели вековой сукцессии микоризы ## О чём эта статья В процессе построения ОДУ-модели (система дифференциальных. . .	сукцессия 24. Промежуточное общее описание модели anaschu 12.07.2026 Хендофф: модель АМ→ЭКМ сукцессии микоризы (ризосфера, 50 лет) Содержание проекта Симуляция вековой (50 лет) экологической сукцессии в почве леса Основные участники: АМ-гриб, ЭКМ-гриб,. . .	сукцессия 23. Более физиологичная физиология, более экологичная экология, более диффурные диффуры. anaschu 12.07.2026 Что реально нашли и починили за эти 5 часов Правило Линдемана (КПД конверсии сахара в тело, kEff) — раньше 100% полученного углерода шло прямо в биомассу гриба; теперь только kEff=0. 5 (после. . .	сукцессия 22. От артефактов к физиологии: калибровка агентной модели грибной сукцессии для воспроизведения сезонной динамики и pH-плато anaschu 11.07.2026 Аннотация В данной работе представлена калибровка агентной модели динамики грибных сообществ (fungal-succession), направленная на устранение нефизичных артефактов (коллапс биомассы, мгновенное. . .