mainunit.cpp

这是一个使用UDP协议通信的例子程序

//---------------------------------------------------------------------------

#include <vcl.h>
#include <stdio.h>
#pragma hdrstop

#include "MainUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormCreate(TObject *Sender)
{
	client=new UDPSocket;

    client->startup();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormClose(TObject *Sender, TCloseAction &Action)
{
	client->cleanup();

    delete client;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::SendButtonClick(TObject *Sender)
{
	char str[128];

    addr.sin_family		=AF_INET;
	addr.sin_port       =htons(PortEdit->Text.ToInt());
	addr.sin_addr.s_addr=inet_addr(IPEdit->Text.c_str());

    client->Create();

   	for(int i=0;i<100;i++)
    {
    	sprintf(str,"[%03d]net game checkout string!",i+1);
	    client->Send(str,strlen(str)+1,(sockaddr *)&addr);
    }

    GameTimer->Interval=10;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::GameTimerTimer(TObject *Sender)
{
	char str[256];

	if(client->NBListen(str,256,(sockaddr *)&addr)==0)return;

	Memo->Lines->Add(str);
}
//---------------------------------------------------------------------------