Fa کپی کردن فایل به سیستم کاربر

evil_gates

اين نيز بگذرد ...
نمونه و پلاگين رو براتون مجددا پيوست ميكنم
 

پیوست ها

  • MFilesAndFolders.zip
    142.9 کیلوبایت · بازدیدها: 26

eblue

Member
ممنون از مطالب قبلی تون فهمیدم چه جوری استخراجش کنم.
بازم نمیشه نگاه کنید:
 

پیوست ها

  • ELHAM.rar
    68.1 کیلوبایت · بازدیدها: 14

Silver PC

Well-Known Member
ممنون پلاگین که امبد کردید رو چه جوری تو پروژم بیارم؟

اون فایلو که دادم اجرا کنید برید Run و تایپ کنید :

کد:
%temp%

بعد برید پوشه mmbplayer و از اونجا پلاگین رو بردارید !!!

وارد کردن تو پروژه رو که دیگه بلدید ؟1 باید از شی Plug-In استفاده کنید !
 

Silver PC

Well-Known Member
ببخشید من اینا رو ندیدم !!! که اینو زدم !

اسم شی Plugin هستش ! ولی شما تو کدها اسم واقعیشو به کار بردی ؟! :shock:
 

evil_gates

اين نيز بگذرد ...
دوست عزيز
مثالي كه براتون پيوست كردم رو ببينيد:
 

پیوست ها

  • copyfile.zip
    68 کیلوبایت · بازدیدها: 16

evil_gates

اين نيز بگذرد ...
ممنون بالاخر بعد از دو روز سؤال و پاسخ درست شد.:rose::oops:

خوشحالم كه مشكلتون حل شد دوست عزيز

اما قبلا هم توصيه كردم مجددا يادآوري ميكنم كتاب آموزشي جناب silver cover رو مطالعه كنيد تا بيشتر مشكلاتتون حل بشه.

موفق باشيد
 

eblue

Member
انتخاب نام فایل

با سلام.
می بخشید که دوباره مزاحم میشم.
بعد از امتحان برنامه به یه مشکل برخوردم اونم اینه که این قسمت کد تعیین میکنه که اسم فایلی که سیو میشهdest$ = CBK_OpenDir + '\\myfile.zip' فقط مای فایل باشه.
من چند تا لینک تو برنامه دارم یعنی چند تا فایل میتونه سیو بشه.این طوری هر بار فقط آخرین فایل سیو میشه.نمیشه کاری کرد که اسم فایلی هم که سیو میشه از کاربر پرسیده شه؟:-?
 

evil_gates

اين نيز بگذرد ...
با سلام.
می بخشید که دوباره مزاحم میشم.
بعد از امتحان برنامه به یه مشکل برخوردم اونم اینه که این قسمت کد تعیین میکنه که اسم فایلی که سیو میشهdest$ = CBK_OpenDir + '\\myfile.zip' فقط مای فایل باشه.
من چند تا لینک تو برنامه دارم یعنی چند تا فایل میتونه سیو بشه.این طوری هر بار فقط آخرین فایل سیو میشه.نمیشه کاری کرد که اسم فایلی هم که سیو میشه از کاربر پرسیده شه؟:-?

دوست عزيز
پيشنهاد ميكنم از دستور SaveFile استفاده كنيد.
کد:
SaveFile("PDF Files (*.pdf)|*.pdf|All Files|*.*||","*.pdf")
path$ = CBK_OpenDir + CBK_OpenFile
 

eblue

Member
یعنی به جای اون کد ها این رو قرار بدم ؟میشه بگید دقیق کجا بنویسم رو همون کد کلی کپی کردن توضیح بدید
 

evil_gates

اين نيز بگذرد ...
مثال پيوست شده رو ببينيد دوست من
 

پیوست ها

  • copyfile.zip
    68 کیلوبایت · بازدیدها: 24

evil_gates

اين نيز بگذرد ...
کد:
SaveFile("PDF Files (*.pdf)|*.pdf|All Files|*.*||","*.pdf")
dest$ = CBK_OpenDir + CBK_OpenFile
source$ = '<SrcDir>\aa.pdf'
set$ = source$ + '|' + dest$ + '|True'
PluginSet("PlugIn","set$")
PluginRun("PlugIn","Copy_File")
PluginGet("PlugIn","get$")
If (get$='1') Then
  Message("File saved successfully","")
Else
  Message("Saving failed","")
End

تو اين كدها تو خط اول با دستور SaveFile مسير موردنظر كاربر ازش سوال ميشه.

مسيري كه كاربر انتخاب كرده تو خط دوم با توابع CBK_OpenDir و CBK_OpenFile بدست مياد و تو متغيري به نام $dest ثبت ميشه.

تو خط سوم مسير مبدا يعني جايي كه فايل شما قرار داره تو متغيري به نام $source ثبت ميشه.

تو خط بعدي مسير مبدا يعني جايي كه فايل اصلي هست + كاراكتر ( | ) و مسير مقصد يعني مسير موردنظر كاربر + كاراكتر ( | ) و در نهايت پارامتر True تو متغيري به نام $set ثبت ميشه.

از پارامتر True به اين منظور استفاده ميكنيم كه اگه تو اون مسير فايلي با همين نام قرار داره فايل جديد جايگزين فايل قبلي بشه (overwritte) در

تو خط بعدي مقدار متغير $set رو با دستور PluginSet به پلاگين ارسال ميكنيم.

تو خط بعد با دستور PluginRun و تابع Copy_File عمليات كپي فايل رو اجرا ميكنيم و تو خط بعد با PluginGet نتيجه اجراي اين دستور رو بدست مياريم.

اگه عمليات كپي به درستي انجام شده باشه مقدار متغير $get بايد معادل 1 باشه در غير اينصورت نتيجه معادل0 خواهد بود.

بنابراين با يك شرط چك ميكنيم در صورتي كه نتيجه 1 بود يعني فايل به درستي كپي شده پس پيغام موفقيت صادر ميشه و در صورتي كه نتيجه غير از 1 بود يعني فايل به درستي كپي نشده و پيغام خطا صادر ميشه.
 

جدیدترین ارسال ها

بالا