Тема: utf-8 -> win-1251
Показать сообщение отдельно
Старый 21.09.2010, 01:05   #9
Trazzy
Разработчик
 
Аватар для Trazzy
 
Регистрация: 24.11.2008
Адрес: UA
Сообщений: 504
Написано 110 полезных сообщений
(для 225 пользователей)
Ответ: utf-8 -> win-1251

Форма находится на стороннем сервере [кодировка UTF-8]..
Отправляю так:
program sendtosite;
uses proweb;
var
  
fld, ind: integer;
  
btn, clicked: command;

begin
  ClearForm
;
  
ShowForm;
  
SetFormTitle('Отправка');
  
fld:=formAddTextField('Текст:', '', 100, TF_ANY);
  
btn:=CreateCommand('OK', CM_SCREEN, 1);
  
AddCommand(btn);
  
repeat
   clicked 
:= GetClickedCommand;
  
until clicked <> EmptyCommand;
  
q_property('Accept', '*/*');
  
q_property('Content-Type', 'application/x-www-form-urlencoded');
  
q_property('User-Agent', 'myprog');
  
ind:=q_request('http://сайт.ру/index.php', POST, 'string='+FormGetText(fld), 'none');
end. 
Возращает строку "Булка.", как "?????."

Что не так?
__________________
Уважай собеседника, а лучше подари ему +
(Offline)
 
Ответить с цитированием