procedure TForm1.FormShow(Sender: TObject);
begin
;
:= 6600;
:= '127.0.0.1';
//启动服务器
:= True;
end;
procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
I: Integer;
begin
if SameText(, 'get') then
begin
if = '/api_v1/get_token' then
begin
('-------------');
();
('-------------');
for I := 0 to - 1 do
begin
([I]);
end;
('-------------');
:= 'UTF-8';
:= 'application/json';
:= '{a:"001", b:"002", c:[ a:"003", b:"004"]}';
end;
end;
if SameText(, 'post') then
begin
if = '/api_v2/get_token' then
begin
('-------------');
();
('-------------');
for I := 0 to - 1 do
begin
([I]);
end;
('-------------');
:= 'UTF-8';
:= 'application/json';
:= '{a:"0011", b:"0022", c:[ a:"0033", b:"0044"]}';
end;
end;
end;