Hola a todos, como están? espero que bien!!
Escribo para ver si alguno de Uds. me puede dar una mano.
Estoy utilizando un procedimiento para realizar la compactación de unas tablas paradox las cuáles tengo protegidas con password, pero a relizar la compactación las tablas quedan sin contraseña.
El procedimiento es el siguiente:
Código Delphi
[-]
procedure PackParadox(Const ADatabase, ATable : String);
var
ADB :TDataBase;
SaveKC : Boolean;
PdxStruct : CRTblDesc;
begin
with TTable.Create(nil) do
try
DatabaseName := ADatabase;
TableName := ATable;
Exclusive := True;
Open;
ADB := DAtabase;
SaveKC := ADB.KeepConnection;
ADB.KeepConnection := True;
try
Close;
FillChar(PdxStruct,SizeOF(PdxStruct),0);
StrPCopy(PdxStruct.szTblName,ATable);
PdxStruct.bPack := True;
Check(DbiDoRestructure(ADB.Handle,1,
@PdxStruct,nil,nil,nil,False));
finally
ADB.KeepConnection := SaveKC;
end;
finally
Free;
end;
end;
Alguien tiene idea de como puedo solucionar este problema.
Desde ya les agradezco por leer este hilo.
Saludos,
Mauro.-