精华内容
下载资源
问答
  • Delphi 来电显示程序,就像打电话的来电显示,编译需要三方控件,需要准备好tc08a32.dll组件。以下是部分代码:  //如果为外线并有忙音,以挂机  if (checkchtypenew(i)=CHTYPE_TRUNK) and (sig_checkbusy(i)=1) ...
  • Delphi传真来电显示的例子源代码.rar
  • 电话来电显示源码电话来电显示源码电话来电显示源码
  • 摘要:Delphi源码,多媒体技术,传真编程,来电显示  一个Delphi传真来电显示例子源码,测试运行本传真程序前必须先安装MSComm32,Install.bat的内容如下:  c:windowssystem  egsvr32 mscomm32.ocx  regedit ...
  • 开发来电显示的Delphi控件包: 使用方法: (1) 下载控件包Component.zip (2) 先编译 CPortLib6.dpk ,已安装了CPortLib 控件组的可省略这一步骤 (3) 然后编译 TelePort.dpk ,并安装 (4) 安装完成后,在 ...
  • 2)必须到电信局申请来电显示功能,许多Modem不支持来电显示功能。 3)如果程序不能正常工作,可能所选择的Modem使用了"标准调制调解器"驱动程序或基它不兼容的驱动程序,建议使用Modem原配的驱动程序。 delphi6+...
  • 本实例是一个提高效率、人性化的程序,语音卡可以实现各种业务的语音操作,编写各行各业的电话程控系统,其中来电显示是最常用、最实用的一项功能。在开发语音卡相关软件时,需要知到对方拔进的电话号码及拔进时间。...
  • 该代码用Delphi编写,演示了怎么调用“来电通”功能。
  • Delphi开发来电显示管理软件

    千次阅读 2007-08-25 10:52:00
    //s为来电号码,t为来电时间,devid为USB的设备号 procedure TForm1.TeleComport1Read(Sender: TObject; s: String; t: TDateTime;  devid: String); begin  Memo1.Lines.Add(s+FormatDateTime(' yyyy-mm-dd hh:nn...

    1、建立如下Form:

    其中使用了我自己开发的控件TeleComport,可到 http://www.kosen.com.cn/news/showdld.asp?id=19 下载。 

    2、在各按钮的Click事件中,分别写入如下代码:

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      //端口可直接设置,例如端口为USB,Port:='USB'
      if TeleComport1.SetupPort then
        Memo1.Lines.Add('Port='+TeleComport1.Port);
    end;

    procedure TForm1.Button2Click(Sender: TObject);
    begin
      TeleComport1.Open;
      if TeleComport1.JDUsbdevCount>0 then
        Memo1.Lines.Add(IntToStr(TeleComport1.JDUsbdevCount)+' USB设备');
    end;

    procedure TForm1.Button3Click(Sender: TObject);
    begin
      TeleComport1.Close;
    end;

    3、在TeleComport1的Open、Close、Read事件中,分别写入如下代码:

    procedure TForm1.TeleComport1Open(Sender: TObject);
    begin
      if TeleComport1.JDConnected then begin
        Memo1.Lines.Add('Connected '+IntToStr(TeleComport1.JDUsbdevCount));
        //打开端口时读取来电管理器内缓存的号码
        TeleComport1.ReadAllWhenOpen;
      end;
    end;

    procedure TForm1.TeleComport1Close(Sender: TObject);
    begin
      if not TeleComport1.JDConnected then
        Memo1.Lines.Add('not Connected')
      else
        Memo1.Lines.Add('Connected '+IntToStr(TeleComport1.JDUsbdevCount));
    end;

    //有来电时激活此事件
    //s为来电号码,t为来电时间,devid为USB的设备号
    procedure TForm1.TeleComport1Read(Sender: TObject; s: String; t: TDateTime;
      devid: String);
    begin
      Memo1.Lines.Add(s+FormatDateTime(' yyyy-mm-dd hh:nn:ss', t));
    end;

    就这么简单。
    当然需要使用高深公司的“记得”来电显示管理器,详情请参考:http://www.kosen.com.cn/jdmain.htm

    展开全文
  • unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation, FMX.S
    unit Unit1;


    interface


    uses
      System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
      FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
      FMX.Controls.Presentation, FMX.ScrollBox, FMX.Memo,


      CSBroadcastReceiver,
      Androidapi.JNI.JavaTypes.Own,
      AndroidApi.JNI.GraphicsContentViewText,
      Androidapi.Jni.JavaTypes,
      Androidapi.JNI.Os,
      Androidapi.JNIBridge,
      Androidapi.JNI.Telephony;
    type
      TForm1 = class(TForm)
        Memo1: TMemo;
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
        procedure CreateBroadcastReceiver;
        procedure BroadcastReceiverOnReceive(csContext: JContext; csIntent: JIntent);
        procedure CheckPhoneCallState(Context: JContext; Intent: JIntent);
        function KillCall(Context: JContext): Boolean;


      public
        { Public declarations }
      end;


    var
      Form1: TForm1;
      BroadcastReceiver: TCSBroadcastReceiver;




    implementation


    {$R *.fmx}


    uses
    Androidapi.Jni.App, Androidapi.Helpers, Androidapi.Log;


    procedure TForm1.BroadcastReceiverOnReceive(csContext: JContext;
      csIntent: JIntent);
    begin
    CheckPhoneCallState(csContext, csIntent);
    end;


    procedure TForm1.CheckPhoneCallState(Context: JContext; Intent: JIntent);
    var
      telephonyService: JObject;
      telephonyManager: JTelephonyManager;
      state: JString;
      incomingCallNumber: string;
      outgoingCallNumber: string;
      outputResult: string;
    begin
      outputResult:= #13#10;


      telephonyService := TAndroidHelper.Context.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE);
      telephonyManager := TJTelephonyManager.Wrap((telephonyService as ILocalObject).GetObjectID);


      if JStringToString(Intent.getAction).Equals('android.intent.action.PHONE_STATE') then
        begin
          state:= Intent.getStringExtra(TJTelephonyManager.JavaClass.EXTRA_STATE);


          if state.equals(TJTelephonyManager.JavaClass.EXTRA_STATE_IDLE) then
            outputResult:= outputResult + 'Phone is IDLE ' + #13#10
          else if state.equals(TJTelephonyManager.JavaClass.EXTRA_STATE_RINGING) then
            begin
              incomingCallNumber:= JStringToString(Intent.getStringExtra(TJTelephonyManager.JavaClass.EXTRA_INCOMING_NUMBER));
              if incomingCallNumber.Equals('') then
                incomingCallNumber:= 'PRIVATE NUMBER';


              outputResult:= outputResult + 'Phone is RINGING' + #13#10;
              outputResult:= outputResult + 'Incoming call from ' + incomingCallNumber + #13#10;
              if incomingCallNumber = '1371510XXXX' then  //要屏蔽的电话号码
                if KillCall(Context) then
                  outputResult:= outputResult + 'Call was terminated' + #13#10
                else
                  outputResult:= outputResult + 'Call was not terminated' + #13#10;
            end
          else if state.equals(TJTelephonyManager.JavaClass.EXTRA_STATE_OFFHOOK) then
            outputResult:= outputResult + 'Phone is OFFHOOK' + #13#10;
        end
      else if JStringToString(Intent.getAction).Equals('android.intent.action.NEW_OUTGOING_CALL') then
        begin
          outgoingCallNumber:= JStringToString(Intent.getStringExtra(TJIntent.JavaClass.EXTRA_PHONE_NUMBER));
          outputResult:= outputResult + 'Outgoing call to ' + outgoingCallNumber + #13#10;
          if outgoingCallNumber = 'xyz' then
            begin
              BroadcastReceiver.SetResultData(nil);
              outputResult:= outputResult + 'Call is not allowed to ' + outgoingCallNumber + #13#10;
            end;
        end;


      Memo1.Lines.Append(outputResult);
    end;


    procedure TForm1.CreateBroadcastReceiver;
    begin
      if not Assigned(BroadcastReceiver) then
        begin
          BroadcastReceiver:= TCSBroadcastReceiver.Create(nil);
          BroadcastReceiver.OnReceive:= BroadcastReceiverOnReceive;
          BroadcastReceiver.RegisterReceive;
          BroadcastReceiver.Add('android.intent.action.PHONE_STATE');
          BroadcastReceiver.Add('android.intent.action.NEW_OUTGOING_CALL');
        end;
    end;


    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
      if Assigned(BroadcastReceiver) then
        BroadcastReceiver.Free;
    end;


    procedure TForm1.FormCreate(Sender: TObject);
    begin
    CreateBroadcastReceiver;
    end;


    function TForm1.KillCall(Context: JContext): Boolean;
    var
      telephonyService: JObject;
      classTelephony: JOwnLang_Class;
      methodGetITelephony: JOwnMethod;
      telephonyInterface: JObject;
      telephonyInterfaceClass: JOwnLang_Class;
      methodEndCall: JOwnMethod;
    begin
      try
        telephonyService:= TAndroidHelper.Context.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE);
        classTelephony := TJOwnLang_Class.JavaClass.forName(telephonyService.getClass.getName);
        methodGetITelephony:= classTelephony.getDeclaredMethod(StringToJString('getITelephony'), nil);
        methodGetITelephony.setAccessible(True);
        telephonyInterface := methodGetITelephony.invoke(telephonyService, nil);
        telephonyInterfaceClass := TJOwnLang_Class.JavaClass.forName(telephonyInterface.getClass.getName);
        methodEndCall:= telephonyInterfaceClass.getDeclaredMethod(StringToJString('endCall'), nil);
        methodEndCall.invoke(telephonyInterface, nil);
        Result:= True;
      except
        on E: Exception do
        begin
          Result := False;
        end;
      end;
    end;






    end.
    展开全文
  • Delphi 来电显示程式免费版
  • 摘要:Delphi源码,多媒体技术,语言卡,查询程序 Delphi语言卡客户查询程序,一个提高效率、人性化的程序。本实例的功能就是当有来电的时候系统就可以通过电话号码查询相应的信息。当有电话进入的时候,来电号码就会...
  • 实例191 在DELPHI中控制Word 246 实例192 带日志的程序 247 实例193 获取窗口文本 248 实例194 判断文件是否正在被使用 250 实例195 提取文件中的图标资源 251 实例196 在程序中调用.HLP文件 253 实例...
  • TTAPILine v3.0 For Delphi

    2006-02-23 09:05:59
    语音、数据MODEM呼入呼出呼叫转移、值班电话(带呼叫转移、电话会议)控制、发出DTMF语音等待电话录音播放(包括暂停、中止、继续等控制)微机间电话数据转移来电提示支持多种语言(包含英语、德语)
  • 语音卡自动服务程序Delphi7源码,测试中没有发现是什么语音卡,这个代码也是前几年的,比较早的源码了,有兴趣的可下载测试一番。相关代码如下:  0:begin  if (GetCallerIDStr(chno,callID) = ID_STEP_OK) or ...
  • delphi程序开发范例宝典(第3版)》全面介绍了delphi程序开发所用到的技术和技巧,共分19章,内容包括窗体与界面设计、控件应用、数据处理技术、图形技术、多媒体技术、文件系统、操作系统与window相关程序、注册表...
  • 提供拨打电话或接听来电,播放、录制语音,检测、收集话机按键功能,还可以自动检测对方是否挂断等.是国内少有的功能较全的基于Modem 电话语音软件;此外,还在修正了APRO 传真模式的错误的前提下,编写了传真的收发...
  • delphi程序开发范例宝典(第3版)》全面介绍了delphi程序开发所用到的技术和技巧,共分19章,内容包括窗体与界面设计、控件应用、数据处理技术、图形技术、多媒体技术、文件系统、操作系统与window相关程序、注册表...
  • 在使用C#开发完CRM的来电弹屏之后,有些客户...更烦的是,来电小秘书API没有来电的回调接口,无法通过回调触发程序,也没有C#的Demo,很多功能只能通过一个不是那么详细的文档和一个Delphi的Demo摸索着做了,经历了一些
  • 电话来电显示

    2004-07-17 00:00:00
    关于电话来电显示的源码,我想好东西一定要共同分享! 1)必须先安装MSComm32,Install.bat的内容如下: ...delphi6+winXP下编译测试通过 Email:yanbao88@hotmail.com My www.CSDN.net account:extcsdn
  • 在"DELPHI存取JPEG文件到SQL Server数据库"发表之后,有许多网友来电表示支持和相关的技术咨询,在此首先对那些关心本文的朋友们表示衷心的感谢。 由于网友的需要做一个档案管理系统,存取jpeg文件到sql 2000数据库...
    在"DELPHI存取JPEG文件到SQL Server数据库"发表之后,有许多网友来电表示支持和相关的技术咨询,在此首先对那些关心本文的朋友们表示衷心的感谢。 
    

      由于网友的需要做一个档案管理系统,存取jpeg文件到sql 2000数据库中,但在dbimage中及qrdbimage中均不能正常显示jpeg的文件,此为borland的限制,虽然使用第三方控件能达到要求,但我们还是来原始的实现一下这方面的技术,其实原理十分简单,既然我们在"DELPHI存取JPEG文件到SQL Server数据库"能存储jpeg文件,也能在image中显示,但一接触db类的图象显示控件就行不通了,我们可以在jpeg文件存入数据库之前转换成bmp文件再存入数据库即可,程序运行环境delphi5+ado+sql 2000桌面版+win98se2最终版,数据库中存放图片字段的类型为image,程序源代码如下:

    unit Unit1;

    interface

    uses

    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

    Db, DBCtrls, Grids, DBGrids, ADODB, ExtDlgs,jpeg, ExtCtrls, StdCtrls;

    type

    TForm1 = class(TForm)

    ADOConnection1: TADOConnection;

    ADOQuery1: TADOQuery;

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    DBImage1: TDBImage;

    ADOQuery1ID: TStringField;

    ADOQuery1FIELD: TStringField;

    ADOQuery1STYLE: TStringField;

    ADOQuery1SYSTEM: TStringField;

    ADOQuery1DATE: TDateTimeField;

    ADOQuery1PERSON1: TStringField;

    ADOQuery1PERSON2: TStringField;

    ADOQuery1PERSON3: TStringField;

    ADOQuery1PHOTO: TBlobField;

    ADOQuery1DESCRIPTION: TStringField;

    OpenPictureDialog1: TOpenPictureDialog;

    Image1: TImage;

    Button1: TButton;

    Memo1: TMemo;

    procedure DBImage1Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure FormShow(Sender: TObject);

    private

    { Private declarations }

    public

    { Public declarations }

    end;

    var

    Form1: TForm1;

    implementation

    {$R *.DFM}

    procedure TForm1.DBImage1Click(Sender: TObject);

    var

    picstream:tadoblobstream;

    bmppic:tbitmap;

    jpgpic:tjpegimage;

    bmpstream:TMemoryStream;

    begin

    if form1.OpenPictureDialog1.Execute then

    begin

    if extractfileext(form1.openpicturedialog1.filename)='.bmp' then

    begin

    adoquery1.edit;

    picstream:=tadoblobstream.Create(tblobfield(ADOQuery1PHOTO),bmWrite);

    //注:上句代码中的ADOQuery1PHOTO是adoquery1中的固定字段photo的固定字段的name

    //用户需要手工添加固定字段,也可用fields[i]来进行选择,这点在

    //"DELPHI存取JPEG文件到SQL Server数据库"这篇文章中没有注释,至使许多朋友没有

    //编译成功。

    picstream.LoadFromFile(openpicturedialog1.filename);

    picstream.Position:=0;

    adoquery1.edit;

    tblobfield(ADOQuery1PHOTO).loadfromstream(picstream);

    adoquery1.post;

    adoquery1.edit;

    picstream.free;

    end

    else

    begin

    jpgpic:=tjpegimage.Create;

    bmppic:=tbitmap.Create;

    bmpstream:=tmemorystream.Create;

    jpgpic.LoadFromFile(openpicturedialog1.filename);

    bmppic.Assign(jpgpic);

    bmppic.SaveToStream(bmpstream);

    adoquery1.edit;

    picstream:=tadoblobstream.Create(tblobfield(ADOQuery1PHOTO),bmWrite);

    //注:上句代码中的ADOQuery1PHOTO是adoquery1中的固定字段photo的固定字段的name

    //用户需要手工添加固定字段,也可用fields[i]来进行选择,这点在

    //"DELPHI存取JPEG文件到SQL Server数据库"这篇文章中没有注释,至使许多朋友没有

    //编译成功。

    picstream.LoadFromStream(bmpstream);

    picstream.Position:=0;

    adoquery1.edit;

    tblobfield(ADOQuery1PHOTO).loadfromstream(picstream);

    adoquery1.post;

    jpgpic.free;

    bmppic.free;

    bmpstream.free;

    adoquery1.edit;

    picstream.free;

    end;

    end;

    end;

    procedure TForm1.Button1Click(Sender: TObject);

    begin

    memo1.Lines.Add(form1.openpicturedialog1.filter);

    end;

    procedure TForm1.FormShow(Sender: TObject);

    begin

    form1.openpicturedialog1.filter:='All *.jpg;*.jpeg;*.bmp;|*.jpg;*.jpeg;*.bmp;)';

    end;

    end.

    至此实现的功能代码如上所例,希望能对需要这方面资料的朋友有所帮助.

    展开全文
  • 电话来电显示源码

    2006-01-13 09:51:35
    关于电话来电显示的源码,我想好东西一定要共同分享!1)必须先安装MSComm32,Install.bat的内容如下: c:windowssystem ...delphi6+winXP下编译测试通过Email:yanbao88@hotmail.comMy www.CSDN.net account:extcsdn
  • C#编写来电显示、自动应答和录音涉及的一些问题 以下内容涉及:Data Modem;Voice Modem;... 国人程序员用delphi编写的程序,来电、自动应答和录音都好用. 代码文件:(没有源代码,需要的和请和此程序作者联系...)
  • 所有产品均支持vc,c#,vb,delphi,pb,c++build,foxpro,javascript,java 进行二次开发。二次开发包提供丰富的功能接口函数、完善的编程范例,我们还为您提供全面深入的电话技术支持。 合作优势: 南京子佩科技是...
  • 利用子佩USB语音盒进行系统二次开发,...所有产品均支持vc,c#,vb,delphi,pb,c++build,foxpro,javascript,java 进行二次开发。二次开发包提供丰富的功能接口函数、完善的编程范例,我们还为您提供全面深入的电话技术支持
  • SystemInfo Controler

    2006-03-16 00:00:00
    systeminfo是个改装了的Delphi5控件,适用于windows98/ME/2000系统下 欢迎来电来函。
  • 天香锦系列产品包括来电通、录音盒、电话机、话务盒,使用同样的开发接口,提供OCX和DLL,开发例子有VC、C#、DELPHI、.NET。
  • Python语言实现手机号归属地的方法

    千次阅读 2016-05-09 23:59:28
    现在手机有个功能能显示手机来电的归属地,最近自己有空余时间,在网上查了下,发现使用的是Python开发(http://www.maiziedu.com/course/python/)语言编写的,在Python中使用Delphi空间来编写界面程序,于是自己趁...
    现在骗子越来越猖獗,大家每天接到的陌生骚扰电话不计其数,现在手机有个功能能显示手机来电的归属地,最近自己有空余时间,在网上查了下,发现使用的是Python开发(http://www.maiziedu.com/course/python/语言编写的,在Python中使用Delphi空间来编写界面程序,于是自己趁热写了一个类型的查询方案。
       本实例是通过www.ip138.com这个网站来查询的,这里需要的几个知识点,就是用Python模拟网页提交数据,获得数据返回信息,以及对返回的 Html信息进行解析,模拟Http提交,Python自带有一个urlliburllib2这两个库,相当方便,只是奇怪,为什么不将两个库合并成一 个,这样来的更方便。然后就是窗体了,窗体还是用我之前写的一个Python模块DxVcl,就是可以在Python中调用Delphi界面控件的一个模 块库。下面就贴上代码,相当简单的!
    #-*-coding: gb2312 -*-
    import urllib,urllib2,HTMLParser
    from DxVcl import*
    class MyParser(HTMLParser.HTMLParser):
        def reset(self):
            self._isInTd = False        
            self._retdata = []
            HTMLParser.HTMLParser.reset(self)
        def handle_starttag(self,tag,attris):
            self._isInTd = tag =='td'
        def handle_endtag(self,tag):
            if self._isInTd:
                self._isInTd = False
        def handle_data(self,data):
            if self._isInTd:
                self._retdata.append(data)
    class MainForm(Form):
        def__init__(self,Owner):
            self.Caption ='查询手机归属地'
            self.Position =5
            self.BorderStyle =3
            self.Width =303
            self.Height =375
            self.lbl = Label(self)
            self.lbl.SetProps(Parent = self,Caption ='手机号码')
            self.lbl.SetBounds(16,8,60,13)
            self.EdtPhone = Edit(self)
            self.EdtPhone.SetProps(Parent = self,Text ='')
            self.EdtPhone.SetBounds(77,3,121,21)
            self.Button1 = Button(self)
            self.Button1.SetProps(Parent = self,Caption ='查询')
            self.Button1.SetBounds(204,1,75,25)
            self.Button1.OnClick = self.Button1Click
            self.Memo1 = Memo(self)
            self.Memo1.Parent = self
            self.Memo1.SetBounds(16,32,263,297)   
        def Button1Click(self,Sender):
            postdata = urllib.urlencode([('action','mobile'),('mobile',self.EdtPhone.Text)])
            req = urllib2.Request('http://www.ip138.com:8080/search.asp')
            fd = urllib2.urlopen(req,postdata)
            h = fd.read()
            my = MyParser()
            my.feed(h)
            self.Memo1.Lines.Clear()
            for data in my._retdata:
                self.Memo1.Lines.Add(data)
    def main():
        FreeConsole()
        Application.Initialize()
        Application.Title ='查询手机归属'
        f = MainForm(Application)
        f.Show()
        Application.Run()
    if__name__=='__main__':
    main()
    运行之后的界面
     
    展开全文
  • 二次开发电话录音盒开发接口包

    热门讨论 2011-03-29 09:48:00
    (如:vb,vc,Delphi,vfp,c#,pb,cb等) 1 产用经过数字签名的标准windows 组件模式提供,开发接口跟语言无关,可用在所有windows系统,包括B/S系统开发。支持所有windows开发环境 · 开发包提供API模块分为以下几个模块...
  • 有意者来电来函咨询,本人承接以下业务:苦力搬运,装卸,车工,钳工,焊工,水电工,瓦工,砸墙,砌墙,筛沙,油漆,通下水道,贴瓷砖,拆洗油烟机,拆装空调,Vb,C++,.NET,C#,Java,j2ee, j2me,asp,delphi...

空空如也

空空如也

1 2
收藏数 40
精华内容 16
关键字:

delphi来电