摘要: //十六进制(S)-->>十进制(I) [重写:Jey]function hextoint(s: string): Integer; begin //$代表16进制 Result:=StrToInt('$'+s);end;//十进制转换为二进制字符串 [重写:Jey]function inttoBi 阅读全文
posted @ 2017-07-28 15:30 陈财明博客 阅读(1530) 评论(0) 推荐(0) 编辑
摘要: 使用了2个组建: TServerSocket TClientSocket TServerSocket //开启连接 ServerSocket1.Port := 9000;ServerSocket1.Active := true; //接收客户端发送的消息。对应事件:OnClientRead Sock 阅读全文
posted @ 2017-07-28 15:19 陈财明博客 阅读(2045) 评论(0) 推荐(0) 编辑
摘要: ClientSocket 和ServerSocket几个重要的属性: 1.client和server都有port属性,需要一致才能互相通信 2.client有Address属性,使用时填写对方(server)的IP地址 几个重要的事件: client: OnRead事件,当client受到冲击消息时 阅读全文
posted @ 2017-07-28 15:16 陈财明博客 阅读(7069) 评论(0) 推荐(1) 编辑
摘要: sockets(套接字)编程有三种,流式套接字(SOCK_STREAM),数据报套接字(SOCK_DGRAM),原始套接字(SOCK_RAW);基于TCP的socket编程是采用的流式套接字。 服务器端编程的步骤:1:加载套接字库,创建套接字(WSAStartup()/socket());2:绑定套 阅读全文
posted @ 2017-07-28 14:07 陈财明博客 阅读(21711) 评论(0) 推荐(0) 编辑
摘要: 本文采用delphi7+TServerSocket+TClientSocket; 笔者在工作中遇到对局域网中各工作站与服务器之间进行Socket通信的问题。现在将本人总结出来的TServerSocket和TClientSocket两个组件的基本用法写出来,希望与您分享。 ClientSocket组件 阅读全文
posted @ 2017-07-28 11:24 陈财明博客 阅读(2789) 评论(0) 推荐(0) 编辑