![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | 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() |
|
#5
|
||||
|
||||
|
Дополню ответ frizа
Код:
IdHTTP1.HTTPOptions:= IdHTTP1.HTTPOptions-[hoForceEncodeParams]; |
|
#6
|
|||
|
|||
|
В таком случае получается:
???? ?????? |
|
#7
|
|||
|
|||
|
Решено через ss:=TStringStream.Create(s,1251); Клоузед.
|