如何列出 Delphi 中用户创建的 Pastebin 粘贴？

Question

我是 Delphi 的初学者（因为学校原因，我使用 Delphi 2010），我正在尝试获取一个输出文本文件，其中包含一个 pastebin 用户创建的粘贴列表，但是我不确定该怎么做。在 Pastebin.com (PastebinAPI) 上，他们解释了 API 是如何工作的，但我无法让它在 Delphi.

上工作

这是我目前编写的代码（我模糊了我的细节）：

procedure TfrmLogin.imgLoginButtonClick(Sender: TObject);
var
  sSource, sAPI_Dev_Key, sAPI_User_Key, sAPI_Results_Limit, sAPI_Option,
    sListPasteLink: String;
begin

  sSource := 'https://pastebin.com/api/api_post.php/';
  sAPI_Dev_Key := 'xxxxxxxxxxxxxxxxxxxxxxxx/';
  sAPI_User_Key := 'xxxxxxxxxxxxxxxxxxxxxxx/';
  sAPI_Results_Limit := '1000/';
  sAPI_Option := 'list';

  sListPasteLink := sSource + sAPI_Dev_Key + sAPI_User_Key +
    sAPI_Results_Limit + sAPI_Option;
end;

我不确定这之后要做什么，我如何 POST 这个在 Delphi 中生成的 link 来获取创建的粘贴列表？

我尝试复制生成的 link 并将其粘贴到我的网络浏览器中，但 Pastebin 显示 此页面已被删除！

任何帮助将不胜感激，谢谢

Answer 1

这是一个例子。在表单上放置 TButton、TMemo、TIdHTTP 和 TIdSSLIOHandlerSocketOpenSSL。您还需要将 libeay32.dll 和 ssleay32.dll 复制到您的应用程序目录中（它们在安装 Delphi 的目录中的某个位置提供）。

procedure TForm1.Button1Click(Sender: TObject);
var
  Params: TStringList;
begin
  Params := TStringList.Create;
  Params.Add('api_dev_key=*****');
  Params.Add('api_user_key=*****');
  Params.Add('api_option=list');
  try
    IdSSLIOHandlerSocketOpenSSL1.SSLOptions.SSLVersions := [sslvTLSv1_1, sslvTLSv1_2];
    IdHTTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
    Memo1.Text := IdHTTP1.Post('https://pastebin.com/api/api_post.php', Params);
  finally
    Params.Free;
  end;
end;

如何列出 Delphi 中用户创建的 Pastebin 粘贴？

How do I list Pastebin pastes created by a user in Delphi?

delphi

pastebin