کپی عکس (یا هر فایل)

[sajjad6167]

با سلام
من برنامه‌ای نوشتم که در قسمتی از اون می خوام از عکس استفاده کنم برای انتقال فایل مجبور شدم فقط اسم عکس رو ذخیره کنم و آدرس و لود شدن عکس ها رو کد نویسی کنم حالا میخوام که هربار کاربر بخواد عکس استفاده کنه اون عکس در یک پوشه پیش فرض کپی بشه که هنگام انتقال مشکلی پیش نیاید
برای کپی عکس یا هر فایل دیگه توی دلفی به یک پوشه دلخواه چکار باید کرد؟
ممنون

[یوسف زالی]

سلام.
دستور CopyFile دقیقا همین کار رو می کنه

[golbafan]

توابع مربوط به چک کردن وجود فولدر و فایل

DirectoryExists(const Directory: string; FollowLink: Boolean = True): Boolean

FileExists(const FileName: string; FollowLink: Boolean = True): Boolean


ایجاد دایرکتوری در صورت عدم وجود:
CreateDir(const Dir: string): Boolean


کپی فایل:
CopyFile(lpExistingFileName, lpNewFileName: LPCWSTR; bFailIfExists: BOOL): BOOL



توصیه میکنم کپی کردن فایلها رو در یک thread جداگانه انجام بدید

[مصی زیزو]

سلام
من میخوام آدرس مبدا و مقصد رو از کاربر دریافت کنم،
وقتی مثلا با edit اینکارو میکنم و نتیجه رو توی دستور movefile میزارم ارور میده که نوع ansichar و string فرق میکنه
چطوری می تونم string روبه ansichar تبدیل کنم؟ راه دیگه ای بجز تبدیل هست؟

[hamedjim]

سلام
من میخوام آدرس مبدا و مقصد رو از کاربر دریافت کنم،
وقتی مثلا با edit اینکارو میکنم و نتیجه رو توی دستور movefile میزارم ارور میده که نوع ansichar و string فرق میکنه
چطوری می تونم string روبه ansichar تبدیل کنم؟ راه دیگه ای بجز تبدیل هست؟

از PChar استفاده کن:

MoveFile(PChar(Edit1.Text), PChar(Edit2.Text))