Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #31  
Старый 16.02.2011, 15:28
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

Ты бы выдал "В идеале Пример запроса"...
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием
  #32  
Старый 16.02.2011, 15:33
prestuplenie prestuplenie вне форума
Прохожий
 
Регистрация: 14.02.2011
Сообщения: 30
Репутация: 10
По умолчанию

Цитата:
Сообщение от DJ PhoeniX
Ты бы выдал "В идеале Пример запроса"...

Пример входного 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  
Старый 16.02.2011, 15:35
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Цитата:
<param name="idEmployer">1000</param>
integer
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #34  
Старый 16.02.2011, 15:36
prestuplenie prestuplenie вне форума
Прохожий
 
Регистрация: 14.02.2011
Сообщения: 30
Репутация: 10
По умолчанию

Цитата:
Сообщение от NumLock
integer
И Что это значит? Запрос неправильный?
Ответить с цитированием
  #35  
Старый 16.02.2011, 15:37
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
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  
Старый 16.02.2011, 15:48
prestuplenie prestuplenie вне форума
Прохожий
 
Регистрация: 14.02.2011
Сообщения: 30
Репутация: 10
По умолчанию

УРРРААА. Получилось. Всем огромное Спасибо. Прямащщее.... )))))))))))))
Ответить с цитированием
  #37  
Старый 28.02.2011, 08:48
prestuplenie prestuplenie вне форума
Прохожий
 
Регистрация: 14.02.2011
Сообщения: 30
Репутация: 10
По умолчанию

Извините еще раз. А можно ли скопировать выданные данные на другой сервер? То есть, он выдал мне реквизиты, а эти данные скопировать на второй сервер.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 12:32.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter