Текущий архив: 2002.06.03;
Скачать: CL | DM;

Вниз

Упаковка 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;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.014 c