unit1.cpp

UDP Receive project with interrupt

// BCB VCL UDP Message Receiver
// Chin-Shiuh Shieh
// 2002-04-04
//---------------------------------------------------------------------------
#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::FormCreate(TObject *Sender)
{
NMUDP1->LocalPort=StrToInt(Edit1->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMUDP1DataReceived(TComponent *Sender,
      int NumberBytes, AnsiString FromIP, int Port)
{
char buffer[256];
int len;
NMUDP1->ReadBuffer(buffer,256,len);
buffer[len]=0;
Edit2->Text=StrPas(buffer);
Edit3->Text=FromIP;
StatusBar1->SimpleText=IntToStr(len)+" bytes received!";
}
//---------------------------------------------------------------------------