Для
идентификации рабочей станции протоколы IPX и SPX используют номер сети, адрес
станции в сети и сокет. Адрес станции определяется на аппаратном уровне и
представляет собой число длиной 6 байт. Номер сети занимает 4 байта. Сокеты
выделяются динамически драйвером протокола IPX или могут быть получены в
Novell.
Протокол
NETBIOS использует другой механизм адресации станций и программ. Для адресации
станции используются имена размером 16 байт. Каждая станция имеет одно постоянное
имя (permanent name), которое образуется из аппаратного адреса добавлением
к нему слева десяти нулевых байт. Кроме постоянного имени протокол NETBIOS
позволяет добавлять (и удалять) обычные имена и групповые имена. Обычные
имена служат для идентификации рабочей станции, групповые могут служить для
посылки пакетов одновременно нескольким станциям в сети. Постоянное имя удалить
нельзя, так как оно полностью определяется аппаратным обеспечением станции.
При
добавлении обычного имени протокол NETBIOS опрашивает всю сеть для проверки
уникальности имени. Групповое имя может быть одинаковое на нескольких станциях,
поэтому при добавлении группового имени опрос сети не выполняется.
После
добавления нового имени этому имени присваивается так называемый номер имени
(name number), который используется для передачи данных по сети.
Сравнивая
методы адресации, используемые протоколами IPX/SPX и NETBIOS, нетрудно
заметить, что метод адресации протокола NETBIOS более удобен. Вы можете
адресовать данные не только одной станции (как в IPX и SPX) или всем станциям
сразу (как в IPX), но и группам станций, имеющим одинаковое групповое имя. Это
может быть удобно, если в сети работают несколько групп пользователей, которые
интенсивно обмениваются данными между собой.
Другим
преимуществом схемы адресации протокола NETBIOS перед схемой адресации
протоколов IPX/SPX можно считать отсутствие необходимости получать в фирме
Novell свой собственный номер сокета для идентификации вашего программного
обеспечения. Вы можете придумать свое собственное уникальное групповое имя,
включающее, например, название программы и вашей фирмы, и использовать его для
работы по схеме клиент-сервер.
Канал Mailslot создается серверным
процессом с помощью специально предназначенной для этого функции CreateMailslot. После создания серверный процесс
получает идентификатор канала Mailslot.
Пользуясь этим идентификатором, сервер может читать сообщения, посылаемые в
канал клиентскими процессами. Однако сервер не может выполнять над каналом Mailslot операцию записи, так как этот канал
предназначен только для односторонней передачи данных - от клиента к серверу.
При ошибке функцией CreateMailslot возвращается значение
INVALID_HANDLE_VALUE. Код ошибки можно определить
при помощи функции GetLastError.
Прежде чем приступить к работе с
каналом Mailslot, клиентский процесс должен
его открыть. Для выполнения этой операции следует использовать функцию
CreateFile. Запись сообщений в канал Mailslot выполняет клиентский
процесс, вызывая для этого функцию WriteFile.
Серверный процесс может читать
сообщения из созданного им канала Mailslot при помощи функции ReadFile.
Заметим, что перед выполнением операции чтения следует проверить состояние
канала Mailslot. Если в нем нет сообщений,
то функцию ReadFile вызывать не следует. Для
проверки состояния канала вы должны воспользоваться функцией GetMailslotInfo. С помощью функции
SetMailslotInfo серверный процесс может
изменить время ожидания для канала Mailslot уже после его создания.
Исходники
Main.cpp
#include <vcl.h>
#include <stdlib.h>
#include <StrUtils.hpp>
#pragma hdrstop
#include "Main.h"
#include "Podkluch.h"
#include "GameParam.h"
#include "About.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link
"LMDCustomBevelPanel"
#pragma link
"LMDCustomControl"
#pragma link
"LMDCustomPanel"
#pragma link
"LMDSimplePanel"
#pragma link "LMDBackPanel"
#pragma link
"LMDCustomParentPanel"
#pragma link
"LMDBaseControl"
#pragma link
"LMDBaseGraphicControl"
#pragma link "LMDBaseLabel"
#pragma link "LMDControl"
#pragma link
"LMDCustomSimpleLabel"
#pragma link
"LMDSimpleLabel"
#pragma link "lmdcont"
#pragma link
"LMDCustomComponent"
#pragma link
"LMDCustomStatusBar"
#pragma link "LMDStatusBar"
#pragma link
"LMDCustomPanelFill"
#pragma link "LMDPanelFill"
#pragma link
"LMDCustomScrollBox"
#pragma link "LMDListBox"
#pragma link
"LMDCustomFormFill"
#pragma link "LMDFormFill"
#pragma link
"LMDWndProcComponent"
#pragma link "LMDBaseShape"
#pragma link
"LMDShapeControl"
#pragma link
"LMDCustomLabel"
#pragma link "LMDDrawEdge"
#pragma link "LMDLabel"
#pragma link "LMDBaseImage"
#pragma link
"LMDCustomGroupBox"
#pragma link
"LMDCustomLImage"
#pragma link
"LMDGraphicControl"
#pragma link "LMDGroupBox"
#pragma link "LMDLImage"
#pragma link
"LMDBaseGraphicButton"
#pragma link
"LMDCustomShapeButton"
#pragma link "LMDShapeButton"
#pragma resource "*.dfm"
TMainForm *MainForm;
extern bool IsServer;
extern AnsiString Protocoli[];
extern int KolKub;
extern int MaxOch;
extern int choosenProt;
extern AnsiString ServerHostName;
extern AnsiString ServerHostIP;
extern bool IsHostName;
extern bool IsIgrayut;
extern int NomHoda;
extern int MyCurOch;
extern int MyWholeOch;
extern int HisWholeOch;
extern bool IsYaFixed;
extern bool IsHeFixed;
extern int HisWinPoPartiam;
extern int MyWinPoPartiam;
extern int NomPartia;
int *MasPriem;
//---------------------------------------------------------------------------
__fastcall
TMainForm::TMainForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall
TMainForm::FormCreate(TObject *Sender)
{
FirstTimeShow=true;
IsVisitApplicationBox=false;
}
//---------------------------------------------------------------------------
void __fastcall
TMainForm::FormActivate(TObject *Sender)
{
if(FirstTimeShow)
{
FirstTimeShow=false;
InterfaceBezIgri();
menuBeginClick(this);
}
}
//---------------------------------------------------------------------------
void __fastcall
TMainForm::menuBeginClick(TObject *Sender)
{
if (IsIgrayut)
{
menuStopClick(this);
if (IsIgrayut) return;
}
if (UstanParametrov())
//вызов 2-х форм для установки параметров
{
//----подключение----
switch(choosenProt)
{
case 0:
IPXConnect();
break;
case 1:
TCPIPConnect();
break;
case 2:
NetBiosConnect();
break;
case 3:
MailSlotConnect();
break;
case 4:
PipeConnect();
break;
}
if(IsServer)
lbStat->Caption="Ожидается соединение
с клиентом...";
}
}
//---------------------------------------------------------------------------
bool __fastcall
TMainForm::UstanParametrov(void)
{
int md1,md2;
for(;;)
{
md1=FormParamConnect->ShowModal();
FormParamConnect->Close();
if (md1==mrOk)
{
if (IsServer)
{
md2=FormGameParam->ShowModal();
if (md2==mrOk) return
1;
else continue;
}
else return 1;
}
else return 0;
}
}
void __fastcall TMainForm::OtobrazhDannihSopernika(int
*MasPriem)
{
Graphics::TBitmap *Bitmap2 = new
Graphics::TBitmap();
AnsiString strCat;
if(IsServer)
{
strCat="_2";
}
else
{
strCat="";
}
if(KolKub==1)
{
Bitmap2->LoadFromResourceName((unsigned
int)HInstance,"KUB"+IntToStr(MasPriem[3])+strCat);
Kubiki2[0]->Picture->Bitmap=Bitmap2;
Kubiki2[0]->Left=MasPriem[4];
Kubiki2[0]->Top=MasPriem[5];
Kubiki2[0]->Visible=true;
}
else if (KolKub==2)
{
Bitmap2->LoadFromResourceName((unsigned
int)HInstance,"KUB"+IntToStr(MasPriem[3])+strCat);
Kubiki2[0]->Picture->Bitmap=Bitmap2;
Kubiki2[0]->Left=MasPriem[4];
Kubiki2[0]->Top=MasPriem[5];
Kubiki2[0]->Visible=true;
Bitmap2->LoadFromResourceName((unsigned
int)HInstance,"KUB"+IntToStr(MasPriem[6])+strCat);
Kubiki2[1]->Picture->Bitmap=Bitmap2;
Kubiki2[1]->Left=MasPriem[7];
Kubiki2[1]->Top=MasPriem[8];
Kubiki2[1]->Visible=true;
}
else if (KolKub==3)
{
Bitmap2->LoadFromResourceName((unsigned
int)HInstance,"KUB"+IntToStr(MasPriem[3])+strCat);
Kubiki2[0]->Picture->Bitmap=Bitmap2;
Kubiki2[0]->Left=MasPriem[4];
Kubiki2[0]->Top=MasPriem[5];
Kubiki2[0]->Visible=true;
Bitmap2->LoadFromResourceName((unsigned
int)HInstance,"KUB"+IntToStr(MasPriem[6])+strCat);
Kubiki2[1]->Picture->Bitmap=Bitmap2;
Kubiki2[1]->Left=MasPriem[7];
Kubiki2[1]->Top=MasPriem[8];
Kubiki2[1]->Visible=true;
Bitmap2->LoadFromResourceName((unsigned
int)HInstance,"KUB"+IntToStr(MasPriem[9])+strCat);
Kubiki2[2]->Picture->Bitmap=Bitmap2;
Kubiki2[2]->Left=MasPriem[10];
Kubiki2[2]->Top=MasPriem[11];
Kubiki2[2]->Visible=true;
}
else
{
Bitmap2->LoadFromResourceName((unsigned int)HInstance,"KUB"+IntToStr(MasPriem[3])+strCat);
Kubiki2[0]->Picture->Bitmap=Bitmap2;
Kubiki2[0]->Left=MasPriem[4];
Kubiki2[0]->Top=MasPriem[5];
Kubiki2[0]->Visible=true;
Bitmap2->LoadFromResourceName((unsigned
int)HInstance,"KUB"+IntToStr(MasPriem[6])+strCat);
Kubiki2[1]->Picture->Bitmap=Bitmap2;
Kubiki2[1]->Left=MasPriem[7];
Kubiki2[1]->Top=MasPriem[8];
Kubiki2[1]->Visible=true;
Bitmap2->LoadFromResourceName((unsigned
int)HInstance,"KUB"+IntToStr(MasPriem[9])+strCat);
Kubiki2[2]->Picture->Bitmap=Bitmap2;
Kubiki2[2]->Left=MasPriem[10];
Kubiki2[2]->Top=MasPriem[11];
Kubiki2[2]->Visible=true;
Bitmap2->LoadFromResourceName((unsigned
int)HInstance,"KUB"+IntToStr(MasPriem[12])+strCat);
Kubiki2[3]->Picture->Bitmap=Bitmap2;
Kubiki2[3]->Left=MasPriem[13];
Kubiki2[3]->Top=MasPriem[14];
Kubiki2[3]->Visible=true;
}
HisWholeOch=MasPriem[2];
lbHisWholeOch->Caption=IntToStr(MasPriem[2]);
delete Bitmap2;
}
//-----------пришли данные
соперника--------------------------------------------
void __fastcall TMainForm::Priem(int
*MasPriem)
{
if(MasPriem[0]==0) //первый ответ
сервера клиенту
{
AnsiString mess;
mess="Ваш соперник
выбрал следующие параметры игры:\nКоличество кубиков:
"+IntToStr(MasPriem[1])+"\nМаксимальное количество очков:
"+IntToStr(MasPriem[2]);
IsVisitApplicationBox=true;
Application->MessageBoxA(mess.c_str(),"Параметры игры",MB_OK);
KolKub=MasPriem[1];
MaxOch=MasPriem[2];
InterfaceBeginNewGame();
ChangeInterfacePerehodHoda(0);
IsVisitApplicationBox=false;
}
else if (MasPriem[0]==1) //соперник бросил
{
shapeBrosil->Brush->Color=0x0000CE00;
OtobrazhDannihSopernika(MasPriem);
if(!IsServer)
{
NomHoda++;
}
enum TypeDannihForTabl
DannieForTabl;
DannieForTabl=hebrosil;
ZapolnTabl(DannieForTabl);
if(IsYaFixed &&
HisWholeOch>MyWholeOch && HisWholeOch<=MaxOch)
{
ViProigrali();
}
else if (HisWholeOch>MaxOch)
{
lbHisWholeOch->Font->Color=clRed;
ViViigrali();
}
else if(IsYaFixed &&
HisWholeOch<=MyWholeOch)
{
ChangeInterfacePerehodHoda(0);
}
else
{
ChangeInterfacePerehodHoda(1);
}
}
else if (MasPriem[0]==2) //соперник зафиксировал
{
IsHeFixed=true;
lbHisWholeOch->Font->Color=clRed;
shapeFixed->Brush->Color=0x000000CE;
if(!IsServer)
{
NomHoda++;
}
enum TypeDannihForTabl
DannieForTabl;
DannieForTabl=hefixed;
ZapolnTabl(DannieForTabl);
if(IsYaFixed &&
MyWholeOch==HisWholeOch)
{
Nichia();
}
else
if(MyWholeOch>HisWholeOch)
{
ViViigrali();
}
else
{
ChangeInterfacePerehodHoda(1);
}
}
else if (MasPriem[0]==3) //соперник разорвал соединение
{
IsVisitApplicationBox=true;
Application->MessageBoxA("Ваш соперник разорвал соединение.\nИгра окончена.","Разрыв соединения",MB_OK);
switch(choosenProt)
{
case 0:
IPXCloseConnection();
break;
case 1:
TCPIPCloseConnection();
break;
case 2:
NetBiosCloseConnection();
break;
case 3:
MailSlotCloseConnection();
break;
case 4:
PipeCloseConnection();
break;
}
for (int i=0;i<KolKub;i++)
{
delete Kubiki1[i];
delete Kubiki2[i];
}
IsIgrayut=false;
InterfaceBezIgri();
IsVisitApplicationBox=false;
}
delete [] MasPriem;
}
//----------------процедура
заполнения таблицы----------------------------------
void __fastcall
TMainForm::ZapolnTabl(enum TypeDannihForTabl DannieForTabl)
{
if(IsServer)
{
if(DannieForTabl==yabrosil)
Страницы: 1, 2, 3, 4, 5
|
Знание — сила. Библиотека научных работ.
Создание сетевой игры
Наверх