如何用：NMUDP1 控件发送和接收文件？？也就是接收流式数据？？

[ddsft]

如何用：NMUDP1 控件发送和接收文件？？也就是接收流式数据？？

[lanren_me]

NMUDP1->SendBuffer(const char *Buff,int Buff_size,int Length);

[lanren_me]

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
ValidStream = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMUDP1DataReceived(TComponent *Sender,
int NumberBytes, AnsiString FromIP)
{
char *TmpBuffer = new char[NumberBytes + 1];

int i;
NMUDP1->ReadBuffer(TmpBuffer, NumberBytes, i);
TmpBuffer[NumberBytes] = '\0';
Output->Text = Output->Text + TmpBuffer;

delete [] TmpBuffer;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BtSendMsgClick(TObject *Sender)
{
// UDP does not timeout because it does not connect.
NMUDP1->RemoteHost = Host->Text;
NMUDP1->RemotePort = StrToInt(Port->Text);
NMUDP1->ReportLevel = Nmudp::Status_Basic;

NMUDP1->SendBuffer(UDPMsg->Text.c_str(), strlen(UDPMsg->Text.c_str()),
strlen(UDPMsg->Text.c_str()));
Output->Lines->Add("");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BtLoadFileClick(TObject *Sender)
{
if(OpenDialog1->Execute())
{
UDPStream->Text = OpenDialog1->FileName;
ValidStream = true;
}
else
{
UDPStream->Text = "";
ValidStream = false;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BtSendStreamClick(TObject *Sender)
{
if(!ValidStream)
{
MessageBox(NULL, "Need a file to send.", "Invalid input", MB_ICONERROR);
return;
}

NMUDP1->RemoteHost = Host->Text;
NMUDP1->RemotePort = StrToInt(Port->Text);
NMUDP1->ReportLevel = Nmudp::Status_Basic;
const int ThreshHold = 2048;

// Load the stream.
TFileStream *Strm = new TFileStream(UDPStream->Text, fmOpenRead);
char *Buffer = new char[ThreshHold];
int BuffSize = Strm->Size;
int Buffers = BuffSize / ThreshHold;

for(int i=0; i <= Buffers; i++)
{
if(BuffSize > 2048)
{
Strm->Read(Buffer, ThreshHold);
NMUDP1->SendBuffer(Buffer, ThreshHold, ThreshHold);
}
else
{
Strm->Read(Buffer, BuffSize);
NMUDP1->SendBuffer(Buffer, BuffSize, BuffSize);
}

BuffSize -= ThreshHold;
}

delete Buffer;
delete Strm;

Output->Lines->Add("");
}
void __fastcall TForm1::NMUDP1DataSend(TObject *Sender)
{
StatusBar1->SimplePanel = TRUE;
StatusBar1->SimpleText = "Data Sent";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMUDP1InvalidHost(bool &handled)
{
AnsiString TmpStr;

if (InputQuery("Invalid Host!", "Specify a new host:", TmpStr))
{
NMUDP1->RemoteHost = TmpStr;
handled = TRUE;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMUDP1Status(TComponent *Sender, AnsiString status)
{
if (StatusBar1 != 0)
StatusBar1->SimpleText = status;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMUDP1StreamInvalid(bool &handled, TStream *Stream)
{
ShowMessage("Invalid Stream: Stream contains no data");
}

[hitbabiq]

zhi chi

[ddsft]

lanren_me(阿波) ：你的程序很好的解决了发送的问题，但不知道你利用的这样的一个循环，接收方如何处理呢？从你现在的代码上看，接收方好像并不是很正确！！不知你是否可以就这个问题详细谈谈？400分没有问题！！我的QQ：33792518

[lanren_me]

你试试在接受程序更改为类似以下：

char *buff=new char[NumberBytes+1];
int i;
NMUDP1->ReadBuffer(buff,4,i);
buff[NumberBytes]='\0';
NMStrm1->Host=FromIP;
StatusBar1->Panels->Items[0]->Text=FromIP;
TFileStream *myFile;
myFile=new TFileStream("f:\\数据库1.dbf", fmOpenRead);
NMStrm1->Port=6711;
NMStrm1->PostIt(myFile);
delete buff;