bool LoadRemoteXms (void);    long xms_Connect (LPSTR bstrPort, long lSpeed);    long xms_Disconnect(long nDevice);    long xms_SendMessage (long lDevice, LPSTR strPhoneNum, LPSTR strMsg);    long xms_WapPush (long lDevice, LPSTR strPhoneNum, LPSTR strURL, LPSTR strContent);    long xms_ReceiveMessage (long lDevice, LPSTR * strMsg, long * lMsgLen, long lDeleteMsg);  

引言: VC++轉換成DELPHI

bool LoadRemoteXms (void);
long xms_Connect (LPSTR bstrPort, long lSpeed);
long xms_Disconnect(long nDevice);
long xms_SendMessage (long lDevice, LPSTR strPhoneNum, LPSTR strMsg);
long xms_WapPush (long lDevice, LPSTR strPhoneNum, LPSTR strURL, LPSTR strContent);
long xms_ReceiveMessage (long lDevice, LPSTR * strMsg, long * lMsgLen, long lDeleteMsg);  

function LoadRemoteXms():boolean;
function xms_Connect (bstrPort:String;lSpeed:integer):integer;
function xms_Disconnect(nDevice:integer):integer;
function xms_SendMessage (lDevice:integer;strPhoneNum,strMsg:String):integer;
function xms_WapPush (lDevice:integer;strPhoneNum,strURL,strContent:String):integer;
function xms_ReceiveMessage (lDevice:integer;strMsg:Pchar;lMsgLen,lDeleteMsg:integer);

簡單說明 bool--->Boolean long--->integer LPSTR-->String LPSTR*->Pchar 有傳回值都叫Function 無傳回值都叫Procedure GOOD LUCK <> <> <> < > <> < class="code"> =程式是一種藝術 也是訓練自己的分析規劃= =是段落分明 或是雜亂無章= =是一言以敝 或是廢話連篇= =是一目了然 或是艱深難懂= 體會這份藝術 您會了解另一份喜悅與成就