hi
Di_LIne
про файлы блокировки слышал, первым делом их убивал.
1.
2.
1 . paradox.lck
2 . pdoxusrs.lck
3 . pdoxusrs.net
дело в том, что прога не моя... писана на Delphi, больше ничего сказать не могу..
написал свою прогу (не без помощи конечно) которая по моему разумению должна осуществлять реиндескацию.. (но базу востановить таким способом не могу.ругается рис. ниже)
вот код, може что подскажешь...
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
procedure TForm1.bbtnIndClick(Sender: TObject);
var
Props: CURProps;
hDb: hDBIDb;
TableDesc: CRTblDesc;
SearchRec :TSearchRec;
lbCap,flbs : String;
begin
DBase.Open;
flbs := DBase.Directory;
if FindFirst (flbs+'*.db', faAnyFile, SearchRec) = 0 then
repeat
tabInd.Close;
tabInd.TableName := SearchRec.Name;
Label87.Caption := SearchRec.Name;
tabInd.Exclusive := true;
// tabInd.Active;
tabInd.Open;
fDbiRegenIndexes(tabInd);
begin
// Blank out the structure...
FillChar(TableDesc, sizeof(TableDesc), 0 );
// Get the database handle from the table's cursor handle...
Check(DbiGetObjFromObj(hDBIObj(tabInd.Handle), objDATABASE, hDBIObj(hDb)));
// Put the table name in the table descriptor...
StrPCopy(TableDesc.szTblName, tabInd.TableName);
// Put the table type in the table descriptor...
StrPCopy(TableDesc.szTblType, Props.szTableType);
// Set the Pack option in the table descriptor to TRUE...
TableDesc.bPack := True;
// Close the table so the restructure can complete...
tabInd.Close;
// Call DbiDoRestructure...
Check(DbiDoRestructure(hDb, 1, @TableDesc, nil, nil, nil, False));
// ^^ чтоб ишо и уничтожить удаленные записи в основном пидарокс табле
// воставовить dbiUndeleteRecord
Application.ProcessMessages;
until FindNext (SearchRec) <> 0;
DBase.Close;
DBase.Open;
Label87.Caption := 'ГОТОВО!!!';
end;
