代码之家 › 专栏 › 技术社区 › Héctor C.

使用Indy向基于IP的主机发送HTTP Get请求

indy delphi http

Héctor C. · 技术社区 · 7 年前

我有一些连接到servlet的Delphi代码,我试图从TIdTCPClient切换到TIdHTTP。

   try
      lHTTP := TIdHTTP.Create( nil );
      responseStream := TMemoryStream.Create;
      lHTTP.Get(HttpMsg, responseStream);
      SetString( html, PAnsiChar(responseStream.Memory), responseStream.Size);
      AnotarMensaje( odDepurar, 'IMPFIS: Impresora fiscal reservada ' + html );

其中HttpMsg localhost:6080/QRSRPServer/PedirImpresion?usuarioDMS=hector

GET localhost:6080/QRSRPServer/PedirImpresion?usuarioDMS=hector HTTP/1.1
Content-Type: text/html
Accept: text/html, */*
User-Agent: Mozilla/3.0 (compatible; Indy Library)

HTTP/1.1 400 Bad Request

我之前的HTTP对话框是这样的

GET /QRSRPServer/PedirImpresion?usuarioDMS=hector HTTP/1.1
Host: localhost:6080

HTTP/1.1 200 OK

因此,我尝试添加主机标头,其中包含以下主机: localhost:6080

   try
      lHTTP := TIdHTTP.Create( nil );
      lHTTP.Host := Host;
      responseStream := TMemoryStream.Create;
      lHTTP.Get(HttpMsg, responseStream);
      SetString( html, PAnsiChar(responseStream.Memory), responseStream.Size);
      AnotarMensaje( odDepurar, 'IMPFIS: Impresora fiscal reservada ' + html );

Socket Error # 11004

2 回复 | 直到 7 年前

Remy Lebeau 7 年前

其中HttpMsg localhost:6080/QRSRPServer/PedirImpresion?usuarioDMS=hector

HttpMsg 以…开始 http:// 或 https://

http://localhost:6080/QRSRPServer/PedirImpresion?usuarioDMS=hector

EIdUnknownProtocol 出现异常时 TIdHTTP 解析URL并查看缺少的协议方案。

TIdHTTP 应始终发送 Host Bad Request

你还声称将主机和端口值包括在 GET 线这个它做这件事的时间是通过HTTP代理连接到主机时,但我没有看到您配置 TIdHTTP.ProxyParams 不动产。

简言之

正确的解决方案是确保您通过了满的 TIdHTTP.Get() .

html 成为一名 AnsiString 。您应该将其更改为标准 string AnsiString公司 在D2007和更早版本中)并让 TIdHTTP TMemoryStream 不再:

html := lHTTP.Get(HttpMsg);

Héctor C. 7 年前

这比我想象的要容易。我假设有一个包含端口的“主机”参数表就足够了,但看看Wireshark捕获,我发现它通过标准HTTP端口发送所有内容。

这就成功了

try
  lHTTP := TIdHTTP.Create( nil );
  lHTTP.Host := GatewayIp;
  lHTTP.Port := GatewayPuerto;
  responseStream := TMemoryStream.Create;
  lHTTP.Request.CustomHeaders.Clear;
  lHTTP.Request.CustomHeaders.Add('Host: ' + Host );
  lHTTP.Get(HttpMsg, responseStream);
  SetString( html, PAnsiChar(responseStream.Memory), responseStream.Size);
  AnotarMensaje( odDepurar, 'IMPFIS: Impresora fiscal reservada ' + html );

推荐文章

Jaimin Modi · 从Flutter中的Head呼叫响应中获取特定Header值

2 年前

JoshuaaMarkkNairr · 我在flatter/dart代码“未处理的异常:类型‘Future<dynamic>’不是类型转换中类型‘String’的子类型”中得到了这个错误

2 年前

Daavee18 · 节点。未设置“数据”侦听器时,js http模块未关闭连接

2 年前

RSX · 为什么带有vanilla Rust的HTTP GET请求没有得到响应?

6 年前

Julian Koster · $\u发布内容的持续时间(生存期)

6 年前

obiwankenoobi · http POST请求响应“状态”:200,但对象为空

6 年前

chris hyun ho kim · 用于“拆分”记录的HTTP谓词

6 年前

Ian.V · Golang CSRF在结构中保存模板字段

6 年前

Lee Merlas · 从http GET获得第一个结果后立即显示项目

6 年前

Grigoris Loukidis · C#(500)内部服务器错误覆盖原始异常[重复]

6 年前