- 博客(4)
- 收藏
- 关注
原创 公司内部 SendFile函数
Public Sub SendFile(FileName As String, WinFunc As Byte, Func As Byte, wins As Winsock) Dim iPos As Long 判断数据长度 Dim FreeF As Integer 空闲的文件号 Dim LenFile As Long 文件的长度 Dim bytData() As B
2008-11-29 13:31:00
562
转载 Delphi 常用API 函数
AdjustWindowRect 给定一种窗口样式,计算获得目标客户区矩形所需的窗口大小 AnyPopup 判断屏幕上是否存在任何弹出式窗口 ArrangeIconicWindows 排列一个父窗口的最小化子窗口 AttachThreadInput 连接线程输入函数 BeginDeferWindowPos 启动构建一系列新窗口位置的过程 BringWindowToTop 将指定的窗口带至窗口列表顶
2008-11-29 13:28:00
270
转载 Delphi编写Socket通讯程序[收集]
一、Delphi与Socket 计算机网络是由一系列网络通信协议组成的,其中的核心协议是传输层的TCP/IP和UDP协议。TCP是面向连接的,通信双方保持一条通路,好比目前的电话线,使用telnet登陆BBS,用的就是TCP协议;UDP是无连接的,通信双方都不保持对方的状态,浏览器访问Internet时使用的HTTP协议就是基于UDP协议的。TCP和UDP协议都非常复杂,尤其是TCP协议,为了保
2008-11-29 13:26:00
664
原创 公司内部握手协议
握手协议定义一个byte类型数组发送(或接收),第一位做为判断的校验头&HAA、&HBB、&HCC、&HDD、&HEE、&HFF,第二位为窗体代码,第三位为功能码,第四位、第五位、第六位、第七位文件字节总数(高位在前、低位在后)。发送(接收)内容均以文本文件形式出现,其中发送文件保存为本地路径下olshineS.hov,接收文件保存为本地路径下olshineR.hov。
2008-11-28 16:52:00
409
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人