社区
Delphi
帖子详情
谁用过TUdpSocket吗?
yuanscar
2006-07-24 08:58:23
现在需要用写一个接收UDP包的服务端.用TUdpSocket以后老是接收不到数据,是因为什么啊?请指教一下.或者用别的什么也可以
...全文
398
8
打赏
收藏
谁用过TUdpSocket吗?
现在需要用写一个接收UDP包的服务端.用TUdpSocket以后老是接收不到数据,是因为什么啊?请指教一下.或者用别的什么也可以
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
ABLE__323
2006-12-22
打赏
举报
回复
帮顶
Bearzmc
2006-12-21
打赏
举报
回复
up 楼上
allwinxie
2006-12-21
打赏
举报
回复
unit Unit_UDP;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdUDPBase, IdUDPServer,IdSocketHandle,
IdAntiFreezeBase, IdAntiFreeze, Gauges, StdCtrls, IdUDPClient;
type
TForm_UDP = class(TForm)
IdUDPServer1: TIdUDPServer;
grp1: TGroupBox;
grp2: TGroupBox;
mmo1: TMemo;
edt1: TEdit;
lbl1: TLabel;
btn1: TButton;
IdUDPClient1: TIdUDPClient;
Label1: TLabel;
Label2: TLabel;
lbl2: TLabel;
edt4: TEdit;
Button1: TButton;
edt2: TEdit;
edt3: TEdit;
edt5: TEdit;
lbl3: TLabel;
procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;ABinding: TIdSocketHandle);
procedure btn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form_UDP: TForm_UDP;
implementation
{$R *.dfm}
procedure TForm_UDP.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
Var
Str:String;
begin
AData.Seek(0,0);
SetLength(Str,AData.Size);
AData.Read(Str[1],AData.Size);
mmo1.Lines.Add(str);
str:= 'message has received';
ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort,Str[1] , Length(Str));
end;
procedure TForm_UDP.btn1Click(Sender: TObject);
begin
IdUDPServer1.DefaultPort:=StrToInt(edt1.Text);
IdUDPServer1.Active:=True;
end;
procedure TForm_UDP.Button1Click(Sender: TObject);
Var
ReceivedString:String;
begin
IdUDPClient1.Host:=edt2.Text;
IdUDPClient1.Port:=StrToInt(edt3.Text);
IdUDPClient1.Active:=True;
IdUDPClient1.Send(edt4.text);
ReceivedString := IdUDPClient1.ReceiveString();
edt5.Text:=ReceivedString;
end;
end.
do2008
2006-10-13
打赏
举报
回复
1.检查一下你的UDPSOCKET,是否正确地初始化并已经监听UDP端口
2.检查一下你的UDP发送端,是否正确地发送数据;
像网络传输的调试,都要双向检查的,一边检查完,便排除,再检查另一边
pzl625
2006-10-13
打赏
举报
回复
把代码贴出来讨论下的哦
wudi_1982
2006-10-12
打赏
举报
回复
你的问题描述的太模糊了。。
tgtcn
2006-10-12
打赏
举报
回复
我也研究当中
ntn115
2006-07-24
打赏
举报
回复
老大,这样提问笼统了吧~
T
UDP
Socket
,一个
UDP
Socket
类
和TClient
Socket
类似的一个
UDP
控件...
udp
.rar_Builder
udp
_T
Udp
Socket
_
UDP
_c builder
UDP
_c builder
udp
一个用C++ builder6.0做的
UDP
通信测试程序,不太完整,各位修改就可以了
Delphi7组件应用实例
14.10 T
Udp
Socket
组件 14.11 TXMLDocument组件 14.12 TWebBrowser组件 14.13 建立Web服务器应用程序 14.14 访问数据库 14.15 调试Web服务器应用程序 14.16 实例——实现数据库查询的Web服务器应用程序 14.17 ...
Delphi中T
UDP
Socket
的使用
按照Delphi文档上所说,欲在两个...borland提供的
UDP
组件只有一个T
UDP
Socket
,按照borland的说法,T
UDP
Socket
即可以作为client也可以作为server使用(
UDP
下,server与client的区别并不明显,但为了方便我们不妨...
Delphi中的T
Udp
Socket
不能当作服务端的问题
在不同的DELHI版本中,INDY的版本是不同的,而且9和10不兼容,为了让代码简单,轻便,跨版本移值,决定
udp
使用时使用T
Udp
Socket
控件来实现收发。结果却令人郁闷的发现,无法接收,因为T
Udp
Socket
是为作Client设置的,...
Delphi
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章