function Twebsrv.Performget(ClientIdent:TkbmMWClientIdentity; const Args:array of Variant):Variant;
var
mystringstream:Tstringstream;
MimeType:string;
Charset:string;
begin
// Enter code here to perform function get
if length(Args)<1 then
kbmMWRaiseException(KBMMW_ERR_SERVICE_HTTP_URLMISSING,'Missing URL.');
if args[0]='/getdata' then
begin
cx.SQL.Clear;
cx.SQL.Add('select XH,XM,RQ from rssj');
cx.Open;
mystringstream:=TstringStream.Create('',TEncoding.UTF8); //设置为UTF8格式
try
cx.SaveToStreamViaFormat(mystringstream,kbmMWJSONStreamFormat1);
Result:=mystringstream.DataString;
finally
mystringstream.Free;
end;
Exit;
end;
result:=HTTPResponseFromFile(Args[0],MimeType,Charset);
SetResponseMimeType(MimeType);
SetResponsecharset(Charset);
end;
网友评论