دلفي براي عموم

راه اندازی سایت

delphigroup — Wed, 13 Feb 2008 10:30:18 GMT

از دوستانی که به سایت ما مراجعه می کنند بسیار سپاسگذاریم

دوستانی که سوالی دارند و یا با مشکل برنامه نویسی مواجه شده اند می تواند با مراجعه به سایت رسمی ما و درج مشکل خود در قسمت انجمن پرسش و پاسخ به جوابهای خود در سریعترین زمان ممکن دسترسی پیدا کنند.

Website: http://www.p9it.ir/

Forum: http://www.p9it.ir/index.php?option=com_fireboard&Itemid=64

بازگشت

delphigroup — Mon, 23 Jul 2007 04:25:18 GMT

بازگشت

با سلام خدمت دوستان عزیزم

خیلی دلم برای شما تنگ شده بود. پوزش مرا بخاطر تاخیری طولانی در ارائه مطالب بپذیرید.

مشکلات متعدد و مشغله خیلی زیاد باعث شد که نتونم مطالب جدیدی بنویسم.

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

از این هفته به بعدٰ هفته ای یک مطلب در این وبلاگ برای شما دوستان گلم می زارم

در ضمن از تمامی دوستانی که در این مدتی با تماس تلفنی یا پیام کوتاه و همچنین ایمیل با من تماس گرفتن کمال تشکر رو دارم. و نیز از دوستانی که نسبت به ما اعتماد داشتن و DVD دلفی رو خریداری کردن سپاسگذارم.

Delphi DVD with best Componnet Collection

delphigroup — Fri, 11 May 2007 14:17:18 GMT

Delphi DVD with best Component Collection

با سلام خدمت برنامه نویسان

از اعتماد برخی دوستان که اقدام به خرید DVD دلفی کردند سپاس گذارم.

این بار برای شما دو نمونه DVD آماده کردم که می توانید آنها را تهیه کنید.

بسته اول:

شامل نرم افزار Delphi 2007 for WIN32 همراه با نرم افزار Delphi for PHP که هر دوی آنها آزمایش شده هستند و دارای کرک هم نیز می باشند.

بسته دوم:

علاوه بر مشخصات بسته یک، دارای مجموعه ای بی نظیر از کامپوننتهایی که به ندرت یافت می شوند و یا اینکه گرانقیمت هستند می باشد تمام کامپوننتها تست شده و همراه با آخرین نسخه و سورس می باشند برای نمونه می توان به FastReport 4.2 جهت گزارش گیری با محیطی فارسی و همچنین کامپوننت TMS-CeeTools جهت برنامه نویسی موبایل و نیز KDTools برای خط تلفن و نیز TMS محبوبترین و زیباترین مجموعه گرافیکی همراه با کاملترین DBGrid و نیز Raize مجموعه ای با 7 گروه که بیش از 100 کامپوننت زیبا و کارا یا VCL Skin, SuiSkin, BusinessSkin همراه شیکترین سکین Alpha که در نوع خود بی نظر بوده و می توانید برنامه های بسیار جذاب با آن تهیه کنید برای برنامه نویسان ریاضیات ، بانکهای اطلاعاتی و... نیز موارد دیگری را قرار دادم

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

نحوه تهیه DVD:

مبلغ مربوطه را به شماره حساب ( 0301805078007 ) سیبا بانک ملی کد شعبه ( 7072 ) بنام احمد محمودی واریز کرده و سپس تصویر اسکن شده فیش بانکی را همراه با مشخصات کامل و آدرس دقیق با ذکر کد پستی را به یکی از ایمیلهای زیر ارسال کنید. پس از دریافت ایمیل از طرف شما بسته درخواستی با پست سفارشی به آدرس شما ارسال می گردد و شماره حواله بانکی را نیز برای شما از طریف ایمیل یا SMS ارسال می کنیم.

Faranet.co@gmail.com

Am_mahmoodi2004@yahoo.com

Mobil (SMS) : 09163502137

درس سوم : ارسال فکس

delphigroup — Sun, 06 May 2007 05:38:18 GMT

درس سوم : ارسال فکس

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

بریم سر اصل مطلب مقاله که در انتظارش بودید: چطوری میشه از فاکس فرستاد؟

قبل از شروع بکار بایستی نکاتی را در این رابطه بدانید:

توسط این کامپوننت فقط می توانیم فایهای گرافیکی از نوع TIFF,TIF آن هم با مشخصات زیر را فکس کرد:

مد رنگ : غیر رنگی (Black and White )

عرض تصویر : 1728

ارتفاع : فرقی نمی کند

تفکیک پذیری (ریزولیشن ) : 200 (نه بیشتر نه کمتر)

حالت فشرده سازی: غیر فشرده

با این حساب شرایط کار سخت شد !!! بله اما می توان با نصب کامپوننتهای KDImageEditor و استفاده از آنها همراه با برنامه کارهای گفته شده را بصورت خودکار انجام داد.

اما اکنون جهت آزمایش من برای شما یک راه حل با فتوشاپ جهت تمرین آماده کردم اگر مایل باشید فایل آموزشی نحوه ساخت فایل TIFF با فتوشاپ جهت فکس با دلفی را دانلود کرده و مطالع کنید ( البته در نمونه برنامه ای که جهت دانلود برای شما آماده کردم یک فایل نمونه می تواتنید پیدا کنید).

ابتدا پروژه جدیدی با اجزاء مورد نیاز همانند شکل زیر ایجاد کنید:

اکنون برای رویدادهای Form1.OnCreate , Combobox1.OnChange همان کدهای پروژهای قبلی را بنویسید.

اکنون باید خط تلفن خود را برای ارسال فکس معرفی کنیم لذا در قسمت رویداد OnCreate کد زیر را اضافه کنید:

procedure TForm1.FormCreate(Sender: TObject);

begin

for C := 0 to KDPhone1.NumberOfLines-1 do begin

KDPhone1.GetLineName(C,S);

ComboBox1.Items.Add(S)

end;

KDPhone1.MediaMode:=mmFax;

Memo1.Lines.Add('Fax Only');

end;

در این کد همانگون که مشاهده می کنید ما از خصوصیت MediaMode برای تنظیم نوع فعالیت خط تلفن استفاده کردیم که می تواند با یکی از سه مقدار mmVoice, mmData, mmFax که به ترتیب برای تماس صوتی، جابجایی داده ها، دریافت و ارسال فکس مقدار دهی شود و ما از مقدار mmFax استفاده کردیم، چنانچه تماس تلفنی برقرار کنیم آنگاه سیستم بصورت خودکار جهت ارسال یا دریافت فکس منتظر می ماند.

نکته : ما می توانیم با انتخاب شی KDPhone1 و رفتن به صفحه خصوصیات نیز این قسمت را تنظیم کنیم.

حال باید برای دکمه StartFax کد زیر را بنویسید:

KDPhone1.DialNumber(Edit1.Text,0);

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

خب حالا چگونه اطلاعات خود را فکس کنیم؟ چانچه شماره ای که با آن تماس گرفته ایم مربوط به یک دستگاه فکس می باشد و آن دستگاه پس از زنگ خوردن آمادگی خود را برای دریافت فکس اعلام کند ( اتوماتیک یا توسط کاربر) در آن هنگام سیکنالی به مودم ما ارسال می شود که مشخص می کند دستگاه فکس مورد نظر آماده دریافت اطلاعات می باشد. برای دسترسی به این وضعیت می توانیم در قسمت رویداد KDPhone1CallState (برای کسب اطلاعات بیشتر در رابطه با این رویداد درس اول و دوم تلفن را مطالعه کنید ) آنرا پیدا کنیم نام این وضعیت csWaitingForFaxCommand و موقعی اتفاق می افتد که فکس مقابل آمادگی خود را اعلام کرده است فرصت را غنیمت شمرده و اطلاعات خود را در این وضعیت ارسال می کنیم پس کد زیر را در این قسمت (یا صورت پروسیجر جداگانه) بنویسید:

csWaitingForFaxCommand:

begin

err := KDFax1.FaxSend ('مسیر و نام فایل ', 1 , -1 );

if err<>0 then Memo1.Lines.Add( 'Error: '+KDFax1.GetErrorMsg(err) )

else Memo1.Lines.Add('آغاز ارسال فکس');

end;

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

می توان گفت که تا اینجا کار تمام شده است اما در حین ارسال فکس اتفاقات و وضعیتهای مختلفی رخ می دهد که اگر بتوانیم به آنها دسترسی داشته باشیم طبعا می توانیم برنامه بهتری بنویسیم، برای دسترسی به وضعیتهایی که در حین ارسال فکس رخ می دهند بایستی شیئ KDFax1 را انتخاب کرده و در قسمت رویدادها مقابل رویداد OnFaxState دوبار کلیک کنیم، اکنون با نوشتن یک ساختار Case می توانیم به وضعیتهای مختلف دسترسی پیدا کنیم:

procedure TForm1.KDFax1FaxState(Sender: TObject; FaxState: TFaxState; Param1: Integer; StrParam2: string);

begin

Case FaxState of

fsInitializing: Memo1.Lines.Add('آماده سازی دستگاه');

fsConnecting: Memo1.Lines.Add('ارتباط برقرار شد');

fsRemoteFaxID: Memo1.Lines.Add('عنوان فکس مقابل: '+StrParam2);

fsBPSRate: StaticText1.Caption:=(StrParam2); // سرعت ارسال یا نرخ ارسال

fsTraining: Memo1.Lines.Add('در حال ارسال');

fsTrainingFailed: Memo1.Lines.Add('ارسال با شکست مواجه گردید');

fsWritePageText:

begin

KDFax1.FaxSendWriteText( 40, 10, 'From: '+'http://delphigroup.blogfa.com');

KDFax1.FaxSendWriteText( 750 ,10, FormatDateTime('"Date: "mm/dd/yyyy" Time: "hh:mm',Now));

KDFax1.FaxSendWriteText( 1600,10,'Page: '+ IntToStr(Param1));

end;

fsSendPageDone: Memo1.Lines.Add('ارسال صفحه '+IntToStr(Param1)+' کامل شد ');

fsFaxDone:

if Param1=0 then Memo1.Lines.Add('سند مورد نظر با موفقیت فکس گردید')

else Memo1.Lines.Add('متاسفانه سند مورد نظر با موفقیت ارسال نگردید');

fsError: Memo1.Lines.Add('Error: '+KDFax1.GetErrorMsg(Param1));

end;

وضعیتهای بالا کامل ساده و واضح هستند بجز وضعیت fsWritePageText این وضعیت هنگامی اتفاق می فتاد که سند شروع به ارسال گردد خب ما می توانیم در این هنگام با استفاده از متد FaxSendWriteText ( x, y, text ) مقداری در مختصات صفحه ارسالی بنویسیم x,y بر حسب پیکسل می باشند و Text متنی است که می خواهیم در آن مختصات ظاهر شود برای نمونه در مثال بالا عنوان وبلاگ در گوشه سمت چپ بالای کاغذ تاریخ و ساعت تقریبا وسط و شماره صفحه در گوشه سمت راست بالای کاغذ چاپ خواهد شد.

تصویر زیر نمونه پس از اجرای برنامه نمونه می باشد:

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

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

مژده مژده آخرین نسخه

... همین امروز گیرم اومد منتظر باشید FastReport.v4.2.Full.Source

دانلود آموزش ساختTIFF دانلود نمونه برنامه

دلفی برای PHP

delphigroup — Wed, 02 May 2007 05:03:18 GMT

دانلود نسخه کامل همراه با کرک Delphi for PHP

با سلام خدمت دوستان برنامه نویس

دیروز ایمیل یکی از دوستان به دستم رسید، ایشون نوشته بودن که وبلاگم کم کم از حالت قبلی داره خارج میشه و کمرنگتر وقتی نگاه کردم دیدم واقعا همینطور هم هست حال برای جبران امروز می خوام شما رو غافلگیر کنم و نسخه دلفی برای PHP ورژن 2007 رو جهت دانلود گذاشتم.

مفتخر هستم که جزو اولین برنامه نویسان ایرانی هستم که دلفی ۲۰۰۷ رو بدست آوردم

همانطور که مطلع هستید شرکت برلند امتیاز دلفی را به شرکت CodeGear فروخته و این شرکت جدید محصول جدیدی از دلفی را در دو نسخه Delphi for Win32 و Delphi for PHP ارائه کرده که بسیار قوی و سریع می باشد من خودم به شخصه بسیار لذت بردم تازه یک مژده براتون دارم در نسخه 2007 دلفی تمام کامپوننتهای دلفی های قدیمی نصب می شوند در حالی که قبلا امکان پذیر نبود پس نگران این نباشید چون من برنامه ام را با دلفی 6 یا 7 یا 2006 نوشتم نمی تونم اون رو اینجا ویرایش کنم ... چون می توانید همان کامپوننتها رو در این نسخه بدون هیچ دردسری نصب کنید.

اما من در اینجا برای شما نسخه Delphi for PHP رو گذاشتم و همانطوریکه از اسمش پیداست برای آن برنامه نویسانی طراحی شده که قصد تهیه برنامه های PHP دارند لازم به ذکر است که در این محصول دیگر شما نیاز به نصب Apache ندارید و خود دلفی براتون سرور محلی نصب خواهد کرد به راحتی بگم مستقیم در این محیط برنامه PHP بنویسید و اجرا کنید. محیطی با ظاهر و قابلیتهای دلفی ولی برنامه نویسی PHP.

طرز نصب این محصول بسیار ساده و مانند بقیه برنامه ها می باشد فقط بعد از پایان نصب فایل درون شاخه Crack را در مسیر نصب برنامه کپی کنید.

امیدوارم با این کار تونسته باشم دل شما را به دست آورده باشم.

مبارکتون باشه

دانلود

نمایش و ویرایش فیلدهای Memo در DBGrid

delphigroup — Sat, 14 Apr 2007 08:18:18 GMT

نمایش و ویرایش فیلدهای Memo در DBGrid

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

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

سوال : چگونه می توان متن مربوط به فیلدی که از نوع Memo است را در DBGrid نشان داد و ویرایش کرد؟

در حالت عادی چنین کاری صورت نمی گیرد اما غیر ممکن هم نیست! برای دستیابی به این هدف مراحل زیر را دنبال کنید:

ما در تمرین زیر از یک دیتابیسی استفاده کرده ایم که با Access طراحی شده است و دارای یک جدول با سه فیلد به شرح زیر می باشد شما نیز می توانید چنین پایگاهی را طراحی کنید یا اینکه از دیتابیسهای خودتان استفاده کنید.

Tabel1
Text ( 12 )	Name
Text ( 12 )	Fam
Memo	Address

و نیز برنامه ما متشکل از یک فرم Form1 یک adoTable1 یک DataSource1 و یک DBGrid1 می باشد که پس از نتظیم رشته اتصال ( AdoTabel1.ConnectionString ) بر روی آن جدول دابل کلیک کرده و تمام فیلدهای آنرا اضافه کردیم.

گام اول: نمایش فیلد در DBGrid

روی Tabel یا Queryمورد نظر دابل کلیک کرده و سپس فیلد مورد نظر را که از نوع Memo است را انتخاب کنید اکنون به قسمت Event ها رفته و مقابل رویداد OnGetText دابل کلیک کنید و سپس کد زیر را وارد کنید

procedure TForm1.ADOTable1AddressGetText(Sender: TField; var Text: string;

DisplayText: Boolean);

begin

Text := Copy( ADOTable1Address.AsString,1,50 )

end;

به همین سادگی حال برنامه را اجرا کنید و از نتیجه لذت ببرید. اما اگر سعی کنید که اطلاعات را ویرایش کنید با پیغام خطا مواجه خواهید شد پس ویرایش نکنید و به جای آن گام دوم را بخوانید...

گام دوم ویرایش فیلد

برای اینکار کمی بیشتر بایستی کار کنیم، جهت ویرایش اینگونه فیلدها نمی توان درون DBGrid این کار را انجام داد پس یک فرم کوچک و جمع و جور برای این منظور ایجاد می کینم، لطفا یک فرم جدید به برنامه اضافه کنید و بعد بر روی آن فرم یک شئ Memo قرار دهید و خصوصیت Align آن را بر روی alClient تنظیم کنید تا به اندازه کل فرم بسط پیدا کند.

خُب تا اینجا کافیست حال به فرم اصلی که حاوی DBGrid هست برگشته و DBGrid1 را انتخاب کنید و سپس در مقابل رویداد KeyDown دابل کلیک کرده و کد زیر را بنویسید:

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

If key = VK_RETURN then begin

if DBGrid1.SelectedField = ADOTable1Address then

with Form2 do

begin

Memo1.Text := ADOTable1Address.AsString;

Form2.ShowModal;

ADOTable1.Edit;

ADOTable1Address.AsString := Memo1.Text;

end;

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

بیشتر بدانیم:

در گام اول رویداد OnGetTextبه کار رفته است. این رویداد زمانی اتفاق می افتاد که جدول می خواهد اطلاعات مربوط به رکوردها را دریافت کند و فیلد مربوطه متن خود را بدست آورد. خب این بهترین فرصتی است که ما می توانیم برای نمایش متن تصمیم بگیریم و آنرا به متن دیگری تغییر بدهیم که برای انجام این کار بایستی متن جدید را به متغیر Text بدهیم برای مثال اگر ما این مقدار را تایپ کنیم Text := 'FaraNet'; در آنصورت تا همیشه مقدار FaraNet را به کنترلها می فرستد و فقط این عبارت را خواهیم دید اما این عبارت فقط جنبه صوری دارد و بر محتوای اصلی فیلد اثری ندارد، خب در این تمرین ما با استفاده از تابع Copy از فیلد اصلی به مقدار 50 کاراکتر برداشتیم و به متغیر Text واگذار کردیم تا آنرا نمایش دهد شما می توانید مقدار 50 را کم یا زیاد کنید.

در گام دوم می دانید که رویداد OnKeyDown موقعی اتفاق می افتاد که دکمه ای از روی صفحه کلید فشرده شود در این هنگام کد آن توسط متغیر Key قابل دسترسی هست، خب چون ما تصمیم داشتیم که ویرایش را با کلیک اینتر فعال کنیم برای همین در شرط از مقدار VK_RETURN تعریف شده در دلفی که بیانگر کلید Enter و معال کد 13 می باشد استفاده کردیم البته می توانستیم از کد 13 نیز استفاده کنیم و اما شرط دوم بسیار مهم است چون ما در این شرط بررسی کردیم که اگر فیلد فعال همان فیلد مورد نظرمان است در آن صورت Form2 که مربوط به ویرایش است را فراخوانی کند در غیر اینصورت چنانچه ما از این شرط استفاده نمی کردیم در آنصورت با فشردن اینتر بر روی هر فیلدی در DBGrid فرم مربوط به ویرایش فیلد آدرس ظاهر می شد و این مطلب برای مشتری ناخوشایند می باشد.در ادامه مراحل هم که مشاده می فرمائید مقدار فعلی فیلد را ابتدا به شئ Memo مربط به فرم دوم ارسال کردیم و بعد آن فرم را ظاهر کردیم تا پس اطلاعات ویرایش شوند و بعد از بستن فرم دوم حتما قرار دادن جدول در حالت ویرایش الزامی می باشد تا مقدار جدید را بپذیرد در غیر اینصورت با خطای عدم درج و ویرایش مواجه می شدیم....

امیدوارم که این مطلب سود و منفعتی برای شما دوستان عزیز داشته باشد و امیدوارم که توانسته باشم کمک کوچکی به شما برنامه نویسان عزیز کرده باشم

مطمینا نظرات شما موجب تقویت روحیه ما خواهد بود و ایمان پیدا می کنیم که مطالبی که که قرار می دهیم مطالعه می شوند پس از نظزات سبزتان ما را بی نصیب نگذارید

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

delphigroup — Mon, 09 Apr 2007 05:27:18 GMT

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

با سلام و تشکر از دوستان عزیز که ما را با ایملها و نظرات خود دلگرم می کنند

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

مشکل اول: دوستان نوشته اند که برنامه بر روی مودم ما درست جواب نمی دهد؟

خدمت شما عرض کنم که این برنامه ها همگی تست شده هستند و به درستی جواب می دهند اما من از مودم External استفاده می کنم و مطمینم که روی مودمهای External جواب می دهد اما برای مودمها Internal مطمین نیستم و ممکن است هر مدلی را نپذیرد.

مشکل دوم: برخی دوستان نوشته اند که ما فایهای صوتی خودمان که می خواهیم پخش شوند را برای برنامه معرفی می کنیم امام متاسفانه پخش نمی شوند!؟

خدمت دوستان بایستی عرض کنم که شما نمی توانید از هر فایل صوتی استفاده کنید چونکه ابزارهای KD فقط فایلهای *.Wav را پشتیبانی می کنند آن هم با این شرایط که این فایلها بایستی دارای فرمتی با این مشخصات 8,000hz;16bit;mono باشد اگر فایل صوتی شما از نوع Wav باشد ولی مشخصات آن متفاوت باشد مثلا Stereo باشد پخش نخواهد شد. پس ابتدا شما هر فایلی که دوست داشته باشید حتی اگر MP3 باشد را ابتدا به فرمت Wav تبدیل کنید و مشخصات آن را بصورت بالا در آورید سپس در برنامه از آن استفاده کنید برای این کار برنامه های کمکی زیادی موجود می باشد. من برای شما نحوه تغییر دادن مشخصات یک فایل Wav را به روش خود ویندوز در پایین آموزش داده ام با من همراه باشید:

ابتدا برنامه Sound Recorder را اجراء کنید می توانید آنرا در مسیر زیر پیدا کنید

Start > All Programs > Accessories > Entertainment > Sound Recorder

حالا از منوی File ، فایل صوتی خود را باز کرده و سپس بقیه مراحل را مانند شکل زیر انجام داده و در انتها از منوی File گزینه Save را انتخاب کنید تا فایل با مشخصات جدید ذخیره شود به شما قول می دهم که این فایل توسط مودم شما قابل پخش خواهد بود.

دوستان عزیز با نظرات خود ما را در پیشبرد هر چه بهتر وبلاگ یاری فرمائید .

پاسخ به تماس گرفته شده و تشخیص دکمه های فشرده شده

delphigroup — Sat, 07 Apr 2007 06:27:18 GMT

پاسخ به تماس گرفته شده و تشخیص دکمه های فشرده شده

با سلام خدمت دوستان و مخاطبین عزیز

از تاخیری که در ارائه مطالب پیش آمد عذرخواهی می طلبم و خدمتتان عزض کنم که تنها دلیل آن تجهیز و راه اندازی مرکز IT بود.

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

برای انجام چنین کاری بایستی ابتدا موارد زیر را انجام دهیم:

1- خط تلفن را به مودم کامپیوترمان وصل کنیم

2- خط راتباطی را انتخاب بکنیم و آنرا فعال کنیم

3- در قسمت کنترل وضعیتها کد مناسب برای وضعیت csReferring بنویسیم

لطفاً پروژه جدیدی را شروع کنید و بر روی فرم آن اشیاء زیر را قرار دهید:

اکنون قسمت Var را همانند درس اول ( مقاله آغاز ارتباط و کنترل خط) طراحی کنید همچنین قسمت رویدادOnCreate را به همان صورت و نیز کد مربوط به ComboBox1 را نیز همانند کد درس اول بنویسید و در پایان شئی KDPhone1 را انتخاب و برای رویداد OnCallState آن همان کد درس اول را وارد کنید.... بسیار خُب تا اینجا تمام برنامه ما تکراری بود!! پس چگونه می توان تماس گرفته شده را تشخیص داد؟ برای این کار وضعیت به خصوصی را شئی KDPhone دارا می باشد که نام این وضعیت csReferring است و بایستی آنرا به وضعیتهای onCallState اضافه بکنیم، اگر ما برنامه را اجرا کنیم و خط ارتباطی ( مودم) را فعال کنیم و بعد از آن شخصی با ما تماس بگیرد آنگاه وضعیت csReferring بطور خود کار رخ خواهد داد اما این کافی نیست و هنوز برنامه ما قادر به پاسخ نمی باشد لذا برای اینکه پاسخگویی و ارتباط آغاز گردد بایستی در این وضعیت ما از تابع Answer(0) استفاده می کنیم (مانند این است که گوشی را برداشته باشیم) در زیر کد مربوط به رویداد onCallState مربوط به KDPhone1 را برای شما باز نویسی کرده ام:

case CallState of

csConnected :

begin

Memo1.Lines.add ('تماس برقرار شد' );

Err := KDVoice1.Play( KDPhone1.WavePlayID,'start.wav',0,-1 );

Memo1.Lines.add ('در حال دريافت شماره');

if err<>0 then ShowMessage(KDPhone1.GetErrorMsg(err));

end;

csDisconnected : Memo1.Lines.add ('ارتباط قطع شد');

csRing: Memo1.Lines.add ('در حال زنگ خوردن');

csBusy:

begin

Memo1.Lines.add ('خط ارتباطي مشغول مي باشد');

KDPhone1.Hangup;

end;

csError:

begin

Memo1.Lines.add ('خطایی در تماس رخ داده است');

KDPhone1.Hangup;

end;

csOffering:

begin

Memo1.Lines.add ('دریافت تماس جدید');

err := KDPhone1.Answer(0);

if err<>0 then ShowMessage(KDPhone1.GetErrorMsg(err));

end;

end; //case

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

خب اما قسمتی که برخی دوستان ایمیل فرستادن و بی صبرانه منتظر آن هستند، چگونه در هنگام برقراری تماس می توانیم بفهمیم که کاربر تماس گیرنده کدام دکمه های گوشی خود را فشار می دهد تا بتوانیم با توجه به آنها برنامه ای خواصی بنویسیم؟ خوشبختانه KD راه حل ساده ای برای این موضوع گذاشته است که من در اینجا فقط به ذکر یک مثال ساده اکتفا می کنم. برای دسترسی به این قابلیت بایستی ابتدا شیئ KDPhone1 را انتخاب کرده و سپس در قسمت Event مقابل رویداد onDigitDetected دوبار کلیک کنید، این همان چیزیست که ما نیازمندیم و KD آنرا موقعی که دکمه ای از سمت تماس گیرنده فشار داده شود فراخوانی می کند به شکل زیر دقت کنید:

procedure TmainForm.KDPhone1DigitDetected(Sender: TObject; Digit: Char; CallHandle: Integer);

begin

if Digit='1' then …………

if Digit='2' then …………

if Digit='*' then …………

end;

در رویداد فوق متغیر Digit از نوع کاراکتر بوده و شماره یا علامت فشرده شده توسط طرف مقابل را به ما می دهد اکنون شما برای تمرین کد زیر را به برنامه خود اضافه کنید:

    if Digit='1' then KDVoice1.Play( KDPhone1.WavePlayID,'1.wav',0,-1 );
    if Digit='2' then KDVoice1.Play( KDPhone1.WavePlayID,'2.wav',0,-1 );
    if Digit='3' then KDVoice1.Play( KDPhone1.WavePlayID,'3.wav',0,-1 );
    if Digit='4' then KDVoice1.Play( KDPhone1.WavePlayID,'4.wav',0,-1 );
    if Digit='5' then KDVoice1.Play( KDPhone1.WavePlayID,'5.wav',0,-1 );

در مثال فوق با فشرده شدن هر عدد یک فایل صوتی برای تماس گیرنده پخش می شود و اگر علامتی فشرده شود مانند * , # فایل صوتی دیگری پخش می شود. البته شما می توانید یک شماره چند رقمی را دریافت کنید و برای آن برنامه بنویسید برای مثال مشترکی که از طریق تلفن شماره اشتراک خود را وارد می کند تا اطلاعاتی را دریافت کند و .... البته برای این کار بایستی یک قانونی قرار بدهید و آنرا در هنگام آغاز تماس، به تماس گیرنده اطلاع دهید مثل خاتمه ورود شماره با فشردن دکمه * لطفاً مثال زیر را ملاحظه فرمائید:

procedure TmainForm.KDPhone1DigitDetected(Sender: TObject; Digit: Char; CallHandle: Integer);

begin

If Digit='*' then begin

// کد و عملیات مورد نظر

N := '';

End

else

N := N+Digit;

end;

می بینید که مساله بسیار ساده هست کاربر ارقام مربوط به کد خود را یکی یکی وارد می کند و برای پایان از دکمه * استفاده می کند و در بالا متغیر N یک متغیر از نوع رشته ای و بصورت سراسری معرفی شده استکه در آن شماره نهایی ثبت می شود و پس از خاتمه عملیات دوباره این متغیره خالی شده و منتظر شماره بعدی می ماند. ما از این روش در یک برنامه برای انبار شرکت گاز میانکوه خوزستان استفاده کردیم و مدتیست که سیستم پاسخ گوی انبار فعال است البته ما اطلاعات تماس گیرنده شماره درخواست تاریخ و ساعت آن را در برنامه ثبت می کنیم تا برنامه بتواند اطلاعات آماری برای ما نشان دهد.

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

نکته 1 : گوشی تماس گیرنده بایستی در حالت Tone باشد

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

دانلود برنامه

مركز آموزش IT

delphigroup — Sat, 17 Feb 2007 05:51:36 GMT

مركز آموزش IT

با سلام خدمت دوستان از اينكه نتونستم مقالات جديد رو توي وبلاگ بزارم متاسفم شايد اين هفته اين كار رو بكنم. دليل تاخير هم راه اندازي مركز آموزشي فن آوري اطلاعات با همكاري دوستام در اميديه هست كه به اميد خدا اسفند ماه افتتاح خواهد شد

درس اول : آغاز ارتباط و کنترل خط

delphigroup — Sat, 03 Feb 2007 05:44:18 GMT

درس اول : آغاز ارتباط و کنترل خط

نکته : برای ایجاد ارتباط بایستی حتما یک دستگاه مودم بر روی کامپیوتر شما نصب باشد و خط تلفن به آن متصل باشد.

جهت ایجاد ارتباط بایستی سه عمل اولیه انجام دهید:

1- ابتدا بایستی خط ارتباطی را برای برنامه مشخص کنید. منظور اینست که شما از طریق کدام پورت یا کدام مودم می خواهید تماس را برقرار کنید و آن خط را بایستی فعال کنید.

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

3- بایستی وضعیت ارتباطی را بررسی کنید. پس از شماره گیری بایستی بررسی کنید که آیا ارتباط برقرار شد، خط مشغول است و...

برای درک بیشتر و بهتر مثالی در زیر آماده کرده ام که با همدیگر آن را مورد مطالعه قرار می دهیم:

ابتدا وارد دلفی شده و یک پروژه جدیدی شروع کنید و اجزاء زیر را بر روی فرم مانند شکل را قرار دهید:

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

1- ابتدا در قسمت Var اصلی برنامه سه متغیر با نامهای زیر تعریف کنید:

var

Form1: TForm1;

I : Word;

S : WideString;

err : Word;

implementation

2- بر روی فرم دوبار کلیک کرده تا رویداد OnCreate فرا خوانی شود و سپس کد زیر را وارد کنید:

procedure TForm1.FormCreate(Sender: TObject);

begin

for I := 0 to KDPhone1.NumberOfLines-1 do

begin

KDPhone1.GetLineName( i,s );

ComboBox1.Items.Add(S)

end;

در کد فوق همانگونه که مشاهده می کنید از یک حلقه شمارشی برای بدست آوردن خطوط ارتباطی موجود در کامپیوترمان استفاده کرده ایم. در این حلقه از خصوصیت NumberOfLines برای بدست آوردن تعداد خطوط استفاده کردیم سپس با استفاده از تابع GetLineName( i,s ) برای بدست آوردن نام خط ارتباطی و ذخیره آن در متغیر S استفاده کردیم و در انتها مقدار S را درون ComboBox1 اضافه کردیم تا برنامه موقع اجراء لیستی از خطوط ارتباطی را جته انتخاب به ما نشان دهد.

3- اکنون بر روی ComboBox1 دابل کلیک کنید و کد زیر را وارد کنید:

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

err := KDPhone1.LineActive(ComboBox1.ItemIndex,True);

if err<>0 then ShowMessage(KDPhone1.GetErrorMsg(err))

else Memo1.Lines.add('خط ارتباطی آماده می باشد');

end;

در فوق ما کدی نوشتیم که کاربر با انتخاب هر کدام از خطوط موجود در ComboBox1 بتواند آن خط را بعنوان خطوط فعال توسط تابع LineActive( LineNumber , True ) معرفی و فعال کند. چنانچه فعال سازی خط با مشکل مواجه شود آنگاه با استفاده از تابع GetErrorMsg(err) پیغام مربوط به آن خطا را بدست آورده و نمایش می دهیم. شما می توانید درون اسامی مربوط به خطوط و دستگاههاي ارتباطي نام مودم خود را یافته و آنرا انتخاب کنید.

4- اکنون بر روی دکمه Dial دابل کلیک کنید و کد زیر را بنویسید:

procedure TForm1.Button1Click(Sender: TObject);

begin

err := KDPhone1.DialNumber( Edit1.Text,0 );

if err<>0 then ShowMessage(KDPhone1.GetErrorMsg(err));

end;

توسط تابع DialNumber( Edit1.Text,0 ); شماره تایپ شده توسط کاربر در Edit1.Text شروع به شماره گیری می گردد. شما می توانید شماره ثابتی را درون این تابع بصورت رشته ای بنویسید.

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

csError	csRemotePartyDisconnected	csDisconnected
csOfferedCallDropped	csBusy	csConnected
csWaitingDisconnection	csOffering	csProceeding
csNoDialTone	csRing	csDialing
csWaitingForFaxCommand	csRemovedFromConference	csInConference
csOnHold	csRingBack	csDialTone
		csUnhold

اکنون شئی KDPhone1 را انتخاب کرده و سپس از پنجره Object Inspector به تب Events رفته و در مقابل OnCallState دابل کلیک کنید و سپس کد زیر را بنویسید:

procedure TForm1.KDPhone1CallState(Sender: TObject; CallState: TCallState;

Param1, Param2, CallHandle: Integer);

begin

case CallState of

csDialing : Memo1.Lines.Add( 'در حال تماس گرفتن');

csConnected :

begin

Memo1.Lines.Add( 'تماس برقرار شد' );

Err := KDVoice1.Play( KDPhone1. WavePlayID,'C:\ Wellcome.Wav',0,-1 );

if err<>0 then ShowMessage(KDPhone1.GetErrorMsg(err))

else Memo1.Lines.Add('در حال پخش پیغام');

end;

csDisconnected : Memo1.Lines.Add( 'ارتباط قطع شد' );

csBusy:

begin

Memo1.Lines.Add( 'خط تلفن مشترک مشغول می باشد' );

KDPhone1.Hangup;

end;

csError:

begin

Memo1.Lines.Add( 'خطایی در تماس رخ داده است' );

KDPhone1.Hangup;

end;

end; //of case

end;

به نظر می رسد کمی گیج کننده باشه ولی کامل منطقی و جالب می شه گفت با کد نویسی درست وضعیتها می شه کنترل بیشتری بر روی سیستم داشته باشیم اما شرح کدها:

وضعيت csDialing موقعي اتفاق مي افتد كه تلفن طرف مقابل در حال زنگ خوردن باشد.

وضعیت csConnected موقعی اتفاق می افتد که خط ارتباطی و شماره طرف مقابل با موفقيت وصل شود که در اینصورت ما بعد از نمایش پیغامی مناسب توسط شئی KDVoice1 و با استفاده از تابع Play فایل صوتی Wellcome.Wav واقع در درایو C: را پخش کردیم که در این هنگام طرف مقابل آن صدا را خواهد شنید لازم بذکر است که فایل صوتی حتما باید از نوع Wav باشد.

وضعیت csDisconnected موقعی رخ دهد که به هر طریق ارتباط قطع گردد.

وضعیت csBusy موقعی رخ می دهد که تلفن مقابل زنگ مشغولی بخورد که ما در این هنگام پس از نمایش پیغام مناسب سعی بر قطع ارتباط با استفاده از متد Hangup کردیم این متد هر کجا بکار رود موجب قطع ارتباط شده و وضعیت csDisconnected را بوجود می آورد.

وضعیت csError موقعی بکار می رود که در هر صورتی خطای در ارتباط رخ دهد. که در این هنگام ما سعی بر قطع ارتباط می کنیم.

توضیح در مورد تابع Play : این تابع برای پخش صدا بکار می رود که پارامتر اول آن نشان دهنده محل پخش فایل صوتی است اگر مقدار آن 1- باشد یعنی صدا از طریق کارت صدای کامپیوتر جاری پخش شود و اگر از تابع WavePlayID مربوط به شیئ KDPhone استفاده کنیم آنگاه خط تلفن را برای پخش بکار می گیرد، در پارامتر دوم بایستی مسیر و نام فایل صوتی را مشخص کنیم، پارامتر سوم محل آغاز پخش فایل را مشخص می کند که عدد صفر نشانه شروع از ابتدا می باشد و آخرین پارامتر محل پایان فایل صوتی را نشان می دهد که مقدار 1- نشان دهنده پایان فایل است.

6- اکنون شئی KDVoice1 را انتخاب کرده و سپس از پنجره Object Inspector به تب Events رفته و در مقابل OnSoundState دابل کلیک کنید و سپس کد زیر را بنویسید:

procedure TForm1.KDVoice1SoundState(Sender: TObject; State: TSoundState; BytePosition, ErrorNumber: Integer);

begin

Case State of

ssPlayDone:

begin

Memo1.Lines.Add( 'پخش فایل صوتی با موفقیت به پایان رسید' );

KDPhone1.Hangup;

end;

ssError:

begin

KDPhone1.Hangup;

Memo1.Lines.Add( 'خطایی در پخش صدا رخ داده است' );

end;

end; // of case

end;

شئی KDVoice داری 11 وضعیت مختلف و کاربردی می باشد که در اینجا فقط به 2 از آنها اشاره کردیم (در مقالات بعدی این شئ بیشتر مورد بررسی قرار خواهد گرفت) . در وضعیت اول که در هنگام پایان پخش فایل صوتی اتفاق می افتد ما پیغامی را نمایش دادیم و سپس ارتباط را قطع کردیم.

اين هم تصويري از برنامه اجرا شده:

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

شما می توانید با استفاده از یک بانک اطلاعاتی برنامه ای بنویسید که به تلفن نفرات موجود تماس گرفته و پیغامی را پخش کند و در صورتی که موفق نشود فلگی (یک فیلد از نوع بولی) را علامت بزند تا شما بعدا به آن رسیدگی کنید و در صورت موفقیت نفر بعدی را بگیرد. مثلا سیستمی یادآوری تاریخ آزمون شاگردان. البته میشه برنامه های دیگری را نوشت در مقالات بعدی شما را با مطالب جالبتر و کاربردیتر آشنا می کنم.

خوب دوستان عزیز تا اینجا چطور بود نظر خودتان را برای بهتر شدن مطالب بنویسید منتظر نظرات شما هستم

در روهاي آينده بيش از۵ مقاله كاربردي و بهتر قرار خواهم داد منتظر باشيد...