همه چیز در مورد دلفی و برنامه نویسی هاش

[goodasiay]

سخه جدید فست ریپورت سازگار با XE2 منتشر شد

نسخه 4.12 کامپوننت محبوب فست ریپورت که با Delphi XE2 سازگاره منتشر شد

[Only registered and activated users can see links]

.................................................. .....................................
آموزشی کامپوننت Fast Report

با سلام و احترام :

بالاخره پس از گذشت مدتها و با وجود گرفتاریهای فراوان بنده با کمک خداوند متعال کتاب الکترونیکی آموزشی کامپوننت Fast Report آماده شد . از اینکه دوستان عزیزم این مدت منتظر ماندند بسیار عذرخواهی میکنم .

از کلیه دوستانی که در این مدت هم بنده را کمک و راهنمایی کردند تا این کتاب بصورت کامل و جامع درآید بینهایت سپاسگزارم .

امید اینکه این کتاب آموزشی برای دوستان مفید واقع شود .

کتاب الکترونیکی آموزش فست ریپورت رو میتونید از آدرس زیر دریافت نمایید :

[Only registered and activated users can see links]

در بخشهای مختلف آموزش از مثالهای مختلفی استفاده شده است که همگی در پوشه ای بنام Samples جمع آوری شده و میتوانید مثالها رو از آدرس زیر دریافت نمایید :

در ضمن مثالها و خود کتاب آموزشی هم به تایید کمپانی Fast Report رسیده و تا چند روز آینده میتونید اونو از خود سایت فست ریپورت هم دانلود کنید .

نکته :

کلیه مثالهای موجود در کتاب با استفاده از نسخه 4.3 کامپوننت Fast Report Proffesional تهیه و کامپایل شده است . دوستانی که از نسخه های قدیمیتر استفاده میکنند میبایست نسخه کامپوننت خود را ارتقا دهند .

لطفا کاستی ها و نواقص کتاب را سریعا به بنده گزارش نمایید تا اصلاح شده و سریعا در همان آدرس فوق آپلود کنم .

اکیدا خواهشمندم لطفا فقط از دگمه تشکر استفاده نمایید (با عرض پوزش )

.................................................. ..............................

ویدئوهای آموزشی دلفی

سي ويدئو در سي روز :

#1 - Intro to the IDE - ZIP
#2 - Hello World - ZIP
#3 - Basic Application Development - ZIP
#4 - Language Introduction - ZIP
#5 - More Lanugage Intro - ZIP
#6 - Basic String Manipulation - ZIP
#7 - Basic Datatypes - ZIP
#8 - Sets - ZIP
#9 - Arrays - ZIP
#10 - Records - ZIP
#11 - Basic Data - ZIP
#12 - Simple Class - ZIP
#13 - Procedure and Functions - ZIP
#14 - Units - ZIP
#15 - Inheritance - ZIP
#16 - Polymorphism - ZIP
#17 - Why OOP - ZIP
#18 - Properties - ZIP
#19 - Member Visibility - ZIP
#20 - Constructors and Destructors - ZIP
#21 - TurboPad: About Box - ZIP
#22 - TurboPad: File Open - ZIP
#23 - TurboPad: File Menu - ZIP
#24 - TurboPad: Saving - ZIP
#25 - TurboPad: Edit Menu - ZIP
#26 - TurboPad: Toolbar - ZIP
#27 - TurboPad: Word Wrap and Fonts - ZIP
#28 - Live Templates - ZIP
#29 - Refactorings - ZIP
#30 - Debugger - ZIP

قل قول: آموزش دلفي ( ويدئو )

آموزش دلفي
Delphi Training Series: Programming 101 - Episode 1
زمان 41:51
Delphi Training Series: Programming 101 - Episode 2
زمان 1:11:01

[goodasiay]

سخه جدید فست ریپورت سازگار با XE2 منتشر شد

نسخه 4.12 کامپوننت محبوب فست ریپورت که با Delphi XE2 سازگاره منتشر شد

[Only registered and activated users can see links]

.................................................. .....................................
آموزشی کامپوننت Fast Report

با سلام و احترام :

بالاخره پس از گذشت مدتها و با وجود گرفتاریهای فراوان بنده با کمک خداوند متعال کتاب الکترونیکی آموزشی کامپوننت Fast Report آماده شد . از اینکه دوستان عزیزم این مدت منتظر ماندند بسیار عذرخواهی میکنم .

از کلیه دوستانی که در این مدت هم بنده را کمک و راهنمایی کردند تا این کتاب بصورت کامل و جامع درآید بینهایت سپاسگزارم .

امید اینکه این کتاب آموزشی برای دوستان مفید واقع شود .

کتاب الکترونیکی آموزش فست ریپورت رو میتونید از آدرس زیر دریافت نمایید :

[Only registered and activated users can see links]

در بخشهای مختلف آموزش از مثالهای مختلفی استفاده شده است که همگی در پوشه ای بنام Samples جمع آوری شده و میتوانید مثالها رو از آدرس زیر دریافت نمایید :

در ضمن مثالها و خود کتاب آموزشی هم به تایید کمپانی Fast Report رسیده و تا چند روز آینده میتونید اونو از خود سایت فست ریپورت هم دانلود کنید .

نکته :

کلیه مثالهای موجود در کتاب با استفاده از نسخه 4.3 کامپوننت Fast Report Proffesional تهیه و کامپایل شده است . دوستانی که از نسخه های قدیمیتر استفاده میکنند میبایست نسخه کامپوننت خود را ارتقا دهند .

لطفا کاستی ها و نواقص کتاب را سریعا به بنده گزارش نمایید تا اصلاح شده و سریعا در همان آدرس فوق آپلود کنم .

اکیدا خواهشمندم لطفا فقط از دگمه تشکر استفاده نمایید (با عرض پوزش )

.................................................. ..............................

ویدئوهای آموزشی دلفی


آموزش ها در سايت youtube هستند، و شما مي توانيد در صفحه مرورگر خود آنها را مشاهده نماييد.
خود بنده از مرورگر فاير فاکس استفاده ميکنم و براي دانلود از اکستنشنVideo DownloadHelper استفاده مي کنم.

علاوه بر آموزش هاي ذکر شده شما مي توانيد در قسمت Related Videos که در صفحات youtube هست (همون صفحاتي که لينک دادم)آموزش هاي ديگري نيز دريافت کنيد :
C++_i1_01_Intro_to_C++
ECO VCL.NET development with CodeGear RAD Studio
Creating a Webbrowser in Delphi
Delphi for PHP mysql query sample
و ...
موفق و پيروز باشيد

قل قول: ویدئوهای آموزشی دلفی

آموزش DataSnap 2010
یک فیلم ویدیویی در لینک زیر با عنوان DataSnap - Your Data: Where You Want It, How You Want it قرار دارد که مشاهده آن را به همه دوستان توصیه می کنم :
[Only registered and activated users can see links]

نقل قول: معرفي منابع مجازي آموزشي دلفي

سلام

[Only registered and activated users can see links]
به نظر من یکی از بهترین مراجع دلفی هست. در هر موردی توش جستجو کنی یک چیزی گیر میاد.

[Only registered and activated users can see links]
این سایت خیلی جنبه آموزشی نداره ولی مجموعه کاملی از ابزار ها و مثال ها و مستندات و ... رو داره. برای هر مطلب هم توضیح مختصری داره که باعث میشه جستجو توی این سایت هم خیلی ثمر بخش باشه. از جمله بخش های بسیار کار بردی این سایت بخش Tips این سایت هست که توش برای بسیاری از تکنیک ها و ریزه کاریها در همه زمینه ها مثال و توضیح قرار داده.

موفق باشید
ول: معرفي منابع مجازي آموزشي دلفي

این سایت تقریباً فروم سازنده های دلفی

embarcadero

این سایت فروم دلفی کاران

[Only registered and activated users can see links]

ول: معرفي منابع مجازي آموزشي دلفي

سلام

اینم منابع آموشی آنلاین دلفی با توضیح مختصری از کارکردشون به زبان فارسی : (که نیاز به حذف پست قبلی بنده نبود )

1. سایت delphipages.com با مقالات،فروم،نکات،اخبار و ...
2. سایت delphi-central.com شامل نکات آموزشی و مقالات و ...
3. سایت phidels.com به زبان فرانسوی با مثالهای متعدد در دلفی
4. سایت efg2.com شامل پروژه هایی با ذکر منابع در زمینه های مختلف
5. سایت delphirss.com شامل کدها و مقالات و توضیحات و ...
6. سایت martinstoeckli.ch شامل نکات و سورس ....
7. سایت articles.org.ru شامل مقالات و مثالهای دلفی (به زبان روسی)
8. سایت neuber.com شامل کدها و ...
9. سایت delphi.org درباره دلفی،ابزارها،اخبار،مقالات و ...
10. سایت delphidabbler.com شامل نکات و ...
11. سایت delphiplus.org شامل مقالات و ... به زبان روسی
12. سایت festra.com شامل آموزش دلفی مقدماتی
13. سایت delphi.icm.edu.pl شامل مثالهای قابل دانلود دلفی و معرفی کتاب و ...
14. سایت programmersheaven.com که فروم فعالی به زبانهای مختلف از جمله دلفی بوده و مقالات و کتاب هایی نیز در این زمینه معرفی کرده
15. سايت digitalcoding.com شامل مثالهايي از دلفي
16. سايت delphi-treff.de شامل نکات و ... در رابطه با دلفي به زبان آلمانی
17. سايت asiplease.net شامل توضيحاتي براي آموزش مختصری از دلفي مقدماتي
18. سایت devshed.com که در این انجمن دلفی سوالاتی پرسیده شده ...
19. سایت tek-tips.com که شامل نکات و مثال هایی در زمینه دلفی است
20. سایت delphiarea.com که توش میتونین ااز خبار،تالار گفتمان،مثالهای قابل دانلود در زمینه دلفی استفاده کنین
21. سایت esanu.name که شامل نکات و پرش و پاسخ در زمینه های مختلف دلفی است
22. سایت inner-smile.com که میتونین توی اون اخبار،اطلاعات و ... در مورد دلفی پیدا کنین
23. سایت planet-source-code.com که همه اونو میشناسن و هم سورسهای زیادی برای دانلود داره و هم آموزش هایی در زمینه های مختلف
24. سایت directory.google.com که توش لینک ها ، کتاب ها و ... رو معرفی کرده
25. سایت paranoia.clara.net که توش میشه مثال و مقالاتی رو از دلفی kylix پیدا کرد
26. سایت en.wikibooks.org که همونطور که از اسمش مشخصه بر پایه ویکی هست و میشه برای اصطلاحات و ... ازش استفاده کرد

موفق باشیدول: معرفي منابع مجازي آموزشي دلفي

این سایت تقریباً فروم سازنده های دلفی

embarcadero

این سایت فروم دلفی کاران

[Only registered and activated users can see links]

ول: معرفي منابع مجازي آموزشي دلفي

سلام

اینم منابع آموشی آنلاین دلفی با توضیح مختصری از کارکردشون به زبان فارسی : (که نیاز به حذف پست قبلی بنده نبود )

1. سایت delphipages.com با مقالات،فروم،نکات،اخبار و ...
2. سایت delphi-central.com شامل نکات آموزشی و مقالات و ...
3. سایت phidels.com به زبان فرانسوی با مثالهای متعدد در دلفی
4. سایت efg2.com شامل پروژه هایی با ذکر منابع در زمینه های مختلف
5. سایت delphirss.com شامل کدها و مقالات و توضیحات و ...
6. سایت martinstoeckli.ch شامل نکات و سورس ....
7. سایت articles.org.ru شامل مقالات و مثالهای دلفی (به زبان روسی)
8. سایت neuber.com شامل کدها و ...
9. سایت delphi.org درباره دلفی،ابزارها،اخبار،مقالات و ...
10. سایت delphidabbler.com شامل نکات و ...
11. سایت delphiplus.org شامل مقالات و ... به زبان روسی
12. سایت festra.com شامل آموزش دلفی مقدماتی
13. سایت delphi.icm.edu.pl شامل مثالهای قابل دانلود دلفی و معرفی کتاب و ...
14. سایت programmersheaven.com که فروم فعالی به زبانهای مختلف از جمله دلفی بوده و مقالات و کتاب هایی نیز در این زمینه معرفی کرده
15. سايت digitalcoding.com شامل مثالهايي از دلفي
16. سايت delphi-treff.de شامل نکات و ... در رابطه با دلفي به زبان آلمانی
17. سايت asiplease.net شامل توضيحاتي براي آموزش مختصری از دلفي مقدماتي
18. سایت devshed.com که در این انجمن دلفی سوالاتی پرسیده شده ...
19. سایت tek-tips.com که شامل نکات و مثال هایی در زمینه دلفی است
20. سایت delphiarea.com که توش میتونین ااز خبار،تالار گفتمان،مثالهای قابل دانلود در زمینه دلفی استفاده کنین
21. سایت esanu.name که شامل نکات و پرش و پاسخ در زمینه های مختلف دلفی است
22. سایت inner-smile.com که میتونین توی اون اخبار،اطلاعات و ... در مورد دلفی پیدا کنین
23. سایت planet-source-code.com که همه اونو میشناسن و هم سورسهای زیادی برای دانلود داره و هم آموزش هایی در زمینه های مختلف
24. سایت directory.google.com که توش لینک ها ، کتاب ها و ... رو معرفی کرده
25. سایت paranoia.clara.net که توش میشه مثال و مقالاتی رو از دلفی kylix پیدا کرد
26. سایت en.wikibooks.org که همونطور که از اسمش مشخصه بر پایه ویکی هست و میشه برای اصطلاحات و ... ازش استفاده کرد

[goodasiay]

اینم منابع آموشی آنلاین دلفی با توضیح مختصری از کارکردشون به زبان فارسی : (که نیاز به حذف پست قبلی بنده نبود )

1. سایت delphipages.com با مقالات،فروم،نکات،اخبار و ...
2. سایت delphi-central.com شامل نکات آموزشی و مقالات و ...
3. سایت phidels.com به زبان فرانسوی با مثالهای متعدد در دلفی
4. سایت efg2.com شامل پروژه هایی با ذکر منابع در زمینه های مختلف
5. سایت delphirss.com شامل کدها و مقالات و توضیحات و ...
6. سایت martinstoeckli.ch شامل نکات و سورس ....
7. سایت articles.org.ru شامل مقالات و مثالهای دلفی (به زبان روسی)
8. سایت neuber.com شامل کدها و ...
9. سایت delphi.org درباره دلفی،ابزارها،اخبار،مقالات و ...
10. سایت delphidabbler.com شامل نکات و ...
11. سایت delphiplus.org شامل مقالات و ... به زبان روسی
12. سایت festra.com شامل آموزش دلفی مقدماتی
13. سایت delphi.icm.edu.pl شامل مثالهای قابل دانلود دلفی و معرفی کتاب و ...
14. سایت programmersheaven.com که فروم فعالی به زبانهای مختلف از جمله دلفی بوده و مقالات و کتاب هایی نیز در این زمینه معرفی کرده
15. سايت digitalcoding.com شامل مثالهايي از دلفي
16. سايت delphi-treff.de شامل نکات و ... در رابطه با دلفي به زبان آلمانی
17. سايت asiplease.net شامل توضيحاتي براي آموزش مختصری از دلفي مقدماتي
18. سایت devshed.com که در این انجمن دلفی سوالاتی پرسیده شده ...
19. سایت tek-tips.com که شامل نکات و مثال هایی در زمینه دلفی است
20. سایت delphiarea.com که توش میتونین ااز خبار،تالار گفتمان،مثالهای قابل دانلود در زمینه دلفی استفاده کنین
21. سایت esanu.name که شامل نکات و پرش و پاسخ در زمینه های مختلف دلفی است
22. سایت inner-smile.com که میتونین توی اون اخبار،اطلاعات و ... در مورد دلفی پیدا کنین
23. سایت planet-source-code.com که همه اونو میشناسن و هم سورسهای زیادی برای دانلود داره و هم آموزش هایی در زمینه های مختلف
24. سایت directory.google.com که توش لینک ها ، کتاب ها و ... رو معرفی کرده
25. سایت paranoia.clara.net که توش میشه مثال و مقالاتی رو از دلفی kylix پیدا کرد
26. سایت en.wikibooks.org که همونطور که از اسمش مشخصه بر پایه ویکی هست و میشه برای اصطلاحات و ... ازش استفاده کرد

[goodasiay]

قل قول: معرفي منابع مجازي آموزشي دلفي

فعال ترین انجمن های پاسخ به سوالات دلفی در حال حاضر عبارتند از Newsgroup های شرکت Embarcadero که از طریق وب هم در دسترس هستند:
[Only registered and activated users can see links]

و سوالات دلفی سایت StackOverflow:
[Only registered and activated users can see links]

از نظر وبلاگ هم سایت DelphiFeeds.com تقریبا تمام وبلاگ های مهم مرتبط با دلفی را تحت پوشش قرار میده.

ویکی دلفی هم اصلی ترین مدخل ورودی کاربران تازه کار دلفی به منابع آنلاین دلفی هست:
[Only registered and activated users can see links]

Help دلفی هم به طور آنلاین و به صورت ویکی در اختیار کاربران قرار داره:
[Only registered and activated users can see links]

[goodasiay]

نقل قول: معرفي منابع مجازي آموزشي دلفي

در صفحه زير White paper هاي خوبي رو ميتونيد با فرمت PDF پيدا كنيد:
[Only registered and activated users can see links]

این هم لیستی از گروه های خبری محبوب در رابطه با دلفی:
[Only registered and activated users can see links]

[goodasiay]

اگر خوشتون امد تشکر یادتون نره

[goodasiay]

سوالات ویندوز


[porsesh]

سوال اول: در ویندوز من Task Manager و Registry Editor و Folder Options غیر فعال شده است و هنگام راه اندازی با پیغام It has been disabled by Administrator مواجه می شوم، چگونه این مشکل را حل کنم؟

جواب:

حالت اول – Folder Options غیر فعال شده ولی Registry Editor غیر فعال نشده است:

در این حالت شما Run را اجرا کرده و عبارت regedit را درون آن تایپ و اجرا می کنید. سپس به ترتیب به دو آدرس زیر بروید.

HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre nt Version\Policies\Explorer
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr ent Version\Policies\Explorer

در صفحه سمت راست چک کنید که DWORD با نام NoFolderOptions وجود نداشته باشد. در صورتی که وجود داشت آنرا پاک کنید.

۲- اگر با ادیت کردن رجیستری آشنایی ندارید، کافی است فایل زیر را دانلود کرده آنرا از حالت فشرده خارج کنید ، سپس فایل دارای پسوند REG. درون آنرا اجرا کنید.

folder_options.zip

3- Registry Editor هم غیر فعال شده است و هنگام فعال سازی با پیغام زیر مواجه می شوید:

Registry Editor has been disabled by administrator.

این علامت نشان دهنده ی این است که سیستم شما آلوده به تروجان RONTOKBRO شده است. برای نابود کردن این تروجان می بایست مراحل زیر را طی کنید:

- برنامه ی HijackThis را از لینک زیر دانلود کرده و آنرا نصب کنید.

لینک دانلود

- ویندوز را به صورت Safe Mode روشن کنید. برای اینکار قبل از بالا آمدن ویندوز دکمه ی F8 را فشار دهید و گزینه ی Safe Mode را انتخاب کنید.

- برنامه ی HijackThis را اجرا کرده و سیستم را اسکن کنید. سپس در بین گزینه هایی که نمایان شده است، گزینه ی زیر را یافته و بروی Fix Checked کلیک کنید.

O7 - HKCU\Software\Microsoft\Windows\CurrentVersion\Pol icies\System, DisableRegedit=1

نکته ۱ : در صورتی که باز هم با پیغام قبلی مواجه شدید، بخش ۴ را هم اجرا کنید. اگر با اجرای بخش ۴ دوباره مشکل شما حل نشد، در آن صورت با جستجو در اینترنت می تواند راه حل های دیگر را یافته و بکار برید.

نکته ۲: نرم افزار HijackThis یک نرم افزار مفید است و هنگامی که ویروس ها سیستم را آلوده می کنند، برای رفع آلودگی سیستم بسیار مورد استفاده قرار می گیرد. پس حتی اگر سیستم شما آلوده هم نشده، حتماً آنرا دانلود کنید تا در روز مبادا مورد استفاده قرار گیرذ.

۴- گاهی اوقات ممکن است که تروجانی در کار نباشد و شخصی به عمد این بخش را غیر فعال بکند که در این صورت شما می توانید با مراحل های زیر آنرا فعال کنید:

- در پنجره ی RUN عباریت gpedit.msc را تایپ و اجرا کنید.

- به User Configuration رفته سپس به Administrative Templates و در آخر به System بروید.

- در پنل سمت راست گزینه ی Prevent Access to Registry tools را به حالت Not Configured یا Disabled تنظیم کنید.

- در آخر عبارت زیر را در پنجره ی Run تایپ کرده و بروی Enter فشار دهید.

REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Pol icies\System /v DisableRegistryTools /t REG_DWORD /d 0 /f

——

خوب تا بدین جای کار Folder Options و Registry Editor را از حالت غیر فعال بیرون آورده اید. حال قصد داریم تا Task Manger را نیز این حالت خارج کنیم پس با ما همراه باشید.

- ابتدا ویروس و عاملی که باعث غیر فعال شدن Task manger شده است را نابود سازید (بوسلیه نصب و اسکن کردن آنتی ویروس)

- سپس پنجره ی Registry Editor را گشوده و به ترتیب به سه آدرس زیر بروید:

HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\System
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\Policies\System
HKEY_USERS\.default\Software\Microsoft\Windows\Cur rentVersion\Policies\System

- سپس در پنل سمت راست به دنبال DWORD به نام DisableTaskMgr بگردد و آنرا پاک کنید.

[Enable_Task_Manager]

- در صورتی که باز Task Manager شما فعال نشد، مراحل زیر را طی کنید:

- در پنجره ی Run عبارت Gpedit.msc را تایپ و اجرا کنید.

در پنجره ی Group Policy Editor به آدرس زیر بروید:

User Configuration / Administrative Templates / System / Ctrl+Alt+Delete Options / Remove Task Manager

- بروی عبارت Remove Task Manager دوبار کلیک کرده و آنرا به حالت Not Configure تنظیم کنید.

نکته: اگر باز هم Task Manager شما فعال نشد. اینبار بایستی روش های دیگری را به کار برد که با جستجو در اینترنت آنها را خواهید یافت.

سوال دوم:هنگامی که بروی هر پارتیشن و درایوی در My Computer دو کلیک می کنم، صفحه جستجوی ویندوز هم باز می شود. مشکل از کجاست؟

جواب:

با رفتن به Run و نوشتن Regedit پنجره ی Registry Editor را گشوده و به ترتیب به دو آدرس زیر بروید:

HKEY_CLASSES_ROOT\Directory\shell
HKEY_CLASSES_ROOT\Drive\shell

در پنجره ی سمت راست کلید Dafault را پاک کنید. اگر این روش کار نکرد کلید find را نیز پاک کنید.

سوال سوم: هنگامیکه من بروی هر درایوی در My Computer دوبار کلیک می کنم، پنجره اخطار Open With باز می شود یا من اخطار زیر را دریافت می کنم.

Cannot find copy.exe. Make sure you have typed the name correctly and then try again

مشکل از کجاست؟

جواب:

در پنجره ی My Computer به تب Tools رفته و Folder Options را بگشایید. سپس به تب View رفته و گزینه ی Show hidden files را فعال کنید. سپس به درون شاخه اصلی (root) تمام پارتیشن ها رفته و بدنبال فایل Autorun.inf بگردید و در صورتی که یافتید آنرا پاک کنید.

سوال چهارم: هنگامی که بروی هر پارتیشنی در My Computer دو بار کلیک می کنم، آن صفحه در یک پنجره ی جدید گشوده می شود، حتی زمانی که در تنظیمات Folder Options گزینه ی Always open folders in same window را انتخاب می کنم. مشکل چیست؟

جواب:

فایل زیر را دانلود کرده و آنرا از حالت فشرده خارج کنید سپس فایل دارای پسوند REG. را اجرا کرده و اقدامات آنرا تایید کنید.

لینک دانلود

سوال پنجم: زمانیکه یک فولدر را باز می کنم، یک فولدر با همان نام در درون آن ساخته می شود. چگونه این مسئله حل می شود ؟

جواب:

رایانه شما بوسیله ی ویروسی اندونزیایی بنام Brontok/Rontokbro آلوده شده است. این ویروس فولدری را با همان نام درون همان فولدر می سازد. راه حل، دانلود HijackThis و اسکن کردن سیستم با آن می باشد. بعد از اینکار از طریق Safe Mode ورودی های زیر را تعمیر کنید:

[HijackThis]

نکته: برای اینکار در Safe Mode برنامه را اجرا کرده و اسکن کنید سپس ۴ گزینه ی زیر را در برنامه یافته و بروی Fix Checked کلیک کنید.

C:\WINDOWS\system32\SSVICHOSST.exe
F2 - REG:system.ini: Shell=Explorer.exe SSVICHOSST.exe
O4 - HKCU\..\Run: [Yahoo Messengger] C:\WINDOWS\system32\SSVICHOSST.exe
O7 - HKCU\Software\Microsoft\Windows\Current Version\Policies\System, DisableRegedit=1
[Only registered and activated users can see links] منبع

[goodasiay]

حل مشکلات احتمالی ویندوز شما با ریجستري


بر نامه ها را از منوی add/remove حذف کنید

حتماً مىدانید تمام برنامههایى را که در ویندوز نصب مىکنید،مىتوانید در منوى add/remove ببینید. اگر شما یک برنامه را به طور دستى پاك کنید

(پوشه برنامه یا فایل اجرایى آن(دیگر نمىتوانید آن برنامه را از منوى add/remove پاك کنید و برنامه همیشه در این منو وجود دارد. از طریق ویرایشگر رجیسترى ویندوز مىتوانید اینکار را انجام دهید. به آدرس

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\Uninstall

بروید. حالا هر برنامهاى را که مىخواهید در منوى add/remove نمایش داده نشود را پاك کنید

فایل کاملش دانلود کنید 200 نکته داره
منبع : [Only registered and activated users can see links]

[goodasiay]

نگرشی بر +com
یكی از برترین تكنولوژی هائی كه مایكروسافت به عالم نرم افزار معرفی نمود ، مدل طراحی اشیاء فاقد وابستگی به محیط پیاده سازی ، یعنی همان COM میباشد .

طی سالیان اخیر ، تكنولوژی مزبور آنچنان مورد توجه برنامه نویسان و گسترش دهندگان نرم افزار قرار گرفت كه ، هیچ نرم افزار كاربردی و سازمان مقیاسی (Enterprise-Level) بدون استفاده از توانائی های آن توفیقی نخواهد یافت .

هر چند كه نقائص موجود در مدل نگهداری ، توزیع و استفاده COM باعث شد ، مایكروسافت در جدید ترین سیستم تولید نرم افزار خود یعنی NET. تغییرات اساسی و جدی در پیاده سازی تكنولوژی اشیا مستقل انجام دهد ، اما با توجه به اهمیت آخرین نسخه پیشرفته از این تكنولوژی یعنی +COM ، بر آن شدم تا با نگارش این مقاله ، ضمن معرفی اجزا و مفاهیم ابتدائی این تكنولوژی ، به نكاتی چند در باب استفاده صحیح از آن اشاره نمایم .

● مفاهیم مفدماتی :

MTS (Microsoft Transaction Server ) و +COM هر دو رساننده یك مفهوم و پیاده سازی های"تقریبا" یكسان از این تكنولوژی تحت سیستم عاملهای NT و ۲۰۰۰ سرور هستند .

MTS ضمن ارائه كلیه مزایای COM ، به شما امكان میدهد :

الف) كنترل كاملی روی نحوه تولید ، برپائی و خاتمه استفاده از اشیاء داشته باشید . مدیر سرور ضمن اشراف بر كلیه جزئیات اشیاء ، استفاده كنندگان ، منابع مورد استفاده توسط اشیاء و ... توانائی اعمال تغییرات روی كلیه تنظیمات فوق را داراست .

ب) برپائی قواعد خاص امنیتی برای استفاده از اشیاء ، محدوده اختیارات استفاده كنندگان از اشیاء ، زمان استفاده ، میزان استفاده ، نحوه استفاده و ... همه و همه در اختیار مدیر سرور بوده و محیط بسیار قدرتمند كنترل هویت ویندوز به مدیر سرور امكان میدهد كلیه ضوابط مزبور را به عنوان مثال به گروه یا گروههای خاصی از كاربران داده و منابع سرور را مدیریت نماید .

● بهینه سازی استفاده از منابع همراه با انتقال امن اطلاعات :

مهمترین فایده استفاده از MTS بالا بردن توانائی مدیران سیستم در كنترل انتقال اطلاعات در محیط اجرای برنامه همراه با بهینه سازی منابع مورد استفاده است .

▪ مساله :
به عنوان مثال ، در شبكه فرضی A ، بنا داریم تا با پیاده سازی یك MTS و بر قراری ارتباط آن با سازمان برای استفاده كنندگان متفاوت ، امكان دسترسی سریع به اطلاعات را فراهم نموده ، فعالیتهای آنان را به دقت كنترل كرده و برای تغییراتی كه ممكن است آینده در قوانین سازمان ایجاد شود هزینه سرسام آوری برای پیاده سازی مجدد سیستم نرم افزاری پرداخت نكنیم .

▪ راه حل :
اگر در نظر بگیرید كه استفاده كنندگان از اطلاعات بانك اطلاعاتی سازمان با سطوح مختلف اطلاعات ، نیازهای مختلف مبتنی بر قواعد سازمان و منابع محدود سخت افزاری باید در محیطی " امن " ضمن برقراری ارتباط صحیح با مجموعه اطلاعات ، كمترین تاثیر را از تغییرات احتمالی در قواعد تجاری ، صنعتی و ... ببینند یقینا" باید از یك سیستم نرم افزاری توزیع شده (Distributed) مبتنی بر COM استفاده كنید كه بدینسان ، ضمن بهینه سازی منابع نرم افزاری و سخت افزاری مورد استفاده ، كمترین هزینه برای باز آرائی سیستم را خواهید پرداخت .

● مهندسی و طراحی :

در شبكه فرضی A سیستم اطلاعاتی ( بانك اطلاعاتی - Database یا محیط فرآهم كننده اطلاعات- Data provider ) به عنوان " لایه داده ها " ، اشیاء +COM مورد نظر ، به عنوان رابط های كاربران با اطلاعات و بازوهای فراهم كننده ابزار مدیریتی برای مدیران شبكه ، تحت عنوان " لایه ارتباط" و نرم افزارهای كاربردی (Clients ) مورد استفاده كاربران به عنوان " لایه كاربردی" نام گذاری میشوند .

"لایه داده ها " مستقل از جزئیات پیاده سازی سیستم نرم افزاری و فقط بر پایه مهندسی دقیق سیستم و انتظاراتی كه طراحان از سیستم دارند انتخاب و طراحی میگردد . پر واضح است هر زمان كه مجموعه فوق الذكر پاسخگوی نیازهای سیستم نبود براحتی جای خود را به محیط مناسبتر خواهد داد و گسترده ترین محیط سیستم یعنی " لایه كاربردی " ( استفاده كنندگان از سیستم ) از این تغییر متاثر نخواهند شد .

"لایه ارتباط" به عنوان هسته سیستم ، ضمن ایجاد ارتباط صحیح ، "امن" و بهینه با "لایه داده ها " و فراهم آوردن محیطی برای كنترل تكثیر داده ها( Data Transaction ) روی سیستم ، در هر لحظه این امكان را به طراحان سیستم میدهد كه قواعد جدید ، رابط های جدید اتصال به "داده ها " ، مشخصات خاص امنیتی و ... را بر سیستم اعمال نمایند و دو لایه "داده ها " و " كاربردی" از این تغییرات متاثر نگردند .

"لایه كاربردی" به عنوان محصول سیستم ، ضمن استفاده بهینه از منابع استفاده كنندگان و فرمان پذیری از " لایه ارتباط" ، همواره رابطی یكسان برای دسترسی به منابع مجاز را برای كاربران فراهم خواهد كرد . ( Thin Client )

● پیاده سازی :

در شبكه فرضی A نرم افزار Ms Sql Server به عنوان مدیر "لایه داده ها" انتخاب و با توجه به انتظارات مدیران سیستم ، بانك اطلاعاتی مطلوب روی آن طراحی و پیاده سازی میگردد . ( RDBMS )
"لایه ارتباط" به صورت یك MTS روی محیط ویندوز ۲۰۰۰ سرور فعال شده و ضمن ایفای نقش بررسی هویت كاربران شبكه ، بسته به قوانین سیستم برای گروههای مختلف ، منابع مور نیاز آنها را فراهم می آورد .
برای پیاده سازی شی یا اشیاء مستقل از محیط پیاده سازی و فرمان پذیر +COM از یكی از محیطهای تولید نرم افزار مثل Visual Basiv یا ++ Visual C یا Delphi استفاده شده ، ضمن برقرای صحیح ارتباط به " لایه داده ها " و پیاده سازی مكانیزم های مفیدی چون Caching ، Messenging و ... ، با سیستم تشخیص هویت محیط اجرا تماس برقرار نموده و برای سرویس دهی به متقاضیان كسب تكلیف مینماید .

"لایه كاربردی" كه تشكیل شده از برنامه های كاربردی مبتنی بر ویندوز ، برنامه های وب و یا حتی MTS های دیگر ، نیز با محیطهای سطح بالائی چون Delphi , Vb , Vc یا Power Builder , , ++C Borland و ... پیدا سازی شده و در محیط آنها هیچ وابستگی خاصی به نقش كاربر در نظر گرفته نمیشود و برنامه نویس ، ابزار فوق را فقط برای نمایش آنچه "باید" نمایش داده شود تولید نموده و امكان یكسان و فرمان پذیر از MTS را برای ارتباط كاربر با سرور ایجاد مینماید .

اكنون این وظیفه طراحان اشیاء است كه قواعد سازمان ( چه كسی ، چه زمانی ، چگونه حق دارد از اطلاعات استفاده كند . چگونه به اطلاعات دسترسی داشته باشد . چگونه به اطلاعات سیستم بیفزاید . چگونه .... ) را با در نظر گرفتن تغییرات احتمالی در آینده ، هرچه انعطاف پذیر تر طراحی نموده و ضمن ایجاد رابطهای با پروتكلهای معتبر ( مثل HTTP , SOAP , XML و ... )رابطی قدرتمند برای برنامه نویسان " لایه كاربردی" ایجاد كنند تا بدون درگیر شدن در جزئیات لایه داده ها و قواعد سازمان فقط به كاربران و منابع محدود آنها بیندیشند .

------------
منبع : IranDevelopers

[goodasiay]

چگونه می توان بانک Access را Compact and Repair کرد؟

uses
ComObj;

function CompactAndRepair(DB: string): Boolean; {DB = Path to Access Database}
var
v: OLEvariant;
begin
Result := True;
try
v := CreateOLEObject('JRO.JetEngine');
try
V.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4. 0;Data Source='+DB,
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DB+'x;Jet OLEDB:Engine Type=5');
DeleteFile(DB);
RenameFile(DB+'x',DB);
finally
V := Unassigned;
end;
except
Result := False;
end;
end;
2 نوشته شده توسط مهندس نورانی | 40 نظر
چگونه می توان یک جدول را در SQL Server ایجاد کرد؟

procedure TLocal.CreateTables(WindowsSecurity: Boolean; Username, Password: String);
var
ConnectionString: String;
begin
if WindowsSecurity then
ConnectionString := 'Provider=SQLOLEDB.1;' +
'Integrated Security=SSPI;' +
'Persist Security Info=False;' +
'Initial Catalog=test'
else
ConnectionString := 'Provider=SQLOLEDB.1;' +
'Password=' + Password + ';' +
'Persist Security Info=True;' +
'User ID=' + Username + ';' +
'Initial Catalog=test';
try

try
ADOConnection.ConnectionString := ConnectionString;
ADOConnection.LoginPrompt := False;
ADOConnection.Connected := True;

ADOQuery.Connection := ADOConnection;

ADOQuery.SQL.Clear;
with ADOQuery.SQL do
begin
Add('create table Klijent(');
Add('JMBG char(13) not null,');
Add('Ime char(30) not null,');
Add('Adresa char(30) not null,');
Add('Telefon char(15) not null,');
Add('Primanja numeric(6,2) not null,');
Add('primary key (JMBG))');
end;
ADOQuery.ExecSQL;

ADOQuery.SQL.Clear;
with ADOQuery.SQL do
begin
Add('create table Kredit(');
Add('Sifra numeric not null,');
Add('Tip char(15) unique not null,');
Add('Kamata numeric not null,');
Add('primary key (Sifra))');
end;
ADOQuery.ExecSQL;

ADOQuery.SQL.Clear;
with ADOQuery.SQL do
begin
Add('create table Operator(');
Add('JMBG char(13) unique not null,');
Add('Ime char(30) not null,');
Add('Sifra char(30) not null,');
Add('Adresa char(30) not null,');
Add('Telefon char(15) not null,');
Add('Prioritet smallint not null check (Prioritet>0),');
Add('primary key (JMBG))');
end;
ADOQuery.ExecSQL;

ADOQuery.SQL.Clear;
with ADOQuery.SQL do
begin
Add('create table Kreditiranja (');
Add('Sifra numeric not null,');
Add('Sifra_kredita numeric not null,');
Add('Datum datetime,');
Add('Iznos_kredita numeric(10,2) check (Iznos_kredita>0),');
Add('Broj_rata numeric,');
Add('JMBG_klijenta char(13),');
Add('JMBG_operatora char(13),');
Add('primary key(Sifra),');
Add('foreign key(Sifra_kredita) references Kredit(Sifra) on delete cascade on update cascade,');
Add('foreign key(JMBG_klijenta) references Klijent(JMBG) on delete cascade on update cascade,');
Add('foreign key(JMBG_operatora) references Operator(JMBG) on delete cascade on update cascade)');
end;
ADOQuery.ExecSQL;

ADOQuery.SQL.Clear;
with ADOQuery.SQL do
begin
Add('create table Rata (');
Add('Broj_rate numeric not null,');
Add('Broj_sifre numeric not null,');
Add('Datum datetime,');
Add('Iznos_rate numeric(10,2) check (Iznos_rate>0),');
Add('primary key (Broj_rate),');
Add('foreign key (Broj_sifre) references Kreditiranja(Sifra) on delete cascade on update cascade)');
end;
ADOQuery.ExecSQL;

MessageDlg('Tabele su uspjesno kreirane.', mtInformation, [mbOK], 0);
except
on E: Exception do MessageDlg(E.Message, mtWarning, [mbOK], 0);
end;

finally
ADOConnection.Connected := False;
end;
end;

[goodasiay]

چگونه می توان ID آخرین سطر Insert شده را دریافت کرد؟

var
LastID: Integer;
// Query: TADOQuery;
// oder
// Query: TQuery;
begin
Query.Active := False;
Query.SQL.Clear;
Query.SQL.Append('INSERT INTO Table (Spalte) VALUES (Value)');
Query.ExecSQL;
LastID := GetLastID(Query);
end;

function GetLastID(var Query: TADOQuery {or TQuery}): Integer;
begin
result := -1;
try
Query.SQL.clear;
Query.SQL.Add('SELECT @@IDENTITY');
Query.Active := True;
Query.First;
result := Query.Fields.Fields[0].AsInteger;
finally
Query.Active := False;
Query.SQL.clear;
end;
end;

[goodasiay]

چگونه می توان با استفاده از ADO و بانک Access یک فیلد Blob را مقدار دهی کرد؟

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ADODB, DB, DBTables, ComObj;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

function ConnectToADODB(var Query: TADOQuery; ConnectStr: String): Boolean; Overload;
function UpdateBlob(Connection: TADOConnection; Spalte: String; Tabelle: String; Where: String; var ms: TMemoryStream): Boolean;
procedure ShowEOleException(AExc: EOleException; Query: String);

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Query: TADOQuery;
ms: TMemoryStream;
ConnectStr: String;
begin
ms := TMemoryStream.Create;
ms.LoadFromFile('d:\a.txt');
Query := TADOQuery.Create(nil);

// You must connect to AccessDB first.
// See: Query.Connection, TADOConection or Query.ConnectionString

//my function to connect to DB
ConnectStr := 'Provider=Microsoft.Jet.OLEDB.4.0;' + // provider for Access2000
'Data Source=C:\db1.mdb;' + // databasefile
'Mode=ReadWrite|Share Deny None;' + // set to ReadWrite
'Persist Security Info=False';
if not ConnectToADODB(Query, ConnectStr) then
ShowMessage('Connecting to DB failed.');

// data is my row and email the table
UpdateBlob(Query.Connection, 'blobfieldname', 'Tabelle1', 'id=1', ms);
ms.Free;

// disconnect from DB
Query.Connection.Close;

Query.Free;
end;

function ConnectToADODB(var Query: TADOQuery; ConnectStr: String): Boolean; Overload;
begin
Query.Connection := TADOConnection.Create(nil);
Query.Connection.LoginPrompt := True;
Query.Connection.ConnectionString := ConnectStr;
Query.Connection.Open;
result := Query.Connection.Connected;
end;

function UpdateBlob(Connection: TADOConnection; Spalte: String; Tabelle: String; Where: String; var ms: TMemoryStream): Boolean;
var
BlobField: TBlobField;
Table: TADOTable;
begin
result := True;
try
ms.Seek(0, soFromBeginning);
Table := TADOTable.Create(nil);
Table.Connection := Connection;
Table.TableName := Tabelle;
Table.Filtered := False;
// Set ****** like SQL-Command '... WHERE id=1'
Table.****** := Where;
Table.Filtered := True;
Table.Open;
Table.First;

if not Table.FieldByName(Spalte).IsBlob then
Raise EOleException.Create('The field ' + Spalte + ' is not a blob-field.', S_FALSE, 'ITSQL.UpdateBlob', '', 0);

BlobField := TBlobField(Table.FieldByName(Spalte));
Table.Edit;
BlobField.LoadFromStream(ms);
Table.Post;
Table.Free;
except
on E: EOleException do
begin
ShowEOleException(E, 'UPDATE BLOB FROM: SELECT ' + Spalte + ' FROM ' + Tabelle + ' WHERE ' + Where);
result := False;
end;
end;
end;

procedure ShowEOleException(AExc: EOleException; Query: String);
var
ErrShowFrm: TForm;
Memo: TMemo;
begin
ErrShowFrm := TForm.Create(nil);
ErrShowFrm.Position := poScreenCenter;
ErrShowFrm.Width := 640;
ErrShowFrm.Height := 480;
Memo := TMemo.Create(ErrShowFrm);
Memo.Parent := ErrShowFrm;
Memo.Align := alClient;

Memo.Lines.Clear;
Memo.Lines.Add('Message: ' + AExc.Message);
Memo.Lines.Add(' Source: ' + AExc.Source);
Memo.Lines.Add(' ClassName: ' + AExc.ClassName);
Memo.Lines.Add(' Error Code: ' + IntToStr(AExc.ErrorCode));
Memo.Lines.Add(' Query: ' + Query);

ErrShowFrm.ShowModal;
Memo.Free;
ErrShowFrm.Free;
end;

end.

[goodasiay]

چگونه می توان چندین سطر را با Shift در DBGrid انتخاب کرد؟

property BM1: TBookmark read FBM1 Write SetBM1;

property BM2: TBookmark read FBM2 Write SetBM2;

procedure Markieren(Sender: TObject);
function Shiftgedr: Boolean;


procedure TForm1.Markieren(Sender: TObject);
var
Richtung: string;
TempBM: TBookmark;
begin
with (Sender as TDBGRID).DataSource.Dataset do
begin
if (BOF and EOF) then
Exit;
DisableControls;
try
try
GotoBookmark(BM1);
case DBGrid1.DataSource.DataSet.CompareBookmarks(BM1, BM2) of
-1: Richtung := 'Unten';
1: Richtung := 'Oben';
0: Richtung := 'Gleich';
end;
TempBM := DBGrid1.DataSource.DataSet.GetBookmark;
while DBGrid1.DataSource.DataSet.CompareBookmarks(BM2, TempBM) <> 0 do
begin
DBGrid1.SelectedRows.CurrentRowSelected := True;
if Richtung = 'Unten' then
Next
else
Prior;
TempBM := DBGrid1.DataSource.DataSet.GetBookmark;
end;
finally
FreeBookmark(tempbm);
end;
finally
EnableControls;
end;
end;
end;

function TForm1.Shiftgedr: Boolean;
var
State: TKeyboardState;
begin
GetKeyboardState(State);
Result := ((State[VK_SHIFT] and 128) <> 0);
end;

begin
if not Shiftgedr then
Merke1 := nil;

if Merke1 = nil then
Merke1 := DBGrid1.DataSource.DataSet.GetBookmark
else
Merke2 := DBGrid1.DataSource.DataSet.GetBookmark;

if (Merke1 <> nil) and (Merke2 <> nil) then
begin
if Shiftgedr then
begin
Markieren(Sender);
end;
end;
end;

[goodasiay]

چگونه می توان یک فیلد Memo را در DBGrid ویرایش کرد؟

function TCustomDBGrid.GetEditLimit: Integer;
begin
Result := 0;

if Assigned(SelectedField) and (SelectedField.DataType in [ftString, ftWideString, ftMemo]) then
Result := SelectedField.Size;
end;

function TCustomDBGrid.GetEditText(ACol, ARow: Longint): string;
begin
Result := '';
if FDatalink.Active then
with Columns[RawToDataColumn(ACol)] do
if Assigned(Field) then
Result := Field.AsString;
FEditText := Result;
end;

[goodasiay]

چگونه می توان یک فایل JEPG را در یک فیلد Blob با SQL بریزیم؟

procedure TForm1.Button1Click(Sender: TObject);
var
ms: TMemoryStream;
begin
if OpenPictureDialog1.Execute then
begin
ms := TMemoryStream.Create;
try
ms.LoadFromFile(OpenPictureDialog1.FileName);
with Query1 do
begin
with SQL do
begin
Clear;
Add('INSERT INTO "ImageTbl.db" (ImageFld)');
Add('VALUES (:param0 )');
end;
Query1.ParamByName('param0').SetBlobData(ms.Memory , ms.Size);
ExecSQL;
end;
finally
ms.Free;
end;
end;
end;

[goodasiay]

________________________________________
چگونه می توان یک Query را در یک TTable اجرا کرد؟
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables;

type
TForm1 = class(TForm)
Button1: TButton;
Query1: TQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
InitQuery: TQuery;
InitTable: TTable;
InitBatch: TBatchMove;
begin
InitQuery := TQuery.Create(Application);
with InitQuery do
begin
DatabaseName := 'DBDEMOS';
Close;
SQL.Clear;
SQL.Add('SELECT * ');
SQL.Add('FROM customer.db');
SQL.Add('WHERE Country="US"');
SQL.SaveToFile('mgrInit.sql');
try
Open;
try // Send the SQL result to c:\temp\INIT.DB
InitTable := TTable.Create(Application);
with InitTable do
begin
DatabaseName := 'c:\temp';
TableName := 'INIT';
end;
InitBatch := TBatchMove.Create(Application);
with InitBatch do
begin
Destination := InitTable;
Source := InitQuery;
Mode := batCopy;
Execute;
end;
finally
InitTable.Free;
InitBatch.Free;
end;
except
Free;
Abort;
end;
Free;
end;
end;

end.
________________________________________
چگونه می توان جداول Detial/Master را در Sql Server در زمان اجرا کرد؟
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOCommand1.CommandText := 'Create Table MasterTable ' +
'(FieldName Primary Key);';
ADOCommand1.Execute;
ADOCommand1.CommandText := 'Create Table Detailtable ' +
'(Fieldname Primary Key Refrenced Mastertable(Fieldname));';
ADOCommand1.Execute;
end;
________________________________________
چگونه می توان لیستی از جداول یک دیتا بیس Sql Server را دریافت کرد؟
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.SQL.Add('Exec SP_Tables');
ADOQuery1.Active := True;
end;
________________________________________
چگونه می توان لیستی دیتا بیس های Sql Server را دریافت کرد؟
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.SQL.Add('Exec SP_DATABASES');
ADOQuery1.Active := True;
end;
________________________________________
چگونه می توان لیستی از کاربران فعال Sql Server را دریافت کرد؟
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.SQL.Add('Exec SP_WHO');
ADOQuery1.Active := True;
end;
________________________________________
چگونه می توان User را در Sql Server حذف کرد؟
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOCommand1.CommandText := 'Use DataBaseName';
ADOCommand1.Execute;
ADOCommand1.CommandText := 'Exec SP_DropUser ' + QuotedStr('Username');
ADOCommand1.Execute;
end;
________________________________________
چگونه می توان User را در Sql Server ایجاد کرد؟
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOCommand1.CommandText := 'Use DataBaseName';
ADOCommand1.Execute;
ADOCommand1.CommandText := 'Exec SP_AddUser ' + QuotedStr('Username');
ADOCommand1.Execute;
end;

[goodasiay]

کپشن دکمه در چند خط
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Button1.Handle,GWL_STYLE,GetWindowLo ng(Button1.Handle,GWL_STYLE) OR BS_MULTILINE);
end;
ایجاد لیبل مورب




procedure TForm1.Button1Click(Sender: TObject);
begin
AngleTextOut(Form1.Canvas,12,10,65,'Advanced Delphi Technicals !!');
end;

procedure AngleTextOut(ACanvas: TCanvas;Angle,X,Y: Integer;Str: string);
var
LogRec : TLogFont;
OldFontHandle,NewFontHandle :HFONT;
begin
GetObject(ACanvas.Font.Handle,SizeOf(LogRec),Addr( LogRec));
LogRec.lfEscapement := Angle * 10;
NewFontHandle := CreateFontIndirect(LogRec);
OldFontHandle := SelectObject(ACanvas.Handle,NewFontHandle);
ACanvas.TextOut(X,Y,str);
NewFontHandle := SelectObject(ACanvas.Handle,OldFontHandle);
DeleteObject(NewFontHandle);
end;



مشخصات CPU دلفی کد برنامه بدست آوردن
با استفاده از کدهای زیر می توانید اطلاعات دقیق و مفیدی در مورد پردازندۀ کامپیوترتان بدست آورید .
زیربرنامۀ
procedure info(s1, s2: string);
را در Public تعریف کنید ؛ متغیر های زیر را به صورت عمومی تعریف کنبد ؛
var
frm_main: Tfrm_main;
gn_speed_y: Integer;
gn_text_y: Integer;
const
gn_speed_x: Integer = 8;
gn_text_x: Integer = 15;
gl_start: Boolean = True;
یک Image روی فرم قرار دهید و اسم اون رو img_info قرار بدید ؛
دربلاک برنامه هم دو زیربرنامه وجود دارد که اولی مربوط به OnShow فرم اصلی و دومی همان زیربرنامه ای است که در ابتدا تعریف کردیم :
procedure Tfrm_main.FormShow(Sender: TObject);
var
_eax, _ebx, _ecx, _edx: Longword;
i: Integer;
b: Byte;
b1: Word;
s, s1, s2, s3, s_all: string;
begin
//Set the startup colour of the image
img_info.Canvas.Brush.Color := clblue;
img_info.Canvas.FillRect(rect(0, 0, img_info.Width, img_info.Height));


gn_text_y := 5; //position of the 1st text

asm //asm call to the CPUID inst.
mov eax,0 //sub. func call
db $0F,$A2 //db $0F,$A2 = CPUID instruction
mov _ebx,ebx
mov _ecx,ecx
mov _edx,edx
end;

for i := 0 to 3 do //extract vendor id
begin
b := lo(_ebx);
s := s + chr(b);
b := lo(_ecx);
s1:= s1 + chr(b);
b := lo(_edx);
s2:= s2 + chr(b);
_ebx := _ebx shr 8;
_ecx := _ecx shr 8;
_edx := _edx shr 8;
end;
info('CPU', '');
info(' - ' + 'Vendor ID: ', s + s2 + s1);

asm
mov eax,1
db $0F,$A2
mov _eax,eax
mov _ebx,ebx
mov _ecx,ecx
mov _edx,edx
end;
//06B1
//|0000| |0000 0000| |0000| |00| |00| |0110| |1011| |0001|
b := lo(_eax) and 15;
info(' - ' + 'Stepping ID: ', IntToStr(b));
b := lo(_eax) shr 4;
info(' - ' + 'Model Number: ', IntToHex(b, 1));
b := hi(_eax) and 15;
info(' - ' + 'Family Code: ', IntToStr(b));
b := hi(_eax) shr 4;
info(' - ' + 'Processor Type: ', IntToStr(b));
//31. 28. 27. 24. 23. 20. 19. 16.
// 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
b := lo((_eax shr 16)) and 15;
info(' - ' + 'Extended Model: ', IntToStr(b));

b := lo((_eax shr 20));
info(' - ' + 'Extended Family: ', IntToStr(b));

b := lo(_ebx);
info(' - ' + 'Brand ID: ', IntToStr(b));
b := hi(_ebx);
info(' - ' + 'Chunks: ', IntToStr(b));
b := lo(_ebx shr 16);
info(' - ' + 'Count: ', IntToStr(b));
b := hi(_ebx shr 16);
info(' - ' + 'APIC ID: ', IntToStr(b));

//Bit 18 =? 1 //is serial number enabled?
if (_edx and $40000) = $40000 then
info(' - ' + 'Serial Number ', 'Enabled')
else
info(' - ' + 'Serial Number ', 'Disabled');
________________________________________
محو و ظاهر کردن تسک بار
کد های زیر به ترتیب موجب محو و مشاهده دوباره استارت آپ و تسک بار می شود :
Hide/show start button
Uses Shellapi;
ShowWindow(FindWindowEx(FindWindow('Shell_traywnd' ,nil),0,'Button',nil),1); to show
ShowWindow(FindWindowEx(FindWindow('Shell_traywnd' ,nil),0,'Button',nil),0); to hide
EnableWindow(FindWindowEx(FindWindow('Shell_traywn d',nil),0,'Button',nil),True); to enable start button
EnableWindow(FindWindowEx(FindWindow('Shell_traywn d',nil),0,'Button',nil),False); to disable start button
Hide/show task bar
Uses Shellapi;
ShowWindow(FindWindow('shell_traywnd',nil),1); to show
ShowWindow(FindWindow('shell_traywnd',nil),0); to hide
EnableWindow(FindWindow('shell_traywnd',nil),True) ; enable task bar
EnableWindow(FindWindow('shell_traywnd',nil),False ); disable task bar



________________________________________
جستجو در دیتابیس
procedure TForm10.Button2Click(Sender: TObject);
var
s:string;
sos:tlocateoptions;
begin
s:=inputbox(' Please Enter Product Name ' , 'Product Name','');
if s='' then exit;
if table1.IsEmpty then
begin
Messagebox (0,pchar (' Database is Empty '),'Error',0);
exit;
end;
sos:=[lopartialkey]+[loCaseInsensitive];
if not table1.Locate ('Product Name' , s ,sos )
then showmessage (' Nothing ')
end;
نمی دونم این کد قبلا گذاشته بودم یا نه ولی خیلی باحال.... همونطور که از اسمش معلومه فرمتون می لرزونه....
procedure TForm1.Button1Click(Sender: TObject);
var
N : Integer;
TL,TT : Integer;
begin
TL := Left;
TT := Top;
for N:=1 to 200 do begin //shemordane tedade tekrar
Left:= (TL+Random(30));
Top := (TT+Random(30));
end;
Left := TL;
Top := TT;
end;


________________________________________
باز کردن و بستن در CD-Rom
برای باز کردن و بستن در cdrom ابتدا mmsystem را در یوتنیتتان یوز کنید:
Uses mmsystem;
حالا از برای باز کردن در CRROM از این تابع :
mciSendString('Set cdaudio door open wait', nil, 0, handle); to open
و برا ی بستن در CDROM از این تابع استفاده کنید:
mciSendString('Set cdaudio door closed wait', nil, 0, handle); to close
________________________________________
تغییر حالت مانیتور به استندبای - StandBy - رفتن
برای رفتن مانیتور به استندبای ابتدا باید Shellapi را یوز کنید:
Uses Shellapi;
حالا توسط این تابع می توانید مانیتور را به حالت استندبای ببرید.
SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, 0) ;
________________________________________
آموزش دلفی
فرم ها:
فرم، صفحه طراحی برنامه است. هر وقت که دلفی راه اندازی می شود، فرمی در اختیار قرار می گیرد ، تا از آن برای طراحی برنامه استفاده شود. هر فرم دارای خواصی مثل طول، عرض، عنوان، رنگ و ... است.

انواع داده در دلفی:
صحیح 10 ، 20 ، 30
حقیقی 14.5 ، 15.39
ارزی (Currency)
بولی (Boolean)
کاراکتری 'A' , 'B'
رشته ای 'Ali' , 'Science'


انواع صحیح:
نوع محدوده قابل قبول طول بایت علامت
Byte محدوده : 0 تا 255 1 مثبت
Word محدوده : 0 تا 65535 2 مثبت
Shortint محدوده : 128- تا 127 1 مثبت و منفی
Smallint محدوده : 32768 تا 32768 2 مثبت و منفی
Integer محدوده : 32147483648- تا 2147483647 4 مثبت و منفی
Cardinal محدوده : 0 تا 2147483647 4 مثبت
Longint محدوده : 2147483647- تا 2147483647 4 مثبت و منفی
Longword محدوده : 0 تا 4294967295 4 مثبت
Int64 محدوده : 263 –تا 1 - 263 8 مثبت و منفی


انواع حقیقی:
نوع محدوده قابل قبول طول بایت
Real محدوده : 2.9* 10-39 تا 1.7*1038 6
Single محدوده : 1.5* 10-45 تا 3.4*10-38 4
Double محدوده : 5.0* 10-324 تا 1.7*10308 8
Extended محدوده : 3.6*10-4951تا 1.1* 104932 10
Comp محدوده : +1 -263 تا -1 263


بیشترین کاربرد را انواع Real دارد، تقریبا 90% برنامه های دلفی از این نوع استفاده می کنند. این نوع برای کامپایلر طبیعی است و به پشتیبانی های دیگر نیاز ندارد. انواع دیگر توسط دلفی پشتیبانی می شوند ولی قبل از به کارگیری آنها باید راهنمای کامپایلر {$N+} را در ابتدای برنامه قرار داد.

انواع بولی:
نوع محدوده طول بایت
Boolean یک بایتی 1
ByteBool یک بایتی 1
Bool یک کلمه ای 2
WordBool یک کلمه ای 2
LongBool کلمه مضاعف 4


انواع کاراکتری
نوع طول به بایت قابلیت
Char طول : 1 یک کاراکتر Ansi
AnsiChar طول : 1 یک کاراکتر Ansi
WideChar طول : 2 یک کاراکتر یونیکد Unicod

هر کاراکتر یونیکد از تمام 16 بیت ( 2 بایت) WideChar استفاده می کند. اگر مقدار AnsiChar را به WideChar نسبت دهیم، بایت سمت چپ برابر با صفر میشود و کاراکتر در بایت سمت راست ذخیره می گردد.

نوع رشته ای:
نوع طول به بایت عنصری که ذخیره می شود
ShortString 255 AnsiChar
AnsiStrinکپشن دکمه در چند خط
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Button1.Handle,GWL_STYLE,GetWindowLo ng(Button1.Handle,GWL_STYLE) OR BS_MULTILINE);
end;
ایجاد لیبل مورب




procedure TForm1.Button1Click(Sender: TObject);
begin
AngleTextOut(Form1.Canvas,12,10,65,'Advanced Delphi Technicals !!');
end;

procedure AngleTextOut(ACanvas: TCanvas;Angle,X,Y: Integer;Str: string);
var
LogRec : TLogFont;
OldFontHandle,NewFontHandle :HFONT;
begin
GetObject(ACanvas.Font.Handle,SizeOf(LogRec),Addr( LogRec));
LogRec.lfEscapement := Angle * 10;
NewFontHandle := CreateFontIndirect(LogRec);
OldFontHandle := SelectObject(ACanvas.Handle,NewFontHandle);
ACanvas.TextOut(X,Y,str);
NewFontHandle := SelectObject(ACanvas.Handle,OldFontHandle);
DeleteObject(NewFontHandle);
end;

[goodasiay]

مشخصات CPU دلفی کد برنامه بدست آوردن
با استفاده از کدهای زیر می توانید اطلاعات دقیق و مفیدی در مورد پردازندۀ کامپیوترتان بدست آورید .
زیربرنامۀ
procedure info(s1, s2: string);
را در Public تعریف کنید ؛ متغیر های زیر را به صورت عمومی تعریف کنبد ؛
var
frm_main: Tfrm_main;
gn_speed_y: Integer;
gn_text_y: Integer;
const
gn_speed_x: Integer = 8;
gn_text_x: Integer = 15;
gl_start: Boolean = True;
یک Image روی فرم قرار دهید و اسم اون رو img_info قرار بدید ؛
دربلاک برنامه هم دو زیربرنامه وجود دارد که اولی مربوط به OnShow فرم اصلی و دومی همان زیربرنامه ای است که در ابتدا تعریف کردیم :
procedure Tfrm_main.FormShow(Sender: TObject);
var
_eax, _ebx, _ecx, _edx: Longword;
i: Integer;
b: Byte;
b1: Word;
s, s1, s2, s3, s_all: string;
begin
//Set the startup colour of the image
img_info.Canvas.Brush.Color := clblue;
img_info.Canvas.FillRect(rect(0, 0, img_info.Width, img_info.Height));


gn_text_y := 5; //position of the 1st text

asm //asm call to the CPUID inst.
mov eax,0 //sub. func call
db $0F,$A2 //db $0F,$A2 = CPUID instruction
mov _ebx,ebx
mov _ecx,ecx
mov _edx,edx
end;

for i := 0 to 3 do //extract vendor id
begin
b := lo(_ebx);
s := s + chr(b);
b := lo(_ecx);
s1:= s1 + chr(b);
b := lo(_edx);
s2:= s2 + chr(b);
_ebx := _ebx shr 8;
_ecx := _ecx shr 8;
_edx := _edx shr 8;
end;
info('CPU', '');
info(' - ' + 'Vendor ID: ', s + s2 + s1);

asm
mov eax,1
db $0F,$A2
mov _eax,eax
mov _ebx,ebx
mov _ecx,ecx
mov _edx,edx
end;
//06B1
//|0000| |0000 0000| |0000| |00| |00| |0110| |1011| |0001|
b := lo(_eax) and 15;
info(' - ' + 'Stepping ID: ', IntToStr(b));
b := lo(_eax) shr 4;
info(' - ' + 'Model Number: ', IntToHex(b, 1));
b := hi(_eax) and 15;
info(' - ' + 'Family Code: ', IntToStr(b));
b := hi(_eax) shr 4;
info(' - ' + 'Processor Type: ', IntToStr(b));
//31. 28. 27. 24. 23. 20. 19. 16.
// 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
b := lo((_eax shr 16)) and 15;
info(' - ' + 'Extended Model: ', IntToStr(b));

b := lo((_eax shr 20));
info(' - ' + 'Extended Family: ', IntToStr(b));

b := lo(_ebx);
info(' - ' + 'Brand ID: ', IntToStr(b));
b := hi(_ebx);
info(' - ' + 'Chunks: ', IntToStr(b));
b := lo(_ebx shr 16);
info(' - ' + 'Count: ', IntToStr(b));
b := hi(_ebx shr 16);
info(' - ' + 'APIC ID: ', IntToStr(b));

//Bit 18 =? 1 //is serial number enabled?
if (_edx and $40000) = $40000 then
info(' - ' + 'Serial Number ', 'Enabled')
else
info(' - ' + 'Serial Number ', 'Disabled');

[goodasiay]

محو و ظاهر کردن تسک بار
کد های زیر به ترتیب موجب محو و مشاهده دوباره استارت آپ و تسک بار می شود :
Hide/show start button
Uses Shellapi;
ShowWindow(FindWindowEx(FindWindow('Shell_traywnd' ,nil),0,'Button',nil),1); to show
ShowWindow(FindWindowEx(FindWindow('Shell_traywnd' ,nil),0,'Button',nil),0); to hide
EnableWindow(FindWindowEx(FindWindow('Shell_traywn d',nil),0,'Button',nil),True); to enable start button
EnableWindow(FindWindowEx(FindWindow('Shell_traywn d',nil),0,'Button',nil),False); to disable start button
Hide/show task bar
Uses Shellapi;
ShowWindow(FindWindow('shell_traywnd',nil),1); to show
ShowWindow(FindWindow('shell_traywnd',nil),0); to hide
EnableWindow(FindWindow('shell_traywnd',nil),True) ; enable task bar
EnableWindow(FindWindow('shell_traywnd',nil),False ); disable task bar



________________________________________
جستجو در دیتابیس
procedure TForm10.Button2Click(Sender: TObject);
var
s:string;
sos:tlocateoptions;
begin
s:=inputbox(' Please Enter Product Name ' , 'Product Name','');
if s='' then exit;
if table1.IsEmpty then
begin
Messagebox (0,pchar (' Database is Empty '),'Error',0);
exit;
end;
sos:=[lopartialkey]+[loCaseInsensitive];
if not table1.Locate ('Product Name' , s ,sos )
then showmessage (' Nothing ')
end;
نمی دونم این کد قبلا گذاشته بودم یا نه ولی خیلی باحال.... همونطور که از اسمش معلومه فرمتون می لرزونه....
procedure TForm1.Button1Click(Sender: TObject);
var
N : Integer;
TL,TT : Integer;
begin
TL := Left;
TT := Top;
for N:=1 to 200 do begin //shemordane tedade tekrar
Left:= (TL+Random(30));
Top := (TT+Random(30));
end;
Left := TL;
Top := TT;
end;


________________________________________
باز کردن و بستن در CD-Rom
برای باز کردن و بستن در cdrom ابتدا mmsystem را در یوتنیتتان یوز کنید:
Uses mmsystem;
حالا از برای باز کردن در CRROM از این تابع :
mciSendString('Set cdaudio door open wait', nil, 0, handle); to open
و برا ی بستن در CDROM از این تابع استفاده کنید:
mciSendString('Set cdaudio door closed wait', nil, 0, handle); to close
________________________________________
تغییر حالت مانیتور به استندبای - StandBy - رفتن
برای رفتن مانیتور به استندبای ابتدا باید Shellapi را یوز کنید:
Uses Shellapi;
حالا توسط این تابع می توانید مانیتور را به حالت استندبای ببرید.
SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, 0) ;
________________________________________
آموزش دلفی
فرم ها:
فرم، صفحه طراحی برنامه است. هر وقت که دلفی راه اندازی می شود، فرمی در اختیار قرار می گیرد ، تا از آن برای طراحی برنامه استفاده شود. هر فرم دارای خواصی مثل طول، عرض، عنوان، رنگ و ... است.

انواع داده در دلفی:
صحیح 10 ، 20 ، 30
حقیقی 14.5 ، 15.39
ارزی (Currency)
بولی (Boolean)
کاراکتری 'A' , 'B'
رشته ای 'Ali' , 'Science'


انواع صحیح:
نوع محدوده قابل قبول طول بایت علامت
Byte محدوده : 0 تا 255 1 مثبت
Word محدوده : 0 تا 65535 2 مثبت
Shortint محدوده : 128- تا 127 1 مثبت و منفی
Smallint محدوده : 32768 تا 32768 2 مثبت و منفی
Integer محدوده : 32147483648- تا 2147483647 4 مثبت و منفی
Cardinal محدوده : 0 تا 2147483647 4 مثبت
Longint محدوده : 2147483647- تا 2147483647 4 مثبت و منفی
Longword محدوده : 0 تا 4294967295 4 مثبت
Int64 محدوده : 263 –تا 1 - 263 8 مثبت و منفی


انواع حقیقی:
نوع محدوده قابل قبول طول بایت
Real محدوده : 2.9* 10-39 تا 1.7*1038 6
Single محدوده : 1.5* 10-45 تا 3.4*10-38 4
Double محدوده : 5.0* 10-324 تا 1.7*10308 8
Extended محدوده : 3.6*10-4951تا 1.1* 104932 10
Comp محدوده : +1 -263 تا -1 263


بیشترین کاربرد را انواع Real دارد، تقریبا 90% برنامه های دلفی از این نوع استفاده می کنند. این نوع برای کامپایلر طبیعی است و به پشتیبانی های دیگر نیاز ندارد. انواع دیگر توسط دلفی پشتیبانی می شوند ولی قبل از به کارگیری آنها باید راهنمای کامپایلر {$N+} را در ابتدای برنامه قرار داد.

انواع بولی:
نوع محدوده طول بایت
Boolean یک بایتی 1
ByteBool یک بایتی 1
Bool یک کلمه ای 2
WordBool یک کلمه ای 2
LongBool کلمه مضاعف 4


انواع کاراکتری
نوع طول به بایت قابلیت
Char طول : 1 یک کاراکتر Ansi
AnsiChar طول : 1 یک کاراکتر Ansi
WideChar طول : 2 یک کاراکتر یونیکد Unicod

هر کاراکتر یونیکد از تمام 16 بیت ( 2 بایت) WideChar استفاده می کند. اگر مقدار AnsiChar را به WideChar نسبت دهیم، بایت سمت چپ برابر با صفر میشود و کاراکتر در بایت سمت راست ذخیره می گردد.

نوع رشته ای:
نوع طول به بایت عنصری که ذخیره می شود
ShortString 255 AnsiChar
AnsiString حداکثر 3MB AnsiChar
String 255 یا حداکثر 3MB AnsiChar
WideString حداثر 1.5GB WideChar

چنانچه در ابتدای برنامه از راهنمای {$H+} استفاده شود، طول رشته ها می تواند بسیار زیاد( مثلا تا 3GB) باشد
نوع String در زمانی که {$H} فعال است، با AnsiString برابر است.





تعریف متغیرها:
; نوع : نام متغیر Var
Var x,y:integer; : مثال
m,n : byte;
ثوابت :
; مقدار = نام ثابت Const
Const p1= 1.98; :مثال
P2='x';
 نوع ثابت را به طور مستقیم نیز می توان تعیین کرد:
; مقدار = نوع ثابت : نام ثابت Const
Const : مثال
P: integer = 3.14
' Name : String[10] = 'ali
این نوع ثابت را ثابت نوع داده ای می گویند، بر خلاف نامشان در طول اجرای برنامه قابل تغییر هستند، در واقع این ها متغیر هایی با مقادیر اولیه اند.
عملگرها:
o محاسباتی (mod div / * - + )
o رابطه ای ( in <> => > <= < ) ] in یعنی عضویت در مجموعه[
o منطقی (xor or and not)
o بیتی (shr shl xor or and not)
عملوند عملگرهای بیتی باید از نوع integer باشد.......برچسب ها : آموزش - دلفی - فرم - انواع - متغیر

[goodasiay]

تشکر یادتون نره

[goodasiay]

[Only registered and activated users can see links]

[saeed7007]

با تشکر

ولی فقط در رابزه با دلفی بحث کنید نه "حل مشکلات احتمالی ویندوز شما با ریجستري"

موفق باشید

[23232323]

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

[23232323]

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