DELPHI 通过电脑发送短信的程序(100分)

DELPHI 通过电脑发送短信的程序,
这些天找了很多网站,没有找到合适的例子:
程序例子要求:
DELPHI 5
其他没要求 有的请发到我邮箱 xiaolong@elpac-sz.com
非常感谢!

这需要某家代理商提供的SDK才能完成。
不同的代理商一般的SDK是不同的。
上段时间有联系过广州，深圳的两家，不过因为项目关系暂时不需要此功能。后来就没再联系了。

用api

应该需要象中国电信、移动、联通这样的公司提供平台才可以吧，

难道直接写个程序就可以免费发短信了？
表示怀疑，

需要代理商提供的接口，同意阿舍，您可以使用Delphi做二次开发。
一般代理商会给你各种语言的Demo

也可以 采用GSM Modem 模块（SIM卡），通过串口连接
采用AT指令 或 厂家提供的DLL 进行

TO:yueing
那 你是否有这方面的例子呢?采用AT指令通过手机或者GSM MODEM+SIM卡的 程序例子是否有呢,

implementation
uses UShare, UMsgReceive, UTemplate, DM, UnitMain, UMsgView, UWait; //动态库引入
function OpenComm(pPortchar;nRaudRate:Integer;nParity:Integer;nByteSize:Integer;nStopSize:Integer):bool ;stdcall;
external 'data/smspdu.dll';

function SetSendModule(mdl:integer):bool ;stdcall;
external 'data/smspdu.dll';

function GetCenterNumber(CenterNumberchar):bool ;stdcall;
external 'data/smspdu.dll';

function SetCenterNumber(CenterNumberChar):bool ;stdcall;
external 'data/smspdu.dll';

function SendShortMessage(send_numberChar;send_msgChar;sm_param_temp:SM_PARAM):integer ;stdcall;
external 'data/smspdu.dll';

function CheckNo():bool ;stdcall;
external 'data/smspdu.dll';

function CloseComm():bool ;stdcall;
external 'data/smspdu.dll';

function NarrowToBig(inputString:string):string ;
STDCALL EXTERNAL 'bchq1.dll';

try
if OpenComm(pchar(ComPort),9600,0,8,1) then begin
if CheckNO() then begin
SetSendModule(0);
new(CenterNumber);
GetCenterNumber(CenterNumber);
try
SetCenterNumber(CenterNumber);
except
end;
end
else begin
CloseComm;
application.MessageBox('端口打开失败,未能发送！','提示',mb_ok+mb_iconinformation);
end;
end;
except
application.MessageBox('端口打开失败,未能发送！','提示',mb_ok+mb_iconinformation);
exit;
end;
end;

可以用GSM MODEM，通过AT指令实现
yiyio77.bokee.com

接受答案了.