الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

فكرة مشروع يتعلق (الاتصالات)

مغلق
بدأه عنيزة في 27 يوليو 2002 · 6 رد · 936 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

نظرا لتطور خدمات الاتصالات ومن هذه الخدمات اظهار رقم المتصل وغيرها...

اريد تطوير برنامج يقوم بالوظائف التالية:

_ اظهار رقم المتصل.

_التعرف على الشخص المتصل (عن طريق قاعدة بيانات يتم اضافة الاشخاص فيها وارقامهم) بالاضافة الى وقت الاتصال وغيرها من البيانات الاضافية.

_تسجيل المكالمات وتخزينها على ملف باي صيغه لكي يتم استماعها لاحقا.

ولكن هناك بعض الصعوبات ومنها:

* كيف اربط البرنامج مع المودم واتعرف على الاتصال.

* كيف اشغل الصوت على السماعات.

* كيف اكتشف وجود اتصال جديد.

* كيف اقوم بتسجيل المكالمات.

هذه فكرة برنامج يمكن تطويرها والاضافة عليها واتمنى ان نقوم بعمل هذا البرنامج جميعا في هذا المنتدى الجميل لكي نضيف الى خبراتنا و نستفيد من بعضنا ونتعلم كيف نتعامل مع عدة اشخاص في مشروع

اذا قبلتم اقتراحي ارجو المشاركة والتعاون لكي نصل الى افضل نتيجة.

او تقديم المعلومات التي قد تفيدني في عمل هذا المشروع من components and code and any thing else

تحيات

عنيزة:rolleyes: :) :rolleyes:

#2

Dear brother,

I'm with you on this project, GOD be with us all,

Yours

IBRAHIM DIAB

Sorry for writting in English but I'm now on WindowsNT 2000 Advanced Server, and the manager doesn't want to install the arabic support.

(f)

#3

السلام عليكم

اشكرك يا اخ ابراهيم لهذا التعاون واتمنى ان يتفق الجميع على تطوير هذا المشروع ولو بالافكار والاقتراحات

منتظراً من الجميع الاشتراك في هذا المشروع لكي نستفد ونفيد من هذا المشروع بالتعاون. وان نبدا في الافكار والتحليل لهذا المشروع

تحيات

عنيزة;) :) :)

#4

السلام عليكم

اعتقد أنى سمعت عن برنامج لبعض امكانيات هذا المشروع ولكنى لم أجربة أو حتى أحصل عليه ... واتمنى فعلا بدأ العمل بمثل هذا المشروع لأهميته ..

وشكرا لكم

" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------

#5

The following example shows how to interface with tapi to make a voice call.

{tapi Errors} 
const TAPIERR_CONNECTED          = 0; 
const TAPIERR_DROPPED            = -1; 
const TAPIERR_NOREQUESTRECIPIENT = -2; 
const TAPIERR_REQUESTQUEUEFULL   = -3; 
const TAPIERR_INVALDESTADDRESS   = -4; 
const TAPIERR_INVALWINDOWHANDLE  = -5; 
const TAPIERR_INVALDEVICECLASS   = -6; 
const TAPIERR_INVALDEVICEID      = -7; 
const TAPIERR_DEVICECLASSUNAVAIL = -8; 
const TAPIERR_DEVICEIDUNAVAIL    = -9; 
const TAPIERR_DEVICEINUSE        = -10; 
const TAPIERR_DESTBUSY           = -11; 
const TAPIERR_DESTNOANSWER       = -12; 
const TAPIERR_DESTUNAVAIL        = -13; 
const TAPIERR_UNKNOWNWINHANDLE   = -14; 
const TAPIERR_UNKNOWNREQUESTID   = -15; 
const TAPIERR_REQUESTFAILED      = -16; 
const TAPIERR_REQUESTCANCELLED   = -17; 
const TAPIERR_INVALPOINTER       = -18; 

{tapi size constants} 
const TAPIMAXDESTADDRESSSIZE      = 80; 
const TAPIMAXAPPNAMESIZE          = 40; 
const TAPIMAXCALLEDPARTYSIZE      = 40; 
const TAPIMAXCOMMENTSIZE          = 80; 
const TAPIMAXDEVICECLASSSIZE      = 40; 
const TAPIMAXDEVICEIDSIZE         = 40; 

function tapiRequestMakeCallA(DestAddress : PAnsiChar; 
                              AppName : PAnsiChar; 
                              CalledParty : PAnsiChar; 
                              Comment : PAnsiChar) : LongInt; 
  stdcall; external 'TAPI32.DLL'; 

function tapiRequestMakeCallW(DestAddress : PWideChar; 
                              AppName : PWideChar; 
                              CalledParty : PWideChar; 
                              Comment : PWideChar) : LongInt; 
  stdcall; external 'TAPI32.DLL'; 

function tapiRequestMakeCall(DestAddress : PChar; 
                             AppName : PChar; 
                             CalledParty : PChar; 
                             Comment : PChar) : LongInt; 
  stdcall; external 'TAPI32.DLL'; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  DestAddress : string; 
  CalledParty : string; 
  Comment : string; 
begin 
  DestAddress := '1-555-555-1212'; 
  CalledParty := 'Frank Borland'; 
  Comment := 'Calling Frank'; 
  tapiRequestMakeCall(pChar(DestAddress), 
                      PChar(Application.Title), 
                      pChar(CalledParty), 
                      PChar(Comment)); 
end; 
end.

Another Code:

function tapiRequestMakeCall(DestAddress, AppName, 
  CalledParty, Comment: PChar): Longint; stdcall; external 'TAPI32.DLL'; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  PhoneNumber, AppName: array[0..255] of Char; 
begin 
  PhoneNumber := '1234567890'; 
  StrPCopy(AppName, Application.Title); 
  tapiRequestMakeCall(PhoneNumber, AppName, '', ''); 
end;

Yours:

IBRAHIM DIAB

(f) (f) (f)

#6

السلام عليكم

اشكرك اخي ابراهيم على هذا المجهود . فهذا الكود سيفيدنا في عمل هذا المشروع.

هناك نقطة مهمة وهي ان نبدأ بتحليل البرنامج و توضيح المطلوب عمله من هذا البرنامج بالضبط كتوضيح العمليات الاساسية فيه ونتناقش فيها . ثم نقوم بمناقشة كل نقطة على حده واعطاء الافكار والاقتراحات المتعلقة فيها وحل المشاكل المتعلقة فيها. اريد منكم المشاركة في توضيح النقاط المطلوبه في هذا المشروع والاقتراحات والاضافات المتعلقة فيه.

فما هو رأيك:) :)

عرض الادوات التي قد نستفيد منها في هذا المشروع مهمه ومن ضمنها هذا الكود الذي يقوم بعملية الاتصال.

تحيات

(f) (f) (f) (f) عنيزة(f) (f) (f) (f)

#7

السلام عليكم

ارجو ان كان هناك اقتراحات او اضافات على العملية الاساسية التي يقوم بها البرنامج ارجو المشاركة

او نقوم بالبدء بجمع المعلومات عن العملية المذكورة سابقا

تحيات

عنيزة

هذا الموضوع مغلق.

مواضيع مشابهة