Перевод Dos-кодировки в Win

← →
Lexer © (2003-01-29 11:16) [0]

Помогите, как перевести текст из ASCII(DOS charset) в ANSI(Windows charset).

← →
Anatoly Podgoretsky © (2003-01-29 11:20) [1]

OemToChar

← →
Lexer © (2003-01-29 11:22) [2]

У ф-ии 2 параметра типа PChar... если можно с примером.

← →
Anatoly Podgoretsky © (2003-01-29 11:28) [3]

OemToChar(p1,p2)

← →
Lexer © (2003-01-29 11:36) [4]

?
cChar, cStr: PChar; StrFile: string; cChar := PChar(StrFile); OemToChar(cChar, cStr);

В итоге cStr = nil.

← →
Anatoly Podgoretsky © (2003-01-29 11:42) [5]

Естественно ведь StrFile ничего не присвоено

← →
Lexer © (2003-01-29 11:46) [6]

Я привел только 2 отрезка из кода
cChar, cStr: PChar; StrFile: string; ...
чтение из файла в StrFile
... cChar := PChar(StrFile); OemToChar(cChar, cStr);
Здесь cChar вполне реально содержит строку (проверено).

← →
Anatoly Podgoretsky © (2003-01-29 11:53) [7]

Как проверено, не вижу этого в коде

← →
Lexer © (2003-01-29 11:56) [8]

Недостающий код (вкратце)
if OpenDialog.Execute then begin AssignFile(ExtractFile, OpenDialog.FileName); Reset(ExtractFile); ReadLn(ExtractFile, StrFile); end;

← →
Anatoly Podgoretsky © (2003-01-29 12:03) [9]

Ты это называешь проверкой?
Проверка это когда используются операторы отношения, у тебя из нет.

← →
Lexer © (2003-01-29 12:07) [10]

Проверено в отладке. Файл считывается, надо только перевести кодировку.

← →
Lexer © (2003-01-29 12:12) [11]

Хотя бы так:
cChar := "911"; OemToChar(cChar, cStr);

cStr всеравно...nil

← →
Anatoly Podgoretsky © (2003-01-29 12:13) [12]

Тогда приведи не обрывки, а достаточно полный кусок текстаБ со всеми описаниями, присвоениями, выделением памяти если есть и проверками.
Функция работает нормально.

Полный код привести к сожалению не могу... довольно большой.
Это работающая загрузка выписки, но кому-то в банке понадобилось сменить кодировку.

Не надо весь код, за это надо бить, а только воспроизводимую часть без воды.
Тогда вот тебе точный ответ - у тебя в программе ошибка.

>Anatoly Podgoretsky
- что вы мучаете человека - нельзя было сразу сказать под буфер cStr надо сначала память выделить
З.Ы. а еще проще OemToChar(PChar(StrFile),PChar(StrFile))...

Привожу самый элементарный код:
cChar, cStr: PChar; cChar := "911"; OemToChar(cChar, cStr);
-не работает, СStr=nil.

Anatoly Podgoretsky: спасибо за попытку помочь.

han_malign: ВСЁ РАБОТАЕТ БОЛЬШОЕ СПАСИБО!!!

Перевод Dos-кодировки в Win Найти похожие ветки