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

RelictOs

Дата 28.12.2012, 09:59 (ссылка)

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

Загрузка ...

Новичок

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

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

Добрый день. Поскольку создание прошлой темы ровно ничего не дало - пришлось дальше искать ответ самому. Впринципе, я его нашел, но есть одна проблема. Теперь я не знаю, как сформировать header для CORS.
Вот моя попытка:

Код


procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  showmessage(ARequestInfo.RawHeaders.Text);

  AResponseInfo.RawHeaders.Values['Access-Control-Allow-Origin'] := '*';
  AResponseInfo.WriteHeader;
  AResponseInfo.ContentText := 'test';
  AResponseInfo.WriteContent;
end;

код страницы:

Код


    var url = 'http://127.0.0.1:9200';

    function doCallOtherDomain(){
        var XHR = window.XDomainRequest || window.XMLHttpRequest
        var xhr = new XHR();

        xhr.open('GET', url, true);

        // замена onreadystatechange
        xhr.onload = function() {
            document.getElementById('response').innerHTML = xhr.responseText
        }

        xhr.onerror = function() {
            alert("Error");
            alert(xhr.statusCode);
        }

        xhr.send()
    }

    function callOtherDomain() {
        try {
            doCallOtherDomain()
        } catch (e) {
            alert("В этом браузере данная фича не поддерживается.")
        }
    }

По сути, задача заключается в том, чтобы отправить запрос на другой порт локалхоста и получить ответ. Но сколько ни пробовал - все время вылезает Error и statusCode - undefined smile

про CORS

Прошу вас, помогите. Уже 3й день ищу ответ.

CodeGold

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

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

Загрузка ...

Новичок

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

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

Код


procedure Tform_main.IdHTTPServerCommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo;
  AResponseInfo: TIdHTTPResponseInfo);
begin


  AResponseInfo.ResponseNo := 200;
  AResponseInfo.CacheControl := 'no-cache';
  AResponseInfo.CustomHeaders.Add('Access-Control-Allow-Origin: *');
  AResponseInfo.CustomHeaders.Add('Content-Type: application/json; charset=utf-8');

  AResponseInfo.ContentText := 'test.';
  AResponseInfo.WriteContent;

end;

для следующего поколения...

Это сообщение отредактировал(а) CodeGold - 26.5.2015, 08:07

Артем Сагайда

Дата 28.10.2016, 09:24 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered