Проблема с кодировкой сохранённого файла

[lollollollol]

Здравствуйте, ситуация такая:

На сервер был скачен текстовый файл с русским текстом, на сервере нет русского языка, и файл сохранился с текстом типа "Õîòèòå ïîõóäåòü", когда я скачал файл на мой комп, все символы такими и остались.

Вопрос: Как из этого файла получить снова русский текст? Работа с файлам будет выполняться программно, спасибо

Utf8ToAnsi не работает
уже и всё из HtmlCPConvert перепробовал, и все примеры в гугле которе нашел.

Я совсем не понимаю что требуется сделать чтобы вернуть в русский текст? Это же обычная windows1251, почему она так отображается?

а вот так текст в винхексе выглядит

Õîòèòå ïîõóäåòü

Нашел статью, http://habrahabr.ru/post/137061/
сделал как там сказано

  str:=Utf8ToAnsi(str);
  str:=AnsiToUtf8(str);

Не спасло абсолютно!

str:=Utf8ToAnsi(str);

Даёт результат

Oioeoa iiooaaou

Вообщем уже всё перепробовал, но не могу "Õîòèòå ïîõóäåòü" или "Õîòèòå ïîõóäåòü" (Первое в блокноте, второе в винхексе отображается, один и тот же файл) вернуть в русский текст, как быть?

[lollollollol]

Тут поломалась кодировка, есть копия топика тут:
http://forum.vingrad.ru/forum/topic-...2596505/0.html

[Аватар]

Хотите похудеть
это IS0-8859-15

Определяется в онлайн определителе кодировки

[Vapaamies]

Сохранил строку с кодами в теле HTML-файла, открыл браузером, увидел:

Őîňčňĺ ďîőóäĺňü

Выделил, скопировал, создал новый файл в Far (Shift+F4), выбрал кодировку Windows-1250, вставил, сохранил. При повторном просмотре Far сам увидел, что это 1251, и показал русский текст.

Текст в цитате форум корежит.

[lollollollol]

это IS0-8859-15

Как программно вернуть в русский текст?
Какая функция или какой алгоритм?

[Аватар]

Можно так Д7

procedure TForm1.Button1Click(Sender: TObject);
var s1,s2: String;
    i: Integer;
begin
  s1:='Õîòèòå ïîõóäåòü';
  s2:='';
  i:=1;
  while i<=Length(s1) do begin
    if s1[i]='&' then begin s2:=s2+Chr(StrToInt(Copy(s1,i+2,3))); Inc(i,5); end
                 else s2:=s2+s1[i];
    Inc(i,1);
  end;
  Label1.Caption:=s2;
end;

[lollollollol]

Форум кодировку ломает, вот так выглядит она:

[tred]

попробуй в архив скидывать потом на сервер заливать

[lollollollol]

так и было, сервер скачивал zip архив, сам распаковывал его с помощью 7z.dll и файлы сохранились в таком виде

[lollollollol]

решение

function StringToWideStringEx(const S: AnsiString; CodePage: Word): WideString;
var
  InputLength,
  OutputLength: integer;
begin
  InputLength := Length(S);
  OutputLength := MultiByteToWideChar(CodePage, 0, PAnsiChar(S), InputLength, nil, 0);
  SetLength(Result, OutputLength);
  MultiByteToWideChar(CodePage, 0, PAnsiChar(S), InputLength, PWideChar(Result), OutputLength);
end;

function WideStringToStringEx(const WS: WideString; CodePage: Word): AnsiString;
var
  InputLength,
  OutputLength: integer;
begin
  InputLength := Length(WS);
  OutputLength := WideCharToMultiByte(CodePage, 0, PWideChar(WS), InputLength, nil, 0, nil, nil);
  SetLength(Result, OutputLength);
  WideCharToMultiByte(CodePage, 0, PWideChar(WS), InputLength, PAnsiChar(Result), OutputLength, nil, nil);
end;

function TranslateString(const S: AnsiString; CP1, CP2: Word): AnsiString;
begin
  Result:= WideStringToStringEx(StringToWideStringEx(S, CP1), CP2);
end;

Используем так:

str:=TranslateString(str,65001,28591);