БД в OEM

← →
GIL (2003-12-17 16:32) [0]

возникла проблема: нужно одну базу скопировать в другую, с немного другим форматом и добавлением информации, вся проблема в том, что базы в кодировке OEM и я не могу по-нормальному вносить изменения (русский язык хромать начинает), что делать, и как решить эту проблему? или как-то конвертировать обычную кодировку в OEM? если да, то где найти процедуру конвертирования, или хотябы таблицу по которой конвертить?

← →
Anatoly Podgoretsky (2003-12-17 17:15) [1]

Откуда куда?

← →
DimonNew (2003-12-17 17:21) [2]

1. Конвертация.
пример из интернета как перевести из Windows строки в Dos строку.
// Функция Rus преобразует Windows строку в DOS строку}
function Rus(mes: string):string;
var
i: integer;
begin
for i:=1 to length(mes) do
case mes[i] of
"А".."п" : mes[i] := Chr(Ord(mes[i]) - 64);
"р".."я" : mes[i] := Chr(Ord(mes[i]) - 16);
end;
rus := mes;
end;

и соответсвенно наоборот.

2. Если у тебя есть BDE, то запусти BDE Administrator. Перейди на вкладку Configuration. Открой Drivers - Native и установи LangDriver соответствующего типа БД.

3. Если нет BDE, то в реестре HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\4.0\Engines выбираешь нужный формат БД и попробуй поменять DataCodePage либо OEM либо ANSI.

← →
Sandman25 (2003-12-17 17:24) [3]

OemToChar
CharToOem
Сам это использовал, когда надо было данные из TMemo записать в Blob поле на сервере с DOS-кодировкой, так чтобы DOS (точнее Unix) программы правильно работали.

← →
GIL (2003-12-17 17:38) [4]

Спасибо Работает!! chartooem

БД в OEM Найти похожие ветки