{ =============================================================================
Создание XML-RPC запроса
=============================================================================}
function CreateXMLRPC (aMethod : string; aArg : array of string ): string;
var
lDoc: IXmlDocument;
anElem, params, param, value: IXmlElement;
i : integer;
begin
if Length (aArg) > 0 then
begin
params:=lDoc.DocumentElement.AppendElement('params');
for I := low(aArg) to High(aArg) do
begin
param:=params.AppendElement('param');
value:=param.AppendElement('value');
value.AppendText(aArg[i]);
end;
end;
Result := lDoc.XML;
end;
//==============================================================================
Статья Процедура создания XML-RPC запроса раздела Интернет и Сети XML может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.