Показать сообщение отдельно
  #1  
Старый 28.02.2011, 13:25
prestuplenie prestuplenie вне форума
Прохожий
 
Регистрация: 14.02.2011
Сообщения: 30
Репутация: 10
По умолчанию Запрос на сервер

Всем Добрый день. Есть программа которая получает от сервера список справочников
Код:
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; 

У меня вопрос в том, как создать справочники у себя на компе, такие же как полученные от сервера? У меня также есть прога чтобы создать с нуля справочник у себя на компе, но задача такая что нужна создать точно такую же, как на сервере. Как это сделать?
Ответить с цитированием