如何列出用户在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;

我不知道之后该怎么办，我如何在Delphi中发布这个生成的链接来获得创建的粘贴列表？

我尝试复制生成的链接并将其粘贴到我的web浏览器中，但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;