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:
43:
44:
45:

procedure Tform1.prc_backup(input, output: String);
begin
 with IBDatabase1 do
  begin
    try
      DatabaseName := input;
      Params.Add('user_name='+ edtBenutzer.text);
      Params.Add('password='+edtKennwort.text);
      LoginPrompt := False;
      Connected := true;
      Open;
    except
    begin
         ShowMessage('Probleme beim Verbinden mit der Datenbank');
         close;
    end;
   end;
 with IBBackupService1 do
  begin
    try
     Protocol:=Local;
     DatabaseName := Input;
     LoginPrompt := False;
     Params.Add('user_name='+edtBenutzer.text);
     Params.Add('password='+edtKennwort.text);
     LoginPrompt := False;
     Active := True;
     Output := Output + '\Backup_'+FormatDateTime('dd/mm/yy_hh_nn_ss', now)+'.gbk';
     log.Lines.Add('Starte Backup .....   '+DateTimeToStr(Now()));
     Verbose := True;
     BackupFile.Clear;
     BackupFile.Add(output);
     ServiceStart;
     Application.ProcessMessages;
     While not Eof do log.Lines.Add(GetNextLine);
      log.Lines.delete(log.Lines.Count-1);
      log.Lines.Add('Backup erstellt.....');
      log.Lines.Add(' ');
    finally
      Active := False;
    end;
  end;
  end;
   IBDatabase1.Close;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

View Entry
ID: 18961
Title:   IBX 5.04 for D5 (SP1)
Terms:   No Special Terms
Name:   Jeff Overcash email: Anonymous
URL:   None
Summary:   Please read the readme for details on the update. Delphi 5 SP1 required.
Description:   Please read the readme for details on the update. Delphi 5 SP1 required. IBXtras now included but still design time only packages.
Product:   Delphi (5-5) Components
Contest:   None
Uploaded:   10-Oct-02 9:47:18 AM last updated 10-Oct-02 9:52:00 AM
Tools CD:   No
Copyright:   No significant restrictions
Size:   1.7MB List Files Download now (2679 downloads)
Comments:   0