Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.06.2013, 14:36   #1
fucil
Форумчанин
 
Регистрация: 24.02.2010
Сообщений: 148
По умолчанию Ответ сервера браузеру winsock

Делаю программу с веб мордой, все работает нормально, но при отправке станицы с русским языком в браузере выводит ���� вот такие знаки, англ язык все нормально.

Суть проблемы в следующем: как вывести русский язык ?
я понимаю что тут дело в кодировке, но в какую нужно кодировать страницу что бы браузер мог прочитать ?


передаю контент следующим образом

Код:
  
var
  content:string;
  MS: TMemoryStream;
  SS:TstringStream;
//----------------------
  SS := TStringStream.Create(content);
  ms:=TMemoryStream.Create;
  MS.LoadFromStream(SS);
  SS.Free;
  SendStream(ms);
Код:
function TClient.SendStream(Data: TMemoryStream): Integer;
var
  P: Pointer;
begin
  Result := 0;
  Data.Position := 0;
  P := Data.Memory;
  Result := Send(hSocket,P^, Data.Size,0);
end;

Последний раз редактировалось fucil; 29.06.2013 в 14:45.
fucil вне форума Ответить с цитированием
Старый 29.06.2013, 14:38   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

браузеру нужно сказать в какой кодировке у вас текст(а в которой это вам виднее)
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 29.06.2013, 14:48   #3
fucil
Форумчанин
 
Регистрация: 24.02.2010
Сообщений: 148
Вопрос ???????????

то есть так:
Код:
UTF8Encode(content)
и в хедере указать

Код:
Content-Type: text/html; charset=UTF-8

Последний раз редактировалось fucil; 29.06.2013 в 15:00.
fucil вне форума Ответить с цитированием
Старый 29.06.2013, 15:50   #4
fucil
Форумчанин
 
Регистрация: 24.02.2010
Сообщений: 148
По умолчанию Спасибо феня )

Разобрался все так как я написал выше !
fucil вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ответ от сервера ursa1992 Работа с сетью в Delphi 33 10.01.2012 04:00
Вернуть ответ браузеру (TTcpServer) WennY Работа с сетью в Delphi 1 07.09.2011 17:01
Ответ от сервера. mustang007 Работа с сетью в Delphi 3 23.05.2009 10:33
Ответ web-сервера браузеру - изображение TpyHT C/C++ Сетевое программирование 3 05.05.2009 22:34
TClientSocket ответ от сервера JRcoker Работа с сетью в Delphi 10 02.10.2008 01:55