Хобби

Начал ковырять api.sape.ru

[code language="xml"]
<?xml version="1.0" encoding="UTF-8"?>
<methodCall>
<methodName>sape.login</methodName>
<params>
<param><value><string>sape_login</string></value></param>
<param><value><string>sape_password</string></value></param>
</params>
</methodCall>
[/code]
Сгенерируем xml с помощью NativeXML и сохраним в sapelogin.txt
[code language="pascal"]
XMLdoc := TNativeXml.Create;
XMLdoc.CreateName('methodCall');
XMLdoc.Root.NodeNew('methodName').ValueAsString := 'sape.login';
XMLdoc.Root.NodeNew('params').NodeNew('param').NodeNew('value').NodeNew('string').ValueAsString := sLogin.Text;
XMLdoc.Root.NodeByName('params').NodeNew('param').NodeNew('value').NodeNew('string').ValueAsString := sPassw.Text;

XMLdoc.SaveToFile('sapelogin.txt');
XMLdoc.Free;
[/code]
sLogin и sPassw — соответственно поля ввода логина и пароля в форме