[firebase-br] Reservar espaço no disco para versioning

Paulo Geloramo paulogeloramo em terra.com.br
Ter Nov 9 14:02:54 -03 2004


Ola Pessoal,

Conhece alguma artigo sobre este assunto?
Qual a finalidade?

Usando:
Delphi 7
Firebird 1.5

O componente IBConfigService da pasta InterbaseAdmin tem
o metodo SetReserveSpace, qual a finalidade de reservar espaço?

Quando cria o banco de dados o padrao seria SetReserveSpace(True)?

Quando seria indicado o uso de SetReserveSpace(False)?

Este metodo tem alguma influencia sobre o Firebird ou
teria somente no Interbase?

The following example shows how to activate the database shadow, set the
async and access modes, and reserve disk space for versioning.  Note that
the SetReadOnly method is set to False in the beginning; this is to ensure
that the other parameters can be set, in case the database has been
previously set to read-only.  The call to the Windows API Sleep between each
method is to ensure that each service completes before going on to the next.

procedure TForm1.Button1Click(Sender: TObject);
begin
 with IBConfigService1 do
  begin
    ServerName := 'Poulet';
    LoginPrompt := False;
    Params.Add('user_name=SYSDBA');
    Params.Add('password=masterkey');
    DatabaseName := 'c:\interbase\tutorial\tutorial.gdb';
    Active := True;
    try
    SetReadOnly(False);
    while IsServiceRunning do Sleep(5);
    if CheckBox1.Checked then

      ActivateShadow;
    while IsServiceRunning do Sleep(5);
    if CheckBox2.Checked then
      SetAsyncMode(True);
    while IsServiceRunning do Sleep(5);
      if CheckBox3.Checked then
      SetReserveSpace(True);
    while IsServiceRunning do Sleep(5);
    if CheckBox4.Checked then
      SetReadonly(True);
    finally
      Active := False;
    end;

  end;
end;


[]s
Paulo Geloramo







Mais detalhes sobre a lista de discussão lista