الصلاة و السلام على أشرف المرسلين سيدنا محمد و على آله و صحبه أجمعين أما بعد
سنتعلم كيفية تثبيت مركب غير متوفر مع النسخة الأصلية للدالفي، أيضا كيفية الاتصال بالموديم 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]