سورسهاي نمونه آموزشي

[Mahmood_M]

با سلام ...
در اين تاپيك مي تونيد سورسهاي كوچكي كه براي اهداف آموزشي خاصي ايجاد كرديد رو قرار بديد ، مثلا سورسي براي آموزش نحوه استفاده از توابع API يا نحوه ارسال پيام در شبكه و ...

اصلا تمايلي به تذكر دادن ندارم ! اما براي حفظ نظم و جلوگيري از انحراف تاپيك از هدف اصليش ،‌ مجبورم چند نكته رو يادآور بشم ...

لطفا موارد زير رو هنگام قرار دادن پست در نظر بگيريد :

1 . براي سورس معرفي شده توضيح مناسبي قرار بديد
2 . حتي الامكان از قرار دادن سورسهاي تكراري خودداري كنيد
3 . لطفا ذكر كنيد كه سورس معرفي شده با چه نسخه اي از دلفي نوشته شده
4 . حتي الامكان سعي كنيد براي قرار دادن سورس از امكان ضميمه ي سايت استفاده كنيد تا لينكها براي مدتهاي طولاني سالم باقي بمونه

نكته ي مهم : سورسها رو بدون فايل اجرايي كامپايل شده قرار بديد تا مشكلاتي مانند انتقال ويروس !! و ... براي ساير كاربران پيش نياد ...

لطفا سعي كنيد سئوالات خودتون رو در قسمتهاي مربوطه ي بخش دلفي بپرسيد و اين تاپيك تنها محلي باشه براي قرار دادن سورسها و مثالهاي نمونه ...

پستهاي مربوط به سئوال و يا درخواست سورس حذف خواهند شد ... !

نكته ي آخر : اگر نرم افزاري در گذشته ساختيد و قصد ارائه ي سورس اون رو در بخش دلفي داريد ، لطفا براي نرم افزارتون با توجه به نوع عملكرد و كارايي برنامه در يك بخش مناسب از تالار دلفي تاپيكي ايجاد كنيد و نرم افزارتون رو معرفي كنيد و اون رو در اين تاپيك قرار نديد ... ، به زودي اعلاني براي ليست نرم افزارهاي ارائه شده توسط كاربران هم در اين بخش ايجاد خواهد شد ...

اميدوارم اين تاپيك با همكاري شما دوستان عزيز محلي مناسب براي اشتراك اطلاعات بشه ...

موفق باشيد ...

[Mahmood_M]

در اين سورس با نحوه ي استفاده از چند دستور API مانند FindWindow و ShellExecute و SendMessage و يا ShowWindow آشنا خواهيد شد ...
اين سورس در دلفي 7 كامپايل شده و انتظار ميره بدون مشكل در ساير نسخه هاي دلفي هم اجرا بشه !

موفق باشيد ...

[Mahmood_M]

در اين سورس با نحوه ي ذخيره سازي و نمايش تصاوير JPG و همچنين ذخيره و بازيابي فايل در بانك اطلاعاتي آشنا خواهيد شد ...
در اين سورس از بانك اكسس و كامپوننت ADOTable استفاده شده ...
اين سورس در دلفي 7 كامپايل شده ( البته در نسخه هاي بالاتر هم احتمالا مشكلي نخواهد داشت ! )

اين برنامه كمي قديميه ، 2 تا فايل به عنوان نمونه درش قرار دادم كه متاسفانه الآن نمي دونم چه نوع فايلي بودن ... !!

موفق باشيد ...

[Mahmood_M]

در اين سورس ياد مي گيريد كه چطور چند فايل رو به حافظه ي موقت Clipboard بفرستيد ...
اين برنامه در دلفي 7 و دلفي 2010 بدون مشكل كامپايل شده ...

موفق باشيد ...

[daffy_duck376]

با اجازه دوستمون Mahmood_N من یه روز دنبال برنامه ای برای گرفتن لیست sql server های روی شبکه بودم که توی سایت انگلیسی به سورس جالبی برخوردم . میگذارمش اینجا شاید گره از کار کسی باز کنه

• این برنامه با دلفی 7 کامپایل و تست شده .
• فایل html همراه سورس مربوط به همون سایت است که توضیحات لازم رو داده و نیازی به توضیح بیشتر نیست.

[Mahmood_M]

در اين سورس با نحوه ي تغيير Resolution نمايشگر آشنا خواهيد شد ...
اين سورس در دلفي 7 و دلفي 2010 بدون مشكل كامپايل شده ...

موفق باشيد ...

[Jozef]

برای اینکه بفهمین یک درایو Ntfs هست یا Fat از این function استفاده کنین.

[Jozef]

به دست اوردن تمام درایوهای DVD , CD

[Jozef]

تغییر Hint برای هر ستون از DBGrid در دلفی

[Jozef]

نصب ProgressBar روی StatusBar در دلفی

[Jozef]

با کد زیر میشه از داخل برنامه بدون هیچ واسطه ای به اینترنت وصل شد.البته کانکشن باید از قبل ساخته شده باشه.

[Jozef]

کد زیر نحوه تغییر رنگ پس زمینه سطرهای مختلف متن در TListBox را نشان میدهد.

[Jozef]

کد زیر نحوه تغییر رنگ در TProgressBar را نشان میدهد.

[Jozef]

کد زیر نحوه تکمیل، متن ناتمام تایپ شده در TComboBox را نشان میدهد.
در واقع عملکرد خاصیت AutoComplate در ComboBox را نشون میده.

[Jozef]

کد زیر نحوه قرار دادن RadioButton در TListBox را نشان میدهد.

[AliReza Vafakhah]

نسخه جدید کامپوننت Animation Caption در این تاپیک

[alidehban]

تغییر مشخصات OEM سیستمتون رو میتونید با این کد انجام بدید....

http://www.lon.ir/up/uploads/1269309324.rar


البته دوستان همه استادن ولی میگم شاید کسی باشه که متوجه نباشه کد چیکار میکنه...
از MYCOMPUTER که Properties میگیریم اگه به فرض لپ تاپتون سونی باشه آرم سونی رو که بصورت یه فایل BMP هست گوشه ی پنجره میبینیم که جزو مشخصات سازنده دستگاهه که به سفارششون مایکروسافت آرمشونو رو ویندوز میزنه....
با این کد میتونید کلا این مشخصاتو بنام شرکت خودتون یا هر اسمی تغییر بدید و قانون کپی رایت واین حرفارو براحتی زیر پا له کنین...!!!
البته اینجا فقط جنبه آموزشی داره ...

[__Genius__]

سلام .
سایت Madshi.net حاوی کتابخانه های بسیار قدرتمند در رابطه کار با API های ویندوز هست.
یکی از unit های اون madshell هست که اجازه گرفتن اطلاعات در مورد سیستم رو به شما میده.
برای راحتی کار من برنامه ای رو نوشتم تا با قسمتی از این unit آشنا بشید ،
کلیه اطلاعات در مورد فولدرهای خاص شما با این برنامه قابل دیدن هست .
حاوی سورس کد آموزشی .
برای استفاده حتماً باید Library ها رو داشته باشید ، میتونید از سایت madshi.net اونها رو دانلود کنید .

http://madshi.net/

[Jozef]

تنظیم پهنای ستون های DBGrid به صورت خودکار

[Jozef]

مرتب سازی رکورد های DBGrid در دلفی با کلیک روی عنوان ستون

[Jozef]

Mouse Eyes
کد زیر در دلفی 2007 تست شده. نسخه های پایین تر اجرا نمیشود. زحمت تست نسخه های بالاتر با خودتون.

[Jozef]

قرار دادن Horizontal Scrollبرای کامپوننت TListBox

[Jozef]

انتخاب آیتم های ListBox زمانی که موس روی آنها قرار میگیرد

[Jozef]

جستجو برای کامپوننت ListBox در دلفی

[Jozef]

نحوه اجرای صدا در حین ورود موس به یک کامپوننت

[Jozef]

نحوه بدست آوردن جمع یه فیلد DBGrid در حالت Multi Select. در واقع مجموع انتخابها

[hamid-nic]

برنامه ی تشخیص صحت کد ملی افراد

[lord_viper]

این سورس به نوعی یک mini peid هست که اطلاعات هدر فایلهای Exe رو بیرون میکشه(به جز Directory entry ها)
و علاوه بر اون یک Signature database داره که signature بیش از 4400 پکر و پروتکتور رو درونش گنجونده و میتونه اونها رو تشخیص بده

(البته به علت اینکه از توابع یونیت ini برای جستجو استفاده شده در جستجوی سکشن های هم نام کمی مشکل داره )

[مهران رسا]

برای نمایش روند کار TIdHTTP توسط ProgressBar از 2 رویداد OnWorkBegin و OnWork به صورت زیر استفاده کنید :

procedure TForm1.TIdHTTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode;

  AWorkCountMax: Int64);

begin

  ProgressBar1.Max := AWorkCountMax;

  ProgressBar1.Position := 0;

end;

procedure TForm1.TIdHTTPWork(ASender: TObject; AWorkMode: TWorkMode;

  AWorkCount: Int64);

begin

  ProgressBar1.Position := AWorkCount;

end;

حالا TIDHttp رو آتیش کنید :

Source := TIdHTTP.Get('http://www.barnamenevis.org');

[Felony]

سلام ،

امروز یه نمونه برنامه برای خودم نوشتم که به وسیله ی یک Thread جدا فایل ها یک مسیر و زیر پوشه هاش رو جست و جو میکنه ، بخش جست و جو رو تو یک یونیت جدا نوشتم تا در صورت نیاز دوستان به راحتی در برنامه های خودشون ازش استفاده کنن ، در مورد نحوه جست و جو هم این رو بگم که نتیجه جست و جو رو به 2 صورت میتونید از Thread دریافت کنید ، یکی یک متغییر از نوع TStringList که قبل از پاس دادن به Thread برای ساخته شدن ترد باید اون رو Create کرده باشید و در آخر پس از اتمام کار Thread میتونید لیست فایل ها رو داخلش داشته باشید و روش دوم که به صورت Realtime عمل میکنه هندل کردن پیغام هست ، متد Create کلاس TSearchThread رو طوری بازنویسی کردم که در زمان ساخت یک نمونه از این کلاس باید پارامترهای منجمله هندل فرم برنامتون رو بهش بدید ، با دادن هندل به Thread ، Thread در زمان جست و جو هر باری که فایل جدیدی پیدا کنه پیغامی با عنوان WM_UpdateList به هندل فرم اصلی برنامه ارسال میکنه که شما به راحتی میتونید این پیغام رو بررسی کنید و اسم و آدرس فایل پیدا شده رو از پارامتر WParam اون استخراج کنید ، برای فهمیدن اتمام کار Thread هم همین پیغام به فرم اصلی ارسال میشه ولی این بار پارامتر WParam حاوی متن FreeList هست که میتونید با دریافت این پیغام StringList ساخته شده رو آزاد کنید یا ...

نمونه برنامه ضمیمه تمام توضیحات بالا رو شامل میشه .

موفق باشید .

[Delphi7_love]

نمونه ای از رنگ کردن پس زمینه فرم :

ColorGround Form.rar

[MOJTABAATEFEH]

با کد زیر می توانید یک فایل اکسس موقع اجرا بسازید

با دلفی7 تست و کامپایل شده

[MOJTABAATEFEH]

با این کد می توانید تمام Event های یک کامپوننت رو بدست بیارید
به Sender نام کلاس کامپوننت مورد نظرتون رو بزارید

[Felony]

با این کد می توانید تمام Event های یک کامپوننت رو بدست بیارید
به Sender نام کلاس کامپوننت مورد نظرتون رو بزارید

این کد رو خودتون نوشتید یا از جایی پیدا کردید ؟
بعد از تخصیص حافظه با GetMem وظیفه آزاد کردن حافظه با شماست ولی تو کدی که گزاشتید این اتفاق نیافتاده ، در آخر کار باید فضای اختصاص داده شده به ListProp رو با تابع FreeMem آزاد کنید .

موفق باشید .

[Felony]

سلام ،
به وسیله این نمونه سورس میتونید Send و Receive اینترنت رو فعال یا غیر فعال کنید .

[MOJTABAATEFEH]

دوستان عزیز با نمونه کد زیر می تونید در دلفی مثلا یک پیانو بسازید

در دلفی 7 تست و کامپایل شده

موفق باشید

[MOJTABAATEFEH]

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

موفق باشید

[Felony]

در این نمونه برنامه نحوه ارتباط با Google Earth رو یاد میگیرید ، برنامه یک Edit داره که نام محل مورد نظرتون رو توش مینویسید و برنامه توی یک کنترل WebBrowser محل مورد نظر رو از روی Google Earth میخونه و نمایش میده .

نکته : برای کار کردن برنامه باید Google Desktop و Google Plugin نصب باشه که با یک جست و جوی ساده میتونید پیداشون کنید ، حجمشون هم خیلی کمه .

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

[MOJTABAATEFEH]

با نمونه زیر می تونید زمان اجرا اقدام به کشیدن شکل کنید

در دلفی 7 کامپایل و تست شده

موفق باشید

[MOJTABAATEFEH]

دوستان عزیز جاهای متعددی از سایت دیدم که عده زیادی راجع به این قضیه سوال کرده بودند که چطوری RichEdit رو با محتویاتش بریزند توی Image با این سورس می توان این کار را انجام داد

کامپایل و تست : Delphi 7

موفق باشید