Delphian Transactor - FC for Mikalas (HTTP server only: HttpGet, httpPost, HttpResponder = "caller")
идея здравая, только меня бы в этой версии больше интересовало получение строки параметров целиком
(или даже весь Link целиком, а вторым параметром IP удаленного "просителя")
распарсил бы по своему вкусу уже в LUA:
function HttpResponder(str_params, remote_IP, local_IP) --//aka caller
if (false) then
return DT.HttpGet("okitgo.ru/misc/dom/books.xml"));
end;
local ResultXML = [[<?xml version="1.0" encoding="UTF-8"?>]]; --//windows-1251
ResultXML = ResultXML..'\n'..[[<]]..my_SecCode..[[>]];
local t_params = split(str_params, "&");
if (t_params ~= nil) then
for ii1 = 1, #t_params, 1 do
XMLresult = XMLresult..t_params[ii1];
ResultXML = ResultXML..'\n'..[[<param]]..tustring(ii1)..[[>]]..t_params[ii1]..[[</param]]..tustring(ii1)..[[>]];
end;
end;
ResultXML = ResultXML..'\n'..[[</]]..my_SecCode..[[>]];
return ResultXML;
end;
З.Ы.
формат данных на выходе я бы предпочел XML, нежели JSON
получать громоздкие таблицы с кучей "хлама" не интресно 
127.0.0.1:15000/?sec_code=SIH6&account=sdgfkjbsg63&command=set_position
127.0.0.1:15000/?sec_code=SIH6
127.0.0.1:15000 --// for ALL sec_code
в ответ всегда примерно так:
<?xml version="1.0" encoding="UTF-8"?>
<QUIK>
<accounts>
<sdgfkjbsg63 limit="777000">777001</sdgfkjbsg63>
</accounts>
<tickers>
<SiZ5>
<Have_Count>-2</Have_Count>
<Have_Price>66777</Have_Price>
<Step_Size>1</Step_Size>
<Step_Price>1</Step_Price>
<Fine_Bid_Price>66333</Fine_Bid_Price>
<Fine_Bid_Quant>11</Fine_Bid_Quant>
<Fine_Offer_Price>67555</Fine_Offer_Price>
<Fine_Offer_Quant>7</Fine_Offer_Quant>
<Fine_Mid_Price>67001</Fine_Mid_Price>
<Fine_Mid_Spread>4</Fine_Mid_Spread>
</SiZ5>
</tickers>
</QUIK>
)