Не получается вставить в таблицу записи со строками на русском языке

Материал из DRKB

Не получается вставить в таблицу записи со строками на русском языке[править | править код]

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

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

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

{ Устанавливает русский 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;


Source: Взято с http://delphiworld.narod.ru
ID: 02497