نقل قول:
سلام
فرض ميكنيم كامپوننت KDTele Tools را نصب كرديد و بصورت اتفاقي پوشه Sample پاك شده (در غير اينصورت كار شما راحت تر ميشد)
كامپوننت KDPhone را روي فرم قرار دهيد، ابتدا بايد خط را انتخاب كنيد :
(با فرض اينكه مودم شما CallerID را پشتباني مي كند)کد: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);
MemoLog.Lines.Add('>Caller ID Name: ' + Name);
end;
end;
