Discussion :

[Harry]

Bonjour,

Savez vous si il existe un compo compatible delphi7 pour le backup et le restore pour firebird? C'est pour remplacer le IBBackup d'interbase.

J'aimerais autant eviter de passer par un programme externe comme le GBAK qui est livré avec Firebird.

Merci

[Giovanny Temgoua]

C'est pour remplacer le IBBackup d'interbase.

Il ne te plaît pas ce composant :

Par ailleurs, je ne connais pas de composants dédiés à Firebird mais cependant, il existe : IBFacilitator, qui est totalement compatible avec Firebird.

Il est en téléchargement gratuit, mais il faut être membre de la maison
http://codecentral.borland.com/codec...sting?id=17205

A+

[Harry]

Il ne te plaît pas ce composant

si il marche super avec interbase, pas avec Firebird 1.5.

Merci pour le tuyeau, je v regarder le IBFacilitator voir ce qu'il fait.


Edit : oui, je suis membre (et j'ai fini par retrouver mon mot de passe ) par contre impossible de télécherger, le site ne repond pas des qu'on clique sur 'Download' ou sur 'List'. Je v le chercher ailleurs

Edit num2 : Ca y est j'ai reussi a le télécharger

[Harry]

ReBonjour,

je viens d'essayer d'utiliser le composant IBFacilitator, a la connection j'ai le message suivant 'Dialecte SQL Incorrect';

Voici le bout de code qui fait la connection, ou qui devrait, peut etre que tu y verra une gourde ou un truc qui manque.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    with dm2.IBFacilitator do begin
   DatabaseName := dm1.IBDatabase.DatabaseName;
   LoginPrompt := False;
   UserName := 'sysdba';
   UserPwd := 'masterkey';
   ServerName := '';
   SQLDialect := 3;
   Connected := True;
end;

Au départ le dialecte était sur '0' mais j'ai vu que pour interbase il fallait mettre 3, peut etre que Firebird c'est autre chose?

[Giovanny Temgoua]

Est-ce que c'est necessaire de renseigner ServerName ?

Par ailleurs, si la base était déjà existante, je te proposerai d'utiliser l'outil GFIX, peut être que le composant ne reconnaît pas automatiquement le dialecte de ta base...

[Harry]

Servername est par defaut à '' (vide) alors je le laisse vide, il s'agit du serveur distant sur lequel la sauvegarde doit etre faite. Si on met rien c'est en local.

Par contre je ne veux pas passer par un logiciel externe comme GFIX ou GBAK car je veux pouvoir le lancer automatiquement à la fermeture du logiciel et ce ou que soit installé Firebird.

[Mjm]

jvUIBBackup (Composants Jedi) va très bien.
Exemple de fonction l'utilisant et fonctionnant chaque jour en production:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
function TFRestore.Backup: boolean;
begin
 jvBackup.Database:=PathNameGBK +FileNameBase;
 jvBackup.PassWord:=M_Login;
 jvBackup.UserName:=M_User;
 jvBackup.BackupFiles.Clear;
 jvBackup.BackupFiles.add(PathNameGBK + FileNameGBK);
 jvBackup.Run;
 result:=True;
end;

(C'est ma première réponse sur ce forum soyez indulgents quant aux règles


[Balise code ajoutée par King Kaiser]

[teryen]

Et on le trouve où ce composant SVP ?

Merci

[Harry]

Le SQLDialect doit etre à '1' pour le IBFacilitator, maintenant j'ai un message 'Bad parameters on attach or create database'.
Les seuls paramètres que je n'ai pas rempli manuellement sont : -Charset -NbCachePages

Je fais une recherche, si ca marche je donne le code sinon je teste le compo Jedi proposé par Mjm ... si je le trouve.

Normalement on devrait le trouver dans le package de JVCL, mais je ne le trouve pas, Il serait sur quel onglet?

Les compos JVCL sont telechargeazbles ici
http://delphi.developpez.com/freewares/

[Mjm]

Bonjour
On doit trouver jvUIB dans le pack jvcl (en principe) ou plus sûrement sur le site de l'auteur

http://www.progdigy.com

[Harry]

Je l'ai trouvé sur le site de l'auteur, le composant marche (attention lire le fichier d'aide avant d'installer, il y a un autre ensemble de composants à installer avant pour que ca marche).

J'ai fait sans difficuletés la sauvegarde avec les infos prodigués par
Mjm je vais également tester sur un autre pc et effectuer la partie 'Restauration' et tester tout ca. En cas de problèmes j'editerai ce message.

[Edit du 24/09/2004 : Ca marche super bien autant avec Firebird que Interbase, en restauration comme en sauvegarde.]
[Edit du 27/09/2004 : Ca ne marche pas sur certaines tables qui ont beaucoup de données au format 'BLOB' avec FireBird, Nickel avec Interbase]

Bonsoir et merci.

[Harry]

Bon, ben en fait ca marche une fois de ci - de la quand ca veux, plus la base est chargée moins ca semble marcher, et pourtant elle n'a rien d'une base enorme...

Il va falloir trouver autrechose, ou alors un correctif

[Benjamin GAGNEUX]

Salut,

Il ne te plaît pas ce composant

si il marche super avec interbase, pas avec Firebird 1.5.

J'utilise les IBX : IBBackupService et IBRestoreService pour réaliser mes Backup/Restore de mes BD InterBase 6.0 et FireBird 1.5.X et je n'ai jamais rencontré de problèmes...
Les IBX sont entièrement compatible InterBase 6.0 et FireBird 1.5.X
Cependant ils ne le seront peut être plus avec FireBird 2.0 actuellement en phase de test.

Pour les Dialects :
1 pour les version inférieur à IB 6.0
2 pour facilité la migration vers IB 6.0 et suppérieur.
3 pour les version les plus récentes : IB 6, IB 7.X, FB 1.5.X et FB 2

A+

[Harry]

Chez moi IBBackupService ne marchait pas avec FireBird, mais je ne me souviens plus des messages : il y avait un thread dans ce forum mais je suppose qu'il est passé à la trappe depuis.

J'avais a peu près tout essaye pourtant.

[Harry]

Tiens, voila un exemple de code (j'ai repeché des bouts de code ici et la, ils sont pas tres représentatifs de ce qu'il y avait avant, mais si tu me dis ce qu'il y manque on pourra retester puisque apparament pour toi ca marche):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
if FileExists(FichierSave) then exit;
     IBBackup := TIBBackupService.Create(nil);
    with IBBackup do begin
      ServerName  := ExtractFilePath(Application.exeName) + 'data\';
      //Showmessage(ServerName);
      LoginPrompt := False;
      Params.Add('user_name=sysdba');
      Params.Add('password=masterkey');
      Active := True;
      try
        Verbose := True;
        //Options := [NonTransportable, IgnoreLimbo];
        DatabaseName := dm1.IBDatabase.DatabaseName;
        BackupFile.Clear;
        BackupFile.Add(FichierSave);
        ServiceStart;
        while not Eof do begin
          GetNextLine;
          //Application.ProcessMessages;
        end;
        sleep(1000);
      finally
        Active := False;
        BackupFile.Clear;
        IBBackup.Free;
      end;
    end;

Le plantage se fait lors des GetNextLine, ca boucle un peu puis ca sort le message suivant :

Error reading data from the connection.

Merci

A++

[Benjamin GAGNEUX]

ServerName doit avoir le nom ou l'adresse ip de la machine soit en local : 127.0.0.1

Il faut aussi renseigner IBBackup.Protocol en TCP

Et enfin je déplacerais Active := True afin de le mettre juste avant ServiceStart.

Je pense que cela devrait fonctionner.

Bon courage.
A+

[Harry]

J'ai toujours le message

Error reading data from the connection

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
IBBackup := TIBBackupService.Create(nil);
    with IBBackup do begin
      ServerName  := '127.0.0.1'; //ExtractFilePath(Application.exeName) + 'data\';
      //Showmessage(ServerName);
      LoginPrompt := False;
      Params.Add('user_name=sysdba');
      Params.Add('password=masterkey');
      try
        Verbose := True;
        //Options := [NonTransportable, IgnoreLimbo];
        DatabaseName := dm1.IBDatabase.DatabaseName;
        BackupFile.Clear;
        BackupFile.Add(FichierSave);
        Active := True;
        ServiceStart;
        while not Eof do begin
          GetNextLine;
        end;
        sleep(1000);
      finally
        Active := False;
        BackupFile.Clear;
        IBBackup.Free;
      end;
    end;

[Harry]

Idem avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 if FileExists(FichierSave) then exit;
     //IBBackup := TIBBackupService.Create(nil);
    with DM1.IBBackup do begin
      ServerName  := '127.0.0.1'; //ExtractFilePath(Application.exeName) + 'data\';
      //Showmessage(ServerName);
      LoginPrompt := False;
      Params.Add('user_name=sysdba');
      Params.Add('password=masterkey');
      try
        Verbose := True;
        //Options := [NonTransportable, IgnoreLimbo];
        DatabaseName := dm1.IBDatabase.DatabaseName;
        BackupFile.Clear;
        BackupFile.Add(FichierSave);
        Active := True;
        ServiceStart;
        while not Eof do begin
          GetNextLine;
        end;
        sleep(1000);
      finally
        Active := False;
        BackupFile.Clear;
        //IBBackup.Free;
      end;
    end;

avec dans le datamodule (dm1) un composant IBBackup avec les paramètres suivants :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
object IBBackup: TIBBackupService
  Protocol = TCP
  TraceFlags = []
  BlockingFactor = 0
  Options = []
  Left = 752
  Top = 72
end

Pour info il a tout de meme ecrit 700ko avant de planter, parfois c'est que 32, mais la sauvegarde entiere devrait faire 2250ko mais la depuis un moment avec ce dernier exemple (compo dans le datamodule etc.. j'ai un comportement légerement différent : meme message MAIS le fichier de sauvegarde est crée avec 0octets dedans tant que l'on a pas refermé l'application, dès que l'on ferme l'application la sauvegarde se termine !
Pouf, le fichier fait d'un coup 2250ko...

[Benjamin GAGNEUX]

En effet, c'est curieux... je ne comprends pas trop pourquoi cela ne fonctionne pas...

Voici un bout de code (testé), mais il est semblable au tien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
  with IBBackupService1 do
  begin
 
    BackupFile.Clear;
 
    BackupFile.Add(sPath+sFile+'.'+sExt);
 
    DatabaseName := DBPathFile;
 
    with Params do
    begin
      Clear;
      Add('user_name=sysdba');
      Add('password=masterkey');
    End;
 
    try
      Active := True;
      ServiceStart;
      while not EOF do
        GetNextLine;
    except
      Active := False;
      raise;
    end;
    Active := False;
  end;

A tout hazard, on ne sait jamais, quelques questions :

- la Base de Données est-elle fonctionnelle (erreur disque, accès limité, etc...) ?
- Le serveur InterBase est-il bien arrêté (pb de conflit de port entre serveur IB et serveur FB) ?
- Il s'agit bien de FireBird 1.5.X et non FireBird 2.X ?
[EDIT]
- Y a-t-il un FireWall sur la machine de test ?

[Harry]

Aucun soucis avec la bdd, du moins à ma conaissance.
Pour etre sur j'ai desinstallé Interbase et firebird puis réinstallé Firebird 1.5.
Il n'y a pas de Firewall sur les PC de test.

Au moins si ca marche avec la fermeture du logiciel c'est deja ca

Mais c'est sur que si je pouvais faire les sauvegardes sans soucis ce serait mieux.