Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.01.2016, 15:28   #1
tarakan1983
Форумчанин
 
Аватар для tarakan1983
 
Регистрация: 09.09.2008
Сообщений: 418
По умолчанию Synapse отправка XML

Здравствуйте, помогите пожалуйста разобраться с отправкой XML файла.
по инструкции
Цитата:
Сформировать xml-файл (client.xml — название файла) вида для запроса
реквизитов организации:
Код:
<?xml version="1.0" encoding="UTF-8"?>
<ns:Documents Version="1.0"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:ns="http://fsrar.ru/WEGAIS/WB_DOC_SINGLE_01"
xmlns:oref="http://fsrar.ru/WEGAIS/ClientRef"
xmlns:qp="http://fsrar.ru/WEGAIS/QueryParameters">
<ns:Owner>
<ns:FSRAR_ID>00040218</ns:FSRAR_ID>
</ns:Owner>
<ns:Document>
<ns:QueryClients>
<qp:Parameters>
<qp:Parameter>
<qp:Name>ИНН</qp:Name>
<qp:Value>1681000049</qp:Value>
</qp:Parameter>
</qp:Parameters>
</ns:QueryClients>
</ns:Document>
</ns:Documents>
Отправить запрос (1.5.1) в УТМ с помощью команды вида:
curl -F''xml_file=@client.xml'' http://localhost:8080/opt/in/QueryPartner
Что я и делаю
Код:
procedure TFmMain.BitBtn2Click(Sender: TObject);
  var
    XMLDoc : TXMLDocument;
    HTTP : THTTPSend;
    FS: TFileStream;
    s : string;
begin
  try
    Memo1.Clear;
    XMLDoc := TXMLDocument.Create(Application);
    with XMLDoc do
      begin
        Options := Options + [doNodeAutoIndent];
        Active := True;
        Version := '1.0';
        Encoding := 'UTF-8';
        with AddChild('ns:Documents') do
          begin
            Attributes['Version'] := '1.0';
            Attributes['xmlns:xsi'] := 'http://www.w3.org/2001/XMLSchema-instance';
            Attributes['xmlns:ns'] := 'http://fsrar.ru/WEGAIS/WB_DOC_SINGLE_01';
            Attributes['xmlns:oref'] := 'http://fsrar.ru/WEGAIS/ClientRef';
            Attributes['xmlns:qp'] := 'http://fsrar.ru/WEGAIS/QueryParameters';
            with AddChild('ns:Owner') do ChildValues['ns:FSRAR_ID'] := '020000616195';
            with AddChild('ns:Document') do
              with AddChild('ns:QueryClients') do
                with AddChild('qp:Parameters') do
                  with AddChild('qp:Parameter') do
                    begin
                      ChildValues['qp:Name'] := 'ИНН';
                      ChildValues['qp:Value'] := '6143063881';
                    end;
            SaveToFile('C:\temp\client.xml');
          end;
      end;
    FS := TFileStream.Create('C:\temp\client.xml', fmOpenRead);
    FS.Position := 0;
    HTTP := THTTPSend.Create;
    HTTP.Document.CopyFrom(FS, FS.Size);
    //HTTP.Document.SaveToFile('C:\temp\client111.xml'); //Проверка, что документ есть
    if HTTP.HTTPMethod('POST', 'http://localhost:8080/opt/in/QueryPartner') then
      begin
        s := HTTP.ResultString+':'+IntToStr(HTTP.ResultCode);
        ShowMessage(s);
        Memo1.Lines.Add(s);
      end;
  finally
    FreeAndNil(XMLDoc);
  end;
end;
Получаю ошибку
Цитата:
Server Error:500
Подскажите где я ошибся???

Последний раз редактировалось tarakan1983; 20.01.2016 в 15:33.
tarakan1983 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Отправка письма Synapse hapera2 Работа с сетью в Delphi 1 17.08.2015 23:48
Lazarus/Synapse: Отправка через прокси Костян Пират Lazarus, Free Pascal, CodeTyphon 2 15.08.2014 14:23
отправка файла synapse Slimshaddy Работа с сетью в Delphi 3 30.07.2013 01:27
Отправка запроса Synapse Imbalancez Работа с сетью в Delphi 6 07.07.2013 10:49
Synapse и отправка Cookies SBodry Работа с сетью в Delphi 2 09.04.2012 12:35