Форум: "Начинающим";
Текущий архив: 2007.05.20;
Скачать: [xml.tar.bz2];
Вниз
Доступ к 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]Плохиш © (02.05.07 11:00) [1]
+1
Проблем вообще никаких.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.05.20;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.074 c
