我正在尝试使用来自 http://www.human.com.br 的 Delphi SMS API但是当组件在创建 Indy 的 TIdHTTP
实例后尝试设置 Web 服务的主机和端口时,我收到“访问冲突”错误。
host := TidHTTP.Create;
host.Socket.Port := 80; // error right here!
host.Socket.Host := 'system.human.com.br';
uri := TidURI.Create();
原始组件是在 Indy60 中创建的,而我有 Indy170,所以 host
和 Port
之间没有 Socket
,我不得不把
怎么了?我试图将组件直接放在窗体上,在按钮代码中我做了 Socket 设置,我也得到了同样的错误!
他们使用的发送方法是这样的:
data := TIdMultiPartFormDataStream.Create;
host.Request.ContentType := 'application/x-www-form-urlencoded';
host.Post(strSMStext , data);
最佳答案
Socket
属性是一个特殊属性,当当前 IOHandler
属性值指向 TIdIOHandlerSocket
时,它可以更轻松地访问特定于套接字的功能后代组件。否则为 nil
。您不应直接设置 Socket.Host
和 Socket.Port
属性。 TIdTCPClient.Connect()
会在内部为您处理。要设置主机/端口,您需要使用 TIdTCPClient.Host
和 TIdTCPClient.Port
属性。但是,TIdHTTP
是该规则的一个异常(exception),因为 TIdHTTP
根据您传递给它的 URL 在内部为您设置主机/端口属性,例如:
host := TidHTTP.Create;
host.Get('http://system.human.com.br/', ...); // <-- sets Host and Port for you!
host := TidHTTP.Create;
host.Post('http://system.human.com.br/', ...); // <-- sets Host and Port for you!
所以根本不要手动设置主机/端口属性。在每个具有 TIdHTTP
组件的 Indy 版本中都是如此。
发布 TIdMultiPartFormDataStream
对象会强制 Content-Type
header 为 multipart/form-data
。你不能覆盖它。尝试使用 application/x-www-form-urlencoded
发送 MIME 编码数据是完全错误的。如果你真的想发送 application/x-www-form-urlencoded
数据,你需要发布一个 TStrings
对象,例如:
data := TStringList.Create;
data.Add('name=value');
...
host.Post(strSMStext , data);
当发布 TIdMultipartFormDataStream
或 TStrings
时,让 TIdHTTP.Post()
决定哪个 Content-Type
要使用的值,请勿手动设置。
查看您提供链接的库代码,需要进行以下更改:
从
TSMSSender
构造函数中删除http.Port
和http.Host
属性的分配。在
TSMSSender.SimpleSend()
中,将所需的主机添加到正在创建的 URL 中://StrEnvio := '/GatewayIntegration/msgSms.do?dispatch=send' + StrEnvio := 'http://system.human.com.br/GatewayIntegration/msgSms.do?dispatch=send' +
在
TSMSSender.MultipleSend()
中,移除http.Request.ContentType
属性的分配。
关于web-services - 在运行时为 SMS Web 服务交付设置主机和端口时 TIdHTTP 出错,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/16966594/