Форум: "Базы";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];
Вниз
Упаковка Paradox Найти похожие ветки
← →
konorl (2002-05-08 05:49) [0]При упаковке таблиц Paradox, имеющих русские имена DbiDoRestructure никак не хочет выдать DBIERR_NONE. Видимо проблема с кодировкой, видно по CurProps. Как решить вопрос?
← →
konorl (2002-05-08 06:00) [1]Довалю, что без русского имени не обойтись, а проблема серьезная - растет размер MB из-за BLOB.
← →
gek (2002-05-08 07:18) [2]
procedure PackPdoxTable (Table:TTable);
var
TableDesc: CRTblDesc;
WasActive: Boolean;
hDatabase: hDbiDB;
begin
WasActive := Table.Active;
Screen.Cursor := crHourglass;
try
// open if it was closed
// (to get the valid DBHandle)
if not WasActive then
Table.Open;
// get the database handle and close the table
hDatabase := Table.DBHandle;
Table.Close;
// fill the table descriptor
FillChar (TableDesc, SizeOf (CRTblDesc), 0);
with TableDesc do
begin
StrPCopy (szTblName, Table.TableName);
StrPCopy (szTblType, szParadox);
bPack := True;
end;
// restructure the table, packing it
if hDatabase <> nil then
Check (DBIDoRestructure (hDatabase, 1,
@TableDesc, nil, nil, nil, False))
else
ShowMessage ("Database handle is nil");
finally
Screen.Cursor := crDefault;
// eventually reopen
if WasActive then
Table.Open;
end;
end;
Marco Cantu
← →
Konorl (2002-05-12 19:28) [3]Ты сам то проверял то, что пишешь?
Не обижайся, но это все давно известно.
Если можешь чего сказать - прочитай вопрос.
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c
