• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 7 رای - 2.86 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: کپی کردن یک فایل
حالت خطی
#1
Copy File

کد:
با استفاده از این تابع می توانید یک فایل را به وسیله آدرس دهی مکان جاری و مکانی که می خواهید این فایل را در آن کپی کنید استفاده نمایید




{This way uses a File stream.}

Procedure FileCopy( Const sourcefilename, targetfilename: String );

Var

S, T: TFileStream;

Begin

S := TFileStream.Create( sourcefilename, fmOpenRead );

try

T := TFileStream.Create( targetfilename,

fmOpenWrite or fmCreate );

try

T.CopyFrom(S, S.Size ) ;

finally

T.Free;

end;

finally

S.Free;

end;

End;
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


پیام‌های این موضوع
کپی کردن یک فایل - توسط Amin_Mansouri - 08-01-2011، 07:34 PM

موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  سورس کد انتقال فایل به سطل اشغال ( دلفی) Amin_Mansouri 1 6,224 10-08-2022، 06:21 PM
آخرین ارسال: sonusood
  چک کردن وضعیت پارتیشن Amin_Mansouri 1 3,261 10-08-2022، 05:09 PM
آخرین ارسال: sonusood
  بدست اوردن نام فایل مسیر فایل و پسوند فایل در دلفی با تابع ExtractFileDir Amin_Mansouri 2 9,665 04-27-2013، 11:19 AM
آخرین ارسال: Amin_Mansouri
  سورس کد چک کردن فعال بودن uac(دلفی) Amin_Mansouri 0 3,336 08-07-2012، 10:29 AM
آخرین ارسال: Amin_Mansouri
  سورس کد دیلیت کردن فایل مشخص شده از سطل زباله (دلفی) Amin_Mansouri 0 3,268 05-04-2012، 11:56 AM
آخرین ارسال: Amin_Mansouri
  سورس کد چک کردن ادمین بودن یوزر (دلفی) Amin_Mansouri 0 3,214 04-29-2012، 06:11 PM
آخرین ارسال: Amin_Mansouri
  سورس کد کپی کردن فایل (دلفی) Amin_Mansouri 0 6,837 04-27-2012، 10:59 AM
آخرین ارسال: Amin_Mansouri
  سورس کد چک کردن خالی بودن پوشه ( دلفی ) Amin_Mansouri 0 3,069 04-27-2012، 10:54 AM
آخرین ارسال: Amin_Mansouri
  سورس کد دانلود فایل از طریق Ftp (دلفی) Amin_Mansouri 0 5,035 04-23-2012، 05:05 PM
آخرین ارسال: Amin_Mansouri
  سورس کد دانلود فایل با دلفی Amin_Mansouri 0 4,520 04-22-2012، 11:41 AM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


Browsing: 2 مهمان