dosya kontrolü (Firebird==>gbak)

[baypipox]

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls;

type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    OpenDialog1: TOpenDialog;
    ekran: TLabel;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dosyaadi,kayitadi,yolb,yolr:string;
  a:integer;
  b:string;
 // label tekrar;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
dosyaadi:=(OpenDialog1.FileName);
b:=(dosyaadi);
ShowMessage(dosyaadi);
a:=Length(b);
Delete(b,a-3,4);
kayitadi:=b+'.gbk';
ShowMessage(kayitadi);
yolb:=('C:\Program Files\Firebird\Firebird_1_5\bin\gbak  -b -v  -user sysdba -pas masterkey  '+#34+dosyaadi+#34+' '+#34+kayitadi+#34);
yolr:=('C:\Program Files\Firebird\Firebird_1_5\bin\gbak  -r -v  -user sysdba -pas masterkey  '+#34+kayitadi+#34+' '+#34+dosyaadi+#34);
WinExec(pchar(yolb),SW_HIDE);
repeat
  ekran.Caption:='Backup İşlemi devam ediyor...';
until FileExists(kayitadi);
ekran.Caption:='Baclup işlemi bitti';
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
ekran.Caption:='ReStore İşlemi Başladı...';
WinExec(pchar(yolr),SW_HIDE);
ekran.Caption:='ReStore İşlemi Bitti...';
end;

end.

Arkadaşlar koddada göreceğiniz üzere ben firebird de gbak ı kullanarak
backup alıyorum. ben gbk dosyasının oluşup oluşmadığını anlamak için
fileexists komutunu kullanıyorum lakin komut benim işime yaramadı çünkü gbk dosyası oraya ben backup ı başlatır başlatmaz hemen oluşuyo
ve yavaş yavaş boyutu artıyo ve ekran da label da ben göstermek
istediğim mesajları göstermiyorum kodda gördüğünüz üzere hemen backup işlemi bitti diyo bunu nasıl kontrol edebilirim yardımlarınız
bekliyorum hepinize kolay gelsin...

[TRSoft]

Merhabalar;

Tavsiyem backup işlemlerini Interbase Admin sekmesinde bulabileceğin IbBackupServise bileşeni ile yapman. Böylece ekranda ilerleme sırasındaki mesajlarıda son kullanıcıya gösterebilirsin..

kolay gelsin..

[baypipox]

tamam onu deniyeceğim ama benim kodda onu kontrol edebileceğim bir şey yapamazmıyız acaba...

[Hakan Can]

İlla bu şekilde yapacağım diyorsan (ki "TRSoft" en mantıklı yolu söylemiş) RenameFile function'unu kullanarak bu işlemi yapabilirsin.

Yani FileExists olduğu anda dosyanın adını RenameFile ile değiştirmeye çalışırsın. Ne zaman ki değişir adı o zaman Backup işlemi bitmiştir demek. Zira dosya adını Backup işlemi bitene kadar değiştiremezsin. Sonra da tekrar RenameFile ile normal adına geri çevirirsin.

Örnek kod:

Kod: Tümünü seç

ekran.Caption:='Backup İşlemi devam ediyor...';
repeat
  Sleep(1);
  if FileExists(kayitadi) then
  begin
    if FileExists(kayitadi + '_XXX') then DeleteFile(kayitadi + '_XXX');
    if RenameFile(kayitadi, kayitadi + '_XXX') then
    begin
      RenameFile(kayitadi + '_XXX', kayitadi);
      Break;
    end;
  end;
until 1 = 2;
ekran.Caption:='Baclup işlemi bitti';

İyi çalışmalar.

[sadettinpolat]

Hakan Can'ın cozumune ek bir cozum de bu olabilir.

Kod: Tümünü seç

Function FileIsInUse( Const fname: String ): Boolean;
 Var
   fhandle: Integer;
 Begin
   fhandle := FileOpen(fname, fmOpenReadWrite or fmShareExclusive);
   Result := fhandle <= 0;
   if not Result then
     FileClose(fhandle);
 End;

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
  if  FileIsInUse(OpenDialog1.FileName) then
    ShowMessage('dosya kullaniliyor')
  else
    ShowMessage(' dosya kullanilmiyor')

end;

[baypipox]

sadettin abi senin yaptığını anlayamadım yaw, biraz açıklayabilirmisin.

[sadettinpolat]

FileIsInUse fonksiyonu, parametre olarak verdigin dosya o an kullanimda mi degil mi sorusuna cevap veriyor. kullanimda ise yedekleme islemi devam ediyor , kullanimda degil ise yedekleme islemi bitmistir dusuncesiyle hareket ediyoruz.

[baypipox]

tmm anladım abi tşkr ederim saol.