Yedekleme ile ilgili problem nerede ?

[secret_boy]

Merhaba arkadaşlar öncelikle herkese kolay gelsin.
benim yedekleme ile ilgili bir problemim var çıkamadım işin içinden.yardımcı olursanız sevinirim.Programın kaynaklarını ekte paylaşıyorum.incelenirse hatamın nerede olduğunu nasıl yapmam gerektiği hakkında bilgi verirseniz sevinirim yada düzeltip ekli olarak buradan paylaşılırsa benim gibi problemleri olan arkadaşların elinde de çalışan bir örnek olmuş olur.
şimdiden yardımlarınız ve ilgileriniz için teşekkür ederim.iyi çalışmalar.

link :
https://yadi.sk/d/mIzr6cy2i7Rjz

[secret_boy]

sorun ile ilgili kısımda bilgi vermeyi unuttum kusura bakmayın problem
sol taraftan kopyalanacak klasörü sağ taraftan da kopyalanacak alanı seçerek yedekleme yaptırmaktı ama program hata vermeden çalışmasına rağmen kendimden kaynaklı hatadan dolayı kaynak dosya mevcut olmadığı için kopyalama yapılamadı hatası veriyor.

[mrmarman]

Kodlarındaki

Kod: Tümünü seç

  StrPCopy( frombuf, 'Edit1.text\*.*' );
  StrPCopy( tobuf, 'edit1.text\' );

yerine aşağıdaki gibi dene istersen.
Hata neymiş gördüğünü burada kendi ifadenle paylaşırsan daha akılda kalıcı olur.

Kod: Tümünü seç

  StrPCopy( frombuf, Edit1.text + '\*.*' );
  StrPCopy( tobuf, Edit2.text + '\' );

[secret_boy]

Kod: Tümünü seç

StrPCopy( frombuf, 'Edit1.text\*.*' );
  StrPCopy( tobuf, 'edit1.text\' );

Sayın mrmarman yukarıda bahsettiğiniz kodları strcopy ile başlayan bir kod yok ama sizin vermiş olduğunuz diğer kısmı yani

Kod: Tümünü seç

Edit1.text + '\*.*' 

Kod: Tümünü seç

Edit2.text + '\'

olarak değiştirdim ama hata aynı yine

[mrmarman]

Yorum yapmadan linkini verdiğin dosyadaki ilgili kodu aynen yazıyorum.
Kod var mı yok mu yalancı durumuna düşmek istemiyorum çünkü.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var 
  OpStruc: TSHFileOpStruct; 
  frombuf, tobuf: Array [0..128] of Char;
begin
if edit1.Text='' then
ShowMessage('Kopyalanacak Klasörü Seçmelisiniz');
if Edit2.Text='' then
ShowMessage('Kopyalanacak Yeri Seçmelisiniz')
else
ShowMessage('Kopyalama Başlıyor Yedekleme Bitmeden Programı Kapatmayınız !');
  begin
    {The fillchars make sure the parameters are terminated by at least 
   two #0 characters, this is required since each parameter can hold 
   a list of zero-terminated strings, the extra #0 terminates the 
   list. } 
  fillChar( OpStruc, Sizeof(OpStruc), 0 ); 
  FillChar( frombuf, Sizeof(frombuf), 0 ); 
  FillChar( tobuf, Sizeof(tobuf), 0 ); 
  StrPCopy( frombuf, 'Edit1.text\*.*' );
  StrPCopy( tobuf, 'edit1.text\' ); 
  With OpStruc DO Begin 
    Wnd:= Handle; 
    wFunc:= FO_COPY; 
    pFrom:= @frombuf; 
    pTo:=@tobuf; 
    fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION; 
  end; 
  ShFileOperation( OpStruc );


  end;
end;

[secret_boy]

Sayın mrmarman özür dilerim hata bende bir önceki denememi eklemişim düzeltiyorum.diğer arkadaşlardan da özür dilerim doğru link aşağıdadır.
Link:
https://yadi.sk/d/7BiYnA7fi7hUh

[mrmarman]

Bu örnekte kullandığın DosyaKopyala fonksiyon sadece dosya kopyalamak üzere kurulu. Klasör kopyalamak üzere dosyaları kendin tek tek bulup bu fonksiyona vermelisin ki kopyalama işlemini yapabilsin.

Record parametre ve fonksiyonları "TSearchRec", "FindFirst", "FindNext", "FindClose" olarak forumdan araştırabilirsin.

[secret_boy]

Merhaba arkadaşlar yedekleme ile ilgili projeyi çalışır durumda aşağıdaki linkte paylaşıyorum . program sadece klasör ve alt dizinlerini sizin istediğiniz yere kopyalama yapıyor sadece gauge çalışmıyor bunu yapamadım bu konuda yardımcı olursanız hazır proje olarak bir done olmuş olacak.Herkese iyi çalışmalar diliyorum.
link:
https://yadi.sk/d/7BiYnA7fi7hUh