Доступ к Web-сервису из Delphi

← →
user gosha (2007-05-02 09:25) [0]

Здравствуйте, все.
Нужно мне написать в Delphi клиент для WEb-сервиса. web-интерфейс у меня уже есть. Я знаю какие xml-ки надо отсылать ему и как разбирать присланное.

Но я не знаю, как заставить Delphi отослать xmlку на сервер с запросом и как получить обратно ответ.

Пытаюсь сделать так:
var Doc2: DomDocument; myXMLHttpRequest : XMLHTTP; ... myXMLHttpRequest:=CoXMLHTTP.Create; myXMLHttpRequest.open("POST","localhost:4001/pipes/server.php",true,"",""); try myXMLHttpRequest.setRequestHeader("Content-Type","text/xml"); myXMLHttpRequest.send("<?xml version="1.0" ?><methodCall><methodName>steel.getSteelList</methodName> <params></params></methodCall>"+#10#13); if myXMLHttpRequest.status = 200 then begin Doc2:=CoDOMDocument.Create; Doc2.loadXML(myXMLHttpRequest.responseText); Memo1.Lines.Add(doc2.xml); end else Memo1.Lines.Add("ERROR: "+myXMLHttpRequest.statusText); except on E:EOleException do begin Memo1.Lines.Add("ERROR EoleException: "+e.Message); end; end;

← →
Плохиш © (2007-05-02 11:00) [1]

> user gosha (02.05.07 09:25)

Веб-сервис сделан по стандарту? Тогда импортируешь WSDL от своего веб-сервиса (Объект WSDL-Import на странице WebServices при создании нового файла приложения) и ни про какие отсылаемые/принимаемые xml-ки знать ничего не надо, делфи сама с ними разберётся.

← →
clickmaker © (2007-05-02 11:01) [2]

> Пытаюсь сделать так:

и что?

← →
Sergey Masloff (2007-05-02 11:38) [3]

Доступ к Web-сервису из Delphi Найти похожие ветки