pducodelib.pas

来自「使用DELPHI编写的自动生成PDU码的事例程序」· PAS 代码 · 共 34 行

{*******************************************************}
{                                                       }
{       自动生成短信的 PDU 编码                         }
{                                                       }
{       版权所有 (C) 2007 ZpTang                        }
{    作者：唐佐平                                       }
{      QQ：119547601                                    }
{  E_Mail：[e-mail]                             }
{  本人是想此DLL能在VC/VB/PB/Delphi中都能调用，由于本人 }
{  不懂得这些语言，所以请你们在这些语言中测试一下，将测 }
{  结果发到我邮箱，以便我改进、完善，谢谢。             }
{*******************************************************}


unit PDUCodeLib;

interface

uses Forms, Windows, SysUtils;

const
  PDU_Lib = 'PDUCode.dll';

  //发送短信的PDU编码
  function Get_PDUCode(const AddrNo, HandNo, MsgStr: PChar;  //短信中心号码，接收手机号码，短信内容
                       var Pdustr: PChar;    //产生的 PDU 串
                       var SendLen: Integer  //短信 len
                       ): Integer; stdcall; external PDU_Lib;


implementation

end.