首先嚐試SMPP協議（綁定命令）

我試圖執行SMPP客戶端，第一個測試是綁定後我有活套接字連接。首先嚐試SMPP協議（綁定命令）

但服務器顯示HEX錯誤消息收到流時。

SMPP單位

interface 
    uses Classes; 
Type 
// c octet strings 
    TSystemID = string[16]; 
    TPassword = string[9]; 
    TSystemType = string[13]; 
    TAddr = string[21]; 
    TAddr_Range = string[41]; 
    TSvc_Type = string[6]; 
    TDate_time = string[17]; 
    TMsgID = string[65]; 
pPDU_HDR = ^TPDU_HDR; 

TPDU_HDR = packed record 
    command_len : LongWord ; 
    command_id : LongWord ; 
    command_status :LongWord ; 
    command_number:LongWord ; 
end; 

pSMPP_BIND = ^TSMPP_BIND ; 
TSMPP_BIND = packed record 
    SystemID : TSystemID ; 
    Password : TPassword ; 
    SystemType : TSystemType ; 
    Ver  : Byte; 
    Addr_TON : Byte ; 
    Addr_NPI : Byte ; 
    Addr_Range : TAddr_Range ; 
end; 
const 
    { max short message length } 
    DCS7_MAX_LEN = 160; 
    DCS8_MAX_LEN = 140; 
    DCSUCS2_MAX_LEN = DCS8_MAX_LEN div 2; 
    { command ids } 
    cmdNull = $00000000; 
    cmdBindReceiver = $00000001; 
    cmdBindTransmitter = $00000002; 
    cmdQuery = $00000003; 
    cmdReplace = $00000007; 
    cmdCancel = $00000008; 
    cmdBindTransceiver = $00000009; 
    cmdOutbind = $0000000B; 
    cmdUnbind = $00000006; 
    cmdSubmitSM = $00000004; 
    cmdDeliverSM = $00000005; 
    cmdEnquireLink = $00000015; 
    cmdSubmitMultiply = $00000021; 
    cmdAlertNotification = $00000102; 
    cmdData = $00000103; 
    cmdGenericNack = $80000000; 
    cmdResponseBase = $80000000; 
    cmdBindReceiverResponse = $80000001; 
    cmdBindTransmitterResponse = $80000002; 
    cmdQueryResponse = $80000003; 
    cmdReplaceResponse = $80000007; 
    cmdCancelResponse = $80000008; 
    cmdBindTransceiverResponse = $80000009; 
    cmdUnbindResponse = $80000006; 
    cmdSubmitSMResponse = $80000004; 
    cmdDeliverSMResponse = $80000005; 
    cmdEnquireLinkResponse = $80000015; 
    cmdSubmitMultiplyResponse = $80000021; 
    cmdDataResponse = $80000103; 
    { ESM_CLASS } 
    ESM_CLASS_DELIVERY_RECEIPT = $04; 
    ESM_CLASS_UDHI = $40; 
implementation 
end.

在我的表格btnSendBindClick

procedure TFrmMain.btnSendBindClick(Sender: TObject); 
var hdr : TPDU_HDR ; 
    bind_pkt : TSMPP_BIND ; 
    mm : TMemoryStream ; 
    HdrPtr : pPDU_HDR ; 
    BindPtr : pSMPP_BIND ; 
    sysid : AnsiString ; 
    pass : AnsiString ; 
    systype : AnsiString ; 
    add_rn : AnsiString ; 
begin 

sysid := 'sysid'; 
pass := 'pass'; 
systype := 'sys_type'; 
add_rn := ''; 

hdr.command_id := htonl(cmdBindTransceiver) ; 
hdr.command_status := htonl(cmdNull) ; 
hdr.command_number := htonl(cmdBindTransmitter) ; 
hdr.command_len := htonl(SizeOf(hdr)+SizeOf(bind_pkt)); 

bind_pkt.SystemID := pansiChar(sysid); 
bind_pkt.Password := pansiChar(pass); 
bind_pkt.SystemType := pansiChar(systype); 
bind_pkt.Ver := 0 ; 
bind_pkt.Addr_TON := 1 ; 
bind_pkt.Addr_NPI := 1 ; 
bind_pkt.Addr_Range := pansiChar(add_rn); 

HdrPtr := @HdrPtr ; 
BindPtr := @bind_pkt ; 

mm := TMemoryStream.Create ; 
mm.Write(HdrPtr^,SizeOf(hdr)); 
mm.Position := mm.Size; 
mm.Write(BindPtr^,SizeOf(bind_pkt)); 
mm.Position := 0 ; 

clnt.Socket.SendStream(mm); 

end;

我想我需要的數據流進行編碼的東西，但我不知道。

來源

2013-03-31 Realbitt

我上次在1999年/ 2000年與SMPP一起工作過，但當時的規格。 3.4表示類似SystemID，Password等字段，即聲明爲Var。最大nn，類型爲C-OctetString。因此，如果規範沒有改變，你完全錯過了它：你不能使用記錄和類似的數據結構，但是你必須創建一個包含沒有填充的ASCIIZ字符串序列的八位組流，例如，（使用Delphi語法）：...'SystemId'＃0'Password'＃0'SystemType'＃0 ...。如果我記得正確的話，你也應該改變整數域的endians。

來源

2013-03-31 12:28:30 pf1957

謝謝貝夫，你說的對，我成功了。 – Realbitt

首先嚐試SMPP協議（綁定命令）

回答

相關問題