[adidas]

В программе пытаюсь получить название текущего VPN-соединения:

Код:

WinExec(PAnsiChar('cmd /u /c rasdial > log.txt'), SW_HIDE);

При загрузке файла в Memo кириллица отображается "крякозябами":

‘ўп§м б
PPPoE
Љ®¬ *¤ гбЇҐи*® § ўҐаиҐ* .

и, если название соединения на русском, то дальше работать с этим названием невозможно.
Помогите заставить кириллицу отображаться кириллицей
П.С. Delphi 2010

[lmikle]

OEMToAnsi...

[adidas]

Делаю так:

Код:

var
N: PAnsiChar;
begin
Memo1.Lines.LoadFromFile('log.txt');
N:=PAnsiChar(Memo1.Lines.GetText);
OEMToAnsi(N,N);
Memo1.Lines.Text:=StrPas(N);

, но получаю меньше бреда О_о:

 ^?з

[lmikle]

Ой, держите меня семеро...
PXXXChar - это указатель!!! Под него надо выделять память!!!

[NumLock]

на Delphi 6 прекрасно работает:

Код:

procedure TForm1.AOemToAnsi;
var
  s: String;
begin
  Memo1.Lines.LoadFromFile('d:\0');
  SetLength(s, Length(Memo1.Text));
  OemToAnsi(PChar(Memo1.Text), PChar(s));
  Memo1.Text:=s;
end;

[adidas]

NumLock, а у мну материться:

E2010 Incompatible types: 'Char' and 'AnsiChar'

тут:

Код:

OemToAnsi(PChar(Memo1.Text), PChar(s));

П.С. В Д7 тоже норм работает, но нужно под Д2010.

[NumLock]

ну а OemToAnsi(PAnsiChar(Memo1.Text), PAnsiChar(s));

[adidas]

Делал так, но результат такой же
Только меняется это:

‘ўп§м б
PPPoE
Љ®¬ *¤ гбЇҐи*® § ўҐаиҐ* .

на это:

‘ўпзм б
PPPoE
Љ®¬ *¤ гбЇҐи*® § ўҐаиҐ* .

[PhoeniX]

Эм... D2010? Поиграй с UTF8Decode/UTF8Encode... симптомы похожи...
А в самом файле что? сохранённом?
И что выводит программа, если запустить её в cmd, НЕ из Delphi?

[adidas]

Сообщение от DJ PhoeniX

И что выводит программа, если запустить её в cmd, НЕ из Delphi?

Так, что-ли: cmd.exe /c prog.exe ??? Тоже самое выводит.

Сообщение от DJ PhoeniX

А в самом файле что? сохранённом?

Выше выкладывал я. Кстати, AkelPad отображает нормально все.
Вот, что должно в Memo отображать:

Связь с
PPPoE
Команда успешно завершена.

Сообщение от DJ PhoeniX

D2010? Поиграй с UTF8Decode/UTF8Encode... симптомы похожи...

Да, 2010. UTF8Decode/UTF8Encode пробовал еще перед созданием это темы. Не помогли они.

[PhoeniX]

Посмотри тогда в Акелпаде (или в Notepad++), какую кодировку он определит для файла... Под рукой 2010 нету, так что не могу у себя всё проверять, но попробуй поиграть не с AnsiChar, а WideChar - ибо 2010 по определению юникодный...

[adidas]

Если Notepad++ не врет, то кодировка OEM 866.

[PhoeniX]

Попробуй чтоле OemToCharW... Или что-то в этом роде...

[adidas]

Может, я что-то не так делаю, но ничего не помогает

[adidas]

Короче, в Д2010 не работал ни один способ, пришлось писать отдельную прогу в Д7, для перекодировки.