[英]delphi idhttpserver search parameter
我想在Delphi的idhttpserver中搜索/修复参数(GET)。 我确实有这样做的方法,但是我想知道是否有更简单的方法。 这是我现在使用的方法:
procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
para:string;
paraa:tstringlist;
begin
for para in arequestinfo.params do
begin
paraa := tstringlist.Create;
paraa.StrictDelimiter := True;
paraa.Delimiter := '=';
paraa.DelimitedText := para;
if paraa[0] = '...' then
begin
if paraa[1] = '...' then
begin
...
end;
end;
paraa.Free;
end;
end;
我正在使用delphi xe7
Params
是一个TStrings
,具有索引的Names[]
和ValueFromIndex[]
属性:
procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
name, value: string;
I: index;
begin
for i := 0 to ARequestInfo.Params.Count-1 do
begin
Name := ARequestInfo.Params.Names[i];
Value := ARequestInfo.Params.ValueFromIndex[i];
if Name = '...' then
begin
if Value = '...' then
begin
...
end;
end;
end;
end;
在我看来,使用字符串列表仅解析param=value
对会浪费资源。 更糟糕的是,您正在为每个迭代的参数创建和销毁字符串列表实例,并且错过了使用try..finally
,因为这样做最终冒着内存泄漏的风险。 我会做这样的事情:
procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
Param: string;
Parts: TArray<string>;
begin
for Param in ARequestInfo.Params do
begin
Parts := Param.Split(['=']);
// Parts[0] should now contain the parameter name
// Parts[1] should now contain the parameter value
end;
end;
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.