Уважаемые товарищи, подскажите пожалуйста, делаю маленькую программу, альтернативу стандартному блокноту Windows, которая может открывать текст как Windows(cp1251) так и в DOS(cp866) кодировках, т.к. часто приходиться открывать текстовые файлы в обеих кодировках, но проблема в следующем:

Если я использую XPManifest, то текст в Memo, в котором он отображается, ВСЕГДА выводится в Windows кодировке Без манифеста всё работает правильно, т.е. я могу переключаться между Windows и DOS кодировками.

Вопрос: как можно добиться того, чтобы используя XPManifest текст в Memo можно было переключать в DOS кодировку? Или может быть визуальные стили можно применить выборочно к отдельным компонентам TButton, TEdit, TGroupBox, TComboBox и т.д. исключая TMemo, только я не знаю как это сделать и возможно ли это. Слышал что-то про Theme API, но никак не пойму как этим можно воспользоваться С одной строны не хочется терять привлекательность визуальных стилей Windows XP, т.е. не использовать манифест, а с другой, не хочется использовать сторонние компоненты, такие как TXPButton и др.

Может функция такая подойдет:

Код

// Конвертирование Win фомата в Dos формат function Ansi2OEM(const S : string) : string; begin SetLength(Result,Length(S)); if  Length(S) <> 0  then   CharToOem(pChar(S),pChar(Result)); end; // end of Ansi2OEM

Добавлено @ 12:36
Вообще, по кодировкам можно найти инфу тут:
http://forum.vingrad.ru/index.php?showtopic=22229

Pakshin A. S.
К сожалению Ваш код не работает, но я думаю не в нём дело, а в самом Memo. Например попробуйте это, откройте текстовый файл в DOS кодировке:

Код

//uses XPMan; //попробуйте раскомментировать эту строчку procedure TForm1.Button1Click(Sender: TObject); begin if not OpenDialog1.Execute then  Exit;  Memo1.Font.Charset := OEM_CHARSET;  Memo1.Lines.LoadFromFile(OpenDialog1.FileName); end;

P.S. Windows XP + Delphi 7

Код

uses XPMan; //попробуйте раскомментировать эту строчку ... function OEM2Ansi(const S : string) : string; // Конвертирует строку из кодировки DOS в Windows кодировку begin  SetLength(Result,Length(S));  if  Length(S) <> 0  then    OemToChar(pChar(S),pChar(Result)); end; procedure TForm1.Button3Click(Sender: TObject); begin  if not OpenDialog1.Execute then Exit;  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);  Memo1.Text:= OEM2Ansi(Memo1.Text); end;

И будет тебе счастье

Alex
Всё работает, спасибо большое!

Цитата(Alex @ 25.11.2004, 14:55)

И будет тебе счастье

Я поторопился с выводами, простите, но Ваш вариант НЕ РАБОТАЕТ. Это только на первый взгляд он выглядит рабочим, а на самом деле всё не так. Дело в том, что ВСЕ таблицы или схемы, выполненные в DOS кодировке, просто трансформируются непонятно во что, а читаемым остаётся только текст
Такое решение не годится, нужно чтобы и текст, и таблицы и нарисованные схемы в DOS кодировке были читаемы и отображались в своём оригинальном виде, как без использования манифеста в моём примере! Может есть какие-то другие варианты? Заранее огромное спасибо.

Код

uses XPMan; //попробуйте раскомментировать эту строчку ... function OEM2Ansi(const S : string) : string; // Конвертирует строку из кодировки DOS в Windows кодировку begin  SetLength(Result,Length(S));  if  Length(S) <> 0  then    OemToChar(pChar(S),pChar(Result)); end; procedure TForm1.Button3Click(Sender: TObject); begin  if not OpenDialog1.Execute then Exit;  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);  Memo1.Text:= OEM2Ansi(Memo1.Text);  Memo1.Font.Name:= 'Courier New'; end;

Нужно просто ставить шрифт, в котором ширина символов одинаковая

Цитата(Alex @ 25.11.2004, 18:36)

Нужно просто ставить шрифт, в котором ширина символов одинаковая

Нет, символы DOS-псевдографики (двойная верт. линия, двойная гориз. линия, стрелки и т.д.) не могут быть отображены в Windows кодировке, эта ф-ция здесь навряд ли поможет, т.к. работает только наполовину, отображая только текст

пример файла дай

Alex
Спасибо Вам огромное за помощь, мне даже как-то неудобно за это

Вот небольшой файл-схемка в cp866 кодировке, в Memo для просмотра использовал шрифт Lucida Console. С манифестом можно посмотреть если изменить шрифт на Terminal, но тогда возникает другая проблема, в нём нет кириллицы Ссылка: webfile.ru/105839

Ещё в голову пришла мысль, если ничего не получится, думаю попробовать собрать свой шрифт из двух: Lucida Console и Terminal, засунуть его в ресурсы программы и использовать только во время её работы. Такое возможно, не устанавливать шрифт в систему?

Бестолковое занятие. Люсида и терминал всегда есть в системе.
И вообще это стандартный способ просмотра дос текста в блокноте - сменить шрифт на терминал. А другого варианта просмотра псевдографики я не вижу.
Кроме того хотел бы я посмотреть, как ты будешь запихивать шрифт терминал в свою программу :-) Для начала его придется найти... Можно правда попробовать найти шрифт где-нить в инете. Есть шрифты в дос кодировке.

Цитата(Snowy @ 26.11.2004, 10:25)

Для начала его придется найти...

Да найти-то не проблема %WINDIR%\Fonts\8514oem.fon, app850.fon устанавливаются начиная с Windows 95. В этом случае я имел ввиду, что попробовать полностью сделать свой шрифт, например на базе app866.fon, в котором бы литеры соответствовали порядку как в .ttf шрифтах, т.е. недостающие символы добавить, расставить знаки на "свои" места. И потом использовать ЭТОТ "расширенный" шрифт (TerminalEx ;)) во время работы своей программы, а не стандартный Terminal стоящий в системе ;) Только растровые шрифты немного уродливы, хотелось бы .ttf - Lucida Console.

Ещё, дело в том, что на Memo с Lucida Console (скорее всего и на любой другой .ttf шрифт) с OEM_CHARSET негативно влияет XP Manifest, без манифеста всё выводится _как нужно_ шрифтом Lucida Console! Может подскажешь как это побороть?

Код

procedure TForm1.Button1Click(Sender: TObject);  function OemToWide(Src :AnsiString) :WideString;  var n :Integer;  begin    SetLength(Result,Length(Src));    n := MultiByteToWideChar(CP_OEMCP, 0, PChar(Src), Length(Src), PWideChar(Result), Length(Result));    SetLength(Result,n);  end; var  w :WideString; begin  with TStringList.Create do try    LoadFromFile('e:\Temp\cp866.txt');    w:= OemToWide(Text);  finally    Free;  end;  SendMessageW(Memo1.handle,WM_SETTEXT, 0,Longint(@w[1])); end;

Этому коду все равно, есть XPMan или его нету. Идея заключается в том, что файл переводится в юникод, а вот его уже memo просто обязано отобразить нормально.

P.s. Идею предложил Петрович.

Alex
У меня вышеприведённый код не работает
Спасибо Вам огромное за помощь, но думаю нужно плюнуть на это дело и считать задачу нерешаемой в случае использования манифеста. Я отказался от его использования.

ты мне брось не работает, все там работает, ты под какими виндами сидишь?