Всем привет.
У меня возникла проблема - не могу нормально связать сервер на idHTTPServer и клиент с использованием XMLHttpRequest. Сервер получает запрос клиента(GET), но клиент упорно отказывается видеть ответ сервера и возвращает responsecode=0.
код обработчика сервера
| Код |
procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
AResponseInfo.CacheControl := 'no-cache';
AResponseInfo.ContentText := 'test';
AResponseInfo.WriteContent;
end;
|
код клиента
| Код |
var req;
function loadXMLDoc(url) {
alert("aaaaa");
if (window.XMLHttpRequest) {
req = new XMLHttpRequest();
req.onreadystatechange = processReqChange;
req.open("GET", url, true);
req.send(null);
} else if (window.ActiveXObject) {
req = new ActiveXObject("Microsoft.XMLHTTP");
if (req) {
req.onreadystatechange = processReqChange;
req.open("GET", url, true);
req.send();
}
}
}
function processReqChange() {
ab = window.setTimeout("req.abort();", 5000);
if (req.readyState == 4) {
clearTimeout(ab);
alert(req.status);
// only if "OK"
if (req.status == 200) {
alert(req.responseText);
} else {
alert("Не удалось получить данные:\n" + req.statusText);
}
}
}
|
| Код |
<div class=knopka OnClick='loadXMLDoc("http://127.0.0.1:9200/")'>Соединиться с сервером</div>
|
|
