我有一个用 Delphi 11编写的Windows桌面应用程序,我正在与Xero Accounting集成。第一步完成,这是使用ShellExecute打开一个浏览器,并生成一个URL,让用户有机会登录。所使用的URL的参数是一个重定向URI,其中包括一个端口。如何在 Delphi 11中创建一个本地http侦听器来接收Xero发送回的数据?
p5cysglq1#
创建一个新的应用程序,在其上放置一个TIDHTTPServer组件(或在代码中创建它),将其Active属性设置为True,并实现其OnCommandGet方法,例如:
procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); begin ShowMessage(ARequestInfo.URI); end;
字符串
1条答案
按热度按时间p5cysglq1#
创建一个新的应用程序,在其上放置一个TIDHTTPServer组件(或在代码中创建它),将其Active属性设置为True,并实现其OnCommandGet方法,例如:
字符串