delphi7 idhttp.get中URL 带%处理

在Delphi 10中使用`IdHTTP`进行GET请求时出现 `Protocol field is empty.` 错误，通常是由于请求的URL格式不正确导致的。该错误表明协议字段（如 `http://` 或 `https://`）缺失。 以下是一些可能的解决办法： ### 1. 确保URL包含协议前缀 要保证传递给 `IdHTTP` 的URL字符串以 `http://` 或者 `https://` 开头。示例代码如下： ```delphi procedure TForm1.Button1Click(Sender: TObject); var IdHTTP: TIdHTTP; Response: string; URL: string; begin IdHTTP := TIdHTTP.Create(nil); try // 确保URL包含协议前缀 URL := 'http://example.com'; Response := IdHTTP.Get(URL); ShowMessage(Response); finally IdHTTP.Free; end; end; ``` ### 2. 检查URL输入 在代码中使用URL之前，需要检查URL输入是否正确。可以使用字符串处理函数来验证和修复URL。示例如下： ```delphi function EnsureProtocol(const AURL: string): string; begin if not (Copy(AURL, 1, 7) = 'http://' or Copy(AURL, 1, 8) = 'https://') then Result := 'http://' + AURL else Result := AURL; end; procedure TForm1.Button1Click(Sender: TObject); var IdHTTP: TIdHTTP; Response: string; URL: string; begin IdHTTP := TIdHTTP.Create(nil); try URL := 'example.com'; URL := EnsureProtocol(URL); Response := IdHTTP.Get(URL); ShowMessage(Response); finally IdHTTP.Free; end; end; ``` ### 3. 检查URL来源 如果URL是从用户输入或者其他数据源获取的，要确保数据源没有引入额外的空格或者其他非法字符。可以使用 `Trim` 函数去除首尾空格。示例如下： ```delphi procedure TForm1.Button1Click(Sender: TObject); var IdHTTP: TIdHTTP; Response: string; URL: string; begin IdHTTP := TIdHTTP.Create(nil); try URL := Trim(Edit1.Text); URL := EnsureProtocol(URL); Response := IdHTTP.Get(URL); ShowMessage(Response); finally IdHTTP.Free; end; end; ```