uses
Bde, SysUtils, dbtables, windows;
function StrToOem(const AnsiStr: string): string;
begin
SetLength(Result, Length(AnsiStr));
if Length(Result) 0 then
CharToOem(PChar(AnsiStr), PChar(Result));
end;
function TablePasswort(var Table: TTable; password: string): Boolean;
var
pTblDesc: pCRTblDesc;
hDb: hDBIDb;
begin
Result := False;
with Table do
begin
if Active and (not Exclusive) then Close;
if (not Exclusive) then Exclusive := True;
if (not Active) then Open;
hDB := DBHandle;
Close;
end;
GetMem(pTblDesc, SizeOf(CRTblDesc));
FillChar(pTblDesc^, SizeOf(CRTblDesc), 0);
with pTblDesc^ do
begin
StrPCopy(szTblName, StrToOem(Table.TableName));
szTblType := szParadox;
StrPCopy(szPassword, StrToOem(Password));
bPack := True;
bProtected := True;
end;
if DbiDoRestructure(hDb, 1, pTblDesc, nil, nil, nil, False) DBIERR_NONE then Exit;
if pTblDesc nil then FreeMem(pTblDesc, SizeOf(CRTblDesc));
Result := True;
end;
type
THackControl = class(TControl);
procedure TfrmWebsite.FormCreate(Sender: TObject);
var
PanelRect: TRect;
begin
THackControl(ProgressBar1).SetParent(StatusBar1);
SendMessage(StatusBar1.Handle, SB_GETRECT, 1, Integer(@PanelRect));
with PanelRect do
ProgressBar1.SetBounds(Left, Top, Right - Left, Bottom - Top);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOConnection1.ConnectionString := 'Server=Hostname;DataBase=DatabaseName';
ADOConnection1.Open('UserName', 'Password');
ADOConnection1.Connected := True;
end;
procedure TForm1.CopyFileWithProgressBar1(Source, Destination: string);
var
FromF, ToF: file of byte;
Buffer: array[0..4096] of char;
NumRead: integer;
FileLength: longint;
begin
AssignFile(FromF, Source);
reset(FromF);
AssignFile(ToF, Destination);
rewrite(ToF);
FileLength := FileSize(FromF);
with Progressbar1 do
begin
Min := 0;
Max := FileLength;
while FileLength > 0 do
begin
BlockRead(FromF, Buffer[0], SizeOf(Buffer), NumRead);
FileLength := FileLength - NumRead;
BlockWrite(ToF, Buffer[0], NumRead);
Position := Position + NumRead;
end;
CloseFile(FromF);
CloseFile(ToF);
end;
procedure TForm1.ColorGrid(dbgIn: TDBGrid; qryIn: TQuery; const Rect: TRect;
DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
iValue: LongInt;
begin
if (DataCol = 0) then
begin
iValue := qryIn.FieldByName('HINWEIS_COLOR').AsInteger;
case iValue of
1: dbgIn.Canvas.Brush.Color := clGreen;
2: dbgIn.Canvas.Brush.Color := clLime;
3: dbgIn.Canvas.Brush.Color := clYellow;
4: dbgIn.Canvas.Brush.Color := clRed;
end;
dbgIn.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
ColorGrid(DBGrid1, Query1, Rect, DataCol, Column, State);
end;
بابک
آبان تمام شد نمی خواهید مجموعه دلفی کامپوننت رو برای فروش روی سایت بگذارید ؟ با تشکر
سلام
از لطف و توجه شما دوستان عزیز بسیار سپاسگزارم
ان شالله تا ۱۰ روز آینده این مجموعه آماده و برای فروش در سایت قرار خواهد گرفت . علت تاخیر در عرضه این مجموعه گرفتاریهای شغلی و مدت زمان بالا برای تست و آزمایش تک تک این کامپوننتها بود. به هر حال از همه عزیزان عذرخواهی میکنیم.
موفق و پیروز باشید
سلام آقای احدی
میخواستم لطف کنید زمان انتشار مجموعه کامپونتهای Delphi 2007 را بفرمائید
سلام
از لطف و توجه شما دوستان عزیز بسیار سپاسگزارم
ان شالله تا ۱۰ روز آینده این مجموعه آماده و برای فروش در سایت قرار خواهد گرفت . علت تاخیر در عرضه این مجموعه گرفتاریهای شغلی و مدت زمان بالا برای تست و آزمایش تک تک این کامپوننتها بود. به هر حال از همه عزیزان عذرخواهی میکنیم.
موفق و پیروز باشید
سلام آقای احدی هر چه سعی کردم با موبایلتون تماس بگیرم نشد همش میگه که برقراری ارتباط ممکن نیست به همین خاطر از طریق سایت مزاحمتون شدم البته من قبلا هم مزاحم شدم و پرسیدم ولی از تاریخی که اعلام کردید یک ماهی می گذره و همچنان دلفی کامپوننت مخصوص دلفی 2007 آماده نشده می خواستم خواهش کنم اگر ممکنه سریعتر این مجموعه را آماده فروش کنید
سلام
از لطف و توجه شما دوستان عزیز بسیار سپاسگزارم
ان شالله تا ۱۰ روز آینده این مجموعه آماده و برای فروش در سایت قرار خواهد گرفت . علت تاخیر در عرضه این مجموعه گرفتاریهای شغلی و مدت زمان بالا برای تست و آزمایش تک تک این کامپوننتها بود. به هر حال از همه عزیزان عذرخواهی میکنیم.
موفق و پیروز باشید
می خواستم با تابع API یه یه برنامه رو هنگام Load تو StartUP باشه ممنون
سلام
شما میتونید از طریق رجیستری برنامه خودتون رو در استارت آپ بنویسید و با هر بار اجرای برنامه برنامه شما در حافظه سیستم لود بشه . اگه خواستید لطفا ای میل بدید تا کدش رو برای شما بفرستم
موفق باشید
سلام با تشکر از شما به خاطر سایت پر بارتان
من کامپوننت fastreport رو خریداری کردم ولی باز بعد از نصب پیغام
unregistered version رو میده لطفا راهنمایی کنید
سلام
میشه بفرمایید از کجا و چگونه خریداری کردید ؟ چون ما تنها نماینده این کامپوننت در ایران هستیم ؟
موفق باشید
با سلام بنده یکی از خریداران مجیک کالکشن هستم دوست دارم بدونم اسکین مربوط به اتوران مجموعه کدام اسکین ارائه شده در مجموعه هست با تشکر از سایت خوبتان
سلام
از لطفتون ممنونم
از کامپوننت BusinessSkinForm استفاده شده
موفق باشید
سلام
بابت مجموعه کامپوننت های ۲۰۰۷ ازتون ممنونم .
آیا ۲ کامپونت زیر در مجموعه وجود دارد ؟
۱ - MyDac
۲ - microOLAP MySQLDAC
توی لیست دیدم که نبود میخواستم ببینم ممکنه اضافه کنید ؟
سلام
از توجه شما ممنونم
خیر این ۲ کامپوننت در مجموعه کامپوننتهای دلفی ۲۰۰۷ نیستند چون هنوز سورس اونا برای دلفی ۲۰۰۷ موجود نیست
موفق باشید
با عرض سلام و خسته نباشید
می خواستم بدونم در همون پکیج 30000 تومانی (کامپوننت های دلفی 5 تا 2006) ، کامپوننتی برای Embed کردن فایل در پروژه هست؟
سلام
خیر اما اگه مایل باشید میتونید اونرو بطور جداگانه تهیه نمایید
موفق باشید
با سلام
درصورت امکان در زمینه مواردزیر اینجانب را راهنمای نماید: برای فانتزی کردن دکمه ها در دلفی ۶ از چه کامپوننت استفاده می شود؟
کامپوننت مورد استفاد از مودم چیست وچگونه میتوان تهیه نمود؟
برای پخش صدا در فرم طراحی شده چکار باید کرد؟
برای پخش یک فیلم تبلیغاتی با صدا با فرمت datدر یک فرم
طراحی شده چه باید کرد؟
متشکرم
سلام
۱-از کامپوننتهای اسکین میتونید استفاده کنید . لیست کامل اونها در صفحه زیر موجود است
http://www.Delphi-Magic.com/magic-collection.php
۲-از کامپوننتهای KdTele - ExceleTel
۳-از کامپوننت Video Grabber
موفق باشید
سلام امکان داره کامپوننت های Magic Components در زمینه های بیشتر ارئه و کامل تر بشن ؟
سلام
از توجهتون بسیار سپاسگزارم . متاسفانه این مجموعه در سرفصلهای تعیید شده قبلی ارایه میشه و دوستانی که نیاز به کامپوننتهای خاصی دارند که در مجموعه ها نیست میتونن بصورت جداگانه اونو تهیه کنند. حتی دوستانی که میخوان کامپوننتها رو بصورت قانونی و رجیستر شده از سایت کمپانی سازنده بخرن میتونن از طریق ما اقدام کنند.
موفق باشید
سلام آقای احدی
این بار دوم این سوال از شما میپرسم اگه امکانش هست براتون وقتشو دارین جواب این سوال و به من بدین
من با نرم افزار delphi for php کار میکنم ولی وقتی lable میندازم روی صفحه اگه قبل اجرا فارسی بنویسم مشکل نداره ولی بعد اجرا تو صفحه Internet Explorer حرفای فارسی نوشن داده نمشیه
از دستور <meta> توی Php استفاده کردم ولی درست نمیشه خواهش میکنم جواب منو بدین
سلام
از تگ های متا برای شناسایی صفحه به مرورگر استفاده میشه. شما باید از تگ های شناسایی زبان و فونت استفاده نمایید
<Font Name="Tahoma"><DIV lang="fa" dir="rtl">
موفق باشید
آیا ابزاری وجود دارد که با افزودن آن به کامپایلر دلفی بتوانم
سایت php یا asp را فقط به واسطه برنامه نویسی دلفی بسازم ؟
سلام
میتونید از کامپوننتی بنام PHP for Delphi استفاده کنید که کدهای پی اچ پی رو میتونید در دلفی استفاده و کامپایل کنید. فکر میکنم متن باز باشه و با یه سرچ میتونید کامپوننت رو پیدا کنید .
موفق باشید
سلام
من fastreport3 را نصب کرده و برای تهیه گزارش برای دادن اطلاعات سربرگ مثل از تاریخ .تا تاریخ مجبور به استفاده از
dialogpagev شده ام اما در هنگام استفاده از frxeditcontrol یا button ها دلفی پیغام مبنی بر نشناختن کلاس آنها را میدهد. اگر مقدور است به من راهنمایی نمائید
سلام
زمان نصب کامپوننت فوق یکسری عناصر به تب مربوطه اضافه میشن . در زمان طراحی فرم گزارش شما به همه اونا دسترسی دارید اما زمانی که برنامه اجرا میشه نیاز به پیش نیازها داره . مثلا اگه در گزارش از بارکد استفاده کردید روی فرم دیتاماژول یا صفحه مورد نظر حتما عنصر بارکد رو بزارید وگرنه با خطا مواجه خواهید شد.
میتونید از راهنمایی که در بخش دریافت مقاله و سورس سایت گذاشتم استفاده کنید . اگه کشلی بود لطفا ای میل بدنید
موفق باشید
سلام می خواستم بدونم اگر قرار باشه بین دلفی ۷ و دلفی ۲۰۰۷ یکی رو انتخاب کنید شما کدام رو انتخاب می کنید به نظر می رسه امکانات دلفی ۲۰۰۷ خیلی کمتر از دلفی ۷ باشد و فقط تحت دات نت ارائه شده نظر شما چیه ؟
سلام
مسلما پس از گذشت چندین سال از ارایه دلفی ۷ و آمدن دلفی ۲۰۰۷ به بازار تغییرات فراوانی در اون ایجاد شده و قابل مقایسه با نسخه های قبلی نیست اما نکته قابل توجه اینه که اکثریت برنامه نویسان قدیمی هنوز محیط دلفی ۷ رو به بقیه محیطها ترجیح میدن و اون به دلیل کارایی راحت و محیط ساده و کاربر پسنده نه امکاناتش.
خیر در مجموعه Code Gear RAD Studio 2007 هم دلفی برای ویندوز ۳۲ و هم برای دات نت وجود داره . و در مجموعه های سایت هم قابل تهیه و سفارش هستش . البته آخرین نسخه با سرویس پک ۳
موفق باشید
سلام اگر ممکن یک مقاله یا آموزش از چگونگی به کار گیری و نصب کامپوننت های شرکت DevExpress روی ساست قرار دهید با تشکر
سلام
ایده جالبیه . سعی میکنم در ایام تعطیلات عید یه مقاله آموزشی برای کامپوننتهای شرکت دولوپر اکسپرس بنویسم.
موفق باشید
سلام
آقای احدی قیمت مجموعه هایی که شما دارید خیلی بالاست .
قیمت دلفی ۷ به تنهایی چنده ؟
سلام
برای خرید کامپوننت یا برنامه جدای از مجموعه های موجود لطفا با ای میل ما در تماس باشید.
با تشکر
با سلام
اینستال شیلد ۱۲ رو دارم
میخوام اول MSDE رو نصب کنه و بعد
برنامه و بانک SQL
اینها رو در دو برنامه جدا انجام میده ولی وقتی میخوام باهم در یک ستاپ حتی در دو فیچر جدا انجام نمیده واول دنبال سرور لوکال میگرده و ستاپ کنسل میشه
لطفا راهنمایی کنین
سلام
لطفا مشکلتون رو ترجیحا با عکس برای من ای میل کنید تا بررسی کنم.
موفق باشید
سلام آقای احدی مجموعه دلفی با تمام کامپونت ها و ایبوک ها را می خواستم دبیرهستم می خواستم ببینم تخفیف دارید ؟
سلام
لطفا مشخص کنید دقیقا کدوم مجموعه ها رو میخواهید تا با توجه به تعداد و قیمت ، تخفیف رو بشما اعلام کنیم
موفق باشید
با سلام
آقای احدی من مجموعه Magic component 2007 رو از سایت چند وقت پیش خریدم، بعد برای شما ایمیل فرستادم و ... بالاخره فعال شد و تونستم از کامپوننت ها استفاده کنم. بعد ویندوزم ویروس گرفت و مجبور به تعویض ویندوز شدم. ایمیل فعال سازی که شما برام فرستاده بودید در ایمیلم نبود و پاک شده بود و پیداش نکردم. براتون دوباره فرستادم کد سخت افزار و بعد جواب دادید ولی بعد از وارد کردن می گفت درست نیست. در ضمن متوجه یه موضوعی شدم، این که با هر بار اجرای autorun، کد سخت افزار تغییر می کنه!
آیا طبیعیه؟ اگه نباید کد سخت افزار تغییر کنه حتما آنتی ویروس نمیذاره. خواهش میکنم کمک کنید، من به این مجموعه خیلی نیاز دارم.
سلام
ما چند بار کد فعالساز برای شما فرستادیم . حتی من آنلاین چک کردم کدها برای شما تولید شده و ارسال شده بود . شاید مشکل از ای میل شماست . به هر حال اکانت شما فعال شده و میتونید بصورت آنلاین کد دریافت کنید.
تغییر کد فعالساز طبیعیه و مشکلی برای شما پیش نمیاره.لطفا یه ای میل جدید بدید و کد سخت افزاریتونو مستقیما بفرساید تا کد فعالسازی جدید رو به اون آدرس جدید بفرستیم.
موفق باشید
سلام بین محیط های دلفی ۷ و دلفی ۲۰۰۷ به نظر شما کدام ارجحیت داره ؟ با تشکر
سلام
مثلا دلفی ۲۰۰۷ یه چیز دیگه ست و اصلا قابل مقایسه نیست چون دو مقوله متفاوت هستند و در بحث مقایسه نمیگنجند. اما اکثر برنامه نویسان قدیمی و کهنه کار دلفی به دلیل محیط بسیار کاربر پسند دلفی ۷ هنوز از این محیط استفاده میکنند اما به نظر من دلفی ۲۰۰۷ یه شاهکار بزربگ بورلنده.
موفق باشید
سلام می خواستم از شما اجازه بگیرم که لینک سایتتون را به وبلاگم اضافه کنم هم اگر ممکن شما لینک وبلاگ بنده را به سایتتون اضافه نمایید آدرس وبلاگ بنده هست
www.delphiman.parsiblog.com
سلام
خواهش میکنم وخوشحال میشم که لینک ما رو در وبلاگتون بزارید.بروی چشم.در اولین فرصا لینک شما رو توی سایت میزارم.
موفق باشید
سلام.
چگونه می شود در Grid ها مثل DbGrid عنوان چند ستون را ادغام کرد ؟
من در یک برنامه دیدم که سه ستون تاریخ روز-ماه-سال در Grid فقط یک عنوان یک سره و مشترک بنام تاریخ داشت:
| تاریخ |
---------------------
| روز | ماه | سال |
سلام
شما میتونید از کامپوننت Ehlib استفاده کنید که همچین امکاناتی داره
موفق باشید
سلام آقای احدی
من قیمت دلفی ۲۰۰۶ به تنهایی می خواستم .
سلام
قیمت این مجموعه ۱۰۰۰۰ تومان هستش و میتونید از آدرس زیر اونو سفارش بدید :
http://www.delphi-magic.com/bds-2006.php
موفق باشید
سلام
خواستم اولین نفری باشم که سال نو رو از این طریق به شما دوست عزیز تبریک میگه. و یک سوال:
یرنامه پیغام ارسال کد فعالسازی رو نمایش میده ولی بعد از گذشت چند ساعت هنوز چیزی به آدرس ایمیلم ارسال نشده!
سلام
سال نو شما هم مبارک باشه.امیدوارم که همه دوستان سال خوب و خوشی داشته باشند.
من چک کردم گویا ای میل شما مشکل داره وگرنه کدهای فعالسازی در سایت تولید و برای شما ارسال شده بودند.احتمالا مشکل در یافت از ای میل شماست.
اگه مشکلتون برطرف نشد یه ای میل دیگه تهیه کنید تا اونو به سیستم معرفی کنیم
موفق باشید
سلام
بنده از نرم افزار InstallShield 2008 استفاده می کنم
با اینکه پکیج های مربوط به MSDE را از طریق همین نرم افزار
دانلود و استفاده کردم ولی در برگه
Application Redistributables از حالت Project Assistant
همه گزینه ها غیر فعال است که جبرا از حالت
Installation Designer استفاده می کنم. چطور این مشکل حل میشود
سلام
نسخه اینستالشیلد شما چنده؟
لطفا سوالتون رو بطور کامل در انجمن تخصصی دلفی ما مطرح نمایید :
www.IranDelphi.ir
موفق باشید
سلام
می خواستم بدونم میشه با دلفی برای پاکت پی سی برنامه نویسی کرد اگه امکان داره توضیح بدید.
با تشکر
سلام
شما میتونید در محیط BDS 2006 یا Code Gear STUDIO 2007 به زبان UML برای موبایل برنامه نویسی کنید.
موفق باشید
سلام معادل کامپوننت twain در مجمعه مجیک کامپوننت چه کامپوننتی موجود هست ؟ با تشکر از سایت خوبتون
سلام
کامپوننت بسیار قدرتمند و بی نظیر ImageEn در این منجموعه وجود داره که میتونید استفاده نمایید.
موفق باشید
سلام
من چند ماه ناپیوسته دلفی کار کردم و الان خوشحالم که سایت بسیار جالب شما رو پیدا کردم - از حوصله شما سپاسگزارم
با سلام
از لطف شما سپاسگزارم.
موفق و پیروز باشید
salam
age momkene yek rahibashe ke do tarikh ro az maskedit kam kone va badesh kole jabao be sorat addad nershon bede
mikhastam bebinam henin cizi aya darid ya na?
masalan 85/02/02ta 86/02/02
vaghti az ham kam kard be sorat mah va roz bege cheghadre be adad
سلام
لطفا سوالتون رو کامل در انجمن تخصصی ما مطرح نمایید :
www.IranDelphi.ir
موفق باشید
با سلام
من به تازگی با سایت شما آشنا شدم و از این بابت خیلی خوشحالم
راستش من اصلا آشنایی با برنامه دلفی ندارم اما خیلی دوست دارم یک برنامه نویس دلفی بشم اما نمیدونم در ابتدا باید از کجا شروع کنم چه کتابی بخونم چه برنامه ای رو خریداری کنم واصلا استعداد این کار رو دارم یا نه ؟ به این خاطر خواستم از شما که استاد این کار هستید راهنمایی بگیرم
ممنونم
سلام
اولین شرط برنامه نویس شدن علاقه داشتن به این حرفه و کاره.
شما میتونید از کتابهای آموزشی که در این زمینه هست مثل آموزش دلفی ۷ آقای جعفرنژاد قمی استفاده کنید یا راهنمای دلفی ۷ مارکو کانتو ترجمه کانون نشر علوم.
در ضمن از اطلاعاتی که در سایتهای مختلف برنامه نویسی به زبانهای فارسی و انگلیسی وجود داره استفاده کنید.
در انجمن تخصصی ما هم میتونید سوالاتتون رو مطرح کنید
www.IranDelphi.ir
موفق باشید
سلام
من یه کد می خوام که زبان سیستم رو عوض کنه یعنی تو ادیت باکس خاص مثلا فقط انگلیسی تایپ کنه .
ممنون میشم اگه کمکم کنین
با تشکر
سلام
برای دریافت جواب لطفا به انجمن ایران دلفی (www.IranDelphi.ir) مراجعه نمایید و در اونجا یه تاپیک مفصل در این مورد اختصاص داده شده است.
موفق باشید
من چند سال با دلفی کار می کنم ولی در فرم بدر و فرزند یا chald , parntمشکل دارم زمانی که ما فرم ها را به این حالت در می اوریم همه فرم فرزند را در parnt باز می کند
سلام
یه نموهه در سایت هست . اگه موفق نشدید ای میل بزندی تا نمونه رو برای شما ارسال کنیم
موفق باشید
نحوه وصل شدن بانک اطلاعات اکسس به دلفی
وقتی active=true
میکنیم error
میزندچرا
چه اروری میده؟
لطفا سوالتونو در انجمن ایران دلفی مطرح نمایید.
متشکرم
با سلام و خسته نباشید.
من یک کارت D4PCIU Dialogic تازه خریدم . ولی نمیدونم چطور میشه با دلفی برنامه نویسی کرد. میخواستم از kdtele استفاده کنم و از Demo استفاده کردم ولی مثل این که فقط مودم ها رو تشخیص میده. اگر ممکنه بگید چطور میشه از این کارت در kdtele استفاده کرد و یا اگر راه حل دیگری دارید ممنون میشم بگید . لطفا جواب بدید خیلی حیاتی است.با تشکر قبلی
سلام
متشکرم
لطفا در مورد این کارت توضیح بدید . متاسفانه بنده در این زمینه آشنایی ندارم . این کارت در چه زمینه ای استفاده میشه؟
موفق باشید
سلام استدعای کمک دارم . چگونه میتوان در DBGrid در فیلدی از نوع Memo تایپ کرد ؟
سلام
لطفا سوالتون رو در انجمن مطرح نمایید تا نمونه مربوطه رو برای شما آپلود کنم
www.IranDelphi.ir
موفق باشید
سلام
سایت مفید و قابل تحملی دارین
بازم میام
سلام
مشکرم
باعث افتخار ماست
من یه برنامه دارم که فروش روزانه یک فروشگاه را ذخیره میکنه.
حالا فرض میکنیم که مدیر فروشگاه می خواهد بداند که در تاریخ 12/9/87 چه اجناسی را فروخته و کل فروش آن روز چقدر بوده است؟
لیست اجناس فروخته شده و قیمت آنها به همراه تاریخ مربوطه در dbgrid نمایش داده میشود ،
اما برا اینکه جمع کل فروش روز را داشته باشم نیاز دارم تا ستون مربوط به قیمت را در dbgrid جمع بزنم.
توجه: بانک من یک table دارد که شامل سه فیلد تاریخ، قیمت و نام کالا است.
چه کار کنم تا حاصل جمع یک ستون در dbgrid را در یک label نمایش بدم؟
سلام
قیمت کالا رو در یک حلقه توی یه متغیر بریزید و لیبلتون رو به جمع اون انتساب بدید. یا از کامپونننتهای گرید مثل ای اچ لایب استفاده کنید که جمع ستونی داره
موفق باشید