Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Перекодировка при перекачке данных из Paradox в Interbase [D5, Paradox]


Font Hunter ©   (2002-02-15 13:12:00) 

Есть парадоксовская база данных, сделанная еще под DOS. Русские символы в ней выглядят как #####. Я пишу программу, которая перекачивает данные из этой базы в интербейсовскую БД (через BDE). Для перекодировки русских символов в ANSI-кодировку пробовал использовать OemToChar, OemToAnsi, NativeToAnsi, но ничего не получилось. Кто знает, как правильно пользоваться этими функциями, не откажите в помощи бедному программеру-ламеру.
(Простое изменение Langdriver"а не устраивает, т.к. db-файлы с парадоксовской базой будут приносить время от времени, а моей программой будет пользоваться простой юзер, который, вероятно, не захочет каждый раз лазить в BDE Admin или Database Desktop и менять там настройки).


gek   (2002-02-15 13:38:00) [1]

function TForm_main.OemToAnsiStr(const OemStr: string): string;
begin
SetLength(Result, Length(OemStr));
if Length(Result) > 0 then
OemToCharBuff(PChar(OemStr), PChar(Result), Length(Result));
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо