我的几乎所有开发经验都来自桌面应用程序。我目前正在使用Delphi 2010,我需要编写一个SOAP客户端来访问California EDD维护的Web服务,以便以电子方式处理工资单数据。我放弃了Delphi WSDL Importer,因为幕后发生了太多事情,我似乎无法取得任何进展。我下载了Fiddler2,并一直用它来查看我写在网上的内容。我找到了这个发布程序,我觉得我现在到了某个地方。
//from StackOverflow Andreas Rejbrand 06/04/2012
procedure WebPostData(const UserAgent: string; const Server: string; const Resource: string; const Data: AnsiString); overload;
var
hInet: HINTERNET;
hHTTP: HINTERNET;
hReq: HINTERNET;
const
accept: packed array[0..1] of LPWSTR = (PChar('*/*'), nil);
header: string = 'Content-Type: text/plain';
begin
hInet := InternetOpen(PChar(UserAgent), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
try
hHTTP := InternetConnect(hInet, PChar(Server), INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 1);
try
hReq := HttpOpenRequest(hHTTP, PChar('POST'), PChar(Resource), nil, nil, @accept, 0, 1);
try
if not HttpSendRequest(hReq, PChar(header), length(header), PChar(Data), length(Data)) then
raise Exception.Create('HttpOpenRequest failed. ' + SysErrorMessage(GetLastError));
finally
InternetCloseHandle(hReq);
end;
finally
InternetCloseHandle(hHTTP);
end;
finally
InternetCloseHandle(hInet);
end;
end;
我更改了内容类型,因为原始内容似乎永远不会返回。
我一直这样称呼它:
procedure TForm1.Button1Click(Sender: TObject);
var sl: TStringList;
s: String;
begin
sl := TStringList.Create;
sl.LoadFromFile('C:\Documents and Settings\Jack\Desktop\My Reading\FSET Development\Ping.xml');
s := sl.Text;
sl.Free;
WebPostData('BNWebSvc', 'FSETTESTPROD.EDD.CA.GOV','fsetservice', s);
end;
在我的浏览器中,主机(FSETTESTPROD.EDD.CA.GOV)存在并响应它可用。当我发布时,我收到404错误可能是因为附加了Web服务名称。在Fiddler2中,输出如下所示:
POST http://FSETTESTPROD.EDD.CA.GOV/fsetservice HTTP/1.1
Accept: */*
Content-Type: text/plain
User-Agent: BNWebSvc
Host: FSETTESTPROD.EDD.CA.GOV
Content-Length: 2190
Pragma: no-cache
Cookie: __utma=158387685.1851397844.1321382260.1321382260.1321382260.1; __utmz=158387685.1321382260.1.1.utmcsr=google|utmccn=(organic)|utmcmd=organic|utmctr=calif%20edd%20eft%20payroll%20processor%20batch%20processing
<?xml version="1.0" encoding="utf-8"?>
<log>
<inputMessage utc="3/2/2007 10:45:44 PM" messageId="urn:uuid:c07c9aef-28db-4843-8dfc-c5b4d3dc363b">
<processingStep description="Unprocessed message">
<soap:Envelope xmlns:xop="http://www.w3.org/2004/08/xop/include" 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" xmlns:wsa="http://schemas.xmlsoap.org/ws/2004/08/addressing" xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd" xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd">
<soap:Header>
<wsa:Action>//edd.ca.gov/Ping</wsa:Action>
<wsa:MessageID>urn:uuid:c07c9aef-28db-4843-8dfc-c5b4d3dc363b</wsa:MessageID>
<wsa:ReplyTo>
<wsa:Address>http://schemas.xmlsoap.org/ws/2004/08/addressing/role/anonymous</wsa:Address>
</wsa:ReplyTo>
<wsa:To>http://localhost:3031/EDD.DMRC.FSET.WebServices/FsetService.asmx</wsa:To>
<wsse:Security soap:mustUnderstand="1">
<wsu:Timestamp wsu:Id="Timestamp-0983e8c1-e822-4648-8066-33839f54a6a0">
<wsu:Created>2007-03-02T22:45:41Z</wsu:Created>
<wsu:Expires>2007-03-02T22:50:41Z</wsu:Expires>
</wsu:Timestamp>
<wsse:UsernameToken xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd" wsu:Id="SecurityToken-0d55d82c-d16d-4c0e-826b-21bf7c805a0f">
<wsse:Username>MyUserName</wsse:Username>
<wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText">MyPassword</wsse:Password>
<wsse:Nonce>w6dgDz1DMzKntFsFdEcjhw==</wsse:Nonce>
<wsu:Created>2007-03-02T22:45:41Z</wsu:Created>
</wsse:UsernameToken>
</wsse:Security>
</soap:Header>
<soap:Body>
<Ping xmlns="http://edd.ca.gov/">
</Ping>
</soap:Body>
</soap:Envelope>
</processingStep>
</inputMessage>
</log>
我需要在这个工作时使用HTTPS发送它,我可能需要将其合并以使其正常工作。
我是朝着正确的方向前进的吗?
Andreas的程序没有说明如何检索响应。如何检索回复?
答案 0 :(得分:1)
我想我正在取得一些进展。我将WebPostData更改为一个函数,并从其他地方复制了一些代码以使用SSL并返回结果。它现在看起来像这样:
function WebPostData(const UserAgent: string; const Server: string; const Resource: string; const Data: AnsiString): String;
var
hInet: HINTERNET;
hHTTP: HINTERNET;
hReq: HINTERNET;
BufStream: TMemoryStream;
BytesRead: Cardinal;
aBuffer : Array[0..4096] of Char;
flags : DWord;
const
accept: packed array[0..1] of LPWSTR = (PChar('*/*'), nil);
header: string = 'Content-Type: text/plain';
begin
hInet := InternetOpen(PChar(UserAgent), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
try
hHTTP := InternetConnect(hInet, PChar(Server), INTERNET_DEFAULT_HTTPS_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 1);
try
flags := INTERNET_FLAG_SECURE or INTERNET_FLAG_KEEP_CONNECTION;
hReq := HttpOpenRequest(hHTTP, PChar('POST'), PChar(Resource), nil, nil, @accept, flags, 1);
try
if not HttpSendRequest(hReq, PChar(header), length(header), PChar(Data), length(Data)) then begin
raise Exception.Create('HttpOpenRequest failed. ' + SysErrorMessage(GetLastError));
end else begin
BufStream := TMemoryStream.Create;
try
while InternetReadFile(hReq, @aBuffer, SizeOf(aBuffer), BytesRead) do
begin
if (BytesRead = 0) then Break;
BufStream.Write(aBuffer, BytesRead);
end;
aBuffer[0] := #0;
BufStream.Write(aBuffer, 1);
Result := PChar(BufStream.Memory);
finally
BufStream.Free;
end;
end;
finally
InternetCloseHandle(hReq);
end;
finally
InternetCloseHandle(hHTTP);
end;
finally
InternetCloseHandle(hInet);
end;
end;
我现在在Fiddler得到两个结果,一个成功,一个没有。
成功的一个:
CONNECT fsettestprod.edd.ca.gov:443 HTTP/1.0
User-Agent: BNWebSvc
Host: FSETTESTPROD.EDD.CA.GOV:443
Content-Length: 0
Connection: Keep-Alive
Pragma: no-cache
A SSLv3-compatible ClientHello handshake was found. Fiddler extracted the parameters below.
Major Version: 3
Minor Version: 1
Random: 4F 28 1F 92 96 EA 2C 64 91 59 12 84 D1 F3 F8 ED BA 89 A5 44 94 D6 50 E0 CF 9B FA 12 5F 57 AD EB
SessionID: empty
Ciphers:
[0004] SSL_RSA_WITH_RC4_128_MD5
[0005] SSL_RSA_WITH_RC4_128_SHA
[000A] SSL_RSA_WITH_3DES_EDE_SHA
[0009] SSL_RSA_WITH_DES_SHA
[0064] TLS_RSA_EXPORT1024_WITH_RC4_56_SHA
[0062] TLS_RSA_EXPORT1024_WITH_DES_SHA
[0003] SSL_RSA_EXPORT_WITH_RC4_40_MD5
[0006] SSL_RSA_EXPORT_WITH_RC2_40_MD5
[0013] SSL_DHE_DSS_WITH_3DES_EDE_SHA
[0012] SSL_DHE_DSS_WITH_DES_SHA
[0063] TLS_DHE_DSS_EXPORT1024_WITH_DES_SHA
不成功的一个:
POST https://FSETTESTPROD.EDD.CA.GOV/fsetservice HTTP/1.1
Accept: */*
Content-Type: text/plain
User-Agent: BNWebSvc
Host: FSETTESTPROD.EDD.CA.GOV
Content-Length: 2190
Connection: Keep-Alive
Cache-Control: no-cache
Cookie: __utma=158387685.1851397844.1321382260.1321382260.1321382260.1; __utmz=158387685.1321382260.1.1.utmcsr=google|utmccn=(organic)|utmcmd=organic|utmctr=calif%20edd%20eft%20payroll%20processor%20batch%20processing
<?xml version="1.0" encoding="utf-8"?>
<log>
<inputMessage utc="3/2/2007 10:45:44 PM" messageId="urn:uuid:c07c9aef-28db-4843-8dfc-c5b4d3dc363b">
<processingStep description="Unprocessed message">
<soap:Envelope xmlns:xop="http://www.w3.org/2004/08/xop/include" 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" xmlns:wsa="http://schemas.xmlsoap.org/ws/2004/08/addressing" xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd" xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd">
<soap:Header>
<wsa:Action>//edd.ca.gov/Ping</wsa:Action>
<wsa:MessageID>urn:uuid:c07c9aef-28db-4843-8dfc-c5b4d3dc363b</wsa:MessageID>
<wsa:ReplyTo>
<wsa:Address>http://schemas.xmlsoap.org/ws/2004/08/addressing/role/anonymous</wsa:Address>
</wsa:ReplyTo>
<wsa:To>http://localhost:3031/EDD.DMRC.FSET.WebServices/FsetService.asmx</wsa:To>
<wsse:Security soap:mustUnderstand="1">
<wsu:Timestamp wsu:Id="Timestamp-0983e8c1-e822-4648-8066-33839f54a6a0">
<wsu:Created>2007-03-02T22:45:41Z</wsu:Created>
<wsu:Expires>2007-03-02T22:50:41Z</wsu:Expires>
</wsu:Timestamp>
<wsse:UsernameToken xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd" wsu:Id="SecurityToken-0d55d82c-d16d-4c0e-826b-21bf7c805a0f">
<wsse:Username>***MyUserName***</wsse:Username>
<wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText">***MyPassword***</wsse:Password>
<wsse:Nonce>w6dgDz1DMzKntFsFdEcjhw==</wsse:Nonce>
<wsu:Created>2007-03-02T22:45:41Z</wsu:Created>
</wsse:UsernameToken>
</wsse:Security>
</soap:Header>
<soap:Body>
<Ping xmlns="http://edd.ca.gov/">
</Ping>
</soap:Body>
</soap:Envelope>
</processingStep>
</inputMessage>
</log>
我介入了我的代码并观察了Fiddler的反应。当我跨过HTTPSendRequest行时,两条消息都出现了。在我的按钮单击事件中,我将函数的结果分配给备忘录控件,但我得到的是一堆表示不可打印字符的正方形。
我得到的结果是否表明流程良好但内容不好?
这仍然是一个问题,因为您无法以这种方式访问WebService吗?
我如何解密结果,或者当我正确处理过程时会自动发生这种情况?
答案 1 :(得分:0)
我现在做了更多的研究,买了一本关于网络服务的好书[{3}}(谢谢扎根Nook),并与我试图使用的网络服务机构的某个人进行了简短的交谈。所以我想我对我一直在问的问题有一些答案,我会在这里总结一下,以防它对其他人开始这条道路有所帮助。如果您发现我有错误的内容并且您可以纠正或改进它,如果您愿意花时间进行改进,我将不胜感激。
在显示Web服务在HTTP上运行的图形中,这意味着如果您使用的组件可以向网站发出请求,您也可以使用它来创建Web服务客户端。
您应该立即安装"Teach Yourself Web Services"。您将从中获得的反馈对于取得进展至关重要。
WSDL文件可能有助于创建Web服务客户端,但可能没有。我对Delphi WSDL导入器的经验是它完成了一项不完整的工作。 Web服务上的Wikipedia Fiddler2有一个关于Big Web Services的部分,指出WSDL文件不是必需的,但可以帮助自动化Web服务客户端的设计。如果没用,请不要使用它。
您无需使用HTTPRIO组件即可访问Web服务。你可以使用WinInet单元和上面的一些代码,我从一些StackOverflow帖子中抄袭了这些代码。
WSDL文件中引用的模式不必存在于显示的位置。从技术上讲,这些是URI而不是URL(标识符而不是位置)。
当自动生成不起作用时,手动编写Web服务客户端可能是自动生成的可接受替代方法。此外,像许多黑盒解决方案一样,它只在它工作时才有效。当它不起作用时,可能没有其他选择。此外,您将了解更多信息并更好地控制输出。
如果使用上面的PostWebData例程,使用SSL发送请求似乎是自动的。获得回复也包含在此例程中。
获取我从Web服务获得的两个响应似乎表明我的流程很好,但我的内容很糟糕。我现在必须查看实际的SOAP信封并提供可接受的数据以进入下一步。
如果在完成下一步时结果未被解密,那么我将不得不做更多的研究。
我希望这有助于其他人尝试在网络服务中找到自己的方式。