【Delphi 爬虫库 1】GET和POST方法

在Delphi中，可以使用TIdHttp组件来实现GET和POST方法，这是Indy组件库中的一个网络请求组件。以下是使用TIdHttp实现GET和POST方法的示例代码：

uses
  IdHTTP, IdGlobal;
 
// GET方法示例
procedure TForm1.ButtonGetClick(Sender: TObject);
var
  HttpClient: TIdHTTP;
  Response: String;
begin
  HttpClient := TIdHTTP.Create(nil);
  try
    Response := HttpClient.Get('http://example.com');
    ShowMessage(Response);
  finally
    HttpClient.Free;
  end;
end;
 
// POST方法示例
procedure TForm1.ButtonPostClick(Sender: TObject);
var
  HttpClient: TIdHTTP;
  Params: TStringList;
  Response: String;
begin
  HttpClient := TIdHTTP.Create(nil);
  Params := TStringList.Create;
  try
    Params.Add('key1=value1');
    Params.Add('key2=value2');
    Response := HttpClient.Post('http://example.com', Params);
    ShowMessage(Response);
  finally
    Params.Free;
    HttpClient.Free;
  end;
end;

在这个示例中，ButtonGetClick是一个事件处理程序，当点击按钮时会触发该事件，并执行GET请求。ButtonPostClick是一个事件处理程序，当点击按钮时会触发该事件，并执行POST请求。

请注意，在实际应用中，可能需要设置更多的属性，如代理、超时、请求头等，以满足特定的需求。此外，对于实际的应用场景，可能还需要处理异常和错误。