Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 01.05.2011, 08:19
Аватар для GriLab
GriLab GriLab вне форума
Начинающий
 
Регистрация: 26.11.2010
Адрес: Минск
Сообщения: 190
Версия Delphi: XE 15.0.3890
Репутация: 415
По умолчанию Проблемы кодировки с Indy 10.5.7

Доброго времени суток!

Возникает проблема кодировки русских символов при использовании компонентов Indy 10.5.7, как я знаю в более ранних версиях было все ОК

Использую компонент TIdHTTPServer. Клиент при запросе страницы видит "козяблики", вместо русского текста . Как исправить данную проблему?

Вод код сервера, если он чем-то может помочь:

Код:
procedure TWebServerForm.HTTPServerCommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  RequestFileName, IndexFileName: String;
begin
  AResponseInfo.Server := 'ncm_web_server';
  AResponseInfo.CacheControl := 'no-cache';
  RequestFileName := AnsiLowerCase(ARequestInfo.Document);
  try
    if RequestFileName = '/' then RequestFileName := '/index.php';
    if FileExists(ncm_WebSitePath + RequestFileName) then
    begin
      AResponseInfo.ContentStream := TFileStream.Create(ncm_WebSitePath + RequestFileName, fmOpenRead);
      AddServerEvent('файл "' + RequestFileName + '" успешно отправлен на "' + AContext.Binding.PeerIP + '".');
    end
    else
    begin
      AResponseInfo.ContentStream := TFileStream.Create(ncm_WebPagesPath + 'notfound.php', fmOpenRead);
      AddServerEvent('файл "' + RequestFileName + '" не найден на локальном компьютере.');
    end;
  except
    on E: Exception do
    begin
      AddServerEvent(E.Message);
    end;
  end;
end;

AddServerEvent - это запись текста в лог.

Заранее спасибо!
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 03:05.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025