|
Добрый день.
Имелось ввиду что-то вроде этого :
IF ISCLEAR(XMLHTTP) THEN
CREATE(XMLHTTP);
MyFile.CREATE('C:\Users\Desktop\folder\79CompanyInfo.xml');
MyFile.TEXTMODE(TRUE);
MyFile.WRITEMODE(TRUE);
XMLHTTP.Open('POST', 'http://127.0.0.1/web/ws/ObmenXML.1cws', TRUE);
//XMLHTTP.Open('GET', 'http://localhost/web/ws/ObmenXML.1cws?wsdl'); //Импорт в Нав
XMLHTTP.SetRequestHeader('Content-type', 'text/xml');
XMLHTTP.Send(XML_DOM);
XMLHTTP.WaitForResponse(1000);
IF XMLHTTP.Status <> 200 THEN
MESSAGE('Http Error ' + ' ' + FORMAT(XMLHTTP.Status) + ': ' + XMLHTTP.StatusText);
MyFile.CREATEOUTSTREAM(MyFileStream);
MyRespStream := XMLHTTP.ResponseStream;
WHILE (NOT MyRespStream.EOS) DO BEGIN
MyRespStream.READTEXT(MyText);
MyFileStream.WRITETEXT(MyText);
IF MyText <> '' THEN MyFileStream.WRITETEXT;
END;
MyFile.CLOSE;
Где XMLHTTP - 'Microsoft WinHTTP Services, version 5.1'.WinHttpRequest
XML_DOM - 'Microsoft XML, v6.0'.DOMDocument60
При запуске ругается на XML_DOM, "неизвестный код ошибки".
Может тип XML_DOM не тот?
И ещё вопрос с загрузкой данных в XML_DOM. Когда пишу
XML_DOM.load(Текст),
то выдаёт ошибку "Не создан экземпляр этой переменной автоматизации".
|