پلاگین DetectExt

[K@M@L]

سلام به همه دوستان

بعد از تلاشهای زیاد برای رفع نیاز خودم ، تصمیم گرفتم که این پلاگین رو بسازم

این پلاگین میتونه فرمت اصلی فایل های JPG BMP GIF PNG ICO PSD TIF MP3 WAV OGG AVI MKV RM WMV SWF RAR CAB ZIP 7Z PDF MBD رو تشخیص بده

همچنین میتونید با استفاده از دستور ReadExt ساختار فایل ها رو بدست بیارید و برای آنها در mmb فرمتی رو تعریف کنید

کد دلفی این پلاگین توسط جناب DAMAVAND نوشته شده که من فقط یه مقدار تغییر در آن ایجاد کردم

همچنین تشکر ویژه از جناب Free Man که مبحث مفید طرح سوالاتی که در ایجاد پلاگین برای ام ام بی با آنها روبرو شده اید و کدهای آموزشی رو ایجاد کردن که من از این مبحث یاد گرفتم چگونه پلاگین بسازم

 

[Silver PC]

سلام
خوبید کلهم ؟
پس داش کمال هم رفت قاطی بقیه
داش کمال اگه فرمت های دیگکه هم اضافه کنی بهتره ها !
این که فقط مال تصاویره و همش هم نیست
اگه فایلهای صوتی و تصویری و .. رو هم اضافه کنی خیلی توپ میشه
عالی بود
فعلا بای

 

[blue_rays]

سلام. خوشحالم كه شما هم به جمع بقيه ي دوستان پلاگين نويس اضافه شديد. موفق باشيد.
فقط يه سوال دارم. اين پلاگين با آناليز ساختار فايل تشخيص ميده كه اون فايل چه نوع فايلي هست يا فقط فرمت خود فايل؟
اگه فقط از روي فرمت فايل تشخيص ميده ديگه نيازي به پلاگين نبود چون با استفاده از دستور زير فرمت فايل قابل استخراجه.

Ext$= ExtractExt(file$)

در اينجا فرمت فايل file$ در متغيير Ext$ ذخيره ميشه.
در مورد تشخيص از ر روي ساختار فايل باز هم ميشه با استفاده از فراخواني خط اول فايل نوعش رو تشخيص داد. چون اگه يك فايل رو با Notepad باز كنيد ميفهميد كه هر نوع فايلي كد خاصي در خط اولش داره كه با استفاده از اون ميشه نوع فايل رو تشخيص داد. مثلا براي فايل هاي اجرايي اين كئ MZ و براي فايل هاي اين كد ID3 هست.

 

[K@M@L]

سلام

این پلاگین آناليز ساختار فايل رو تشخيص ميده و کاری به فرمت فایل ها نداره

در واقع شما میتونید یه فایل که پسوند نداره رو با این پلاگین شناسایی کنید

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

 

[K@M@L]

سلام

دوستان پلاگین آپدیت شد و الان میتونه فایل های بیشتر رو تشخیص بده همچنین اگر شما فایل خاصی رو در نظر دارید بگید تا من به پلاگین اضافه کنم

تشکر

 

[Silver PC]

سلام
ایول داش کمال
ولی چرا من فایل ورد بهش میدم میگه : Zip
لطفا تصحیحش کن
میشه فایل دلفی هم بهش بدی : Dpr
فک کنم رست گفتم
ممنون

 

[K@M@L]

من این فایل رو به پلاگین اضافه کردم و چندین بار تست کردم ، هیچ مشکلی وجود نداشت

حتی قبل از اینکه اضافش کنم بازهم میتونست هر دو فایل رو از هم تشخیص بده

شما فایل خودتون رو به من بدین تا بررسی کنم ، ببینم مشکل از کجاست

 

[Silver PC]

سلام
فایل رو واستون پیسوت کردم البته Extract کنید و فایل ورد داخلش رو تست کنید

و اگه میشه فرمت های زیر رو اضافه کنید :
EXE
SFX
DPR

 

[K@M@L]

سلام

من فایل رو تست کردم ، متسفانه هر دو فایل از نظر ساختاری شبیه هم بودنند که تنها تفسیری که به ذهنم رسید این بود

در office 2007 علاوه بر تغییراتی در خود برنامه ، یه سری تغییرات هم در فایل های سیو ایجاد شده به این معنی که شاید از ساختار zip برای فشره سازی فایلهاش استفاده کرده مثلا فایل سیو ورد kb 9.62 حجم میبره با وجود اینه یه صفحه خالی بیشتر نیست ( در Excel و PowerPoint هم به همین صورته )

با این حال این حجم میتونه همان ساختاری باشه که ذکر کردم

علاوه بر این در office 2003 فایل سیو ورد DOC و در office 2007 فایل سیو DOCX هست که این X به انتهای همه فایلهای سیو در office 2007 اضافه شده که نشان گر تغییراتی در ساختار فایلهای سیو است

در کل پلاگین فقط میتونه فایل های office 2003 رو تشخیص بده

 

[Silver PC]

سلام
من یه چند تا فرمت درم میخوام شما به پلاگینتون اضافه کنید :
Sfx
exe
dpr
html
xml
txt
ممنون میشم

 

[Silver PC]

سلام !

داداش نگفتی اضافه میکنی ، نمیکنی ؟!
کی ؟ منتظر باشم ؟!

 

[K@M@L]

یه دستور جدید به پلاگین اضافه کردم که با آن میتونید خودتون ساختار فایل ها رو بدست بیارید و برای آن ساختار در mmb فرمتی رو تعریف کنید

در کل خودتون میتونید هر فایلی رو که خواستید بوسیله پلاگین شناسایی کنید

 

[Silver PC]

یعنی از اول دانلود کنم ؟!

 

[K@M@L]

سلام

پلاگین رو به روز کردم و الان میتونید با استفاده از دستور ReadExt ساختار فایل ها رو بدست بیارید و در mmb برای آن فرمتی رو تعریف کنید

برای کسانی که تمایل به دانلود Demo ندارند میتوند پلاگین رو از اینجا دانلود کنن و با قرار دادن کد زیر در یک دکمه از پلاگین استفاده کنند

OpenFile("All Files |*.*|","")
file$=CBK_OpenDir+CBK_OpenFile
If (file$<>'') Then
  ** could be between 1 and 8
  file=6
  PluginSet("DetectExt","file")
  PluginSet("DetectExt","file$")
  PluginRun("DetectExt","ReadExt")
  PluginGet("DetectExt","Msg$")
  ** MBD File
  Clipboard("SEND","Msg$")
  If (Msg$='11 77 77 66 117 105') Then
    Msg$='This is MBD : '+Msg$
  End
  LoadText("Ext","Msg$")
End

دانلود پلاگین

دانلود Demo

 

[Silver PC]

داش کمال من یه همچین کدی اضافه کردم به دکمه ReadExt ولی کا نکرد :

** MBD File
Clipboard("SEND","Msg$")
If (Msg$='108 105 98 11') Then
Msg$='This is DPR : '+Msg$
End
LoadText("Ext","Msg$")

و حتی به GetExt

هم اضافه کردم نگفت فایلم DPR هستش !

میشه یه راهنمایی بکنی ؟!

 

[K@M@L]

ببین دستور ReadExt دوتا ورودی داره اولی تعداد ساختار هاست و دومی هم فایلت هست

خب شما کد ورودی که نوشتی 4 تا ساختار رو نمایش میده پس باید ورودی اول هم 4 باشه

درضمن ساختار فایل های dpr به این صورته

47 47 47 32 80 108 117 103