全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2491
推到 Plurk!
推到 Facebook!

如何使用SOAP傳送XML Message

缺席
ESCAPE
一般會員


發表:37
回覆:47
積分:16
註冊:2005-02-15

發送簡訊給我
#1 引用回覆 回覆 發表時間:2014-05-15 16:14:45 IP:59.127.xxx.xxx 訂閱
請教各位有經驗的先進,
因公司使用企業簡訊的關係,
原本使用HTTP URL的方式傳送,並使用IdHttp元建達到功能需求。
現在該企業簡訊平台使用SOAP的方式將XML傳到該簡訊平台伺服器,並接收回傳訊息。
但目前查詢到的資料幾乎都是SOAP WebService的資料,
但該企業簡訊平台並未提供WebService....
小弟才疏學淺,煩請各位有經驗的前輩不吝指教。

該企業簡訊平台雖然有提供範例,但獨缺delphi的範例,
附上VB6的範例供各位參考:

VB6
[code vb]
strUrl = "http://xsms.aptg.com.tw/XSMSAP/api/APIRTHttpRequest"
APIRequestStr = "



098xxxxxx
xxxx
xxxx
測試簡訊
Y
N
2010xxxxxxxx
這是一封測試簡訊

098xxxxxx



"
Set oHTTP = New XMLHTTP
oHTTP.Open "POST", strUrl, False
oHTTP.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oHTTP.send APIRequestStr

[/code]





ESCAPE
一般會員


發表:37
回覆:47
積分:16
註冊:2005-02-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2014-05-16 17:38:30 IP:59.127.xxx.xxx 訂閱
解決了!
使用IdHttp元件即可達到功能。
必須先將欲傳送的XML儲存成xml檔案,
再使用TidHttp.Post方法傳送,
附上程式碼供參考。


[code delphi]
procedure TForm1.Button3Click(Sender: TObject);
Var
_ReturnValue,_url:UnicodeString;
begin
idHttp.Request.ContentType:='text/xml';
_Url:='http://xsms.aptg.com.tw/XSMSAP/api/APIRTFastRequest';
_ReturnValue:=idhttp.Post(_url,'E:\CodeSpace\TEST\亞太簡訊新平台測試\xsmsxml.xml');
memo1.Lines.Add(_ReturnValue);
memo1.Lines.Add(' ');
end;
[/code]


編輯記錄
ESCAPE 重新編輯於 2014-05-16 17:39:31, 註解 無‧
ESCAPE 重新編輯於 2014-05-16 17:44:09, 註解 無‧
ESCAPE 重新編輯於 2014-05-16 17:45:32, 註解 無‧
系統時間:2017-10-17 21:02:29
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!