在 Delphi 中创建本地HTTP侦听器

bkkx9g8r  于 11个月前  发布在  其他
关注(0)|答案(1)|浏览(99)

我有一个用 Delphi 11编写的Windows桌面应用程序,我正在与Xero Accounting集成。第一步完成,这是使用ShellExecute打开一个浏览器,并生成一个URL,让用户有机会登录。所使用的URL的参数是一个重定向URI,其中包括一个端口。
如何在 Delphi 11中创建一个本地http侦听器来接收Xero发送回的数据?

p5cysglq

p5cysglq1#

创建一个新的应用程序,在其上放置一个TIDHTTPServer组件(或在代码中创建它),将其Active属性设置为True,并实现其OnCommandGet方法,例如:

procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  ShowMessage(ARequestInfo.URI);
end;

字符串

相关问题