main.cpp

程序运行要求系统中有一台运行Linux 6.0以上版本的Linux服务器

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

#include <vcl.h>
#pragma hdrstop

#include "main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
        Memo1->Clear();
        Memo1->Enabled = false;
        NMUDP1->LocalPort = 10000;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit3KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        if(Key == VK_RETURN)
        {
                if(Edit1->Text.IsEmpty())
                {
                        ShowMessage("Remote ip must be input");
                        return;
                }
                NMUDP1->RemoteHost = Edit1->Text;
                if(Edit2->Text.IsEmpty())
                {
                        ShowMessage("Remote port must be input");
                        return;
                }
                NMUDP1->RemotePort = StrToInt(Edit2->Text);
                if(!Edit3->Text.IsEmpty())
                {
                        LPCSTR str = Edit3->Text.c_str();
                        NMUDP1->SendBuffer(str, lstrlen(str), lstrlen(str));
                        Edit3->Clear();
                }
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMUDP1DataReceived(TComponent *Sender,
      int NumberBytes, AnsiString FromIP, int Port)
{
        LPSTR strBuf = new char[NumberBytes + 1];
        int nRcv;
        NMUDP1->ReadBuffer(strBuf, NumberBytes, nRcv);
        strBuf[NumberBytes] = '\0';
        Memo1->Lines->Add(strBuf);
        delete strBuf;
}
//---------------------------------------------------------------------------