IdHttp всесто русских букс - ????

[cashmail]

memo1.text:=idhttp1.Get('http://www.wmmail.ru/index.php?cf=usf-userfing');

В ответе все русские буквы такие: ?
Что делать?

[Stilet]

memo1.text:=utf8toansi(idhttp1.Get('http://www.wmmail.ru/index.php?cf=usf-userfing'));

[cashmail]

тоже ????
не помогло

В сниффере главное все ок!

[Stilet]

А какая кодировка сайта?
Может стоит использовать класс Endoder...

[veniside]

utf8toansi()

не, не, среднестатистический русский дизайнер только недавно с кои-8 на 1251 перешёл, утф-8 он откроет для себя года через три. А пока, для свежих юникодных дельфей юзаем такой изврат, а в старых не-юникодных должно и так работать (в надежде на то, что у юзверя выставлнена кодировка 1251 как базовая для не-юникодного софта).

[cashmail]

ну хз! Я же дал адрес сайта!

[cashmail]

procedure TForm1.Button1Click(Sender: TObject);
type
  s1251 = type AnsiString(1251);
var
k,html:string;
begin
html:=utf8toansi(idhttp1.Get('http://www.wmmail.ru/index.php?cf=usf-userfing'));
k:=html;
memo1.Text:=k;
Delete(k,1,pos('align="absmiddle"></a></div><b>',k)+length('align="absmiddle"></a></div><b>'));
Delete(k,pos('</b></td>',k),length(k));
label2.Caption:=label2.Caption+k;
label2.Visible:=true;
end;

Ругает на
type
s1251 = type AnsiString(1251);

[Error] Unit1.pas(84): ';' expected but '(' found

[Пепел Феникса]

если Делфи старая то должно итак хорошо работать.
кодировка на сайте 1251.

[veniside]

Ругает на

значит, дельфи старая, должно и так работать, см. выше )

[Пепел Феникса]

правда помню не раз было что через функцию get не работает норм, нужно попробовать через TStringStream.