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

Вниз

Ещё одна проблема с упаковкой таблицы!!! Помогите пожалуйста!   Найти похожие ветки 

← →
Dimaz-z ©   (2003-05-21 22:25) [0]

При уапаковке таблицы всё проходит нормально, в таблице содержится поле Picture, но когда я опять (После упаковки) открываю эту таблицу и просматриваю запись с полем Picture, вылазит ошибка - "Not Exact read/write File: ...base.mb ...." Что делать?
Код процедуры упаковки:

procedure Tfrm_main.PackTable(Table: TTable);
var
Props: CURProps;
hDb: hDBIDb;
TableDesc: CRTblDesc;
begin
Check(DbiGetCursorProps(Table.Handle, Props));
if (Props.szTableType = szPARADOX) then begin
FillChar(TableDesc, sizeof(TableDesc), 0);
Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb)));

StrPCopy(TableDesc.szTblName, Table.TableName);
CharToOem(TableDesc.szTblName, TableDesc.szTblName);

StrPCopy(TableDesc.szTblType, Props.szTableType);
TableDesc.bPack := True;
Table.Active:=False;
Table.Close;
Check(DbiDoRestructure(hDb, 1, @TableDesc, nil, nil, nil, False));
end else
if (Props.szTableType = szDBASE) then Check(DbiPackTable(Table.DBHandle, Table.Handle, nil, szDBASE, True))
else raise EDatabaseError.Create("Неправильный формат таблицы");
Table.Close;
end;

---

← →
Dimaz-z ©   (2003-05-21 23:00) [1]

Помогите...

---

Страницы: 1 вся ветка

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

Наверх

Память: 0.46 MB
Время: 0.015 c