Delphi 12.2.1 idhttpserver的使用方法
1)CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);事件
该事件和IDTCPSERVER的EXECUTE()事件一样,都是“线程方法”,即事件是在子线程里面执行的,在其内书写代码要注意“线程保护”。
该事件可以接受客户端HTTP GET、POST或其他HTTP方法请求。
if SameText(ARequestInfo.Command, 'post') then // http post方法
else if SameText(ARequestInfo.Command, 'get') then // http get方法
2)获取URL参数
ARequestInfo.Params.Values['sql']
3)回复客户端
回复客户端流
AResponseInfo.ContentStream := LFiredac.QuerySQL(ARequestInfo.Params.Values['sql'], ARequestInfo.Params.Values['storageformat']); // 流
AResponseInfo.WriteContent;
回复客户端字符串
AResponseInfo.ContentText := LFiredac.SaveData(ARequestInfo.Params.Values['tablename'], ARequestInfo.PostStream, ARequestInfo.Params.Values['storageformat']);
AResponseInfo.WriteContent;
4)回复客户端中文字符串不乱码
AResponseInfo.ContentText := LFiredac.RestQuery(ARequestInfo.Params.Values['sql']);
AResponseInfo.ContentType := 'text/html; charset=GB2312';
AResponseInfo.WriteContent;
5)PostStream(AContext: TIdContext; AHeaders: TIdHeaderList; var VPostStream: TStream);事件
如果要接受客户端发过来的流,则在此事件中要写如下代码:
begin
VPostStream := TMemoryStream.Create;
end;