VPF::idHTTPServer и XMLHttpRequest - Форум программистов

RelictOs

Дата 26.12.2012, 20:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 14.2.2012

Репутация: нет
Всего: 1

Всем привет.
У меня возникла проблема - не могу нормально связать сервер на 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>

Vas

Дата 27.12.2012, 08:06 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 830
Регистрация: 29.6.2005
Где: Stavropol region

Репутация: нет
Всего: 28

Определитесь с режимом синхронный он у вас или нет? Вот тут хорошо написано.

--------------------

И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин)

RelictOs

Дата 27.12.2012, 09:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 14.2.2012

Репутация: нет
Всего: 1

прочитал статью. из нее понял, что ошибка может быть в том, что запрос отправляется на другой порт.. что с этим поделать - не знаю

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »