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

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)

السلام عليكم

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

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

تحيات

عنيزة;) :) :)

السلام عليكم

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

وشكرا لكم

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)

السلام عليكم

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

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

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

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

تحيات

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

السلام عليكم

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

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

تحيات

عنيزة