ذخیره چند عکس با هم و ذخیره در یک فولدر

[soft-c]

سلام
من می خوام چند تا عکس را با هم انتخاب کنم و بعد مثلا همه در یک فولدر کپی بشوند . لطفا راهنمایی کنید
تشکر

[ابوالفضل عباسی]

با سلام
خب اگر در دلفی عکس ها رو میاری با فرمان extractFilename نامش و پسوندش رو بگیر در یک آرایه بریز و یک حلقه به اندازه آرایه های موجود بنویس و فرمان copy رو در حلقه اجرا کن.
فقط تعداد ارایه هات مشخص باشه که اگر بیشتر شد توی حلقه پیغام access vioulation (ببخشید اگر اشتباه نوشتم)بهت میده
به همین سادگی

[soft-c]

ببینید من می خوام با opendialog هم زمان چند تا عکس را انتخاب کنم و بعد که ok را زد همه اون عکس ها در یک فولدر ذخیره بشه . یعنی نخواد تک تک عکس ها را انتخاب بکنه .

[hamedjim]

باید خاصیت MultiSelect برای OpenDialog فعال بشه:



var
i: Integer;
Dest: String;
begin
OpenDialog1.Options := [ofAllowMultiSelect];
if OpenDialog1.Execute then
for i := 0 to OpenDialog1.Files.Count -1 do
begin
Dest:=''; {Your Destination Path}
CopyFile(PChar(OpenDialog1.Files.Strings[i]),PChar(Dest), False);
end;
end;

متغیر Dest رو با مسیر مقصد پر کن.

[soft-c]

نمیدونم مشکل از کجا است ولی فایل را کپی نمیکنه ولی پیغام خطایی هم نمی دهد .
یعنی اگر از دستور
if copyfile then showmesage ('true') استفاده کنیم پیغامی مبنی بر اینکه عملیات موفقیت آمیز بوده است را نمی دهد

[hamedjim]

من همین الان کدی رو که نوشته‌م تست کردم و مشکلی نداشت.
متغیر Dest رو به این شکل مقدار دهی کردم:



Dest:='D:\' + ExtractFileName(OpenDialog1.Files.Strings[i]);

[hamedjim]

دستور Execute در صورتی اجرا میشه که دکمه Open زده شده باشه. اگر Cancel انتخاب بشه، مقدار Execute معادل False میشه و وارد دستور if نمیشه.