|
#1
|
||||
|
||||
CMD и кодировка
В программе пытаюсь получить название текущего VPN-соединения:
Код:
WinExec(PAnsiChar('cmd /u /c rasdial > log.txt'), SW_HIDE); Цитата:
Помогите заставить кириллицу отображаться кириллицей П.С. Delphi 2010 |
#2
|
|||
|
|||
OEMToAnsi...
|
#3
|
||||
|
||||
Делаю так:
Код:
var N: PAnsiChar; begin Memo1.Lines.LoadFromFile('log.txt'); N:=PAnsiChar(Memo1.Lines.GetText); OEMToAnsi(N,N); Memo1.Lines.Text:=StrPas(N); Цитата:
|
#4
|
|||
|
|||
Ой, держите меня семеро...
PXXXChar - это указатель!!! Под него надо выделять память!!! |
#5
|
||||
|
||||
на 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; |
#6
|
||||
|
||||
NumLock, а у мну материться:
Цитата:
Код:
OemToAnsi(PChar(Memo1.Text), PChar(s)); |
#7
|
||||
|
||||
ну а OemToAnsi(PAnsiChar(Memo1.Text), PAnsiChar(s));
|
#8
|
||||
|
||||
Делал так, но результат такой же
Только меняется это: Цитата:
Цитата:
Последний раз редактировалось adidas, 06.08.2010 в 13:19. |
#9
|
||||
|
||||
Эм... D2010? Поиграй с UTF8Decode/UTF8Encode... симптомы похожи...
А в самом файле что? сохранённом? И что выводит программа, если запустить её в cmd, НЕ из Delphi? Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#10
|
||||
|
||||
Цитата:
Цитата:
Выше выкладывал я. Кстати, AkelPad отображает нормально все. Вот, что должно в Memo отображать: Цитата:
Цитата:
|
#11
|
||||
|
||||
Посмотри тогда в Акелпаде (или в Notepad++), какую кодировку он определит для файла... Под рукой 2010 нету, так что не могу у себя всё проверять, но попробуй поиграть не с AnsiChar, а WideChar - ибо 2010 по определению юникодный...
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#12
|
||||
|
||||
Если Notepad++ не врет, то кодировка OEM 866.
|
#13
|
||||
|
||||
Попробуй чтоле OemToCharW... Или что-то в этом роде...
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#14
|
||||
|
||||
Может, я что-то не так делаю, но ничего не помогает
|
#15
|
||||
|
||||
Короче, в Д2010 не работал ни один способ, пришлось писать отдельную прогу в Д7, для перекодировки.
|