VPF::краказябры в таблице =( - Форум программистов

uranpro

Дата 15.12.2008, 14:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 571
Регистрация: 7.5.2008
Где: Moscow city

Репутация: нет
Всего: 1

программа коряво добавляет русские слова в таблицу, но не на всех компах(странно)

принцип такой

Код


q.sql.text:=
inset into t1 values :pName

...

q.params.items[0].value:=eName.text;
q.execsql;

...

на некоторых компах вместо рус букв пишет ####

т.е.
пишу = БДЕ МАСДАЙ !!!
в таблице = ### ###### !!!

пробовал менять у едита чарсет, помогало, но не всегда =(

что делать ??

--------------------

I want a perfect soul

uranpro

Дата 15.12.2008, 15:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 571
Регистрация: 7.5.2008
Где: Moscow city

Репутация: нет
Всего: 1

что, никто не знает ?

--------------------

I want a perfect soul

Frees

Дата 15.12.2008, 15:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54

В Database Desktop поставьте правильный Language Driver у таблицы, например, Pdox ANSI Cyrr.

Это простой вопрос в том случае, если база уже создана на диске. Если мы создаем базу динамически из программы, то как потом поставить русский язык без Database Desktop'а?

Оказывается это не так просто. Я перерыл весь инет и так и не нашел. В итоге пришлось потрудится и получилась следующая функция:

Code:

{ Устанавливает русский LANGDRIVER для таблицы BDE (Paradox или dBASE)}

{ Таблица должна уже существовать на диске

Если вы создаете таблицу динамически,

не забудьте вызвать Table.CreateTable }

Код


 

procedure SetTableRussianLanguage(Table: TTable);

var

  Props: CURProps;

  hDb: hDBIDb;

  TableDesc: CRTblDesc;

  OptDesc: FLDDesc;

  OptData: array [0..250] of Char;

  S: string;

const   // Define propertly table type & codepage from list below

  LDName = 'ancyrr';   // Paradox ANSI Cyrillic 

  // LDName = 'cyrr';  // Paradox Cyrr 866

  // LDName = 'DB866ru0'; // dBASE RUS cp866 

 

begin

// Get handle (if table still not opened)

  Table.Open;

  // Get the table properties to determine table type...

  Check(DbiGetCursorProps(Table.Handle, Props));

 

  // Blank out the structure...

  FillChar(TableDesc, sizeof(TableDesc), 0);

  FillChar(OptDesc, SizeOf(OptDesc), #0);

  // Get the database handle from the table's cursor handle...

 

  Check( DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE,

         hDBIObj(hDb)));

 

  { If table name contain cyrillic or other native character,

     convert name to OEM }

 

  SetLength(S, Length(Table.TableName));

  CharToOEM(PChar(Table.TableName), @S[1]);

 

  // Put the table name in the table descriptor...

  StrPCopy(TableDesc.szTblName, S{Table.TableName});

  // Put the table type in the table descriptor...

  StrPCopy(TableDesc.szTblType, Props.szTableType);

  // Set the Pack option in the table descriptor to TRUE...

 

  StrCopy(OptDesc.szName, 'LANGDRIVER');

  OptDesc.iLen:=Length(LDName)+1;

  TableDesc.iOptParams:=1;

  TableDesc.pfldOptParams:=@OptDesc;

  TableDesc.pOptData:=@OptData;

  StrPCopy(OptData, LDName);

 

  // Close the table so the restructure can complete...

  Table.Close;

  // Call DbiDoRestructure...

  Check(DbiDoRestructure(hDb, 1, @TableDesc, nil, nil, nil, False));

end;

(с)DRKB

Добавлено через 1 минуту и 47 секунд

Цитата(uranpro @ 15.12.2008, 16:47

)

программа коряво добавляет русские слова в таблицу, но не на всех компах(странно)

может BDE переставить там где не работает

--------------------

Кольцов Виктор Владимирович

uranpro

Дата 15.12.2008, 15:59 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 571
Регистрация: 7.5.2008
Где: Moscow city

Репутация: нет
Всего: 1

Frees, спс, попробую...

--------------------

I want a perfect soul

Akella

Дата 16.12.2008, 19:52 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Цитата(uranpro @ 15.12.2008, 14:47

)

но не на всех компах(странно)

Нужно настроить BDE (Paradox lang)

Для работы с DBase Нужно настроить языковый драйвер на dBASE RUS cp866 опять же в двух местах.

Цитата(uranpro @ 15.12.2008, 14:47

)

пишу = БДЕ МАСДАЙ !!!

Неужели нельзя отказаться от BDE и перейти на клиент/сервер?

Это сообщение отредактировал(а) Akella - 16.12.2008, 19:59

Akella

Дата 16.12.2008, 20:14 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Проще всего настроить BDE на одном компьютере и потом параметры реестра экспортировать.

uranpro

Дата 17.12.2008, 13:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 571
Регистрация: 7.5.2008
Где: Moscow city

Репутация: нет
Всего: 1

Akella, да, спасибо)) разобрался)

Цитата(Akella @ 16.12.2008, 19:52

)

Неужели нельзя отказаться от BDE и перейти на клиент/сервер?

конечно, я так и сказал им))) программа только на одном буке стоять будет, он не в сети и инет не постоянный 10кб/с )) да вобще он во Франции, ###...

--------------------

I want a perfect soul

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »