求NMUDP控件的使用方法！

itsensing 2003-06-26 11:21:55

...全文

106 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

warton 2003-06-26

打赏
举报

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

#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)
{
TMemoryStream *MyStream = new TMemoryStream();
int I;
AnsiString C;
C = Edit1->Text;
NMUDP1->RemoteHost = "127.0.0.1";
NMUDP1->ReportLevel = Status_Basic;

NMUDP1->RemotePort = 6677;
I = C.Length();
MyStream->Write(&C[1], I);
NMUDP1->SendStream(MyStream);

}
//---------------------------------------------------------------------------

void __fastcall TForm1::NMUDP1DataSend(TObject *Sender)
{
ShowMessage("send");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::NMUDP2DataReceived(TComponent *Sender,
int NumberBytes, AnsiString FromIP, int Port)
{ /*
AnsiString C;
TMemoryStream *Stream = new TMemoryStream();
NMUDP2->ReadStream(Stream);
C.SetLength(NumberBytes);
Stream->Read(&C[1], NumberBytes);
Memo1->Lines->Add(C+": received "+IntToStr(NumberBytes)+" bytes from "+FromIP+" on port "+IntToStr(Port));
*/

}
//---------------------------------------------------------------------------

void __fastcall TForm1::NMUDP1DataReceived(TComponent *Sender,
int NumberBytes, AnsiString FromIP, int Port)
{
AnsiString C;
TMemoryStream *Stream = new TMemoryStream();
NMUDP1->ReadStream(Stream);
C.SetLength(NumberBytes);
Stream->Read(&C[1], NumberBytes);
Memo1->Lines->Add(C+": received "+IntToStr(NumberBytes)+" bytes from "+FromIP+" on port "+IntToStr(Port));

}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
NMUDP1->LocalPort=6677;
}
//---------------------------------------------------------------------------

warton 2003-06-26