ذخیره خودکار فایل با نام جدید

mmmmmmmmmmmmm nnnnnnnnnnnnnnnnnnnn

unread,

Mar 9, 2011, 10:47:29 AM3/9/11

to Delphi-...@googlegroups.com

بسم الله الرحمن الرحيم
با سلام حضور محترم دوستان عزيز
ببينيد من يک برنامه دارم که در آن به همراه مشخصات مشتري بايد تصوير او
را هم در بانک ذخيره کنم ، خوب من براي پايگاه داده ام از بانک اطلاعات
اکسس استفاده کرده ام ، حالا اگر بخواهم تصوير مشتري را هم در بانک ذخيره
کنم با مشکل افزايش حجم بيش از حد بانک اطلاعات مواجه خواهم شد.
بنابراين بجاي اين کار آمدم و پوشه اي کنار فايل اجرايي قرار دادم و
تصاوير را براي ذخيره کردن به آنجا منتقل کردم. يعني توسط يک قطعه کد من
تصوير را در هر بخش از درايوها که باشد مي گيرم و در اين پوشه يک نسخه از
آن را کپي مي کنم و بعد از آنجا آدرس اين تصوير را در بانک اطلاعات ذخيره
مي کنم و هنگام فراخواني بجاي تصوير آدرس آنرا فراخواني مي کنم و تصوير
در يک image لود مي شود.
خوب اميدوارم که تا اينجا توانسته باشم منظور خودم را برسانم.
اما مشکل از آنجا ناشي مي شود که اگر من تصويري را با توجه به مطالب بالا
براي بار اول در اين پوشه کپي کردم فرضاً اگر نام اين تصوير X بوده باشد.
اگر بار ديگر تصوير ديگري را با همين نام بخواهم طبق روش بالا ذخيره کنم
تصوير دوم هنگاه کپي شدن در پوشه، تصوير اول را پاک مي کند و خودش را
جايگزين آن مي کند.
حالا شما فکرش را بکنيد اگر من دو تا مشتري داشته باشم که نام آنها و
بالطبع نام تصويرشان يکسان باشد تصوير مشتري دوم روي تصوير مشتري اول کپي
مي شود و الآن براي هر دو مشتري براساس آدرس ذخيره شده از تصوير مشتري
دوم استفاده مي شود.
پس من مجبور هستم کاري کنم که يا هنگام کپي شدن تصوير دوم در پوشه اگر
نام مشابهي وجود دارد بطور خودکار نام تصوير دوم براي کپي شدن در پوشه
ذخيره تصاوير تغيير کند و يا اينکه پيام هشداري ظاهر شود و به کاربر
گوشزد کند که اين نام تکراري است تا آنرا تغيير دهد.
اميدوارم دوستان محترم منظورم را متوجه شده باشند و مرا راهنمايي نمايند.
با سپاس

Surush mohammadzadeh

unread,

Mar 9, 2011, 1:09:17 PM3/9/11

to delphi-...@googlegroups.com

2011/3/9 mmmmmmmmmmmmm nnnnnnnnnnnnnnnnnnnn <mahlam...@gmail.com>

--
شما به این دلیل این ایمیل را دریافت کرده اید که عضو گروه معلم دلفی هستید.
برای ارسال مطلب می توانید به آدرس زیر ایمیل بزنید. Delphi-...@googlegroups.com
برای لغو عضویت می توانید به این آدرس ایمیل بزنیدDelphi-Teache...@googlegroups.com
برای مشاهده امکانات بیشتر به این آدرس بروید at http://groups.google.com/group/Delphi-Teacher

دوست عزیز برای نگهداری مشتری حتما آنها را با کد نگهداری میکنید دیگه؟
در این صورت کد مشتری نام تصویر برای هر فرد میباشد

مجتبی رضایی‎

unread,

Mar 9, 2011, 3:05:50 PM3/9/11

to delphi-...@googlegroups.com

متوجه نشدم
واضع تر توضیح بده
همش عکس توی عکس اومده
مشکل اصلی تو چیه؟

amir adib (nankhoshki)

unread,

Mar 10, 2011, 1:00:19 AM3/10/11

to delphi-...@googlegroups.com

شما باید نام فایلها را خودتان تغییر دهید و از یک نام تصادفی استفاده کنید و آن را همراه مسیر در دیتابیس ذخیره کنید. هنگام تولید نام تصادفی باید بررسی کنید این نان را قبلا استفاده نکرده باشید

2011/3/9 مجتبی رضایی <mr136...@gmail.com>

mmmmmmmmm nnnnnnnnnnn

unread,

Mar 10, 2011, 2:53:31 AM3/10/11

to delphi-...@googlegroups.com

اگر منظورتون را درست متوجه شده باشم هنگام ذخیره تصویر جدید از تابع
fileexict('نام تصویر جدید که میخواهد کپی شود')
استفاده کنید اگر جواب بله بود میتوانید یک
Messagedlg()
به کار برده و به کاربر هشدار دهید و یا تابعی بنویسید که به نام جدید پیشوند یا پسوند عددی و ... اضافه نماید

From: mmmmmmmmmmmmm nnnnnnnnnnnnnnnnnnnn <mahlam...@gmail.com>
To: Delphi-...@googlegroups.com
Sent: Wed, March 9, 2011 7:17:29 PM
Subject: (Delphi-Teacher:1901) ذخیره خودکار فایل با نام جدید

Hanif Mohammadi

unread,

Mar 10, 2011, 4:18:32 AM3/10/11

to delphi-...@googlegroups.com

سلام باید اول چک کنین که فایل موجود هست یا نه اگر هست فایل دومی را تغییر نام دهی

IF Fileexists(Filename) then begin

ts:= timetostr(time()) ; ts:=ts[7]+ts[8] ;

RenName:= IntToStr(RandomRange(strtoint(ts),1000) ) + '-'+ Filename;

RenameFile( PCHAR( Filepath ) , PCHAR(RenName)) ;

2011/3/9 mmmmmmmmmmmmm nnnnnnnnnnnnnnnnnnnn <mahlam...@gmail.com>

AsemanTeam

unread,

Mar 10, 2011, 7:05:57 AM3/10/11

to delphi-...@googlegroups.com

خیلی ساده اس من قبلا اینکارو کردم .
کافیست کد مشتری یعنی کلید جدول رو به عنوان نام فایل عکس انتخاب کنید
در این صورت برای هیچ دو مشتری تکراری نیست.
--------------------

2011/3/10 amir adib (nankhoshki) <amirhoss...@gmail.com>:

Hanif Mohammadi

unread,

Mar 12, 2011, 4:45:19 AM3/12/11

to delphi-...@googlegroups.com

yes right.

2011/3/10 mmmmmmmmm nnnnnnnnnnn <soltane...@yahoo.com>

Reply all

Reply to author

Forward