大家帮忙看看这段UDP通讯代码有什么错误,我无法收到数据啊!(一直在线接受赐教) (100分)

  • 主题发起人 主题发起人 夏雪儿
  • 开始时间 开始时间

夏雪儿

Unregistered / Unconfirmed
GUEST, unregistred user!
TUdpSocket UP;
//---------------------------------------------------------------------------
#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)
{
UP->Open();
UP->Sendln("123","/r/n");
UP->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::UPConnect(TObject *Sender)
{
Edit1->Text ="Connect";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::UPReceive(TObject *Sender, PChar Buf, int &amp;DataLen)
{
Edit4->Text ="Rec";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::UPSend(TObject *Sender, PChar Buf, int &amp;DataLen)
{
Edit2->Text ="Send";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::UPError(TObject *Sender, int SocketError)
{
Edit4->Text ="Err";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::UPDisconnect(TObject *Sender)
{
Edit3->Text="DisConnect";
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::UPReceive(TObject *Sender, PChar Buf, int &amp;DataLen)
{
Edit4->Text=Buf;
}
//---------------------------------------------------------------------------
 
还是不行啊,问题是根本无法激活UPReceive事件!
请赐教!
 
谁有TUdpSocket的资料或通讯代码吗?请发给小妹妹一份啊!
 
你看他的DEMO呀
 
没有啊!请问在哪里?或者可以把代码发给我吗?谢谢!
 
其他的Udp事件都正常,但就是UPReceive无法被执行!
大哥哥,帮帮我啊!
[:)]
 
DELPHI6的DEMO目录下的INDY目录里有N多的DEMO
 
真是不好意思,我用的是Internet页里的TUdpSocket控件啊!
 
哦,我的DELPHI的Internet没有这个控件呀,
 
Sorry,我的是Delphi6,不过以上代码是在C++Builder6里写的
好象应该有的啊
 
接受答案了.
 
夏雪儿, 你用DELPHI6 中的UdpSocket 可以正常收发消息了吗? 我有几个问题想请教一下
wxyzsm@hotmail.com
 
怎么实现的,贴出来啊.
 
后退
顶部