摘要: procedure TForm1.Button1Click(Sender: TObject);var s, b: AnsiString; a: array[0..9] of Byte;begin s := 'test'; FillChar(a, SizeOf(a), ''); Move(s[1], a, SizeOf(a)); SetLength(b, SizeOf(a) + 1); Move(a, b[1], SizeOf(a)); Caption := b;end; 阅读全文
posted @ 2012-11-15 21:39 delphi中间件 阅读(439) 评论(0) 推荐(0) 编辑
摘要: // 移动短信接口(cmpp 2.0)//unit untYiDongInterface;interfaceusesSysUtils, untSocket, IdGlobal, MessageDigest_5, Types;const{$REGION 'Command_Id定义'}CMPP_CONNECT = $00000001; // 请求连接CMPP_CONNECT_RESP = $80000001; // 请求连接应答CMPP_TERMINATE = $00000002; // 终止连接CMPP_TERMINATE_RESP = $80000002; // 终止连接应答C 阅读全文
posted @ 2012-11-15 19:18 delphi中间件 阅读(4074) 评论(0) 推荐(0) 编辑