dosya kopyalama

[metali]

merhabalar tekrar, hocalarım dosya kopyalama ile ilgili bir prosedür, ya da fonksiyonu yokmu delphi'nin? baktıgım kaynaklar hep dosya kopyalama prosedürleri oluşturup yapıyorlar, bu şekilde olması işime gelmiyorr.

copyfile diye bi komut buldum ama pek işe yaramadı.

copyfile('standart.mdb','cd\kur\standart.mdb',true );

[cemaliozan]

metali, mesajından alıntı:

merhabalar tekrar, hocalarım dosya kopyalama ile ilgili bir prosedür, ya da fonksiyonu yokmu delphi'nin? baktıgım kaynaklar hep dosya kopyalama prosedürleri oluşturup yapıyorlar, bu şekilde olması işime gelmiyorr.

copyfile diye bi komut buldum ama pek işe yaramadı.

copyfile('standart.mdb','cd\kur\standart.mdb',true );

Anlaşılan o ki sen bizim üniversiteden mezun olup diploma alacaksın...

En iyisi sana oluşturduğum kütüphanelerden birini hediye edeyim...

Çalış bizede anlat. Sonunda seni sınava alacağız....

[metali]

ooff muthiş bir şey yaaa.... bu kütüphane mutiş hocam yaa...... komutta süperr çalışıyorrr... hepsine bakacagım hocamm, sınava hazır ve nazır olacagımm, 100 alcammm...

uses shellapi;

dosyakopyala('standart.mdb','cd\kur\standart.mdb') ;

şunuda denedim. dosya varken değiştireyyimmi diye soruyorr

[cemaliozan]

metali, mesajından alıntı:

ooff muthiş bir şey yaaa.... bu kütüphane mutiş hocam yaa...... komutta süperr çalışıyorrr... hepsine bakacagım hocamm, sınava hazır ve nazır olacagımm, 100 alcammm...

uses shellapi;

dosyakopyala('standart.mdb','cd\kur\standart.mdb') ;

şunuda denedim. dosya varken değiştireyyimmi diye soruyorr

Bunlar yılların alın teri... Heba etmeyesin...

[metali]

hocam çok değişik taktikler var... mesela dosya kopyalama üzerine konusayım;

başka kaynaklarda 3 adet kopyalama yönteminden bahsediliyor. bu 3 yöntemin ortak özelliği; hepsinde atıyorum deneme.txt dosyasını açıp, ordan sıra sıra çekmesi yeni oluşturulcak dosyaya kopyalayıp kaydetmek.. bu yöntem benim işime gelmiyor..

Çünkü benim kopyaladıgım bir mdb dosyası. o kaynaklardaki yöntemleri kullandıgımda doğal olarak access hata veriyor. dosya kullanılıyor diye....

ama sizin dosyakopyala fonksiyonununz tamamen sanki ben fare ile sağ tklayıp kopyala-yapıştır yapıyormusum gibi davranıyor...

çok güzel farklı bir yöntem... kullanan herkes memnun kalacak....

[Caylaq]

Hocam Kendi Projemdeki Kodlarım

Hepsi % 100 bana aittir ama Cemali Hocamınki gibi çok prof değildir.

Ama üstünde rahatlıkla çalışılabilir.

Umarım bazı fikirleri de burdan yakalarsınız

 
var
KaydetmeYolu:AnsiString;
begin
//CopyFile('c:\Yeni.txt', 'c:\1111111111.txt', True);     // True ise üstüne yazmaz.
//CopyFile( PChar(Edit1.Text), 'c:\1111111111.txt', True);
//CopyFile( PChar(Edit1.Text), PChar('c:\' +'\' +Edit3.Text) , True); // Ok Oldu
KaydetmeYolu:=Edit2.Text;
CopyFile( PChar(Edit1.Text), PChar(KaydetmeYolu +'\' +Edit3.Text) , True); // Ok Oldu
ShowMessage('Dosya Eklenmiştir');
Form46.Release;
end;

procedure TForm46.Button2Click(Sender: TObject);
var
Dosyauzantisi:AnsiString;
DosyaAd:AnsiString;
begin
OpenDialog1.Title:='Dosya Aç';
OpenDialog1.Filter:='Tüm Dosyalar|*.|Tüm Kayıtlı Dosyalar|*.*';
OpenDialog1.FilterIndex:=1;
OpenDialog1.InitialDir:='c:\';
if OpenDialog1.Execute then
Begin
Dosyauzantisi:=ExtractFileExt(OpenDialog1.FileName);  // Sadece Dosya Uzantısı
DosyaAd:=ExtractFileNAme(OpenDialog1.FileName);  // Dosya Adı. ( Uzantısıyla beraber )
Edit1.Text:=GetCurrentDir + '\' + DosyaAd;
Edit3.Text:=Dosyaad;
Edit4.Text:=Dosyauzantisi;
end;
Button1.Enabled:=True;
end;

Herkese hayırlı geceler diliyorum

Sevgiyle Kalın

[metali]

copyFile( PChar(Edit1.Text), PChar(KaydetmeYolu +'\' +Edit3.Text) , True);

hocam teşekkürler paylasımınız için. bu yöntemi ben denedim ama hocam tepki vermiyordu sanırım tam adresleme istiyordu....

[Caylaq]

Hocam size göndermediğim bir şey daha vardı.

çünkü Onu (Pathı ) sizin yazdıgınızı düşünmüştüm

 
Edit3.text:='c:\Yedek';

[turkerunutmaz]

CopyFile(kaynak,hedef,true); // tam adresi yazıcaksın
mesela exe nin yanındaki dosyayı c:/ ye taşıyacaksan
CopyFile(ExtractFilePath(Application.ExeName)+'/standart.mdb','c:/yedek.mdb',true);

[metali]

bu çalıştı hocam tşkrler

pchar(ExtractFilePath(Application.ExeName)+'standa rt.mdb') // diye bir düzeltme gerekliydi tabii