web-services - 在运行时为 SMS Web 服务交付设置主机和端口时 TIdHTTP 出错

Question

我正在尝试使用来自 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);

Answer 1

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要使用的值，请勿手动设置。

查看您提供链接的库代码，需要进行以下更改:

1. 从 TSMSSender 构造函数中删除 http.Port 和 http.Host 属性的分配。

2. 在 TSMSSender.SimpleSend() 中，将所需的主机添加到正在创建的 URL 中:

   //StrEnvio := '/GatewayIntegration/msgSms.do?dispatch=send' +
   StrEnvio := 'http://system.human.com.br/GatewayIntegration/msgSms.do?dispatch=send' +
   

3. 在 TSMSSender.MultipleSend() 中，移除 http.Request.ContentType 属性的分配。