DELPHI XE 10.3 调用API SSL 处理 HTTP Basic的验证 传输内容汉字乱码 处理办法

S3_Leo

SSL 处理  需要程序文件中放libeay32.dll、ssleay32.dll 文件


unit Main;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils,
  System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,



  StdCtrls,IdHTTP, IdTCPConnection, IdTCPClient, IdBaseComponent, IdComponent,
  IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL;

type
  TMain_API_Form = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    IdHTTP1: TIdHTTP;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

    function SendMsg(Msg : string) : string;
  end;

var
  Main_API_Form: TMain_API_Form;

implementation

{$R *.dfm}

{ TMain_API_Form }

procedure TMain_API_Form.Button1Click(Sender: TObject);
var
  acceptInfo : string;
begin
  //向API发送信息，并获取返回
  acceptInfo := SendMsg(Edit1.Text);
  //将信息在界面上显示
  Memo1.Lines.Add(acceptInfo);
end;

function TMain_API_Form.SendMsg(Msg: string): string;
var
  idhttp :  TIdHTTP;
  url,ResquestStr,ResponseStr : string;
  ResquestStream,ResponseStream : TStringStream;
begin
  Result := '';
  idhttp := IdHTTP1;
  idhttp.Request.ContentType := 'application/json';
  idhttp.Request.Accept := 'application/json';
  idhttp.Request.UserName:='**********';
  idhttp.Request.Password:='***************';
  idhttp.Request.BasicAuthentication:=True;


  ResquestStr :=Msg;

  //将传递的信息，写入请求流
  ResquestStream := TStringStream.Create(ResquestStr, TEncoding.GetEncoding(65001));   //此处是处理中文乱码问题  indy10控件的UTF8转码方法会出现汉字乱码
  ResponseStream := TStringStream.Create('');
  ShowMessage(ResquestStr);

  url := 'https://kerrywines.jinshuju.com/api/v1/forms/RZlOkN';
  try
    try
      //发起请求
      idhttp.Post(url,ResquestStream,ResponseStream);
    except
      on e: Exception do
      begin
        ShowMessage('出现异常：' + e.Message);
      end;
    end;
    //获取响应的信息
    ResponseStr := ResponseStream.DataString;
    //响应的信息需要进行 UTF8 解密
    ResponseStr := UTF8Decode(ResponseStr);
    Result := ResponseStr;
  finally
    idhttp.Free;
    ResquestStream.Free;
    ResponseStream.Free;
  end;
end;



end.