![]() |
#2 |
Участник
|
Отсутствует создание переменной locautXmlHttp.
Я думаю ServerXMLHTTP60 излишен достаточно обычного xmlhttp Код: Name DataType Subtype Length XMLHTTP Automation 'Microsoft XML, v6.0'.XMLHTTP60 // отправка файла IF ISCLEAR(XMLDoc) THEN CREATE(XMLDoc); XMLDoc.async := FALSE; XMLDoc.load('C:\TEMP\1.xml'); IF NOT ISCLEAR(XMLHTTP) THEN CLEAR(XMLHTTP); CREATE(XMLHTTP); XMLHTTP.open('POST', "полный путь до файла на сервере", FALSE, Login,Pass); XMLHTTP.send(XMLDoc); IF XMLHTTP.status<>200 THEN BEGIN error(XMLHTTP.statusText) END; |
|