2016年8月21日
中间件序列TDATASET为BUFFER演示代码
摘要： procedure SendStream(const AStream: TStream);var Buffer: array[0..4095] of Byte; // 每包最大4K StartPos, AmountInBuf, AmountSent: Integer;begin if AStream 阅读全文
posted @ 2016-08-21 19:59 delphi中间件 阅读(407) 评论(0) 推荐(0)