تعداد مقالات : 17

تعداد اعضای تالار : 19

تعداد برنامه ها : 8

سایت های مفید

در صورتیکه تمایل به قرار دادن لینک خود در سایت هستید لینک سایت خود را به ایمیل mehrdaddelphi@yahoo.com بفرستید .

سایت برنامه نویس

سایت شیراز فرومز

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

سایت سویس دلفی

فوروم مهرداد سیستم

سایت دلفی سنتر

ا اینم یه هاست توپ :

http://www.iranianweb.net

برد سایت    برای همکاری در سایت با مدیر    سایت ارتباط برقرار کنید .    --------------------------------    در صورت تمایل به دریافت سورس   های برنامه های نوشته شده    توسط من با این ایمیل ارتباط   برقرار کنید .

مقالات و آموزش دلفی

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

جدید ترین مقاله :  دلفی . سی شارپ . جاوا . سی پلاس پلاس نوشته شده در تاریخ سه شنبه 84/12/9 توسط مدیر سایت .

برنامه نویسی یاد بگیریم 1

درس اول  :  کمی در مورد شرکت بورلند و مایکروسافت و محصولاتشان

شرکت Borland و Microsoft دو شرکت بزرگ و قدرتمند جهان در ضمینه Develop و توسعه زبان های برنامه نویسی هستند.

برخی از محصولات   Development این دو شرکت مشترک هستند مانند :

C# و C#builder

C++ و C++builder

و حتی Macro Assembler

شرکت بورلند جلوی تمام نرم افزارهایش به جز Delphi (نرم افزار های develop) کلمه builder را قرار می دهد .

محصولات :

محصولات شرکت بورلند (البته جدید) :

Delphi

C++builder

  البته این محصول دیگه به فراموشی سپرده شدC++builderX

C#builder

JBuilder

 اینم دیگه توسعه داده نمیشهJbuilderX

Kylix (دلفی و C++ برای linux) این محصول هم دیگه دوران تموم شد و

مهمترین محصول شرکت بورلند Delphi است.

بورلند Delphi  و C# را در نسخه دلفی 2005 با نام Borland Developer Studio 3.0 قرار داده.

محصولات شرکت مایکروسافت (البته جدید) :

C++

C#

Visual Basic

J#

 Foxpro(که داره از رده خارج می شه)

مهمترین محصول شرکت مایکروسافت Visual Basic بود اما ظاهرا الان C# است.

برنامه نویسی یاد بگیریم 2

درس 2 : برنامه نویسی دلفی و یادگیری آن

دلفی را آندرس هلزبرگ درست کرد (همان کسی که در سال 2000 C#, را درست کرد).

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

چگونه اصول را یاد بگیریم :

به عنوان مثال ما می خواهیم اصول برقراری به database را یاد بگیریم :

برای اتصال به دیتابیس :

1 – نیاز به یک اتصال دهنده داریم Database connection به عنوان مثال ADO و ....

2 – نیاز به موتور اتصال به بانک مورد نظر را داریم . مانند JET4.0  برای اتصال به Access و ....

حالا اتصال به بانک در هر زبان برنامه نویسی یکی است و شما می توانید در Delphi و C# و... بدون دانستن آنها به بانک متصل شوید .

برنامه نویسی یاد بگیریم 3

درس 3 : کدام دلفی بهتر است ؟ 32 یا دات نت ؟

همان طور که در درس قبلی گفتیم 32 یا دات نت یا ... هیچ فرقی نمی کند فقط کافی است با اصول آشنایی داشته باشید .

دلفی 32 : دلفی 32 دارای سرعت بیشتری نسبت به .NET است و  برای همین برای کارهای جدی من 32 را پیشنهاد می کنم.

کدام دلفی بهتر است؟ دلفی 7 ؟ 2005 و یا 8

اول از همه من دلفی 8 را کنار می گذارم زیرا نسخه ی beta بود برای دات نت و کار هم با beta اشتباه است . در ضمن دلفی 8 امکان نوشتن برنامه های 32 بیتی را نداشت .

دلفی 2005 که اسم اصلی آن Borland Developers Studio 3.0 است دارای امکانات زیر است :

برنامه نویسی با C#.NET

برنامه نویسی با Delphi 32

برنامه نویسی با Delphi .NET

اما دلفی 2005 برای کارهای جدی انتخاب خوبی نیست !!!

بهترین دلفی حال حاضر هنوز هم دلفی 7 است با امکاناتی زیاد ....

برنامه نویسی یاد بگیریم 4

درس 4 : Syntax چیست ؟ کلمات کلیدی چیست ؟

به قواعد هر زبان برنامه نویسی Syntax می گویند .

مثلا در syntax دلفی باید آخر هر خط ; را گذاشت اما در VB این طور نیست . این ساده ترین مثال بود !

نتها تفاوت دلفی 32 و دات نت از نظر برنامه نویسی Syntax آن است.

اگر شما برنامه نویسی را اصولی یاد بگیرید فقط کافیست مثلا برای کار با C# سینتکس آن را به Syntax C# تغییر دهید .

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

If  then  else  و .....

این کلمات در دلفی پر رنگ یا bold نشان داده می شوند .

مقایسه نگارش های دلفی

امروز می خوام در مورد انواع نگارش های دلفی صحبت کنم .

انواع نگارش های دلفی :

Enterprise

Architect

Personal

Client / Server Suit

در این نوع نگارش ها کامل ترین Architect است و بعد Enterprise (البته چیزاش جزیی است)

نسخه Personal یکمی سطح پایینه و بدرد مبتدیا می خوره .

نسخه Client / Server Suit از دلفی 5 به بعد تولید نشد .

اینم از نگارش ها ...

Delphi 1 , 2 , 3 , 4 :

Client / Server Suit ...

Delphi 5 :

Enterprise

Personal

Delphi 6 :

Enterprise

Personal

Delphi 7 :

Enterprise

Architect

Personal

Delphi 8 :

Enterprise

Architect

Personal

Delphi 2005 :

Enterprise

Architect

Personal

طریقه نصب کامپاننت های 32 در دلفی 2005

اینم یک ebook که خودم نوشتم برای نصب کامپاننت های 32 در دلفی 2005 برای دانلود اینجا را کلیک کنید .

مقایسه سه نسخه 7 و 2005 و 8 دلفی

 توضیحاتی در مورد نسخه های دلفی

 -> کیفیت دلفی ها به ترتیب

 1- دلفی 7

 2- دلفی 2005

 3- دلفی 8

 --> برلند بهترین نسخه و کم باگ ترین نرم افزارش را به نام دلفی 7 در سال 2002 داد .

 در این ورژن تمام امکانات 32 در دلفی قرار گرفت و دیگه شده بود یه دلفیه توپ .

--> در ورژن بعدی یعنی دلفی 8  امکانی برای نوشتن برنامه های 32 نبود (برنامه نویسی اصلی

32 است . Dot Net فقط برای کارهای سرور - کلاینت (بعضی هاش) و اینترنتی است اما دلفی

 32 اصل برنامه نویسی است (همه چیز با هم)) برای همین بیشتر دلفی کار ها هنوز کارشون

  رو با دلفی 7 انجام می دادن (می شه گفت همشون).

--> در سال 2004 دلفی 2005 به بازار آمد . این نسخه نام اصلیش Borland Developers

 Studio است  . این نسخه یک IDE با دو زبان برنامه نویسی است (هم دلفی و هم Csharp).

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

Unicode هم Support می کند .

تنها تفاوت دلفی 2005 با دلفی 7 IDE آن ها است .

بهترین و کم باگ ترین دلفی Delphi 7 است . (زیرا دلفی 2005 هنوز باگ دارد).

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

نسخه های بعدی (البته شاید؟)...

حتی Update 2 دلفی 2005 هم باگ هایش بیشتر از دلفی 7 است .

درست کردن منویی شبیه منوی Office xp بدون استفاده از کامپاننت های بیرون

برای این کار از صفحه Additional یک Action manage و یک Action Main Menu Bar روی فرم

 بگذارید .  حالا بر روی Action Manager دابل کلیک کنید .

صفحه زیر باز می شود .

حالا بر روی جایی که در عکس معین شده کلیک کنید .

حالا روی New Standard Action کلیک کنید .

گزینه File را انتخاب کرده و روی ok کلیک کنید .

حالا در پنجره قبلی گزینه فایل را روی Action MainMenuBar بکشید .

خوب دیگه تموم شد . بای ....

آموزش ساخت فیلتر تصویر

با سلام

برای شروع کار,   اول شما باید با دلفی تا حدی (متوسط) آشنایی داشته باشید.

1-     تغییر رنگ یک پیکسل از یک عکس

برای این کار :

*یک تصویر دارای دو محور افقی و عمودی است.

*مثلا :

2,3*

تغییر رنگ یک پیکسل از image

برای این کار دستور زیر را بنویسید:

Image1.canvas.pixels[1,2]:=image1.canvas.pixels[1,2]+2;

در این دستور پیکسل [1,2] ایمیج 1 برابر همان پیکسل + 2 می شود.

تعویض دو پیکسل از image

نکته : * مقدار یک پیکسل از نوع integer است.

برای این کار دستور زیر را بنویسید:

Var i:integer;

Begin

I:=image1.canvas.Pixels[2,2];

Image1.canvas.pixels[2,2]:=image1.canvas.pixels[1,1];

Image1.canvas.pixels[1,1]:=I;

این دستور اول مقدار پیکسل 2,2 را در متغیر I قرار می دهد و سپس پیکسل 2,2 را همانند پیکسل 1,1 می کند   و سپس پیکسل 1,1 را مانند I می کند.

2-     تغییر رنگ یک خط افقی از image

برای این کار باید از یک حلقه تکرار استفاده کرد که از 1 تا image1.white باشد.

و در هر حلقه پیکسل (متغیر و 1 ) را + 3 کند.

برای این کار کد زیر را بنویسید:

Var I : integer;

Begin

For I := 1 to image1. Width do

Image1.canvas.pixels[I,0]:=image1.canvas.pixels[I,0]+3;

این دستور رنگ یک خط از image را تغییر می دهد.

3-     تغییر یک خط عمودی از image

این کار همانند کار بالا است با این تفاوت که به جای پیکسل [I,0] باید از پیکسل

[0,i] استفاده کرد.

برای این کار کد زیر را بنویسید:

Var I : integer;

Begin

For I := 1 to image1.Height do

Image1.canvas.pixels[0,i]:=image1.canvas.pixels[0,i]+3;

4-     تا این جا با نحویه تغییر رنگ عکس آشنا شدید.

حالا می خواهیم یک فیلتر درست کنیم.

برای این کار باید از دو حلقه ی for استفاده کرد.

For  اولی برای ارتفاع

For   دوم برای طول

در for دومی یک خط از Image تغییر رنگ پیدا می کند و یک حلقه دیگر اجرا می شود و خط دوم تغییر می کند و به همین ترتیب تا آخر.

نوشتن فیلتر زرد کننده ی رنگ

*اگر رنگ هر پیکسل را بر 256 تقسیم کنیم رنگ آن زرد می شود.

برنامه :

نوشتن فیلتر زرد کننده ی رنگ:

procedure TForm1.Button1Click(Sender: TObject);

var I,q : integer;

begin

for q:= 1 to image1.Height-1 do

begin

for I := 1 to image1.Width-1 do

Image1.canvas.pixels[i,q]:=image1.canvas.pixels[i,q] div 256;

end;

end;

برنامه ای که رنگ Desktop را زرد می کند

چیزهایی که احتیاج دارید : یک button و یک image

این هم کدش :

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,xpman;

type
TForm1 = class(TForm)
Image1: TImage;
Button3: TButton;
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
var desk1,desk:tcanvas;i,q,w,v:integer;
begin
desk:=tcanvas.Create;
desk.Handle:=getwindowdc(0);
desk1:=tcanvas.Create;
desk1.Handle:=getwindowdc(0);
//desk.TextOut(random(800),random(800),'Hello');
for i := 1 to 800 do
begin
for v:=1 to 800 do
begin
image1.Canvas.Pixels[v,i]:=desk.Pixels[v,i];
end;
//sleep(50);
end;


for q := 1 to 800 do
begin
for w:=1 to 800 do
begin
desk1.Pixels[w,q]:=image1.Canvas.Pixels[w,q] div 256;
end;
sleep(10);
end;

end;

end.

نوشتن بر روی Desktop

var desk:tcanvas;
begin
desk:=tcanvas.create;
desk.handle:=getwindowdc(0);
desk.textout(10,10,'hello');
end;

یک برنامه ای که ICON درایوها را تغییر می دهد

برای این کار شما باید اول مسیر ICON رو وارد کنید و بعد فایل مورد نظر را در درایو مورد نظر کپی کنید (هیچ کدام از این مراحل را لازم نیست شما طی کنید بلکه تمام کارها را باید با برنامه نوسی انجام دهید).

 یک procedure به نام changeicon به صورت زیر تعریف کنید .

procedure changeicon(iconname:string;diskname:string);
var a:textfile;
begin
copyfile(pchar(iconname),pchar(diskname+':\dcblog.ico'),false);
filegetattr(diskname+':\dcblog.ico');
assignfile(a,'f:\AUTORUN.inf');
rewrite(a);
writeln(a,'[AUTORUN]');
writeln(a,'ICON=dcblog.ico');
closefile(a);
filegetattr(diskname+':\AUTORUN.inf');
end;

  حالا این procedure را در یک button استفاده کنید

procedure TForm1.Button1Click(Sender: TObject);
begin
 changeicon('f:\aa.ico','c');
end;

آموزش کار با IntraWeb در دلفی

در این درس ما فقط با نحوه ی ساخت یک صفحه ساده با اینتراوب آشنا می شویم.

دلفی را باز کنید .

از منوی new --> ادر (other) را برگزینید .

خوب حالا به صفحه intraweb رفته و روی stand alone application کلیک کنید.

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

خوب حالا یک صفحه از نوع intraweb باز شده است.

حالا کلید shift و f12 را با هم فشار دهید .

formmain را انتخاب کرده و روی ok کلیک کنید .

اینم از فرم .

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

تمام کامپاننت های Visual برای استفاده از intraweb در صفحات iw standard و iw data و هر چی که iw اولش داره  ...............

* توجه : از بعضی از component های غیر visual هم در form مان هم میشه استفاده کرد.

---> مثال : این مثال به این صورت است که اگر رمز عبور را درست وارد کردید یک دیتابیس (access) در صفحه نمایش داده شود.

1 -  یک iwbutton و یک iwedit و یک iwdbgrid و یک adotable(از iw ها نیست) و یک datasorce(این هم از iw ها نیست) روی فرم قرار دهید .

2 -  adotable خود را به database مورد نظر وصل کنید و خاصیت active آن را برابر true کنید .

3 - datasource خود را به adotable نسبت دهید .

4 - خاصیت visible شی IWDBGrid1 را برابر false کنید

۵ - IWDBGrid1 را به datasorce نسبت دهید .

6 -  بر روی iwbutton1 دابل کلیک کنید تا وارد code نویسی آن شویم.

برای iwbutton بنویسید :

if iwedit1.caption= 'hello' then

iwdbgrid1.visible:=true

else

showmessage('Invalid password')

7 - برنامه را اجرا کنید. وقتی برنامه اجرا شد باز هم کلید f9 را فشار دهید .

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

تشخیص اینکه HARD DISK ما چند درایو دارد

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

1 - باید یک فایل را در تمام دیسک ها ذخیره کرد و با دستور Try Except آن را کنترل کرد .

* -> چیزهای مورد نیاز : یک Memo . یک Listbox و یک Button

اینم کدش :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}
function aa(a:integer):string;
begin
if a=1 then
aa:='c';
if a=2 then
aa:='d';
if a=3 then
aa:='e';
if a=4 then
aa:='f';
if a=5 then
aa:='g';
if a=6 then
aa:='h';
if a=7 then
aa:='i';
if a=8 then
aa:='j';
if a=9 then
aa:='k';
if a=10 then
aa:='l';
if a=11 then
aa:='m';
if a=12 then
aa:='n';
if a=13 then
aa:='o';
if a=14 then
aa:='p';
if a=15 then
aa:='q';
if a=16 then
aa:='r';
if a=17 then
aa:='s';
if a=18 then
aa:='t';
if a=19 then
aa:='u';
if a=20 then
aa:='v';
if a=21 then
aa:='w';
if a=22 then
aa:='x';
if a=23 then
aa:='y';
if a=24 then
aa:='z';
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;s:string;
begin
listbox1.Clear;
for i:=1 to 24 do
begin
s:=aa(i);
try
begin
memo1.Lines.SaveToFile(s+':\a.txt');
listbox1.Items.Add(s);
deletefile(s+':\a.txt');
end;
except
continue;
end;
end;
end;

end.

ساخت یک دیکشنری

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
DataSource1: TDataSource;
Table1: TADOTable;
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
procedure Button2Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
table1.Last;
if edit1.Text<>'' then
begin
table1.locate('en',edit1.text,[lopartialkey]);
memo1.Text:=table1['fa'];
label1.Caption:=table1['en'];
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.showmodal;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
//table1.Filtered:=true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
application.Title:='Dictonarey 2005';
end;

end.

مهرداد سیستم . سایت تخصصی دلفی

مدیر سایت : مهرداد فرخ منش

استفاده از منابع سایت فقط در صورت درج منبع امکان پذیر است

همه حقوق محفوظ است