![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Проблема стандартная. При отправке POST запроса на страницу в win-1251 он приходит в "кракозябрах". Для слова "Киррилица", допустим "Киррилица".
UTF8ToANSI что-то не помогает. Да и GET запрос на ту же страницу выдаёт кракозябры, приходиться юзать функцию: Код:
function frmMain.RussianToUnicode(S: String): String; var Wrd:Word; pW,pR:PWord; len:Integer; begin pW:=@S[1]; len:=Length(S); SetLength(Result,len); pR:=@Result[1]; while Len<>0 do begin Wrd:=pW^; case Wrd of $C0..$DF,$E0..$FF:pR^:=Wrd+$0350; else pR^:=Wrd; end; inc(pW); inc(pR); dec(Len); end; end; D2010, Indy 10.5.5 |
#2
|
|||
|
|||
![]() А вот эту статью http://www.foxbase.ru/delphi/indy-ti...kh-zaprosa.htm кто-то сможет изложить вразумительно, применительно к моему случаю?
|
#3
|
|||
|
|||
![]() Проблема всё ещё не решена...
|
#4
|
||||
|
||||
![]() may be:
Код:
AnsiToUtf8() Utf8ToAnsi() Последний раз редактировалось Admin, Сегодня в 10:32. |
#5
|
||||
|
||||
![]() Дополню ответ frizа
Код:
IdHTTP1.HTTPOptions:= IdHTTP1.HTTPOptions-[hoForceEncodeParams]; |
#6
|
|||
|
|||
![]() В таком случае получается:
???? ?????? |
#7
|
|||
|
|||
![]() Решено через ss:=TStringStream.Create(s,1251); Клоузед.
|