文章 DELPHI 6 呼叫MicroSoft 寫的WebService How To.

C#的WebService
[code c#]

using System;
using System.Collections.Generic;
using System.Web;
using System.Web.Services;

namespace AccountService
{
/// ＜summary＞
///Service1 的摘要描述
/// ＜/summary＞
[WebService(Namespace = "http://tempuri.org/")]
[WebServiceBinding(ConformsTo = WsiProfiles.BasicProfile1_1)]
[System.ComponentModel.ToolboxItem(false)]
public class AccountService : System.Web.Services.WebService
{

[WebMethod]
public string HelloWorld()
{
return "Hello World";
}

[WebMethod]
public string[] GetAccNumList(string CIF)
{
try
{
this.Context.Request.SaveAs(@"c:\log\" DateTime.Now.ToString("yyyymmddhhnnss") "req.txt", true);
}
catch (Exception ex)
{
//
}
List＜string＞ myList = new List＜string＞();
myList.Add("1111111111");
myList.Add("2222222222");
myList.Add("3333333333");
myList.Add(CIF);

return myList.ToArray();
}


[WebMethod]
public string[] GetAccNumListFrCrd(string CardNumber)
{
try
{
this.Context.Request.SaveAs(@"c:\log\" DateTime.Now.ToString("yyyymmddhhnnss") "req.txt", true);
}
catch (Exception ex)
{
//
}


List＜string＞ myList = new List＜string＞();
myList.Add("4444444444");
myList.Add("5555555555");
myList.Add("6666666666");
myList.Add(CardNumber);

return myList.ToArray();
}
[/code]

案例一：
1. 使用 Delphi6 THTTPRIO 呼叫 WebService
STEP1 :Import WSDL

STEP 2: 呼叫 WebService GetAccNumList 回傳 ArrayOfString = array of String;
[code delphi]
var
intfEV: AccountServiceSoap;
ss:integer;
v:Variant ;
CIF:String;
gg:string;
begin
CIF := 'CIF';



intfEV := HTTPRIO1 as AccountServiceSoap;
v := intfEV.GetAccNumList( CIF); //問題只能宣告Variant,
//無法宣告ArrayOfString
[/code]
Step3:
DEBUG C# Webservice 發現
public string[] GetAccNumList(string CIF)
CIF 為 null 表示收不到Delphi 發的CIF 參數

STEP4: 發送的Soap封包格式如下
[code c#]
＜?xml version="1.0"?＞
＜SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"＞
＜SOAP-ENV:Body SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"＞
＜NS1:GetAccNumList xmlns:NS1="http://tempuri.org/"＞
＜CIF xsi:type="xsd:string"＞CIFddd＜/CIF＞
＜/NS1:GetAccNumList＞
＜/SOAP-ENV:Body＞
＜/SOAP-ENV:Envelope＞
[/code]
發現是多一個NS1:導致C#無法收到LOG
改用C# Client發送 SOAP

SOAP LOG
[code c#]

＜?xml version="1.0" encoding="utf-8"?＞
＜soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"＞
＜soap:Body＞＜GetAccNumList xmlns="http://tempuri.org/"＞
＜CIF＞ddd＜/CIF＞
＜/GetAccNumList＞
＜/soap:Body＞
＜/soap:Envelope＞
[/code]
WebService可以收到 C# Client 發的CIF 參數

改寫DELPHI CODE 改用 SOAP Tool Kit


[code delphi]

type
TStringDynArray = Array of String;

var vWSObj:Variant;
ret:Variant;
i:integer;
ds : TStringDynArray;
ds2 : TStringDynArray;
begin
vWSObj := CreateOleObject('MSSOAP.SoapClient');
vWSObj.mssoapinit('http://localhost:1673/AccountService.asmx?WSDL');
caption := vWSObj.HelloWorld;

//
ds := vWSObj.GetAccNumList('123');

for i := Low(ds) to high(ds) do
begin
memo1.Lines.Add(ds[i]);
end;

ds2 := vWSObj.GetAccNumListFrCrd('456');

for i := Low(ds2) to high(ds2) do
begin
memo1.Lines.Add(ds2[i]);
end;


vWSObj := unassigned;
end;

[/code]

Array of String; 可以使用了
WebService可以收到 ('MSSOAP.SoapClient' 發的CIF 參數

SOAP 封包
[code delphi]

POST /AccountService.asmx HTTP/1.1
Cache-Control: no-cache
Connection: Keep-Alive
Content-Length: 317
Content-Type: text/xml
Host: localhost:1672
User-Agent: SOAP Sdk
SOAPAction: "http://tempuri.org/GetAccNumListFrCrd"

＜?xml version="1.0" encoding="UTF-8" standalone="no"?＞
＜SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"＞
＜SOAP-ENV:Body＞＜GetAccNumListFrCrd xmlns="http://tempuri.org/"＞
＜CardNumber xmlns:SOAPSDK1="http://tempuri.org/"＞456＜/CardNumber＞
＜/GetAccNumListFrCrd＞
＜/SOAP-ENV:Body＞
＜/SOAP-ENV:Envelope＞


[/code]

編輯記錄

HikaruGo 大大你好：

一、關於 CODE 改用 SOAP Tool Kit ，是否有較詳細的(使用)說明 ??

二、 SOAP 封包，你是如果擷取的??

謝謝!!

===================引 用 HikaruGo 文 章===================

編輯記錄

建議參考李維先生的舊書「實戰 delphi6/kiylix2 soap/webservice 程式設計」

===================引 用 salo0610 文 章===================

HikaruGo大大你好：

一、關於 CODE 改用 SOAP Tool Kit ，是否有較詳細的(使用)說明 ??

二、SOAP 封包，你是如果擷取的??

謝謝!!

===================引 用 HikaruGo 文 章===================