Форум программистов, компьютерный форум, киберфорум
C++ Builder
Форум программистов и сисадминов Киберфорум > Форум программистов > C/C++ > C++ > C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 21.03.2016
Сообщений: 7

Клиент-сервер для чат-а - C++ Builder

01.04.2016, 20:34. Показов 2268. Ответов 1
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Помогите пожалуйста начинающему программисту сделать клиент локального чата. Код чата есть, пожалуйста сделайте такой же клиент как и на скрине)
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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429

Приложение 1
Исходный код главной формы
 
 
#include <vcl.h>
#pragma hdrstop
 
#include "Main.h"
#include "About.h"
#include "settingsform.h"
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
    : TForm(Owner)
{
TcpServer->Port = 1111;    //Порт по умолчанию
TcpClient->Port = 1111;
TcpClient->Address = "127.0.0.1"; //по умолчанию свой ип
}
//---------------------------------------------------------------------------
 
 
void __fastcall TMainForm::ChatStartClick(TObject *Sender)
{
TcpClient->Active = false;
TcpServer->Active = false;
TcpServer->Active = true;
ChatStart->Enabled = false;
ChatDisc->Enabled = true;
ChatConnect->Enabled = false;
 
StatusBar->SimpleText = "Ожидание соединения...";
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::ChatConnectClick(TObject *Sender)
{    TcpServer->Active = false;
     if (TcpClient->Active)
         TcpClient->Active = false;
 
 //  InputQuery("Ввод адреса сервера", "Введите ip сервера",
 //             TcpClient->Address);
     TcpClient->Active = true;
     ChatDisc->Enabled = true;
    ChatConnect->Enabled = false;
}
//---------------------------------------------------------------------------
 
 
void __fastcall TMainForm::btSendClick(TObject *Sender)
{
if (TcpClient->Active) {
    TcpClient->Socket->SendText(edNick->Text + "::" + edMsg->Text);
    writeSended(TcpClient->Socket->RemoteHost);
}else if (TcpServer->Active) {
        Sendvsem(edNick->Text + "::" + edMsg->Text);
        Styletext(edNick->Text + "::" + edMsg->Text);
 
      }
edMsg->Clear();
 
 
 
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::TcpClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
Styletext(Socket->ReceiveText());
StatusBar->SimpleText = "Получение сообщение";
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::ChatDiscClick(TObject *Sender)
{
 
TcpClient->Close();
ChatDisc->Enabled = false;
ChatStart->Enabled = true;
ChatConnect->Enabled = true;
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::ChatExitClick(TObject *Sender)
{
 MainForm->Close();
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TMainForm::SpeedSettClick(TObject *Sender)
{
Settings->ShowModal();
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::TcpClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
     Styletext("^7" + Time().TimeString() + " Присоединились к " + Socket->RemoteAddress);
}
 
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::TcpServerClientDisconnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
 
         Sendvsem("%B" + Time().TimeString() + " " + Socket->RemoteAddress + " покинул чат." );
         Styletext("%B" + Time().TimeString() + " " + Socket->RemoteAddress + " покинул чат.");
 
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Styletext(AnsiString wtext)
{
   bool est;
   do {
     est = wtext[1] == '%' || wtext[1] == '^';
     if (est) {
       AnsiString fc = wtext.SubString(1,2);
       if (fc == "%B")
         MainForm->reMsg->SelAttributes->Style = MainForm->reMsg->SelAttributes->Style << fsBold;
       else if (fc == "%I")
         MainForm->reMsg->SelAttributes->Style = MainForm->reMsg->SelAttributes->Style << fsItalic;
       else if (fc == "^1")
         MainForm->reMsg->SelAttributes->Color = clRed;
       else if (fc == "^2")
         MainForm->reMsg->SelAttributes->Color = clGreen;
       else if (fc == "^3")
         MainForm->reMsg->SelAttributes->Color = clYellow;
       else if (fc == "^4")
         MainForm->reMsg->SelAttributes->Color = clBlue;
       else if (fc == "^5")
         MainForm->reMsg->SelAttributes->Color = clAqua;
       else if (fc == "^6")
         MainForm->reMsg->SelAttributes->Color = clFuchsia;
       else if (fc == "^7")
         MainForm->reMsg->SelAttributes->Color = clWhite;
       else if (fc == "^8")
         MainForm->reMsg->SelAttributes->Color = clBlack;
       else if (fc == "^9")
         MainForm->reMsg->SelAttributes->Color = clGray;
       wtext.Delete(1,2);
     }
   } while (est);
   MainForm->reMsg->Lines->Add(wtext);
   MainForm->reMsg->SelAttributes->Assign(MainForm->reMsg->DefAttributes);
}
 
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::TcpClientConnecting(TObject *Sender,
      TCustomWinSocket *Socket)
{
 Styletext("^7" + Time().TimeString() + " Присоединяемся к " + Socket->RemoteAddress + "...");
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::TcpClientDisconnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
     Styletext("%B" + Time().TimeString() + " Вы отсоединены от сервера на " + Socket->RemoteHost);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Sendvsem(const AnsiString text)
{
   // ** Сервер посылает всем **
   AnsiString to;
   for (int i = 0; i < MainForm->TcpServer->Socket->ActiveConnections; i++) {
     to = MainForm->TcpServer->Socket->Connections[i]->RemoteHost;
     writeConnecting(to);
     TcpServer->Socket->Connections[i]->SendText(text);
     writeSended(to);
   }
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::TcpServerClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
         AnsiString str = Socket->ReceiveText();
         Sendvsem(str);
         // а потом просто выводим:
         Styletext(str);
         if (TrayIcon1->Visible) {
            TrayIcon1Click(this) ;
         }
 
 
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::writeConnecting(const AnsiString fto)
{
     StatusBar->SimpleText  = "Присоединяемся " + fto + " ...";
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::writeSended(const AnsiString fto)
{
    StatusBar->SimpleText = "Сообшение отправлено к " + fto;
}
 //---------------------------------------------------------------------------
 
void __fastcall TMainForm::N6Click(TObject *Sender)
{
reMsg->Clear();
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::N7Click(TObject *Sender)
{
   if (SaveDialog1->Execute()) {
     try {
       reMsg->Lines->SaveToFile(SaveDialog1->FileName);
     }
     catch(...) {
       Application->MessageBox("Не могу сохранить файл!", "Ошибка!", MB_ICONSTOP);
     }
   }
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::N12Click(TObject *Sender)
{
   edMsg->Clear();
}
//---------------------------------------------------------------------------
 
 
void __fastcall TMainForm::EditWordWrap1Click(TObject *Sender)
{
reMsg->WordWrap = !reMsg->WordWrap;
EditWordWrap1->Checked = reMsg->WordWrap;
if (reMsg->WordWrap)  reMsg->ScrollBars = ssVertical;
else                  reMsg->ScrollBars = ssBoth;
}
//---------------------------------------------------------------------------
 
 
void __fastcall TMainForm::TcpClientError(TObject *Sender,
      TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
Styletext("^1Ошибка присоединения " + Socket->RemoteHost);   
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::TcpServerClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
Styletext("^7" + Time().TimeString() + " Установлена связь с " + Socket->RemoteHost);
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::TcpServerAccept(TObject *Sender,
      TCustomWinSocket *Socket)
{
Styletext("^7" + Time().TimeString() + " Присоединился " + Socket->RemoteHost);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::AddStyle(const AnsiString st, const bool isDown)
{
  // ** Добавляем/убираем B и I **
  if (! edNick->Text.AnsiPos(st) && isDown){ // % нет и батон нажат
    // добавляем
    AnsiString tmp = st + edNick->Text;
    edNick->Text = tmp;
  }
  else if (edNick->Text.AnsiPos(st) && ! isDown){ // % есть и батон отжат
    // убираем
    AnsiString tmp = edNick->Text;
    tmp.Delete(tmp.AnsiPos(st),2);
    edNick->Text = tmp;
  }
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::sbBClick(TObject *Sender)
{
  AddStyle("%B",sbB->Down);
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::sbIClick(TObject *Sender)
{
  AddStyle("%I",sbI->Down);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::cbeColorSelect(TObject *Sender)
{
  int color_number = cbeColor->ItemIndex + 1;
  if (! edNick->Text.AnsiPos('^')){
    // если ^ нет
    AnsiString tmp = "^" + IntToStr(color_number) + edNick->Text;
    edNick->Text = tmp;
  }
  else {
    // если ^ есть
    AnsiString tmp = edNick->Text;
    int cpos = tmp.AnsiPos('^');
    if (cpos)
      tmp.Delete(cpos,2);
    edNick->Text = "^" + IntToStr(color_number) + tmp;
  }
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::FormDeactivate(TObject *Sender)
{
MainForm->Visible=false;
TrayIcon1->Visible=true;
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::TrayIcon1Click(TObject *Sender)
{
Visible=true;
TrayIcon1->Visible=false;
}
//---------------------------------------------------------------------------
DWORD CALLBACK ThreadFunc(void *p)
{
        for (int i = 5; i <= 120; i+=1)
        MainForm->edNick->Width = i;
        return 0;
}
//---------------------------------------------------------------------------
DWORD CALLBACK ThreadFunc2(void *p)
{
    for (int i = 120; i <= 5; i-=1)
        MainForm->edNick->Width = i;
    MainForm->edNick->Visible = false;
    return 0;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::StaticText1Click(TObject *Sender)
{
 lbNick->Visible = false;
 if (!edNick->Visible) {
    edNick->Visible = true;
    DWORD ThreadId;
    HANDLE thread = CreateThread(0,0,ThreadFunc,0,0,&ThreadId);
//  тут проверка нет-нет бывает тоже(но щас нету)
    edNick->SelectAll() ;
    edNick->SetFocus();
 }
}
    //---------------------------------------------------------------------------
 
void __fastcall TMainForm::edNickChange(TObject *Sender)
{
DWORD ThreadId;
HANDLE thread = CreateThread(0,0,ThreadFunc2,0,0,&ThreadId);
 
 
AnsiString str= edNick->Text;
    if (str.Length() == 0) {
        str = "Anonym";
    }
     if ((str[1] == '%') || (str[1] == '^')) {
        str.Delete(1,2);
     }
lbNick->Caption = str;
lbNick->Visible = true;
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::HelpAbout1Click(TObject *Sender)
{
FormAbout->ShowModal();
}
//---------------------------------------------------------------------------
 
 
void __fastcall TMainForm::edMsgKeyPress(TObject *Sender, char &Key)
{
  if (Key == 13) {
      btSendClick(0);
  }
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::ReciveCommand(AnsiString message)
{
//if (message[1] == '#') {
    // -- Выделяем  Nick и IP --
//   message.Delete(1,2);
     int vhod = message.AnsiPos('/'); // copy до '/'
     AnsiString Nick = message.SubString(3,vhod - 3);
     AnsiString IP = message.SubString(vhod + 1,message.Length());
       //---------Joining---------
     if (message[2] == 'j'){
         ClientJoin(Nick,IP);
         if (isServer) Sendvsem(message);
}
void __fastcall TMainForm::ScrollBar1Change(TObject *Sender)
{
AlphaBlendValue = 255-(ScrollBar1->Position*5);
Label18->Caption = FloatToStr(floor(AlphaBlendValue/2.55))+'%';
} 
 
Приложение 2
Исходный код формы настроек.
TFormAbout *FormAbout;
//---------------------------------------------------------------------------
__fastcall TFormAbout::TFormAbout(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormAbout::StaticText3Click(TObject *Sender)
{
 ShellExecute(FormAbout->Handle,NULL,"http://www.spray.ahty.ru",NULL,NULL,SW_RESTORE);
}
//----------------------------
 
Приложение 3
Исходный код формы «О программе»
 
void __fastcall TSettings::BitBtn2Click(TObject *Sender)
{
MainForm->TcpClient->Active = false;
MainForm->TcpServer->Active = false;
MainForm->TcpClient->Address = edIpAddr->Text;
}
//---------------------------------------------------------------------------
Миниатюры
Клиент-сервер для чат-а - C++ Builder   Клиент-сервер для чат-а - C++ Builder   Клиент-сервер для чат-а - C++ Builder  

Клиент-сервер для чат-а - C++ Builder   Клиент-сервер для чат-а - C++ Builder  
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 01.04.2016, 20:34
Ответы с готовыми решениями:

Клиент-сервер для чат-а
Привет всем. Я лично перешел на Qt, но у меня шас конкретная задания в билдер. Как можно написать приложение типо Чат-а? ...

Клиент-сервер чат на C++/C#
Здравствуйте, написал клиент-серверный чат, клиент на c#, сервер на консольном с++, но с winapi тоже В общем, дело в том, что все хорошо,...

Чат клиент-сервер на сокетах
и все таки появилась еще одна проблема раньше все сообщения от клиентов просто оставались на сервере теперь я хотел бы чтобы сервер...

1
0 / 0 / 0
Регистрация: 21.03.2016
Сообщений: 7
02.04.2016, 10:46  [ТС]
Я сделал клиент но мне выдает ошибки. Я скину чат может кто поможет, компоненты которые использую уже находится только не так как должны быть.
Вложения
Тип файла: rar чат с++.rar (22.1 Кб, 48 просмотров)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 02.04.2016, 10:46
Помогаю со студенческими работами здесь

Клиент-сервер чат
Всем доброго времени суток. Нужно организовать клиент-серверный чат через ServerSocket, ClientSocket. Работать должен следующим образом,...

Чат клиент-сервер
Народ, у меня похожая проблема. Написал чат на JAVA, естественно есть одна часть єто клиент и другая часть єто приложение (не апплет),...

Клиент-сервер чат на C++/C#
Здравствуйте, написал клиент-серверный чат, клиент на c#, сервер на консольном с++, но с winapi тоже В общем, дело в том, что все хорошо,...

Онлайн чат. Сервер+клиент
Всем доброго времени суток! У меня возникла идея сделать чат на Android. Сделал для пк, используя .NET Framework 2.0. Теперь хочу...

Онлайн чат. Сервер+клиент
Всем привет! Мне захотелось сделать свой онлайн чат для своих друзей, но так как я любитель в C#, я никогда не делал чат толком. Все...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
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
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru