Delphi制作GSM Modem的短信发送控件

unit main;
            {$WARN SYMBOL_PLATFORM OFF}
            inte易做图ce
            uses
            ComObj, ActiveX, jksms_TLB, StdVCl, SysUtils,Windows,ADTrmEmu,
            OoMisc,reGIStry;
            type
            Tsms = class(TAutoObject, Isms)
            protected
            procedure sendmsg(comnumber: Integer; const phone, msg: WideString);
            safecall;
            { Protected declarations }
            end;
            implementation
            uses ComServ　,　adport;//这里需手工添加
            function SEncodeMobNO(SmobNO: string): string;
            //要想发送中文短信必须使用Modem的PDU方式。这个函数是将手机号码进行PDU编码。
            var
            　TempPchar: Pchar;
            　i: integer;
            　Str: string;
            begin
            　if (copy(smobno, 1, 1) = ’+’) then //判断是否包含国家编码
            　　SmobNO := copy(smobno, 2, length(smobno) - 1); //去掉手机号码中的’+’
            　if ((length(SmobNO) mod 2) = 1) then
            　　SmobNO := SmobNO + ’F’;
            　　TempPchar := Pchar(SmobNO); //将字符串 Char数组化
            　i := 0;
            　Str := ’’;
            　while i < length(TempPchar) do begin
            　　Str := Str + TempPchar[i + 1] + TempPchar[i];
            　　i := i + 2;
            　end;
            　result := Str;
            end;
            function EncodeChinese(Input: WideString): string;//将信息内容进行PDU编码
            var
            　i: Integer;
            begin
            　Result := ’’;
            　for i := 1 to Length(Input) do
            　　Result := Result + Format(’%4.4X’, [ord(Input[i])]);
            end;
            procedure Tsms.sendmsg(comnumber: Integer; const phone, msg: WideString);
            //发送短信的方法
            var
            　apdcomport:Tapdcomport;
            　r,s,s2,s3,s4,s5:string;
            mdlong,tmp:integer;
            　msgs:WideString;
            begin
            　apdcomport:=TApdComPort.Create(nil);//创建串口通信对象
            　apdcomport.AutoOpen:=false;//关闭自动打开属性
            　apdcomport.Open:=false;
            　apdcomport.ComNumber:=comnumber;//设置串行通信口
            　apdcomport.Baud:=19200;//设置串口波特率
            　msgs:=msg;
            　s:=’0031000D9168’ ;
            　//PDU编码属性，这种方法是不需要设置短信中心号码的，因为现的手机SIM卡已经写好了
            　s2:=SEncodeMobNO(phone);//对手机号码进行PDU编码
            　s3:=’0008A7’;
            　s4:=’’;
            　s5:=EnCodeChinese(msgs);
            　tmp:=length(s5)div 2;
            　s4:=format(’%X’,[tmp]);
            　if length(s4)<2 then
            　　s4:=’0’+s4;
            　//计算PDU编码长度
            　r:=s+s2+s3+s4+s5+^Z;
            　cmdlong:=(length(r)-2) div 2;
            　apdcomport.Open:=true;//打开串行口
            　apdcomport.Output:=’AT+CMGF=0’#13;//设置Modem为PDU模式
            　delayticks(7,true);//延时
            　apdcomport.Output:=’AT+CMGS=’+inttostr(cmdlong)+#13;//设置信息长度，这里应为PDU编码长度的1/2.
            　delayticks(7,true);
            　apdcomport.Output:=r;//发送短信。
            　delayticks(9,true);
            　apdcomport.Open:=false;
            　apdcomport.Free;
            end;
            initialization
            TAutoObjectFactory.Create(ComServer, Tsms, Class_sms,ciMultiInstance, tmApartment);
            end.

Set sms=Server.CreateObject("jksms.sms")
            Msg="您好！测试一下好不好用！"
            Phone="手机号码"
            Port=Modem所在端口号
            Sms.sendmsg port,phone,msg