tapi otomatik yanıtlama...
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
tapi otomatik yanıtlama...
herkese kolay gelsın.
delphi 6.0 ve apro kullanıyorum .Ben telefon hattından bir çağrı geldiğinde ,2 kere çaldıktan sonra bilgisayarın otomatik olarak açmasını isitorum.Bunu nasıl yapabilirm ?Yardımcı olursanız sevinirim...
İyi çalışmalar...
delphi 6.0 ve apro kullanıyorum .Ben telefon hattından bir çağrı geldiğinde ,2 kere çaldıktan sonra bilgisayarın otomatik olarak açmasını isitorum.Bunu nasıl yapabilirm ?Yardımcı olursanız sevinirim...
İyi çalışmalar...
@ İ_zec nasıl Halletiğini Yazsanda Yarın birgun boyle bii soru Olursa İnsanlar acsa baksa nasıl olur? iii olur değilmii ?
Şimdii Gelelim senin cevaba
Windows Sdk Larında Telefon Api Leri Var.. Bunlardan yardım alabilirisin..
MS SDK Help Files Burada neyii kullanmak istiyorsan O fonksiyon Mevcutt
Şimdii Gelelim senin cevaba
Windows Sdk Larında Telefon Api Leri Var.. Bunlardan yardım alabilirisin..
MS SDK Help Files Burada neyii kullanmak istiyorsan O fonksiyon Mevcutt
Başlayan Herşey Birgün Bitmek Zorundadır.
once yaptıgım seyın nasıl bişi oldugunu anlatayım . program gelen aramalari otomatik olarak yanıtlayacak ve aldıgı ogrenci,şifre ve derskodu bilgileri ile veritanından not bilgilerini alıyo kullanıcıya seslı olarak bunları ıletıyor.
ilk sordugum soru oz once bahsettıgım otomatık olarak gelen aramaya yanıt vermesı ıdı...bunu ilk olarak bır buton ile yapıyodum tabı boyle olmaması lazım.bunu da form.onshow a
if modem.EnableVoice then
modem.AutoAnswer
else
label7.Caption:='Modem Ses Özelliğini Desteklemiyor...';
yazdım ... bunun la da modem initilaze oluyo diyebiliriz...
kod la tapidevice.cancelcall; dediğimizde aramayı sonlandırıyor .yani modemı bi başka aramayı cevaplamak uzere hazır halde bırakıyo.lakın bunu kullanıcı ya "cıkmak için sıfıra basın" gibi bi bilgi sunup o bilgi dogrultusunda yaparsak herrsey ok.ama kullanıcı modemin konuşmayı bitirmesini beklemeden kapatırsa o zaman modem tapidevice.cancelcall kodunu çalıştıramıyor ve bir sonrakı aramada hat meşgul de kalıyo.işte bunu düzeltmek için de karşı tarafın kapattıgını anlamam lazım .. yada hattın durumunun ne oldugunun....
en son sorum bunu nasıl yapacagım ...??. (yaparsam yıne yazarım
)
ilk sordugum soru oz once bahsettıgım otomatık olarak gelen aramaya yanıt vermesı ıdı...bunu ilk olarak bır buton ile yapıyodum tabı boyle olmaması lazım.bunu da form.onshow a
if modem.EnableVoice then
modem.AutoAnswer
else
label7.Caption:='Modem Ses Özelliğini Desteklemiyor...';
yazdım ... bunun la da modem initilaze oluyo diyebiliriz...
kod la tapidevice.cancelcall; dediğimizde aramayı sonlandırıyor .yani modemı bi başka aramayı cevaplamak uzere hazır halde bırakıyo.lakın bunu kullanıcı ya "cıkmak için sıfıra basın" gibi bi bilgi sunup o bilgi dogrultusunda yaparsak herrsey ok.ama kullanıcı modemin konuşmayı bitirmesini beklemeden kapatırsa o zaman modem tapidevice.cancelcall kodunu çalıştıramıyor ve bir sonrakı aramada hat meşgul de kalıyo.işte bunu düzeltmek için de karşı tarafın kapattıgını anlamam lazım .. yada hattın durumunun ne oldugunun....
en son sorum bunu nasıl yapacagım ...??. (yaparsam yıne yazarım

arkadaşım apax diye bir komponent var, apro da demosuda var, şu kadar çalınca yanıtla diye ayarıda var bende yeni öğrendim, hatta forumdada var, bende sormuştum, apax diye aratırsan bulabilirsin, nasıl kuruluyor dersen, install activex component den apro içindeki apax.ocx i import ediyorsun, library path a ekliyorsun o kadar, o demoyu incele mutlaka işini görecektir.
cok saol .apax kullanmadan başka bi yontemle yaptım .benım projemde sureklı bir şekılde ses dosyaları calacak. ses dosyalarının çalmasıda kullanıcı ile etkileşim içinde oldugunun gostergesıdır.dolayısı ile ses dosyası çalmazsa kullanıcı ya telefonu kapatmış ya açık unnutmuş yada veriyi girmekte gecikmiş(yada ne gireceğini bilmiyo) durumlarıdan biri oluşur. dolayısı ilede bu durumlardan birinde telefon kapanacak...
kod u ;
procedure TForm1.ModemTapiWaveNotify(CP: TObject; Msg: TWaveMessage);
var
j:integer;
begin
for j:=0 to 20 do
begin
sleep(500);
if modem.wavestate=wsplaying then
exit;
Application.ProcessMessages;
end;
modem.cancelcall;
modem.EnableVoice:=true;
modem.AutoAnswer;
end;
bu kadarı ile bnım işimi gorur gibi.. .sizlerde cok saolun
iyi çalışmalar...
kod u ;
procedure TForm1.ModemTapiWaveNotify(CP: TObject; Msg: TWaveMessage);
var
j:integer;
begin
for j:=0 to 20 do
begin
sleep(500);
if modem.wavestate=wsplaying then
exit;
Application.ProcessMessages;
end;
modem.cancelcall;
modem.EnableVoice:=true;
modem.AutoAnswer;
end;
bu kadarı ile bnım işimi gorur gibi.. .sizlerde cok saolun
iyi çalışmalar...