mehdi_sherafati1362
یک شنبه 12 مهر 1388, 14:45 عصر
با سلام
می خواهم شماره تماس گیرنده در برنامه ام نمایش داده شود مودمی که از آن استفاده می کنم
Modem type: Intel(R) 536EP V.92 Modem است. طبق تحقیقاتی که کردم این مودم از کالر ایدی پشتیبانی می کند
دستورات زیر را وارد کردم ولی جوابی دریافت نکردم لطفاً راهنمایی کنید . با تشکر
كامپوننت KDPhone را روي فرم قرار دادم، ابتدا بايد خط را انتخاب کنم :
کد:
lvRet:=KDPhone1.LineActive(0,TRUE);
if lvRet<>0 then
begin
KDPhone1.GetLineName(0,lvDeviceName);
ShowMessage('Error while activating the telephone device.'#13#10#13#10
+'Telephone device name: '+lvDeviceName+#13#10
+'Error message: '+KDPhone1.GetErrorMsg(lvRet));
end
سپس رويداد OnCallerID را به اين صورت تغيير دادم :
کد:
procedure TForm1.KDPhone1CallerID(Sender: TObject; Error: Integer; Number,Name: WideString; CallHandle: Integer);
begin
if Error<>0 then
MemoLog.Lines.Add('>Caller ID Error: ' + KDPhone1.GetErrorMsg( Error))
else
begin
MemoLog.Lines.Add('>Caller ID Number: ' + Number);
end;
end;
می خواهم شماره تماس گیرنده در برنامه ام نمایش داده شود مودمی که از آن استفاده می کنم
Modem type: Intel(R) 536EP V.92 Modem است. طبق تحقیقاتی که کردم این مودم از کالر ایدی پشتیبانی می کند
دستورات زیر را وارد کردم ولی جوابی دریافت نکردم لطفاً راهنمایی کنید . با تشکر
كامپوننت KDPhone را روي فرم قرار دادم، ابتدا بايد خط را انتخاب کنم :
کد:
lvRet:=KDPhone1.LineActive(0,TRUE);
if lvRet<>0 then
begin
KDPhone1.GetLineName(0,lvDeviceName);
ShowMessage('Error while activating the telephone device.'#13#10#13#10
+'Telephone device name: '+lvDeviceName+#13#10
+'Error message: '+KDPhone1.GetErrorMsg(lvRet));
end
سپس رويداد OnCallerID را به اين صورت تغيير دادم :
کد:
procedure TForm1.KDPhone1CallerID(Sender: TObject; Error: Integer; Number,Name: WideString; CallHandle: Integer);
begin
if Error<>0 then
MemoLog.Lines.Add('>Caller ID Error: ' + KDPhone1.GetErrorMsg( Error))
else
begin
MemoLog.Lines.Add('>Caller ID Number: ' + Number);
end;
end;