Вопросы по Delphi (до версии 2009) - часть 6 - [113] :: Прикладное программирование

Столкнулся с такой проблемой. Есть приложение написанное на Delphi 5. В него надо дописать небольшой модуль, который получает через API отслеживание почтового отправления для посылки с заданным номером. Сервис Почты России предоставляет API для этой цели. В качестве примера у них приведены решения для PHP JAVA 1с. Меня все это не устраивает. Мне нужно решение на Delphi 5. API почтового отслеживания работает через SOAP протокол. В качестве исходных данных имеется:
адрес сервиса: https://tracking.russianpost.ru/rtm34
WSDL: https://tracking.russianpost.ru/rtm34?wsdl
а также формат xml запроса.
В составе Delphi 5 есть установленная палитра компонентов Indy 10. Еще имеется библиотека Synapse 40.
Можно ли, используя либо Indy, либо Synapse их HTTP сформировать программно и отправить требуемый запрос? Как это можно реализовать. В интернете примеров много, но не один не подошел.
Я попробовал реализовать на Synapse:

procedure TFPost.Button1Click(Sender: TObject);
var
soaprequest: TStringstream;
login,password,postnumber:string;
begin

login:='nnnnnnnnnnnnn';
password:='pppppppppppp';
postnumber:='nnnnnnnnnnnnnn';

soaprequest:=TStringStream.Create(
'<soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:oper="http://russianpost.org/operationhistory" xmlns:data="http://russianpost.org/operationhistory/data" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">'+#13+
' <soap:Header/>'+#13+
' <soap:Body>'+#13+
' <oper:getOperationHistory>'+#13+
' <data:OperationHistoryRequest>'+#13+
' <data:Barcode>'+postnumber+'</data:Barcode>'+#13+
' <data:MessageType>0</data:MessageType>'+#13+
' <data:Language>RUS</data:Language>'+#13+
' </data:OperationHistoryRequest>'+#13+
' <data:AuthorizationHeader soapenv:mustUnderstand="1">'+#13+
' <data:login>'+login+'</data:login>'+#13+
' <data:password>'+password+'</data:password>'+#13+
' </data:AuthorizationHeader>'+#13+
' </oper:getOperationHistory>'+#13+
' </soap:Body>'+#13+
'</soap:Envelope>');

Http:=THTTPSend.Create;
Http.Document.Clear;
Http.Headers.Add('Content-Type: text/xml; charset=utf-8');
Http.MimeType:='text/XML';
Http.Headers.Add('SOAPAction: "" ');
Http.Headers.Add('Accept-Encoding: gzip, deflate"');

Http.Protocol:='1.0';
Http.UserAgent:='Mozilla/5.0 (Windows NT 6.0; rv:11.0) Gecko/20100101 Firefox/11.0';
Http.Document.LoadFromStream(soaprequest);
if Http.HTTPMethod('POST','https://tracking.russianpost.ru/rtm34?wsdl') then
begin
if Http.ResultCode <>200 then
showmessage(inttostr(Http.ResultCode))
else
memo1.Lines.LoadFromStream(Http.Document);
end
else
showmessage(inttostr(Http.ResultCode));

end;

Но этот пример мне выдает ошибку 302 - Moved Temporarily.

Как победить проблему?

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125