وبلاگ شخصي ايمان اشكاوند راد

انواع مقاله هاي علمي به صورت PDF ، الگوريتم ژنتيك ، CMS ، آموزش دلفي ، IT و برنامه نويسي موبايل

ايمان اشكاوند - iman Ashkavand دوشنبه 23 شهریور1388

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

Fast Report Professional Edition 4.7.18 от 05.11.2008

این هم جدیدترین نسخه کامپوننت Fast Report :

دانلود :

حجم : 10 مگابایت.

http://rapidshare.com/files/161126535/FR_4_7_18.rar

کامپوننت (AlphaControls 2009 (v6.01

کامپوننتی جهت تغییر پوسته نرم افزارها.

دانلود :

حجم : 3 مگابایت

برای نگارشهای : 7 تا 2009

http://rapidshare.com/files/156626881/as720072008.7z.html

XCalendar – مجموعه تقویم عمومی برای دلفی

سلام

نسخه 1.0.1 از مجموعه XCalendar را می توانید از آدرس زیر دریافت کنید:

دانلود:

 http://xcalendar.sourceforge.net

شامل:

تقویم های مشتق شده از کلاس پایه TXCalendar (شبیه کلاس Calendar دات نت) که متدهای آن همنام توابع موجود در SysUtils و DateUtils هستند بصورت کامپوننت:

TGregorianCalendar
TPersianCalendar
TAstroPersianCalendar
THijriCalendar
TObservedHijriCalendar

فیلد های تاریخ-زمان دیتابیس با امکان انتخاب تقویم

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

کامپوننت قدرتمند DevExpress VCL v40 Full Source

همراه با نصب اتوماتیک.

Code:

rapidshare.com/files/164596214/DevExpr_v40_14_11_2008.part1.rar
rapidshare.com/files/164596215/DevExpr_v40_14_11_2008.part2.rar
rapidshare.com/files/164596216/DevExpr_v40_14_11_2008.part3.rar

منبع : smaj.blogfa.com

ايمان اشكاوند - iman Ashkavand جمعه 8 شهریور1387

Delphi 2007 for win32

CodeGear نسخه جدید دلفی با نام Delphi 2007 for win32 رو منتشر کرده در این نسخه بنا به درخواست کاربران تمرکز از روی دات نت به win32 انتقال پیدا کرده و ویژگی ها خوبی به دلفی اضافه شده CodeGear این تغییرات رو از زمان اخرین تغییر اساسی در کامپایلر دلفی یعنی دلفی 2007 منتشر کرده است با این تغییرات دلفی بیشتر به سمت شی گرایی حرکت کرده و از ویژگی های خوب C++ ,java و C# در شی گرایی استفاده کرده و مفهموم جدید و جالبی به نام class helper رو که پیش از این در دلفی دات نت وجود داشت رو به نسخه win32 هم اضافه کرده همچنین IDE دلفی هم نسبت به نسخه محبوب برنامه نویس های دلفی یعنی دلفی 7 تغییرات چشمگیری کرده که می تواند در برنامه نویسی خیلی کارا باشد

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

اولین امکان جالب که از C++ الهام گرفته شده سربار گذاری عملگر هاست (Operator Overloading) این امان قبل از این در کلاس های دلفی وجود نداشته ولی شما می توانید به کمک این قابلیت عملگر ها را با کمک تعریف توابع عملگری دوباره تعریف کنید البته بر خلاف C++ برای این تعریف باید از نام عملگر استفاده کنید مثلا برای عملگر جعه باید از نام add استفاده کنید

قابلیت جدید بعدی تعریف اعضای strict private و strict protected هست اگه با دلفی کار کرده باشید حتما به خاطر دارید که دلفی در زمینه پنهان سازی کلاس های یک ضعف بزرگ داشت و اون این بود که می شد از یک کلاس مشتق شده که با کلاس والد در یک یونیست تعریف شده بود به اعضای Private دسترسی داشت با تعریف اعضای private به صورت strict دیگه امکان دسترسی به اونها فقط از خود کلاس وجود داره و کاملا خصوص تعریف می شوند.

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

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

class sealed قابلیت جالبی که اجازه می دهد کلاسی تعریف کنیم که سلسله مراتب وراثت را خاتمه بدهد و نتوان از این کلاس کلاس دیگیری مشتق کرد

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

قابلیت بعدی هم تعریف یه نوع داده در درون کلاس هست قابلیت جالبی که باز هم اختلاف های دلفی و C++ را کاهش می دهد

امان شاید بتوان گفت یکی مهم ترین و بهترین قابلیت های دلفی Class Var و Class Property هستن پیش از این کمبود این قابلیتها به شدت در دلفی محسوس بود و برنامه نویسان دلفی از تکنیکهای خاصی برای پوشش آنها استفاده می کردند ولی با کمک این قابلیتها امکان تعریف اعضای داده ای استاتیک در دلفی امکان پذیر هست و متدهای استاتیک هم همانند قبل موجود هستند

final methods متد هایی که امکان override کزدن ندارن یه بخش جالب از وراثت هستند و آخرین قابلیت شی گرایی که به نظر من بسیار زیباست Class Helper با کمک این قابلیت می شود کلاس های قبلی که نوشته شدن رو ترمیم کرد به این وسیله شما به یک کلاس یک سری متد و پروپرتی اضافه می کنید بدون اینکه کلاس جدیدی تعریف کنید بدون استفاده از وراثت این قابلیت بیشتر بدرد اضافه کردن یه سری ویژگی ها به کلاس های کتابخانه ای VCL و یا RTL می خوره که به نظر شما کم هستن و شما بدلیل اینکه یک سری کامپوننت VCL از این کلاس ها ساخته شدن و شما می خواهید از همون کامپوننت ها استفاده کنید نمی توانید یک کلاس جدید مشتق کنید ولی با کمک این ویژگی می توانید قابلیت های مورد نظر خودتون رو اضافه کنید

برای دیدن نمونه ها کد ها از این قابلیت ها به به سایت رسمی CodeGear مراجعه کنید
http://dn.codegear.com/article/34324

منبع
http://dn.codegear.com

ايمان اشكاوند - iman Ashkavand جمعه 8 شهریور1387

آشنايي با زبان دلفي

دِلفی (Delphi) یا به تعبیری ویژوآل پاسکال – یک زبان برنامه‌نویسی است و بستری برای توسعهٔ نرم‌افزار که شرکت بورلند آن را تولید کرده است. این زبان، در بدو انتشار خود در سال ۱۹۹۵، به عنوان یکی از نخستین ابزارهایی مطرح شد که از توسعهٔ نرم‌افزار بر مبنای متدولوژی RAD پشتیبانی می‌کردند؛ یعنی تولید و توسعهٔ سریع برنامه‌های کاربردی.

این نرم افزار بر مبنای پاسکال شی‌گرا بوده و از این زبان مشتق شده است. البته بورلند نسخه‌ای از دلفی و سی‌پلاس‌پلاس‌بیلدر را برای لینوکس به نام کایلیکس (Kylix) ارائه کرد که مورد استقبال توسعه دهندگان نرم‌افزارهای لینوکس قرار نگرفت. نرم‌افزارهای دلفی در ابتدا به صورت مستقیم از کتابخانه‌های ویندوز و کتابخانهٔ مخصوص خود به نام VCL استفاده می‌کرد، اما پس از نسخه ۶ دلفی، امکانات استفاده از دات‌نت هم به آن اضافه شد. در حال حاضر می‌توان دلفی را یکی از رایج‌ترین زبان‌های ممکن در ایران دانست.

زبانِ دلفی که پیشتر بنام پاسکال شیءگرا (Object-Pascal) خوانده می‌شد و برای طراحی نرم‌افزاهای تحت ویندوز به کار می‌رفت، امروزه چنان توسعه یافته است که برای تولید نرم‌افزارهای تحت سیستم‌عاملِ لینوکس و دات‌نت نیز به کار می‌آید. بیشترین کاربرد دلفی در طراحی برنامه‌های رومیزی و پایگاه دا‌ده‌ها‌ است، اما به عنوان یک ابزارِ «چند- منظوره»، برای طراحی انواع گوناگونی از پروژه‌های نرم‌افزاری نیز مورد استفاده قرار می‌گیر

دلفی ۲۰۰۶
شرکت بورلند در سال ۲۰۰۶ نرم‌افزار جدید خود را با ویژگیهای جدید به بازار ارائه کرد. این برنامه جدید امکان برنامه نویسی با دلفی و سی پلاس پلاس و همچنین سی‌شار-پ را بطور هم‌زمان ارائه می‌دهد. بدین ترتیب برنامه نویسانی که با ابزارهای مختلفی کار می‌کنند براحتی می‌توانند در این محیط جدید برنامه نویسی کنند. ویژگی مهم این نگارش نسبت به نگارش ۲۰۰۵ بحث مدیریت حافظه است. در نگارش ۲۰۰۵ ضعفهائی در این زمینه وجود داشت که در این نسخه حل شده است. شرکت بورلند افتخار دارد که به عنوان اولین شرکت تولید کننده IDE زبانهای برنامه نویسی مانند دلفی و سی شار-پ بیلدر و جی بیلدر(مخصوص زبان جاوا) و .... از تکنولوژی دات نت در محصولات خود استفاده کرده است.

دلفی 2007
در اواخر سال 2006 شرکت بورلند يك شركت تابع با نام CodeGear را تاسيس كرد تا اين شركت بتواند تمام انرژی خود را صرف محيط های برنامه‌نويسی مشهور خود يعنی دلفی و سی++ بيلدر و... كند. بن اسميت نام اولين مدير CodeGear بود. شركت بورلند نيز فعاليتهای خود را در زمينه Application Lifecycle Management ادامه می‌دهد. اولين محصول اين شركت، CodeGear Delphi 2007 هست كه بسياری از نقائص موجود در دلفی 2006 از جمله سرعت پائين آن در اين محصول برطرف شده است و بعد از دلفی 7 می‌توان از آن به عنوان محصولی مطمئن و قابل استفاده نام برد، هر چند كه دلفی 2006 هم محصولی كارامد هست. از ديگر محصولات CodeGear می‌توان به Delphi 2007 For PHP اشاره كرد كه تحول شگرفی در رابطه با استفاده از تکنولوژی Ajax در دلفی است.

ايمان اشكاوند - iman Ashkavand سه شنبه 8 مرداد1387

آموزش نكات دلفي

آيا می دانيد

آيا می دانيد توابع تبديل فرمت ذيل در دلفی وجود دارند که وقوع خطا را نيز نمايش می دهند. يعنی همه اين توابع در صورتی که در هنگام تبديل خطايی رخ دهد مقدار False را به عنوان خروجی بر می گردانند.

تبديل رشته به منطقی با خروجی منطقی

function TryStrToBool(const S: string, out Value: Boolean): Boolean;

رشته به تاريخ

function TryStrToDate(const S: string, out Value: TDateTime): Boolean;

رشته به عدد اعشاری

function TryStrToFloat(const S: string, out Value: Extended): Boolean;

رشته به عدد صحيح ۲ بايتی

function TryStrToInt(const S: string, out Value: Integer): Boolean;

رشته به عدد صحيح ۴ بايتی

function TryStrToInt64(const S: string, out Value: Int64): Boolean;

رشته به ساعت

function TryStrToTime(const S: string, out Value: TDateTime): Boolean;

------------------------------------------------------------------------------------------

فيلتر کردن رکوردها

طريقه انتخاب مجموعه ای از رکوردها در DBGrid (فيلتر کردن رکوردهای انتحاب شده)

var
x: Integer;
BMList: array of TVarRec;
begin
SetLength(BMList, dbgrid1.SelectedRows.Count);
for X:=0 to dbgrid1.SelectedRows.Count - 1 do
begin
    BMList[x].VType := vtPointer;
    BMList[x].VPointer := Pointer(dbgrid1.SelectedRows[x]);
    DataModule1.ADOTable1.GotoBookMark(BMList[x].VPointer);
end;
DataModule1.ADOTable1.FilterOnBookmarks(BMList);
end;

البته قبل از اجرای کد بايد خاصيت MultiSelect مربوط به DBGrid ‌را TRue کرده باشيد

------------------------------------------------------------------------------------------

چگونگی تغير رنگ رکوردهای

در اين جلسه چگونگی تغير رنگ رکوردهای(سطرها) يک DBGrid را توضيح می دهم (مطابق شکل ذيل)

کد ذيل را در رويداد (event) با نام OnDrawColumnCell مربوط به DBGrid نوشته شود.

procedure TFForush.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
DBGrid1.Canvas.Font.Color:=clBlack;
if((DBGrid1.DataSource.DataSet.RecNo mod 2)=0)Then
DBGrid1.Canvas.Brush.Color:=clInfoBK;
if(gdSelected in State)Then
DBGrid1.Canvas.Brush.Color:=clBlue;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
//برای ستون رديف

if(DataCol=0)Then
begin
DBGrid1.Canvas.Brush.Color:=clBlack;
DBGrid1.Canvas.Font.Color:=clYellow;
DBGrid1.DefaultDrawColumnCell(Rect,0,Column,State);
end;
end;

به همين سادگی !!!(بهتر است dgRowSelect نيز True باشد)

------------------------------------------------------------------------------------------

طریقه لیست کردن فایلها و فولدرهای موجود در مسیر خاص و نمایش آنها در یک لیست:

procedure FindAll (const Path: String;
                          Attr: Integer;
                          List: TStrings) ;
var
   Res: TSearchRec;
   EOFound: Boolean;
begin
   EOFound:= False;
   if FindFirst(Path, Attr, Res) < 0 then
     exit
   else
     while not EOFound do begin
       List.Add(Res.Name) ;
       EOFound:= FindNext(Res) <> 0;
     end;
   FindClose(Res) ;
end;

حال رویه بالا را مثلا برای مسیر ویندوز فراخوانی میکنیم.

FindAll('C:\Windows\*.*',faAnyFile,ListBox1.Items)

------------------------------------------------------------------------------------------

حرکت بين اشياء

حرکت بين اشياء روی فرم با استفاده از کليدهای جهتی رو به بالا و رو به پايين و اينتر(arrow key and enter) .البته بايد ابتدا خصوصيت KeyPreview مربوط به فرم را true کنيد سپس کد زير را به رويداد OnKeyDown فرم اضافه کنيد:

procedure TForm1.FormKeyDown( Sender : TObject; var Key: Word;
     Shift : TShiftState ) ;
var
   Direction : Integer;
begin
   Direction := -1;
   case Key of
     VK_DOWN, VK_RETURN : Direction := 0; {حرکت به پايين}
     VK_UP : Direction := 1; {حرکت به بالا}
   end;
   if Direction <> -1 then
   begin
     Perform(WM_NEXTDLGCTL, Direction, 0) ;
     Key := 0;
   end;
end;

منبع : http://delphi-link.blogfa.com

ايمان اشكاوند - iman Ashkavand پنجشنبه 27 دی1386

نرم افزار خواندن متن انگليسي Text To Speech

با سلام
امروز ميخوام براتون يه نرم افزار خوندن متن که خودم قبلاً با دلفي نوشتم بذارم اميدوارم خوشتون بياد

حجم 568 کيلو بايت
دانلود

ايمان اشكاوند - iman Ashkavand دوشنبه 12 شهریور1386

چند کد جالب دلفی

چگونه می توان لیستی از جداول یک دیتا بیس 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;

ايمان اشكاوند - iman Ashkavand پنجشنبه 31 خرداد1386

delphi 10 Lite v 3.0

Delphi 10 Lite v3.0

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

Delphi 10 Lite v3.0 نسخه سانسور شده Delphi 2005 است.

دانلود

خیلی جالبه واقعا خیلی از دلفی7 خوشگلتر شده یه جورایی مثل #C شده و این هم کلی کامپوننت جالب که کار با دلفی رو براتون لذت بخش می کنه امیدوارم استفاده ببرید

ايمان اشكاوند - iman Ashkavand دوشنبه 21 خرداد1386

چندین مقاله جالب و کاربردی در دلفی

اموزش كار با InstallShield

در این مقاله شما می آموزید که چگونه برای برنامه تان یک برنامه نصب بسازید.همانطور که می دانید اینستال شیلد یکی از قویترین برنامه های نصب ساز است که قدرت آن غیر قابل انکار است .توانایی های آن در زمینه نصب دستی موتور بورلند و پایگاه داده اس کیو ال سرور و اراکل است و شما با این برنامه می توانید به راحتی دیتابیس های موجود در برنامه تان را نصب و تنظیم کنید.

برای دریافت مقاله كليك نمایید

آموزش کامل ارتباط دلفی با SQL Server 2000 :

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

برای دریافت مقاله كليك نمایید

آموزش تهیه گزارش با کامپوننت Fast Report

قسمت اول

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

برای دریافت مقاله كليك نمایید

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

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

برای دریافت مقاله كليك کنید

منبع مطالب: www.delphi-magic.com

ايمان اشكاوند - iman Ashkavand پنجشنبه 9 فروردین1386

ليست درايوهاي سي دي موجود در كامپيوتر (دلفي)

يك button و يك memo بر روي فرم قرار دهيد

procedure TForm1.Button1Click(Sender: TObject);
var
DriveBits: set of 0..25;
Drives,DriveNum: integer;
DriveLetter: string;
begin
memo1.Clear;
Drives := GetLogicalDrives;
if Drives <> 0 then
begin
integer(DriveBits) := Drives;
for DriveNum := 0 to 25 do
begin
if (DriveNum in DriveBits) then
begin
DriveLetter := char(DriveNum+Ord('A'))+':';
if GetDriveType(PChar(DriveLetter)) = DRIVE_CDROM then
memo1.lines.Add(DriveLetter);
end;
end;
end;
end;

.: Weblog Themes By Blog Skin :.

Fast Report Professional Edition 4.7.18 от 05.11.2008

کامپوننت (AlphaControls 2009 (v6.01

XCalendar – مجموعه تقویم عمومی برای دلفی

کامپوننت قدرتمند DevExpress VCL v40 Full Source

خرید شارژ

فروشگاه اينترنتي ايران آرنا

تفریح و سرگرمی

دانلود

تبديل رشته به منطقی با خروجی منطقی	function TryStrToBool(const S: string, out Value: Boolean): Boolean;
رشته به تاريخ	function TryStrToDate(const S: string, out Value: TDateTime): Boolean;
رشته به عدد اعشاری	function TryStrToFloat(const S: string, out Value: Extended): Boolean;
رشته به عدد صحيح ۲ بايتی	function TryStrToInt(const S: string, out Value: Integer): Boolean;
رشته به عدد صحيح ۴ بايتی	function TryStrToInt64(const S: string, out Value: Int64): Boolean;
رشته به ساعت	function TryStrToTime(const S: string, out Value: TDateTime): Boolean;