如何使用SOAP傳送XML Message |
缺席
|
ESCAPE
一般會員 ![]() ![]() 發表:37 回覆:47 積分:16 註冊:2005-02-15 發送簡訊給我 |
請教各位有經驗的先進,
因公司使用企業簡訊的關係, 原本使用HTTP URL的方式傳送,並使用IdHttp元建達到功能需求。 現在該企業簡訊平台使用SOAP的方式將XML傳到該簡訊平台伺服器,並接收回傳訊息。 但目前查詢到的資料幾乎都是SOAP WebService的資料, 但該企業簡訊平台並未提供WebService.... 小弟才疏學淺,煩請各位有經驗的前輩不吝指教。 該企業簡訊平台雖然有提供範例,但獨缺delphi的範例, 附上VB6的範例供各位參考: VB6 [code vb] strUrl = "http://xsms.aptg.com.tw/XSMSAP/api/APIRTHttpRequest" APIRequestStr = " 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 發送簡訊給我 |
解決了!
使用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] |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |