-
بدست آوردن نام هاست از طریق IP
سهشنبه 12 خردادماه سال 1394 23:14
با سلام بدست آوردن نام Host از طریق IP function IPAddrToName(IPAddr: string): string; var SockAddrIn: TSockAddrIn; HostEnt: PHostEnt; WSAData: TWSAData; begin WSAStartup($101, WSAData); SockAddrIn.sin_addr.s_addr:=inet_addr(PChar(IPAddr)); HostEnt:= GetHostByAddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET); if...
-
تبریک تولد امام زمان (عج)
سهشنبه 12 خردادماه سال 1394 23:13
طلوع نزدیک است اگر بخواهیم ظهور تو زیباتر از ظهور همهی زیباییهاست چشم به راه زیباترین بهاریم خدایا انتظار چقدر دیر میگذرد با صد نگاه خسته، صدا میزنیم تو را بیایید همه منتظر آمدنش شویم
-
نمایش پنجره انتخاب پوشه
جمعه 18 اردیبهشتماه سال 1394 00:09
نمایش دیالوگ Folderdialog uses shlobj; function FindFolder(Handle: THandle; Title: string = 'Please specify a folder'): string; var lpItemID: PItemIDList; BrowseInfo: TBrowseInfo; DisplayName: array[0..MAX_PATH] of char; TempPath: array[0..MAX_PATH] of char; begin Result := ''; FillChar(BrowseInfo,...
-
قرار دادن آیتم در منوی استارت
پنجشنبه 25 دیماه سال 1393 22:15
با سلام اگه قصد دارید توسط کدنویسی یک لینک در منوی استارت قرار بدید از این کد میتونید استفاده کنید uses JclShell , ShlObj ; procedure TForm1 . Button1Click ( Sender : TObject ) ; var ShellLink : TShellLink ; begin CoInitialize ( nil ) ; with ShellLink do begin Arguments : = '' ; IdList := nil ; WorkingDirectory : =...
-
تغییر پشت زمینه دستکاپ
پنجشنبه 25 دیماه سال 1393 22:04
با سلام خدمت دوستان بعد مدت ها گفتیم یک پستی بزنیم که بگیم هنوز زنده ایم! if not SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar('Addresssssss'), SPIF_SENDCHANGE OR SPIF_UPDATEINIFILE) then RaiseLastOSError;
-
پاسخ سوالات دوستان
سهشنبه 2 دیماه سال 1393 21:02
با عرض سلام خدمت همه همراهان عزیز و عرض تسلیت به مناسبت اربعین و رحلت پیامبر(ص) و شهادت امام حسن مجتبی(ع) و امام رضا (ع) دوستان ببخشید چون مدت زیادی نبودم جواب دوستی که خودش زیور عالم معرفی کرده بگم برای خروجی گرفتن از دیتابیس راه های زیادی وجود از برنامه دلفی، از dump گرفته تا خواندن از دیتابیس و نوشتن در دیتابیس...
-
جواب سوال جناب رییسی
پنجشنبه 6 شهریورماه سال 1393 23:22
یکی از دوستان چنین سوال پرسیده اب اقای صابری سلام میخوام یه دیتا گرید داشته باشم که خودم ستونهای اون رو تعریف کنم توی هر ردیف یک عکس بزارم و چند تا تکست روی اون مثل توی فست ریپورت برای گزارشگیری اگه کامپوننتی که این کارو انجام بده لطفا راهنمایی کنید اگه منظورت همون DBGRID هست که معمولا همه شون چنین قابلیتی دارند.اگه...
-
خدایا شرم دارم از انسانیتم
شنبه 4 مردادماه سال 1393 23:27
خدایا شرم دارم بگم انسانم! وقتی اینگونه هم نوعان ما، این گونه همدیگر را قتل عام می کنند واقعا نمیدونم تا کی می خوان به خوی وحشی گری شون ادامه بدن؟ البته اگه میشه به این بگی وحشی گری؟ خدا تا کی می خوای بشینی کاری نکنی؟ اگه منتظری و یا می خوای ما ها را امتحان کنی بگم ما رفوزه ایم این اعراب اون موقع که ادعای مسلمانیتشون...
-
کتاب Delphi XE3 Starter Essentials
جمعه 19 اردیبهشتماه سال 1393 00:19
سلام بر همراهان عزیز در این پست یک کتاب خوب به نام Delphi XE3 Starter Essentials گذاشتم امیدوارم بدردتون بخوره البته همونطور که از اسمش پیداست خلاصه و موارد موردنیاز است دانلود برای دانلود اون دکمه ای که حجم دانلود نوشته (2.24M) را کلیک کنید و منتظر بمانید
-
FireMonkey Premium Style Pack
چهارشنبه 17 اردیبهشتماه سال 1393 15:45
با سلام اگر دنبال ظاهر مناسب(Style) برای برنامه هایی که با Firmonkey نوشته اید اینجا می توانید به هدفتون برسید برای iOS, Android, Windows and Mac.. . دانلود
-
ehlib 6.3.175
سهشنبه 16 اردیبهشتماه سال 1393 22:11
با سلام کامپوننت حرفه ای ehlib که دارای یک گرید بسیار حرفه ای است برای دانلود گذاشتم.برای دلفی xe6
-
crack Delphi Xe6
چهارشنبه 10 اردیبهشتماه سال 1393 21:58
سلام همراهان عزیز کرک دلفی 6 به در خواست یکی از دوستان دانلود
-
شماره اتوماتیک در Firebird
جمعه 22 فروردینماه سال 1393 22:02
با سلام خدمت دوستان و همراهان عزیز یکی از مشکلات FB نداشتن شماره اتوماتیک autoincerement است برای اینکه در فیلدهاتون شماره اتوماتیک داشته باشید باید روندی را طی کنید. ابتدا باید برای فیلدتون یک Generator ایجاد کنید. اگر از ide استفاده می کنید برای ساخت جدول هاتون این کار به سادگی صورت می پذیرد. حالا اگه بخواهیم که این...
-
تهیه عکس از صفحه نمایش و ذخیره در فایل
یکشنبه 27 بهمنماه سال 1392 21:15
var DCDesk: HDC; bmp: TBitmap; begin bmp := TBitmap.Create; bmp.Height := Screen.Height; bmp.Width := Screen.Width; DCDesk := GetWindowDC(GetDesktopWindow); BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DCDesk, 0, 0, SRCCOPY); bmp.SaveToFile('ScreenShot.bmp'); ReleaseDC(GetDesktopWindow, DCDesk);...
-
فایل در حال استفاده است یا خیر؟
یکشنبه 1 دیماه سال 1392 22:51
function FileInUse(FileName: string ): Boolean; var hFileRes: HFILE; begin Result := False; if not FileExists(FileName) then exit; hFileRes := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil , OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); Result := (hFileRes = INVALID_HANDLE_VALUE); if not Result then...
-
بدست آوردن ادرس فیزیکی کارت شبکه
یکشنبه 1 دیماه سال 1392 22:47
uses NB30; function GetAdapterInfo(Lana: Char): String; var Adapter: TAdapterStatus; NCB: TNCB; begin FillChar(NCB, SizeOf(NCB), 0); NCB.ncb_command := Char(NCBRESET); NCB.ncb_lana_num := Lana; if Netbios(@NCB) <> Char(NRC_GOODRET) then begin Result := 'mac not found'; Exit; end; FillChar(NCB, SizeOf(NCB), 0);...
-
پروژه حسابداری
شنبه 30 آذرماه سال 1392 19:55
سلام همراهان یکی از دوستان درخواست داده بود یک پروژه حسابداری از ابتدا بسازید جهت آموزش. در جواب دوست عزیزمون، من وقت ندارم آزاد زیادی ندارم به همین خاطر خیلی دیر به دیر آپدیت می کنم اما میگم چشم شما تحلیل این سیستم بذارید من سعی می کنم کم کم کدنویسی و بخش پایگاه داده را انجام بدم
-
TMS Component Pack v7.1.3.0
چهارشنبه 20 آذرماه سال 1392 23:22
آخرین نسخه از مجموعه TMS برای XE5. البته بر روی بقیه نسخه ها هم نصب میشه. دانلود
-
سورس کد برای اندروید در دلفی
چهارشنبه 20 آذرماه سال 1392 23:18
اگه قصد برنامه نویسی اندروید با استفاده از دلفی XE5 را دارید در این صفحه مثال های جالبی است
-
mysql workbench 6.0.8
پنجشنبه 23 آبانماه سال 1392 00:38
نسخه نرم افزار قدرتمند و رایگان مدیریت دیتابیس mysql منتشر شده میتونید از لینک زیر دانلود کنید http://dev.mysql.com/downloads/tools/workbench/
-
[ بدون عنوان ]
پنجشنبه 23 آبانماه سال 1392 00:28
فرا رسیدن ایام محرم و شهادت سرور و سالار شهیدان و یاران باوفایش را بر دوستدارن حضرتش تسلیت باد
-
بدست آوردن شماره رکورد ثبت شده هنگام اینسرت فایربرد
سهشنبه 26 شهریورماه سال 1392 22:52
وقتی یک را کورد را اینسرت می کنیم همزمان می خواهیم شماره ID و یا هر رکورد دیگری بخواهیم برگردانیم از returning استفاده می کنیم برای زمانی کاربرد دارد که مثلا از شماره اتوماتیک در جدول استفاده می کنیم و یا یک رکورد را غیر مستقیم مقداردهی می کنیم و می خواهیم از مقدار آن مطلع شویم insert into table(..) values(...)...
-
معرفی یک IDE رایگان برای Firebird
یکشنبه 27 مردادماه سال 1392 21:40
یک IDE رایگان و عالی برای Firebird بصورت رایگان دانلود رایگان
-
دیتابیس رایگان و متن باز Firebird
یکشنبه 27 مردادماه سال 1392 21:36
FireBird نام یک دیتابیس رایگان و متن باز و بسیار قدرتمند و با امکان عالی است. خودم در ابتدا این دیتابیس را قبول نداشتم و اصرار بر استفاده از Mysql داشتم اما بعد از بررسی چند ماهه و تست خودم و عده ای از دوستان و بحث بر بررسی در فروم برنامه نویس به قدرت این دیتابیس پی بردم و هم کنون هم در حال مهاجرت به این دیتابیس هستم....
-
The Firebird Book 1-2nd edition
پنجشنبه 10 مردادماه سال 1392 16:40
کتاب Firebird نسخه اول کتاب Firebird نسخه دوم
-
تبدیل دیتابیس ها به یکدیگر
پنجشنبه 10 مردادماه سال 1392 16:24
بعضی وقتی نیاز دیتابیسمون تبدیل کنیم مثلا یک پروژه با sql server نوشتیم می خواهیم تبدیلش کنیم به Mysql. معمولا هم یک جورایی با این موضوع مشکل دارند چون بصورت مستقیم نمیشه و یک راه حلش این که یک خروجی sql بگیریم و سپس جاهایی که مغایرت را تغییر بدیم و بعد در mysql وارد(Import) کنیم این کار بسیار وقت گیره. نرم افزاری که...
-
Table mysql
شنبه 29 تیرماه سال 1392 22:44
واکشی نام جدول های یک دیتابیس SHOW TABLES; واکشی اطلاعات کامل جدول(نام فیلد و نوع و...) DESCRIBE tablename;
-
ایجاد یک وقفه
چهارشنبه 12 تیرماه سال 1392 21:53
Procedure Pause(HS : longint); assembler; Asm mov es,Seg0040 mov si,006Ch mov dx,word ptr es:[si+2] mov ax,word ptr es:[si] add ax,word ptr [HS] adc dx,word ptr [HS+2] @@1: mov bx,word ptr es:[si+2] cmp word ptr es:[si+2],dx jl @@1 mov cx,word ptr es:[si] cmp word ptr es:[si],ax jl @@1 End;
-
ایجاد حاشیه در memo
دوشنبه 23 اردیبهشتماه سال 1392 23:07
var Rect: TRect; begin SendMessage( Memo1.Handle, EM_GETRECT, 0, LongInt(@Rect)); Rect.Left:= 20; SendMessage(Memo1.Handle, EM_SETRECT, 0, LongInt(@Rect)); Memo1.Refresh;var Rect: TRect; begin SendMessage( Memo1.Handle, EM_GETRECT, 0, LongInt(@Rect)); Rect.Left:= 30; SendMessage(Memo1.Handle, EM_SETRECT, 0,...
-
برای تبدیل انواع متغیرها به رشته
دوشنبه 23 اردیبهشتماه سال 1392 22:37
function ValToString(Value: Variant): String; begin case TVarData(Value).VType of varSmallInt, varInteger : Result := IntToStr(Value); varSingle, varDouble, varCurrency : Result := FloatToStr(Value); varDate : Result := FormatDateTime('dd.mm.yyyy', Value); varBoolean : if Value then Result := 'T' else Result := 'F';...