Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.05.20;
Скачать: CL | DM;

Вниз

Доступ к 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.034 c
2-1178037815
Антон Шестаков
2007-05-01 20:43
2007.05.20
Меню как в Nero


3-1172815264
apl
2007-03-02 09:01
2007.05.20
Передача параметров


2-1177926645
Marat
2007-04-30 13:50
2007.05.20
Нашел в Инете- не хочет работать


2-1178002029
Click[Up]
2007-05-01 10:47
2007.05.20
Поиск текст не зависимо от регистра в БД


6-1163500546
OlBan
2006-11-14 13:35
2007.05.20
Компонент Indy IdHTTP и https