+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكن الحصول على رقم المتصل الهاتفي؟ (/showthread.php?tid=5635)
كيف يمكن الحصول على رقم المتصل الهاتفي؟ - mk1968 - 13-10-2013
السلام عليكم:
كيف يمكن الحصول على رقم المتصل الهاتفي؟
حاولت باستخدام المكون hbtapi ولكن دائما الرقم يظهر فارغا
جزاكم الله خيرا
كيف يمكن الحصول على رقم المتصل الهاتفي؟ - mk1968 - 14-10-2013
procedure TForm3.FormCreate(Sender: TObject);
var i :integer;
begin
ComboBoxDevice.Items := hbTapiLine1.DeviceList;
if ComboBoxDevice.Items.Count > 0 then
ComboBoxDevice.Text := ComboBoxDevice.Items[0];
ComboBoxDevice.ItemIndex := 0;
end;
to activate
procedure TForm3.Button1Click(Sender: TObject);
var I :integer;
begin
hbTapiLine1.DeviceName := ComboBoxDevice.Text;
hbTapiLine1.Privileges.AutoSelect := True;
hbTapiLine1.MediaModes := LINEMEDIAMODE_INTERACTIVEVOICE;
hbTapiLine1.Privileges.None := True;
hbTapiLine1.Privileges.Monitor := True;
hbTapiLine1.Active := true;
end;
procedure TForm3.hbTapiLine1CallerID(Sender: ThbTapiLine; Call: ThbTapiCall);
begin
Label1.Caption := Call.CallerID.Name;
Label2.Caption := Call.CallerID.Address;
end;
procedure TForm3.hbTapiLine1CallInfo(Sender: ThbTapiLine; Call: ThbTapiCall;
InfoState: Cardinal);
begin
if not Call.CallerID.unAvail then
begin
Label2.Caption := Call.CallerID.Address;
Label1.Caption := Call.CallerID.Name;
end;
end;
procedure TForm3.hbTapiLine1CallState(Sender: ThbTapiLine; Call: ThbTapiCall;
CallState: Cardinal);
begin
if not Call.CallerID.unAvail then
begin
Label2.Caption := Call.CallerID.Address;
Label1.Caption := Call.CallerID.Name;
end;
end;
procedure TForm3.hbTapiLine1Offering(Sender: ThbTapiLine; Call: ThbTapiCall);
begin
if not Call.CallerID.unAvail then
begin
Label2.Caption := Call.CallerID.Address;
Label1.Caption := Call.CallerID.Name;
end;
end;