VPF::чат - Форум программистов

Allexander

Дата 7.11.2006, 11:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 40
Регистрация: 14.6.2006

Репутация: нет
Всего: нет

Уважаемые подскажите как реализовать Internet чат. написал один в локалке все отлично работает а в инете нехотит. Если можете обьясните почему так происходит и если есть ссылки или статьи просьба поделитесь smile

Благодарю за любую помощь

Partizan

Дата 7.11.2006, 12:00 (ссылка)

(нет голосов)

Загрузка ...

Let's do some .NET

Профиль
Группа: Модератор
Сообщений: 2828
Регистрация: 19.12.2005
Где: Санкт-Петербург

Репутация: 7
Всего: 67

думаю просто твой чат не в состоянии работать с разными подсетями....поэтому в инете и не пашет....

--------------------

СУВ,
Partizan.

FFFFFFF7

Дата 7.11.2006, 12:30 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 167
Регистрация: 13.10.2006

Репутация: 2
Всего: 2

Allexander, нужно знать как ты реализовывал чат. Если на сокетах и по-умному, то ни каких

Цитата(Partizan @ 7.11.2006, 12:00

)

не в состоянии работать с разными подсетями

не будет.
//мне вот не понятно - при чем тут "разные подсети"?
Как идет построение списка пользователей? Каким образом пользователи вообще подключаются к чату?

--------------------

Да помоги кодеру, а значит - ближнему своему!

Allexander

Дата 7.11.2006, 12:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 40
Регистрация: 14.6.2006

Репутация: нет
Всего: нет

рассылка сообщений пользователям идет так
for(int icon=0; icon < ServerSocket1->Socket->ActiveConnections; icon++)
{
ServerSocket1->Socket->Connections[icon]->SendText(Edit1->Text);
}
тоесть он просто перебирает все соединения
Пользователи подключаються по Ip и номеру порта

FFFFFFF7

Дата 7.11.2006, 13:29 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 167
Регистрация: 13.10.2006

Репутация: 2
Всего: 2

Цитата(Allexander @ 7.11.2006, 12:38

)

просто перебирает все соединения

значит, у тебя System-Wide мониторинг подключений строится? Иначе каг же ты создаешь "подключения"?

Цитата(Allexander @ 7.11.2006, 12:38

)

Пользователи подключаються по Ip и номеру порта

у сервака должен быть постоянный ИП.
___
Предполагаю, что косяк начинается именно с создания этого самого подключения. Вот и вопрос - каг создаются подключения?

Цитата(FFFFFFF7 @ 7.11.2006, 12:30

)

Если на сокетах и по-умному,

Это не про компонент TServerSocket, а про Winsock (API).
Опиши каг у тебя построено создание "подключение", как коннектятся пользователи. Можешь без кода, но саму суть.

--------------------

Да помоги кодеру, а значит - ближнему своему!

Allexander

Дата 8.11.2006, 12:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 40
Регистрация: 14.6.2006

Репутация: нет
Всего: нет

вот как я делал
сервер:

Код


#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::Button3Click(TObject *Sender)
{
ServerSocket1->Active = false;
ServerSocket1->Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)
{
int icon;
Edit1->Text=Edit2->Text+":> "+Edit1->Text;
for(icon=0; icon < ServerSocket1->Socket->ActiveConnections; icon++)
{
 ServerSocket1->Socket->Connections[icon]->SendText(Edit1->Text);
}
Memo1->Lines->Add(Edit1->Text);
Edit1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Memo1->Lines->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
     int n =ServerSocket1->Socket->ActiveConnections;
     Form1->Caption=n+"Client connected";   
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
String s;
int icon;
s=IntToStr(Socket->SocketHandle)+">"+Socket->ReceiveText();
for(icon=0; icon<ServerSocket1->Socket->ActiveConnections; icon++)
{
if(ServerSocket1->Socket->Connections[icon]->SocketHandle !=Socket->SocketHandle)
{
ServerSocket1->Socket->Connections[icon]->SendText(s);
}
}
Memo1->Lines->Add(s);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ServerSocket1ClientDisconnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
if(ServerSocket1->Socket->ActiveConnections==0)
Form1->Caption="No Clients";
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button1Click(TObject *Sender)
{
ServerSocket1->Port=StrToInt(Edit3->Text);
ServerSocket1->Active=true;
}

клиент:

Код


void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
RichEdit1->Lines->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  ClientSocket1->Active=false;      
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
  Edit1->Text=Edit2->Text+" :> "+ Edit1->Text;
  ClientSocket1->Socket->SendText(Edit1->Text);
  RichEdit1->Lines->Add(Edit1->Text);
  Edit1->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
RichEdit1->Lines->Add(Socket->ReceiveText());
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{

ClientSocket1->Address=Edit3->Text;
ClientSocket1->Active=true;
}
//--------------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »