说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

我用TNMUDP做的通信,如何跟外网发送数据,在线等(谢谢)

编辑:说三道四文库 发布时间:2017-11-18 03:31
HTML文档下载 WORD文档下载 PDF文档下载
大家好!
    我的问题如题目,希望哪个好心人能帮我一个,最好说详细点,谢谢啦。
这个组件现在已经没有多少人用了,建议你使用indy
unit UDPDem;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, NMUDP, ExtCtrls;

type
  TForm1 = class(TForm)
    NMUDP1: TNMUDP;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    Button1: TButton;
    Panel1: TPanel;
    Button2: TButton;
    Memo1: TMemo;
    StatusBar1: TStatusBar;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure NMUDP1Status(Sender: TComponent; status: String);
    procedure NMUDP1DataSend(Sender: TObject);
    procedure NMUDP1InvalidHost(var handled: Boolean);
    procedure NMUDP1DataReceived(Sender: TComponent; NumberBytes: Integer;
      FromIP: String; Port: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
//--发送数据
procedure TForm1.Button1Click(Sender: TObject);
var
  MyStream: TMemoryStream;
  TmpStr: String;
Begin
  NMUDP1.ReportLevel := Status_Basic;
  NMUDP1.RemoteHost := Edit1.Text;
  NMUDP1.RemotePort := StrToInt(Edit2.Text);
  TmpStr := Edit3.Text;
  MyStream := TMemoryStream.Create;
  try
    MyStream.Write(TmpStr[1], Length(Edit3.Text));
    NMUDP1.SendStream(MyStream);
  finally
    MyStream.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Clear;
end;

procedure TForm1.NMUDP1Status(Sender: TComponent; status: String);
begin
  If StatusBar1 <> nil then
    StatusBar1.SimpleText := status;
end;

procedure TForm1.NMUDP1DataSend(Sender: TObject);
begin
  StatusBar1.SimpleText := 'Data Sent';
end;

procedure TForm1.NMUDP1InvalidHost(var handled: Boolean);
var
  TmpStr: String;
begin
  If InputQuery('Invalid Host!', 'Specify a new host:', TmpStr) then
  Begin
    NMUDP1.RemoteHost := TmpStr;
    Handled := TRUE;
  End;
end;
//--接收数据
procedure TForm1.NMUDP1DataReceived(Sender: TComponent;
  NumberBytes: Integer; FromIP: String; Port: Integer);
var
  MyStream: TMemoryStream;
  TmpStr: String;
begin
  MyStream := TMemoryStream.Create;
  try
    NMUDP1.ReadStream(MyStream);
    SetLength(TmpStr,NumberBytes);
    MyStream.Read(TmpStr[1],NumberBytes);
    Memo1.Lines.Add(FromIP+': '+TmpStr);
  finally
    MyStream.Free;
  end;
end;  

end.
该回复于2009-03-27 13:26:54被版主删除
indy下有好多例子,不过写这种程序,还是看看API和INDY的源代码比较好。
接分是王道!
《Hadoop核心技术》作者翟周伟 :我与Hadoop的不解之缘 云集百位核心专家 中国云计算大会演讲议题公布(表) 细品这杯香浓的咖啡——阿里中间件高级专家沈询的Java之旅 超图研究院院长李绍俊:创新2.0时代的平台软件研发体系 优麒麟(Ubuntu Kylin)15.04发布派对在天津成功举行 【CTO讲堂】以API为核心的移动应用云大发展时代 游戏设计的迭代误用:从半成品到概念修正 成功的社区在于拥抱变化——知乎创始人周源专访 优化UITableViewCell高度计算的那些事 国外iOS大牛:开发Apple Watch应用我犯过的错 云上Java System Profiling与Debugging——蚂蚁金服观察与实践 搜狗商业平台Java技术实践 Java在电信软件领域的技术实战 关于Java框架Vert.x的几点思考 Java在游戏服务器开发中的应用 Java框架研发思考 那些年,Java程序员用过的开发工具 Java内存模型的历史变迁 Java 8与Apache Ignite Java开发与技术挑战——关于技术的技术思考 专访唯品会架构师肖桦:做编码的架构师 越来越“简单”的Java 我的Java!越过山丘 专访沙梓社:做个“Think Different”的技术牛人 基于ES6,使用React、Webpack、Babel构建模块化JavaScript应用 财税街创始人石克清:创业须空杯心态+有效社交 自我知识管理:连贯性就是生产率 玩转Google I/O 2015:Android M、IoT、Glass 2.0、VR、ATAP ARC中Retain Cycle揭秘 失控与逆转!企业移动化2.0时代下如何求变? 玩转物联网之MQTT 哪位提供一点关于开发小型dbms系统的odbc驱动程序的资料啊? 探讨DMBS??? 关于数据库操作一问? ***禁止重复登录?*** cout流的执行方式问题!请高手回答!不胜感激!!! 欢迎广临(API打印)CDC if (know && 高手) 值得讨论 else 有收获的; 在线等候 咋再MS SQL中实现这个查询? 通过ADSI验证用户登录的问题。 寻找控制面板编程方法 怎么判断类是否存在? 能通过网络修改其它机器的IP地址么?请教各位大侠,在线等!!! 求一段代码:如何得到硬盘的物理系列号,可以用来做为本机唯一标识! 在c++builder中怎样控制excel图表(急!!) 请问如何注册控件并调用、???谢谢 delphi连ACCESS怎么连,具体点。 一道有关类的习题 关于FORM使用的问题,请高手帮忙!!!!!!!!!! 有一个问题! ADOCommand 的问题 如何执行资源中的EXE文件!高手帮帮忙! 根据年份和月份得到天数? 水晶报表问题 请问用DELPHI做电子商务网有什么好书介绍? 数据库序列中表示当前值是???? 怎样通过数据库的内容,让复选框自动选择选上~~~~~~~~~是多选题来的~~~~ 青铜锁,情同锁 win2003接口问题 一个关于数据填加的问题! 我只有这30分了,一个高难度问题要向大家请教(关于创建及放弃)! 经常在别人的com代码里看到这段代码,做什么用的? 初学windows编程,有几点不明白的地方,请教各位 WinForm.cs(405,6): error CS0122: 不可访问“System.Windows.Forms.ProgressBar.value”,因为它受保护级别限制!!!!!这个错误提示 win2000server问题 那位大虾讲解一下,weblogic+jbuilder7+oracle的整合。给分 恢复数据库,怎样将数据库的连接全部断开? 请问西门子的哪些款手机可以直接识别AT指令?(在线等,马上给分) SQL SERVER数据库,这个语句太复杂了,实在头疼,谁能帮帮我啊 JSP连接DB2的问题 如何在WORD中发信??求助ing ... 一个关于对话框的问题。 《最后一颗子弹留给我》连载 = = = 有请江西的朋友进来一述 = = = 请问用代码如何实现以下批处理功能? 错误,着急! jsp与那个数据库是最好的搭配啊??? 倡导成产手机爱好者与自由开发者协会 在存储过程中能对数组进行操作吗? pb连接access的问题 我要把控制字符发给打印机,让他打印...实验成功洒分100 我有个SQL语句,实在搞不定,请指教…… 如何动态开内存 如果您再强调一些理由,我内心认为您是不公正的.求翻译 石壕吏中有人说唐军镇压“安史之乱”是正义的,老翁逃走是不爱国的表现你怎么看的?说明理由 把作者和相对作品连接郭沫若 沈石溪 西顿 杰克伦敦 椋鸠十《第七条猎狗》《白鹭》《海狼》《小战马》《孤岛野犬》 西部畅想写了西部哪些文化名胜和风土人情 有什么表示分手的词语句子之类的 求仿写《西部畅想》 11句就行,最好是中国的地方,(急~),不是百度的最好.求仿写《西部畅想》 11句就行,最好是中国的地方,(急~),不是百度的最好.《西部畅想》  长河落日  大漠孤烟 写黄土高坡的诗,除了《西部畅想》 《闻官军收河南河北》主要写喜,《春望》与它相比主要写悲.这一喜一悲有什么内在的联系? “我们再怎样再努力,世界也达不到绝对的公平,因此我们不必为公平而努力” 判断这句话的对错并说明理由 洛杉矶国际机场发生枪击事件 嫌犯被执墨西哥对垃圾食品征税8%英拟对外国购房者增税补赤字美贩毒隧道铺轻轨尼加拉瓜发布 登革热红色预警泰下院争议中 通过特赦法案洛杉矶国际机场发生枪击事件 嫌犯被执广西岑溪炮竹厂爆炸已致11死17伤斯诺登密会德议员 称愿为NSA窃听事广西炮竹厂爆炸死亡人数升至11人 责俄总理:美国窃听外国领导人的行为“无范加尔已回到荷兰下课在即?吉格斯应急北京青少校园足球后备人才梯队建设足球综述:中国第十三届冬运会赛场频现刷新看“亲情秀”节目,跟明星学如何陪伴父上海家装成本压力剧增 为保质量最快上中国伊朗关系良好 伊朗“死对头”沙特7种避孕方式 那一种最适合你马云:并不是实体不行了,是你的实体不有了正宗港式烧鸭配方 能做出烧鸭吗?山东平邑无环评木材厂照排毒气”环保局在南方过冬是种什么感受?30个南方娃
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘