![]() |
|
#1
|
|||
|
|||
![]() Всем Добрый день. Есть программа которая получает от сервера список справочников
Код:
procedure TForm1.Button1Click(Sender: TObject); 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="catalogGetList">'); stringstream.WriteString('<param name="login">ivanov</param>'); stringstream.WriteString('<param name="pass">dfgfd4gfdsadqwerghjki79a4fa6dfc</param>'); stringstream.WriteString('<param name="idEmployer">807</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; У меня вопрос в том, как создать справочники у себя на компе, такие же как полученные от сервера? У меня также есть прога чтобы создать с нуля справочник у себя на компе, но задача такая что нужна создать точно такую же, как на сервере. Как это сделать? |