Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
1 / 1 / 0
Регистрация: 26.03.2013
Сообщений: 114
1

чат в с++ билер

17.09.2013, 16:14. Показов 860. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
здравствуйте у меня есть код чата на с++ билдер он компилится но не работает можете пожалуйста сказать где ошибка
Сервер
C++ (Qt)
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
//---------------------------------------------------------------------------
 
#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::Button1Click(TObject *Sender)
{
  TcpServer1->Active=true;
  TcpServer1->RemoteHost="127.0.0.1";
  TcpServer1->RemotePort=1024;
  Memo1->Lines->Add("сервер включон");
  Button1->Enabled=false;
  Button2->Enabled=1;
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  TcpServer1->Active=true;
  Memo1->Lines->Add("сервер выключон");
  Button1->Enabled=1;
  Button2->Enabled=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
     TcpServer1->Sendln(Edit2->Text+":"+Edit1->Text);
     Memo1->Lines->Add(Edit2->Text+":"+Edit1->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TcpServer1Accept(TObject *Sender, TCustomIpClient *ClientSocket)
 
{
    TcpServer1->WaitForData(30000);
    Memo1->Lines->Add(Memo1->Lines->Add(TcpServer1->Receiveln()));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TcpServer1Listening(TObject *Sender)
{
    Memo1->Lines->Add("Клиент присоединился");
}
//---------------------------------------------------------------------------
клиент
C++ (Qt)
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
//---------------------------------------------------------------------------
 
#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::Button1Click(TObject *Sender)
{
     TcpClient1->Active=1;
     TcpClient1->Connect();
     TcpClient1->RemoteHost="127.0.0.1";
     TcpClient1->RemotePort=1024;
     Button1->Enabled=0;
     Button2->Enabled=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
     TcpClient1->Active=0;
     TcpClient1->Disconnect();
     Button1->Enabled=1;
     Button2->Enabled=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    TcpClient1->Sendln(Edit2->Text+":"+Edit1->Text);
    Memo1->Lines->Add(Edit2->Text+":"+Edit1->Text);
}
//---------------------------------------------------------------------------
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.09.2013, 16:14
Ответы с готовыми решениями:

Чат или видео чат
Создал тему здесь, т.к. ближайшего раздела не вижу. Хотелось бы понять как установить видеочат,...

Чат
Добрый день всем. Ребята помогите разобраться с кодом. Написал сервер и клиент первое...

Чат
Развлекайтесь, развлекайтесь. Интернет зачем ещё нужен. А я пойду... хернёй помаюсь какой-нибудь...

Чат на c++
Хотел бы попросить, объясните мне как написать чат. Хотел бы также найти готовый, что бы посмотреть...

3
1090 / 588 / 121
Регистрация: 11.11.2008
Сообщений: 1,544
18.09.2013, 06:03 2
порт менять пробовал? кинь exe-шники, у себя проверю, компилить лень
1
1 / 1 / 0
Регистрация: 26.03.2013
Сообщений: 114
18.09.2013, 21:18  [ТС] 3
AntonChik, вот лови
Вложения
Тип файла: rar чатт.rar (2.09 Мб, 20 просмотров)
0
1090 / 588 / 121
Регистрация: 11.11.2008
Сообщений: 1,544
19.09.2013, 05:28 4
у меня работает, но криво.
сервер получает от клиента сообщение, если его сначала отправить, а потом нажать "отсоединиться", что странновато)
а в коде клиента вообще нет прослушки сервера, так что он только отправляет
разбирайся)

Не по теме:

и пишется кстати "включЕн".

0
19.09.2013, 05:28
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.09.2013, 05:28
Помогаю со студенческими работами здесь

Чат
Доброго времени и суток !!! Я хотел спросить: Можно ли сделать чат на файлах(без sql), но чтоб...

Чат
Посоветуйте пожалуйста чат с возможностями желательно бесплатный(если платный то хоть напишите...

Чат по ip
как реализовать чат по ip?

Чат
Здравствуйте, нужна помощь. Хочу создать чат по типу аськи, конешно так рассчитаный на несколько...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru