PDA

View Full Version : KD Tel



roya jalali
یک شنبه 13 مرداد 1387, 17:43 عصر
سلام
من برای نوشتن تلفن گویا با kD tel دچار مشکل شده ام
در قسمت case call State وقتی برنامه cs ها رو بررسی می کند به cs RemotepartyDisconnected که می رسد اتصال را قطع می کند در صورتی که من اصلاً این cs را ننوشته ام :ناراحت::اشتباه:

دنیای دلفی
یک شنبه 13 مرداد 1387, 18:03 عصر
سعي كن براي كار كردن با KDTELE TOOLS از سمپلهاش نهايت استفاده را بكني و كپي پيس هم فراموش نشود .

roya jalali
یک شنبه 13 مرداد 1387, 18:12 عصر
case CallState of
csConnected : begin
StatusListBox.Items.Add('ÇÑÊÈÇØ ÈÑÞÑÇÑ ÔÏ ¡ ÎØ ÂãÇÏå ã˜Çáãå ãí ÈÇÔÏ');
DialBtn.Enabled := False;
HangUpBtn.Enabled := true;
end;
csDisconnected : begin
StatusListBox.Items.Add('ÇÑÊÈÇØ ÞØÚ ÔÏ ...');
DialBtn.Enabled := true;
HangUpBtn.Enabled := False;
end;
csDialing : begin
StatusListBox.Items.Add('ÏÑ ÍÇá ÔãÇÑå íÑí ...');
DialBtn.Enabled := False;
HangUpBtn.Enabled := true;
end;
csBusy : begin
StatusListBox.Items.Add('ÎØ ãæÑÏ äÙÑ ÇÔÛÇá ÇÓÊ');
KDPhone1.Hangup;
end;
csError : begin
StatusListBox.Items.Add('ÎØÇíí ÏÑ ÈÑÞÑÇÑí ÇÑÊÈÇØ ÑÎ ÏÇÏå ÇÓÊ');
KDPhone1.Hangup;
end;
csOffering : begin
StatusListBox.Items.Add('ÊãÇÓ ÌÏíÏí ÈÑÞÑÇÑ ÔÏ');
KDPhone1.Answer(0);
Err := KDPhone1.Answer(0);
if Err <> 0 then
ShowMessage(KDPhone1.GetErrorMsg(Err));
end;
csRemotePartyDisconnected : begin
KDPhone1.
end;
این case کاملیه که نوشتم

roya jalali
دوشنبه 14 مرداد 1387, 08:36 صبح
یکی کمک کنه خواهش می کنم error 313 میدهد می دونید چه errorie???????????????????