tag:blogger.com,1999:blog-57621102026-07-24T08:01:55.425+02:00سوال و جواب در زمینه برنامه نویسی با زبان دلفیAli Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.comBlogger90125tag:blogger.com,1999:blog-5762110.post-1127635538363717352012-11-13T15:54:00.000+01:002012-11-13T15:54:28.049+01:00

يك راه ساده براي اينكار وجود داره. شما كافيه بر روي رويداد مربوط به SelectCellدر dbgride برنامه ای بنویسید که اطلاعات مربوط را در یک کامبو باکس نشون بده. البته قبلش باید یک کامبو داشته باشید که دیده نشه. فقط هر بار که یک سلول در dbgride انتهاب میشه باید طول و عرض و همچنین جای combobox را طوری تنظیم کنید که کاربر تصور بکنه این کمبو مربوط به همون سلول هست. procedure

Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0tag:blogger.com,1999:blog-5762110.post-1155112660211505082006-08-09T10:35:00.000+02:002006-08-09T10:38:25.353+02:00

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

Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0tag:blogger.com,1999:blog-5762110.post-1153386606471350862006-07-20T11:10:00.000+02:002006-09-10T07:46:54.186+02:00

روشهاي بالا بردن Performance در Query ها --------------------------------------------------------------------------------1-تا جائيكه امكان دارد سعي كنيد از عبارتWHERE در دستورات SELECT خود استفاده كنيد.2- از Inner Join استفاده نكنيد.3-تا حد امكان از بکارگيري Cursor اجتناب كنيد.4-در مورد اينكه آيا SELECT شما واقعا به DISTINCT نياز دارد يا نه توجه كنيد . در جايي كه نياز نيست از آن به هيچ عنوان

Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0tag:blogger.com,1999:blog-5762110.post-1152972225186410132006-07-15T16:01:00.000+02:002006-07-15T16:07:38.366+02:00

گاهی نیاز داریم که نوار اسکرول را در برنامه جابجا کنیم تا بتوانیم یک متن بزرگ را نمایش دهیم. اینکار با کمک موس بسادگی انجامپذیر است . داینجا می خواهم سورس کدی را ارائه دهم که اینکار را از داخل برنامه دلفی انجام می دهد.procedure MemoScrollDown(Memo: TMemo) ;var ScrollMessage:TWMVScroll; i:integer;begin ScrollMessage.Msg:=WM_VScroll; for i := 0 to Memo.Lines.Count do begin

Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0tag:blogger.com,1999:blog-5762110.post-1149322508829649612006-06-03T10:13:00.000+02:002006-06-03T10:15:10.240+02:00

با استفاده از سورس کد زیر می توانید یک آیکون را از روی صفحه دسکتاپ ویندوز پنهان کنید یا آنرا مجددا نمایش دهید.procedure ShowDesktop(const YesNo : boolean) ;var h : THandle;begin h := FindWindow('ProgMan', nil) ; h := GetWindow(h, GW_CHILD) ; if YesNo = True then ShowWindow(h, SW_SHOW) else ShowWindow(h, SW_HIDE) ;end;

Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com3tag:blogger.com,1999:blog-5762110.post-1143619837154772552006-03-29T10:06:00.000+02:002006-06-18T10:06:23.403+02:00

سورس کد زیر می تواند اینکار را برای شما انجام دهد.در یک برنامه جدید یک دکمه بگذارید و روتین زیر را برای رویداد کلیک آن بنویسید.Place a TButton named "OpenBinButton" on a formuses ShlObj, ShellAPI, ... ; Place a TButton named "OpenBinButton" on a form, handle its OnClick event as: procedure TRecycleBinForm.OpenBinButtonClick(Sender: TObject) ;var recycleBinPIDL: PItemIDList; execInfo:

Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.comtag:blogger.com,1999:blog-5762110.post-1139471295393134902006-02-09T08:41:00.000+01:002006-02-09T08:48:15.406+01:00

سورس کد زیر را می توانید برای دانلود یک فایل از طریق اینترنت استفاده نمائید.فراموش نکنید که در ابتدای برنامه حتما یونیت اشاره شده در ابتدای سورس را فراخوانی کنید.uses ExtActns, ...type TfrMain = class(TForm) ... private procedure URL_OnDownloadProgress (Sender: TDownLoadURL; Progress, ProgressMax: Cardinal; StatusCode: TURLDownloadStatus; StatusText:

Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com1tag:blogger.com,1999:blog-5762110.post-1138437985270437382006-01-28T09:42:00.000+01:002006-01-28T09:46:25.596+01:00

How could we get backup from our SQL Server in Delphi?تهیه بک آپ یا نسخه پشتیبان از بانک اطلاعاتی در دوره های زمانی خاض یکی از مهمترین بخشهای یک برنامه بانک اطلاعاتی است. یکی از بانکهای اطلاعاتی که در دلفی زیاد استفاده میشه SQL Server است که سورس زیر به شما کمک م یکنه تا بتونید از درون برنامه دلفی از بانک اطلاعاتی خودتان بک آپ بگیرید.function ConvertListItemsToMultiString(Items: TListItems; var S

Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com1tag:blogger.com,1999:blog-5762110.post-1136643880989082152006-01-07T15:21:00.000+01:002006-01-07T15:24:41.063+01:00

در اين کتاب برنامه نويسان دلفی و کايليکس جديدترين فن آوری دستيابی بانک های اطلاعاتی بورلند(dbExpress) را می آموزند. اين کتاب عناوينی از قبيل تنظيم يک بانک اطلاعاتی برای برنامه های بانک اطلاعاتی يک يا چند رديفی را دربرمی گيرد. در اين کتاب قطعه کدهای بسيار و برنامه های نمونه کوچکی همراه مفاهيم ارائه شده است. لینک خرید کتاب برنامه نویسی بانکهای اطلاعاتی دلفی 7نويسنده: اريک هالمنناشر: تخت سليمان قيمت

Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0tag:blogger.com,1999:blog-5762110.post-1135699919486228082005-12-27T17:08:00.000+01:002005-12-27T17:14:56.300+01:00

How to change the string grid cell color?سورس کد زیر به شما کمک می کند که با استفاده از رویدادهای انتخاب یک سلول یا در زمان ایجاد تصویر سلول تغییرات مورد نظر شما در زمینه رنگ سلولها اعمال شود.type TGridCracker = Class( TStringgrid ); // required to access protected method Invalidaterow procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);

Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0tag:blogger.com,1999:blog-5762110.post-1133334990923954192005-11-30T08:16:00.000+01:002005-11-30T08:20:08.496+01:00

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

Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0tag:blogger.com,1999:blog-5762110.post-1133254796670078872005-11-29T09:59:00.000+01:002005-11-29T09:59:56.680+01:00

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

Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com4tag:blogger.com,1999:blog-5762110.post-1132125497821063342005-11-16T08:18:00.000+01:002005-11-16T08:21:25.776+01:00

در API ویندوز مجموعه ای از توابع وجود دارند که با استفاده از آنها می توان تمام کارهای مربطو به تلفن و ارتباط برنامه از طریق تلفن را انجام داد. این مجموعه با نام TAPI شناخته شده است.برای استفاده از این مجموعه در دلفی در پروژه JEDI مجموعه ای قرار داده شده که افراد علاقه مند می توانند آنرا دانلود کرده و استفاده نمایند.برای دانلود می توانید به صفحه سایت JEDI در این زمینه مراجعه نمائید.ftp://

Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0tag:blogger.com,1999:blog-5762110.post-1129360032144727152005-10-15T09:07:00.000+02:002005-10-15T09:11:59.216+02:00

Using the RunOnce Registry Keyگاهی نیاز داریم که یک برنامه فقط یکبار آنهم زمانی که ویندوز بالا می آید اجرا شده و در دفعات دیگر بالا آمدن ویندوز اجرا نشود. مثلا می خواهیم این برنامه در اولین بار بعد از نصب برنامه ما بر روی سیستم اجرا شده و تنظیمات خاصی را بر روی سیستم انجام دهد. برای اینکار در رجیستری ویندوز کلید خاصی وجود دارد که اگر درست تنظیم نمائیم اینکار را برای ما انجام می دهد. نمونه سورس کد

Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0tag:blogger.com,1999:blog-5762110.post-1128498411898979442005-10-05T09:46:00.000+02:002005-10-12T06:53:53.480+02:00

حتما در برنامه یاهو دیده اید که با زدن زنگ پنجره برنامه شروع به لرزش می کند. اگر می خواهید اینکار را در دلفی انجام دهید می توانید از سورس کد زیر استفاده نمائید.procedure WindowShake(wHandle: THandle) ;const MAXDELTA = 4; SHAKETIMES = 500;var oRect, wRect :TRect; deltax : integer; deltay : integer; cnt : integer; dx, dy : integer;begin //نگهداری محل اصلی پنجره GetWindowRect(

Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.comtag:blogger.com,1999:blog-5762110.post-1127891512392806162005-09-28T09:11:00.000+02:002005-09-28T09:12:41.556+02:00

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

Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com3tag:blogger.com,1999:blog-5762110.post-1127890736272640872005-09-28T08:58:00.000+02:002005-09-28T08:59:34.673+02:00

کاری که باید انجام بشه اینه که روی رویداد مربوط به حرکت موس در لیست باکس برنامه زیر را بنویسیم.در این برنامه بسته به اینکه موس کجا قرار گرفته ، آیتم مربوط به لیست باکس فعال میشه.procedure TForm1.ListBox1MouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) ;begin ListBox1.ItemIndex := ListBox1.ItemAtPos(Point(x,y), True) ;end;

Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0tag:blogger.com,1999:blog-5762110.post-1127575353728492882005-09-24T17:22:00.000+02:002005-09-24T17:22:34.883+02:00

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

Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com3tag:blogger.com,1999:blog-5762110.post-1127131932140343832005-09-19T14:12:00.000+02:002005-09-19T14:12:12.193+02:00

یک کامپوننت مرورگر اینترنت در فرم برنامه بگذارید . در بخش تابع مربوط به ایجاد فرم سورس زیر را بنویسید. uses MSHTML; procedure TForm1.FormCreate(Sender: TObject) ; begin WebBrowser1.Navigate('http://delphi.webrah.com') ; end; در بخش مربوط به رویداد مرورگر اینترنتی هم سورس پائین را اضافه نمایئد. procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var

Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com3tag:blogger.com,1999:blog-5762110.post-1127127054848645242005-09-19T12:50:00.000+02:002005-09-19T12:53:10.660+02:00

آموزش دلفیدر این سایت می توانید سورس کدهای مربوط به موارد زیر را با توضیحات کامل دانلود کرده و استفاده نمائید.استفاده از دیتابیس اکسز تو دلفی ترکیب دو تصویر حلقه در حال گردش طراحي فيلتر نگاتيو به دست آوردن رنگ (RGB) هر نقطه با حركت ماوس بر روي دسكتاپ يا هر جاي ديگه نمايش زمان و تاريخ به صورت خودكار در دلفي سياه و سفيد كردن تصوير با دلفيراستی اگر شما هم سایت می شناسید که سورس کد دلفی داره در اینجا

Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com6tag:blogger.com,1999:blog-5762110.post-1126946490784571312005-09-17T10:41:00.000+02:002005-09-17T10:45:03.976+02:00

با سورس کد زیر می توانید لیست دستگاههای موجود در کامپیوتر را ببینید.کامپوننتهای زیر را اضافه کنید و در بخش مربوط به رویداد لیک دکمه خود سورس زیر را هم بنویسیدTMemoTButtonاینکه چطور میشه به یک پورت اطلاعات فرستاد یا اطلاعاتی را خواند را هم در مقالات بعدی توضیح خواهم داد.procedure TForm1.Button1Click(Sender: TObject) ;var istr: string; isize, j: dword;begin setlength(istr, 4000) ; isize :=

Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0tag:blogger.com,1999:blog-5762110.post-1124255881643365602005-08-17T07:18:00.000+02:002005-08-17T07:18:01.676+02:00

گاهی شما می خواهید از درون برنامه خودتان فشرده شدن یک کلید را برای برنامه شبیه سازی نمائید بطوریکه انگار یک کاربر این کلید را فشرده است. در این روتین برای همه کلیدهائی که قابل نمایش هستند فق کافیست که کد اسکی آنها را به این روتین بدهید و برای کلیدهای شیفت یا کنترل بایستی متغیر مربوطه را تنظیم نمائید. Procedure PostKeyEx32(key: Word; const shift: TShiftState; specialkey: Boolean) ; type

Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com1tag:blogger.com,1999:blog-5762110.post-1124079928049826292005-08-15T06:25:00.000+02:002005-08-15T06:30:02.323+02:00

procedure TForm1.FormCreate(Sender: TObject) ;begin ShowWindow(Application.Handle, SW_HIDE) ; SetWindowLong(Application.Handle, GWL_EXSTYLE, getWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW) ; ShowWindow(Application.Handle, SW_SHOW) ;end;

Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com1tag:blogger.com,1999:blog-5762110.post-1121777080414524302005-07-19T14:44:00.000+02:002005-07-19T14:44:40.456+02:00

شاید شما هم برای اینکه برنامه تان بتواند کامل د مناسب نمایش داده شود، نیاز دارید که در یک اندازه خاص از صفحه نمایش کار کنید. برای اینکار می توانید اندازه رزولوشن صفحه را در هنگام اجرا تغییر دهید. برنامه زیر به شما کمک خواهد کرد تا با کمک API ویندوز اینکار را در دلفی انجام دهید function SetScreenResolution(Width, Height: integer): Longint; var DeviceMode: TDeviceMode; begin with

Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0tag:blogger.com,1999:blog-5762110.post-1121336572873861572005-07-14T12:22:00.000+02:002005-07-14T12:22:52.906+02:00

در سایت شرکت میکروسافت می توانید با TAPI آشنا بشید که راهنمای برنامه نویسی و ارتباط با تلفن را بطور کامل توضیح داده است. سورس کدهای نوشته شده در اینجا همگی با وی بی یا سی هستند که شما براحتی می توانید اونها را به زبان دلفی نوشته و استفاده کنید. Windows Telephony (TAPI) Support in Windows NT 4.0

Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0