View Full Version : کپی کردن فایل
Dracula
یک شنبه 11 خرداد 1382, 18:34 عصر
با سلام خدمت همه دوستان عزیز
من میخواستم بدونم چطوری میشه با دلفی یک فایل رو کپی کرد ؟
مثلا از شاخه c:\database به شاخه a:\database
از بذل توجه شما متشکرم .
(امید)
دوشنبه 12 خرداد 1382, 07:38 صبح
Procedure Copyfile(InFile,OutFile:string);
Var
Inf,Outf : TFileStream;
Over : Boolean;
res : word;
InFFale,OutFFale :boolean;
begin
If FileEXists(InFile) then begin
if FileExists(OutFile) then begin
Res := MessageDlg('Do you want to overwrite existing file?', mtWarning, [mbYes, mbNo], 0);
Over := (Res = mrYes);
end else Over := true;
inffale:=false;outffale:=false;
If over then begin
Try
try
InF := TFileStream.Create(Infile,Fmopenread or fmShareDenyNone);
except
on e: Exception do inffale:=true;
end;
try
OutF := TFileStream.create(Outfile,FmCreate or FmShareExclusive);
except
On E: Exception do outfFale :=true
end;
outf.copyfrom(Inf,0);
Finally
if not inffale then FreeAndNil(Inf);
if not outfFale then FreeAndNil(outF);
end;
end;
end;
end;
کد از delphiassistant
Dracula
دوشنبه 12 خرداد 1382, 10:09 صبح
با سلام و تشکر از امید عزیز
من از سایت Torry.net یه کامپوننت دانلود کردم که برای کپی کردن فایلها بوسیله فرامین API ویندوزه و عملیات کپی کردن فایل رو با Progress Bar نمایش میده .
ولی موقع نصب این کامپوننت Error زیر گرفته میشه :
Build
[Warning] CopyFile.pas(55): Unit 'FileCtrl' is specific to a platform
[Error] CopyFile.pas(174): Undeclared identifier: 'SFCreateError'
[Error] CopyFile.pas(174): Incompatible types: 'String' and 'PResStringRec'
[Error] CopyFile.pas(177): Incompatible types: 'String' and 'PResStringRec'
[Fatal Error] dclusr.dpk(41): Could not compile used unit '..\..\..\..\CopyFile\CopyFile.pas'
لطفا راهنمایی کنید که مشکل چیه !
متشکرم .
در ضمن کامپوننت فوق الذکر رو میتونید از آدرس http://space.tin.it/computer/gburzoma/fcopynew.html دانلود کنید .
بیگدلی
شنبه 25 مرداد 1382, 07:33 صبح
من نمی دانم منظور شما دقیقا چیست ولی از این کد هم برای کپی می توان استفاده کرد
CopyFile('',
''), b);
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.