Тема: 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
  
fldindinteger;
  
btnclickedcommand;

begin
  ClearForm
;
  
ShowForm;
  
SetFormTitle('Отправка');
  
fld:=formAddTextField('Текст:'''100TF_ANY);
  
btn:=CreateCommand('OK'CM_SCREEN1);
  
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)
 
Ответить с цитированием