Форум: "Основная";
Текущий архив: 2003.11.17;
Скачать: [xml.tar.bz2];

Вниз

c VB на Delphi   Найти похожие ветки 

← →
ilka   (2003-11-07 16:38) [0]

Подскажите как переделать с visual basic на delphi?

Dim MyXMLDocument
Dim MyHTTPCommunicator

rem Creating MSHTML objects
Set MyXMLDocument = CreateObject ("MSXML2.DOMDocument")
Set MyHTTPCommunicator = CreateObject ("Msxml2.XMLHTTP")

MyXMLDocument.load ("C:\file.xml")

rem connect to webpage
MyHTTPCommunicator.open "POST", " http://localhost/test.asp", false

rem send xml to the page
MyHTTPCommunicator.send MyXMLDocument

rem and display te response
wscript.echo MyHTTPCommunicator.responseText


---

← →
AngryMac   (2003-11-07 16:44) [1]

Ну как-то так:


var
MyXMLDocument, MyHTTPCommunicator: OleVariant;
begin
MyXMLDocument := CreateOLEObject ("MSXML2.DOMDocument");
MyHTTPCommunicator := CreateOLEObject ("Msxml2.XMLHTTP");
MyXMLDocument.load("C:\file.xml");
MyHTTPCommunicator.open("POST", " http://localhost/test.asp", False); // (может вместо False -> 0)
MyHTTPCommunicator.send(MyXMLDocument);
ShowMessage(MyHTTPCommunicator.responseText);
end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.11.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.011 c