ترقيم الهاتف و التحكم بالموديم

achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
في: كانون الثاني 23, 2009, 08:19:50 مسائاً
   
الصلاة و السلام على أشرف  المرسلين سيدنا محمد و على آله و صحبه أجمعين أما بعد

سنتعلم كيفية تثبيت  مركب غير متوفر مع النسخة الأصلية للدالفي، أيضا كيفية الاتصال  بالموديم   MODEM   لاستعماله للاتصالات الهاتفية.    
  أولا: في المثال المرفق،  سنجد المركب DialerPlus الذي يتوفر على  ملف .Pas
       - ننسخ محتوى الملف و نلصقه في المسار  التالي:    C:\Program Files\Borland\Delphi5\Lib
         أي في الملف المسمى  Lib لمسار تثبيت الدالفي الخاص  بك.
       -   بعدها  نبدأ في تثبيت هذا المركب من Composant---Installer un composant  


     
أنقر على Parcourir…  بعها اختر اسم الوحدة Nom d’unité   الذي   هو  DialerPlus.pas ثم ok  
  - ستظهر لك نافذة جديدة تعلمك أن  dclusr.bpl سوف يتم انشائه و تثبيته،  وافق على الامر بالضغط على Oui  .
  ستجد المركب في Semple  


     
 هكذا نكون قد انتهينا من تثبيت المركب و  لنبدأ في برنامج الترقيم الهاتفي

   
 أولا نظيف المركبات التالية  Combobox,Edit,Button,MainMenu,Dialer
   
   
Valeur
 
Propriété
 
Contrôle
 
Numéroteur TEL  
 
Caption  
 
Feuille  
 
Nom  
 
Name  
 
Combobox  
 
False  
 
Stored  
 
ComboBox  
 
 
Text  
 
Edit  
 
Numero  
 
Name  
 
Edit  
 
Composer  
 
Name  
 
Button  
 
&Composer
 
Caption  
 
Button  
 
dpCom2  
 
ComPort  
 
Dialer  
 
dlFrech  
 
Language  
 
Dialer  
 
ننقر على  MainMenu  مرتان و نظيف القائمة  التالية
   
Checked  
 
Nom  
 
ِ  Commande
 
False  
 
Port  
 
Principale  
 
False  
 
COM1  
 
Secondaire  
 
True  
 
COM2  
 
Secondaire  
 
False  
 
COM3  
 
Secondaire  
 
False  
 
COM4  
 
Secondaire  
 
وضعنا True   لـــــ  COM2 لنجعله هو  الأصل.
 
 
و الآن مع  CODE SOOURCE
unit Unit1  ;
interface
uses
       Windows, Messages,  SysUtils, Classes, Graphics, Controls, Forms, Dialogs  ,
 Menus, dialerPlus,  StdCtrls, ExtCtrls ;
type
    TForm1 = class(TForm  )
 Nom: TComboBox  ;
 Numero: TEdit  ;
 COMPOSER: TButton  ;
 Dialer1: TDialer  ;
 MainMenu1: TMainMenu  ;
 Port1: TMenuItem  ;
 COM11: TMenuItem  ;
 COM21: TMenuItem  ;
 COM31: TMenuItem  ;
 COM41: TMenuItem  ;
 Bevel1: TBevel  ;
 procedure  COMPOSERClick(Sender: TObject  );
 procedure  FormActivate(Sender: TObject  );
 procedure  COM11Click(Sender: TObject  );
 procedure  COM21Click(Sender: TObject  );
 procedure  COM41Click(Sender: TObject  );
 //      procedure  COM31Click(Sender: TObject  );
 procedure NomClick(Sender:  TObject );
 procedure  COM31Click(Sender: TObject  );
 private
     {  Déclarations privées  }
 public
     {  Déclarations publiques  }
 end  ;
Var


             Form1: TForm1  ;
 F:textFile  ;
 Max,I:integer  ;
 NomTel, NumTel:array[1..100] of string  ;
implementation
{$ R *.DFM  }
procedure TForm1.COMPOSERClick(Sender:  TObject );
          var TempDialer:Tdialer  ;
 begin
  Tempdialer:=Tdialer.Create(self  );
  With Tempdialer  do


           Begin
 ComPort:=dpCom1  ;
 Confirm:=true  ;
 DialCommand:='ATDT  ';
 Numbertodial:=Numero.text  ;
 Language:=dlfrench  ;
 execute  ;
 free
 end  ;
end  ;
procedure TForm1.FormActivate(Sender:  TObject );
      begin


         Dialer1.ComPort:=dpCOM2  ;
 assignFile(F,'C:\Agend\Agend.txt ');
 reset(f  );
 i:=0  ;


         Repeat
 i:=i+1  ;
  Readln(F,NomTel[i  ]);


           Readln(F,NumTel[i  ]);
 Nom.Items.Add(NomTel[i  ]);


           Until eof(f  );
 CloseFile(F  );
 Max:=i  ;
   Nom.Text:=NomTel[1  ];
 Numero.Text:=NumTel[1  ];
end  ;
procedure TForm1.COM11Click(Sender:  TObject );
      begin
 COM11.Checked:=true  ;
 COM21.Checked:=false  ;
 COM31.Checked:=false  ;
 COM41.Checked:=false  ;
 Dialer1.ComPort:=dpCom1  ;
end  ;
procedure TForm1.COM21Click(Sender:  TObject );
      begin
 COM21.Checked:=true  ;
 COM11.Checked:=false  ;
 COM31.Checked:=false  ;
 COM41.Checked:=false  ;
 Dialer1.ComPort:=dpCom2  ;
end  ;
procedure TForm1.COM31Click(Sender:  TObject );
      begin
 COM31.Checked:=true
 COM21.Checked:=false  ;
 COM41.Checked:=false  ;
 COM11.Checked:=false  ;
 Dialer1.ComPort:=dpCom3  ;
end  ;
procedure TForm1.COM41Click(Sender:  TObject );
      begin
 COM41.Checked:=true
 COM21.Checked:=false  ;
 COM11.Checked:=false  ;
 COM41.Checked:=false  ;
 Dialer1.ComPort:=dpCom4  ;
end  ;
procedure TForm1.NomClick(Sender: TObject  );
       begin
 for i:=1 to Max Do
 If NomTel=Nom.Text  Then
 Numero.Text:=NumTel[i  ];
end  ;
end.
ملاحظة: يجب انشاء ملف كتابة fichier text يحمل  اسم agand.txt و وضعه في المسار التالي:
         
'C:\Agend\Agend.txt
 
 
هكذا نكون قد أتممنا الموضوع، و   وصلنا  للتحميل
[/B][/COLOR]


hamzos

  • Newbie
  • *
    • مشاركة: 6
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #1 في: كانون الثاني 23, 2009, 10:53:18 مسائاً
لم أفهم ما هذا أخي العزيز ؟


Ssoft

  • Hero Member
  • *****
    • مشاركة: 1410
    • مشاهدة الملف الشخصي
    • http://sabeur-academy.com
    • البريد الالكتروني
رد #2 في: كانون الثاني 24, 2009, 12:56:45 مسائاً
مشكــــــــــــــــــــــــــــــوووووووور


achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #3 في: كانون الثاني 28, 2009, 09:07:35 صباحاً
جزاك الله  خير الجزاء لمرورك