![]() |
|
|
#31
|
||||
|
||||
|
Ты бы выдал "В идеале Пример запроса"...
|
|
#32
|
|||
|
|||
|
Цитата:
Пример входного XML: <?xml version="1.0" encoding="windows-1251"?> <document> <function name="employerInfo"> <param name="login">ivanov</param> <param name="pass">c4ca4238a0b923820dcc509a6f75849b</param> <param name="idEmployer">1000</param> </function> <client name="SomeProgram" version="1.0"/> </document> |
|
#33
|
||||
|
||||
|
Цитата:
![]() |
|
#34
|
|||
|
|||
|
Цитата:
|
|
#35
|
||||
|
||||
|
Код:
var
stringstream: TStringStream;
begin
stringstream:=TStringStream.Create('');
try
stringstream.WriteString('input_xml=<?xml version="1.0" encoding="windows-1251"?>');
stringstream.WriteString('<document>');
stringstream.WriteString('<function name="employerInfo">');
stringstream.WriteString('<param name="login">ivanov</param>');
stringstream.WriteString('<param name="pass">f8b932c80d0b2e6bf025149a4fa68dfc</param>');
stringstream.WriteString('<param name="idEmployer">1000</param>');
stringstream.WriteString('</function>');
stringstream.WriteString('<client name="SomeProgram" version="1.0"/>');
stringstream.WriteString('</document>');
IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
IdHTTP1.Request.ContentLength:=stringstream.Size;
stringstream.Position:=0;
Memo1.Text:=IdHTTP1.Post('http://xxx.xxx.xxx.xxx/api/functions.php', stringstream);
finally
stringstream.Free;
end;
end; |
|
#36
|
|||
|
|||
|
УРРРААА. Получилось. Всем огромное Спасибо. Прямащщее.... )))))))))))))
|
|
#37
|
|||
|
|||
|
Извините еще раз. А можно ли скопировать выданные данные на другой сервер? То есть, он выдал мне реквизиты, а эти данные скопировать на второй сервер.
|