IdUDPServer和IdUDPClient通讯的例子
来源:互联网 发布:网络方面的书籍 编辑:程序博客网 时间:2024/06/05 07:02
//---------------------------------------------------------------------------
//IdUDPServer和IdUDPClient通讯的例子 by:syrchina
#include <vcl.h>
#pragma hdrstop<p>#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "IdBaseComponent"
#pragma link "IdComponent"
#pragma link "IdUDPBase"
#pragma link "IdUDPServer"
#pragma link "IdUDPClient"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString ip = Edit1->Text;
int port = StrToInt(Edit2->Text);
TBytes MsgStr;
MsgStr = Memo2->Text.BytesOf();
IdUDPClient1->SendBuffer(ip, port, MsgStr);
}
// ---------------------------------------------------------------------------
void __fastcall TForm1::IdUDPServer1UDPRead(TIdUDPListenerThread *AThread, TBytes AData,
TIdSocketHandle *ABinding)
{
//TBytes为字节数组类型...
AnsiString RcvData,RcvIP,RcvPort;
RcvIP = ABinding->PeerIP;
RcvPort = IntToStr(ABinding->Port);
Edit3->Text = RcvIP;
Edit4->Text = RcvPort;
int RcvData_len = AData.Length ;
for (int i =0 ;i<RcvData_len ;i++)
{
RcvData = RcvData + (char)AData[i] ;
}
Memo1->Lines->Add(RcvData);
}
//IdUDPServer和IdUDPClient通讯的例子 by:syrchina
#include <vcl.h>
#pragma hdrstop<p>#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "IdBaseComponent"
#pragma link "IdComponent"
#pragma link "IdUDPBase"
#pragma link "IdUDPServer"
#pragma link "IdUDPClient"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString ip = Edit1->Text;
int port = StrToInt(Edit2->Text);
TBytes MsgStr;
MsgStr = Memo2->Text.BytesOf();
IdUDPClient1->SendBuffer(ip, port, MsgStr);
}
// ---------------------------------------------------------------------------
void __fastcall TForm1::IdUDPServer1UDPRead(TIdUDPListenerThread *AThread, TBytes AData,
TIdSocketHandle *ABinding)
{
//TBytes为字节数组类型...
AnsiString RcvData,RcvIP,RcvPort;
RcvIP = ABinding->PeerIP;
RcvPort = IntToStr(ABinding->Port);
Edit3->Text = RcvIP;
Edit4->Text = RcvPort;
int RcvData_len = AData.Length ;
for (int i =0 ;i<RcvData_len ;i++)
{
RcvData = RcvData + (char)AData[i] ;
}
Memo1->Lines->Add(RcvData);
}
// ---------------------------------------------------------------------------
- IdUDPServer和IdUDPClient通讯的例子
- 局域网内发送文件的例子(IdUdpClient,IdUdpServer)
- IdUDPServer和IdUDPClient 实现数据通信
- 局域网发送文件的源代码(idUDPserver,idUDPClient)
- Activity和Service之间的通讯(下载的例子)
- zeromq的多进程通讯的例子
- java Socket 通讯的代码例子(转)
- 采用管道进行通讯的例子
- 采用管道进行通讯的例子续
- java Socket 通讯的代码例子
- [Linux] 最简单的socket通讯例子
- 一个最简单的socket通讯例子
- Java简单的UDP通讯例子
- Android基于客户端和服务器的Socket编程例子之Socket基础通讯--socket相关知识
- Android基于客户端和服务器的Socket编程例子之Socket基础通讯--socket模型使用
- flex actionscript 和 javascript 通讯(3) 整合例子
- java socket通讯之 echo server 和echo client例子
- Java nio一个简单例子和画出之间通讯简图
- Sqlserver中如何将字符串字段类似SUM输出
- Ext中的get、getDom、getCmp、getBody、getDoc的区别
- HDU 2095 find your present (2)
- C语言根据日期判断星期几(使用基姆拉尔森计算公式)
- 算法的力量(转李开复)
- IdUDPServer和IdUDPClient通讯的例子
- 高等微积分:第3版修订版
- H3C各种型号交换机端口镜像配置方法总结
- VC#实现动态菜单-菜单 DLL
- Resource()中的getDrawable(int id)是怎样将图片显示出来的
- Ext.getCmp("id") 简单应用
- XML之entity的语法
- google pentest tool
- mysql命令