IDTCPSERVEr
来源:互联网 发布:数控编程程序实例 编辑:程序博客网 时间:2024/05/18 00:04
用Idtcpserver组件收发中文,关键就是转码,要将编码转为UTF-8格式。
接收消息
procedure TfrmMain.IdTCPServerExecute(AContext: TIdContext);
var BufStr:AnsiString;
buflen:integer;
begin
if (AContext.Connection.Connected) then
begin
try
CoInitialize(nil);
try
BufStr:=AContext.Connection.IOHandler.ReadLn(TIdEncoding.en8Bit);
LogMsg('read: '+BufStr+' '+'IP:'+AContext.Connection.Socket.Binding.PeerIP+':'+intToStr(AContext.Connection.Socket.Binding.PeerPort));
except
AContext.Connection.Disconnect;
end;
buflen:=Length(BufStr);
finally
CoUninitialize();
end;
end;
end;
发送消息
procedure TfrmMain.SendClientMessage(AContext: TIdContext; sMsg: string);
var sClientID:string;
begin
if TIdContext(AContext).Connection.Connected then
begin
sClientID:=TIdContext(AContext).Connection.Socket.Binding.PeerIP+':'+intToStr(TIdContext(AContext).Connection.Socket.Binding.PeerPort);
AContext.Connection.IOHandler.WriteLn(sMsg,TIdEncoding.en8Bit);
LogMsg('Send: '+sMsg+' '+'IP:'+sClientID);
end;
end;
- IDTCPSERVEr
- Indy IdTcpserver
- idtcpserver用法
- idtcpserver demo
- close idtcpserver
- Socket通讯使用IdTCPServer
- 关于idtcpserver的使用
- idtcpserver接收stream
- IdTCPClient / IdTCPServer + 心跳机制
- idtcpserver流操作
- delphi idtcpserver&idtcpclient 演示
- idtcpserver 多线程同步问题
- IdTCPClient和IdTCPServer主要属性
- IdTCPClient和IdTCPServer主要属性
- idTcpServer给idTcpClient发送消息
- 关于idtcpserver收包错位的问题
- idtcpserver和idtcpclient传二进制文件用流
- 让IdTCPServer&IdTCPClient的应用穿透NAT
- 项目开发周期把控,一个项目包括哪些流程?又怎样提高一个开发项目效率?
- 优化了一次sql
- volatile的原理及其使用
- 利用内存理解指针
- BootStrap设置footer元素在底部
- IDTCPSERVEr
- Flume使用Hive作为Sink总结
- Maven打包异常:Exception in thread “main” java.lang.UnsupportedClassVersionError:org/apache/maven/cli
- js中的时间与毫秒数互相转换
- top指令详解
- C++ 通过jni生成库供JAVA调用(下)--C++生成库并JAVA可以调用(windows)
- maven工程报错:java.lang.AbstractMethodError: org.mybatis.spring.transaction.SpringManagedTransaction.get
- 《模型汇总-21》深度学习背后的秘密:初学者指南-深度学习激活函数大全
- Mysql5.7.X启动失败,服务没有报告任何错误