IP電話

Firewall/NAT越えを可能としたIP電話機能を実装する。問い合わせ先： mack[at]dairiten.com

http://account2.freeworlddialup.com/index.php?section_id=94

または、

http://www.iaxtel.com/setup.html

でアカウントを取得する。

http://www.babarnazmi.citril.com/forum/viewtopic.php?t=9

CABファイルを展開し、iaxWebPhone?.inf以外のファイルを%system%へ移動してください。続けて、iaxWebPhone?.infを右クリックでインストールしてください。

;
; IP電話機能　サンプルコード
;　
; Date: 2006/9/7 Version 0.0.2
;
/*
 
babarnazmi: use selectline(-1)
babarnazmi: and then when done use selectline(0)
 
*/
 
#module
#deffunc toggle_button str v1, var v2
 
#uselib "user32"
#func SetWindowLong "SetWindowLongA" int, int, int
 
    chkbox v1, v2
    SetWindowLong objinfo (stat, 2), -16, $50001003
    return
 
#uselib "kernel32.dll"
#func __saveini "WritePrivateProfileStringA" sptr,sptr,sptr,sptr
#func __loadini "GetPrivateProfileStringA" sptr,sptr,sptr,var,int,sptr
#deffunc _saveini str appname,str keyname,str string
    __saveini appname,keyname,string,iniinifile@
    return
#deffunc _loadini str appname,str keyname,var rstring,int rstringsize
    __loadini appname,keyname,"",rstring,rstringsize,iniinifile@
    return
#define global fileini(%1) iniinifile@=%1
#define global saveini(%1,%2,%3) _saveini %1,%2,%3
#define global loadini(%1,%2,%3,%4=64) _loadini %1,%2,%3,%4
 
#global
 
;
; □□ dcrun3.hsp
;　　　２重起動防止のサンプル（HSP3版）
; ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
;　２重起動防止のサンプルです。
;　３つの方法を用意してみました。
;　どの方法でも２重起動をブロックできます。
;
;　「DOUBLE_CHECK_MODE」定数を変更すると、
;　実装している方法を変更できます。
 
;==================================================================================
#define DOUBLE_CHECK_MODE 2                ; ●●２重起動防止方法を選択してください！
;==================================================================================
 
#uselib "kernel32.dll"                    ; 2の場合は以下APIを使用
#func CreateMutexA "CreateMutexA" sptr,int,sptr
#func CloseHandle "CloseHandle" sptr
#func GetLastError "GetLastError"
 
#define ERROR_ALREADY_EXISTS 183
 
;------------------------------------------------------------------------------
 
    caption="２重起動防止機能サンプル"        ; タイトルの指定
 
    if DOUBLE_CHECK_MODE!1 : title caption        ; aplselの時に指定するとマズイ
 
    switch DOUBLE_CHECK_MODE
    case 2 : goto *mutexobj : swbreak        ; 2 = APIでミューテックス作成
    default : dialog "不正な値です",1
    swend
    end
 
;------------------------------------------------------------------------------
*mutexobj
    ; ・ミューテックスの作成
    ;　　llmodを使用します。「Mutex」というWindows同期オブジェクトを
    ;　　作成し、2重起動時、既に同じMutexがあったら跳ね返します。
    ;　　確実性があり、かつ拡張DLLは使わない、堅実な方法です。
    ;
    ;　　HANDLE CreateMutexA(
    ;　　    PSECURITY_ATTRIBUTES psa,      // セキリュティの構造体のポインタ（今回は必要無い）
    ;　　    BOOL    bInitialOwner,         // 所有権を取得するか（今回はどちらでもかまわない）
    ;　　    PCTSTR  pszMutexName           // 作成するミューテックス名
    ;　　)
 
    ; ミューテックスを作成（名前はタイトル名）
    CreateMutexA 0,0,caption
    mutex_handle=stat            ; Mutexのハンドルを取得
 
    ; エラーを確認
    GetLastError
 
    ; すでにMutexが存在していた！（存在していてMutexが作成できなかった）
    if stat=ERROR_ALREADY_EXISTS {
;;		dialog "２重起動されています!!",1
        end
    }
 
    ; 無ければ処理続行
    onexit *mutex_end            ; MUTEX廃棄処理があるので
    goto *go
    
    stop
*mutex_end
    ; MUTEXのハンドルが取得されていたら廃棄（CloseHandle）
    if mutex_handle!0 : CloseHandle mutex_handle
    end
;------------------------------------------------------------------------------
;[EOF]
 
*go
 
#define WM_ACTIVATE 6
#define ctype LOWORD(%1) ((%1)&0xFFFF)
 
#uselib "user32"
#cfunc GetWindowLong "GetWindowLongA" int, int
#func SetWindowLong "SetWindowLongA" int, int, int
 
#define CLSID_IaxClient "{D87BE747-157C-49BD-A392-A68B75A54947}"
#define CLDID_IaxClientEvent "{940F9DBC-D92D-434E-9A2C-B78A61AE0BDA}"
 
; Display build
 
    bgscr 3,320,240,2
 
    bgscr 2,320,240,2
 
    bgscr 1,320,240,2
    
    screen 0,320,200,1,ginfo(0),ginfo(1)
 
    cls 1
 
;	oncmd gosub *onActivate,WM_ACTIVATE
    
    title "HSPIAX2 Softphone"
 
;	command line 取得
    cmdline = dir_cmdline
    if cmdline != "" : dialog cmdline,0
 
; open ActiveX
    axobj iax, CLSID_IaxClient ,0,0
    comevent iax_event, iax, CLDID_IaxClientEvent, *event
 
;	Variable
 
    sdim PhoneNumber,32
    sdim UserID,32
    sdim Password,32
    sdim HostName,32
    sdim CLIIDName,32
    sdim CLIIDNum,32
 
    sdim cfgAGC,1
    sdim cfgNoiseReduce,1
    sdim cfgEchoCancel,1
    sdim cfgAAGC,1
    sdim cfgCN,1
    
    fileini ".\\config.ini"
    gosub *ConfigLoadini
 
    gosub *UpdateVariables
 
     gosub *form
 
    gosub *jump1
 
*main
    stop
 
*UpdateVariables
    iax ("Debug") = 0
    iax ("UserID") = UserID
    iax ("Password") = Password
    iax ("PhoneNumber") = PhoneNumber
    iax ("HostName") = HostName
    iax -> "SetCLIID" CLIIDName, CLIIDNum
;	iax -> "ApplyFilter" AGC, NoiseReduce, EchoCancel, AAGC, CN
    iax -> "ApplyFilter" AGC, NoiseReduce, 0, AAGC, CN
    return
 
*jump1
    iax -> "initIAX"
    return
 
*jump2
    gosub *UpdateVariables
    iax -> "SelectLine" 0
    iax -> "HangUp"
    iax -> "silencethreshold" "-99"
    iax -> "Codec" 2 ; 0
    iax -> "Dial"
    stop
 
*jump3
    iax -> "SelectLine" 0
    iax -> "Hangup"
    stop
 
*jump4
    iax -> "Shutdown"
    end
 
*jump5
    iax ->     "AudioWizard"
    iax ->     "AboutBox"
    stop
 
*register
    masterpos_x = ginfo(4)    ;	Master Window X pos
    masterpos_y = ginfo(5)    ;	Master Window Y pos
    gsel 1,2
    screen 1,320,240,,masterpos_x,masterpos_y
    title "Server Registration"
    pos 10,10
    mes "UserID"
    mes "Password"
    mes "HostName"
    mes "CLIIDName"
    mes "CLIIDNum"
    pos 100,10
    input UserID,200,20
    input Password,200,20
    input HostName,200,20
    input CLIIDName,200,20
    input CLIIDNum,200,20
    button gosub "OK",*j1
    stop
*j1
    gosub *UpdateVariables
    gosub *ConfigSaveini
;	iax -> "Unregister"
    iax -> "Register"
    gsel 1,-1
    return
 
*configure
    masterpos_x = ginfo(4)    ;	Master Window X pos
    masterpos_y = ginfo(5)    ;	Master Window Y pos
    gsel 2,2
    screen 2,320,240,,masterpos_x,masterpos_y
    title "Codec Configuration"
    pos 10,10
    chkbox "ulaw",ulaw
    sendmsg objinfo (stat, 2), $F4, $9
    ulaw_sel = stat
    chkbox "GSM",GSM
    sendmsg objinfo (stat, 2), $F4, $9
    GSM_sel = stat
    chkbox "ilbc",ilbc
    sendmsg objinfo (stat, 2), $F4, $9
    ilbc_sel = stat
    chkbox "speex",speex
    sendmsg objinfo (stat, 2), $F4, $9
    speex_sel = stat
    chkbox "alaw",alaw
    sendmsg objinfo (stat, 2), $F4, $9
    alaw_sel = stat
    chkbox "g729",g729
    sendmsg objinfo (stat, 2), $F4, $9
    g729_sel = stat
    button gosub "OK",*j2
    stop
*j2
    if ck1_sel = 1 {
        mes "check button 1 selected"
    } else {
        mes "check button 2 selected"
    } 
    gosub *ConfigSaveini
    gosub *UpdateVariables
    gsel 2,-1
    return
 
*Applyfilter
    masterpos_x = ginfo(4)    ;	Master Window X pos
    masterpos_y = ginfo(5)    ;	Master Window Y pos
    gsel 3,2
    screen 3,320,240,,masterpos_x,masterpos_y
    title "Voice filter"
    pos 10,10
    objsize 120, 20
    chkbox "AGC",AGC
    chkbox "NoiseReduce",NoiseReduce
    chkbox "EchoCancel",EchoCancel
    chkbox "AAGC",AAGC
    chkbox "CN",CN
    button gosub "OK",*j3
    stop
*j3
    gosub *ConfigSaveini
    gosub *UpdateVariables
    gsel 3,-1
    return
 
 
*ConfigLoadini
    loadini "default","PhoneNumber",PhoneNumber
    loadini "default","UserID",UserID
    loadini "default","Password",Password
    loadini "default","HostName",HostName
    loadini "default","CLIIDName",CLIIDName
    loadini "default","CLIIDNum",CLIIDNum
    loadini "default","AGC",cfgAGC
    loadini "default","NoiseReduce",cfgNoiseReduce
    loadini "default","EchoCancel",cfgEchoCancel
    loadini "default","AAGC",cfgAAGC
    loadini "default","CN",cfgCN
 
    AGC = int(cfgAGC)
    NoiseReduce = int(cfgNoiseReduce)
    EchoCancel = int(cfgEchoCancel)
    AAGC = int(cfgAAGC)
    CN = int(cfgCN)
    return
 
*ConfigSaveini
    saveini "default","PhoneNumber",PhoneNumber
    saveini "default","UserID",UserID
    saveini "default","Password",Password
    saveini "default","HostName",HostName
    saveini "default","CLIIDName",CLIIDName
    saveini "default","CLIIDNum",CLIIDNum
    saveini "default","AGC", str(AGC)
    saveini "default","NoiseReduce",str(NoiseReduce)
    saveini "default","EchoCancel", str(EchoCancel)
    saveini "default","AAGC", str(AAGC)
    saveini "default","CN", str(CN)
    return
 
*hold
    iax -> "Hold"
    stop
 
*transfer
    iax -> "BlindTransfer" 2,fwdnum
    stop
 
;*onActivate
;	if LOWORD(wParam) == 0 : gsel 1,-1
;return
 
;; Event
*event
    gsel 0
; COMイベント処理
    dispid = comevdisp(iax_event)
    if dispid == 1 : gosub *notify1
    if dispid == 2 : gosub *notify2
    if dispid == 3 : gosub *notify3
    if dispid == 4 : gosub *notify4
    if dispid == 5 : gosub *notify5
    if dispid == 6 : gosub *notify6
    if dispid == 7 : gosub *notify7
    return
 
*notify1
    comevarg levelsInput,iax_event,0,1
    comevarg levelsOutput,iax_event,1,1
    objprm STobj,"levels: " + levelsInput + " : " + levelsOutput
return
 
*notify2
    objprm STobj,"GetAudioDevices"
return
 
*notify3
    comevarg CallNo,iax_event,0,1
    comevarg state,iax_event,1,1
    comevarg sRemote,iax_event,2,1
    comevarg sRemoteName,iax_event,3,1
    comevarg sLocal,iax_event,4,1
    comevarg sLocalContext,iax_event,5,1
    objprm STobj,"StateEvents: " + CallNo + "!" + state +"!"+ sRemote + "!" + sRemoteName + "!" + sLocal + "!" + sLocalContext
return
 
*notify4
    comevarg Message,iax_event,0,1
    objprm STobj,"StateMessages: " + Message
return
 
*notify5
    comevarg Message,iax_event,0,1
    comevarg eventType,iax_event,1,1
    objprm STobj,"Messages: " + Message + ":" + eventType
return
 
*notify6
    comevarg Caller,iax_event,0,1
    comevarg MsgCounts,iax_event,1,1
    objprm VMobj,"VM: " + Caller + ":" + MsgCounts + "Msg(s)"
return
 
*notify7
    comevarg RegId,iax_event,0,1
    comevarg RegReply,iax_event,1,1
    objprm STobj,"RegistrationEvent: " + RegId + ":" + RegReply
return
 
;; Display
*form
    objsize 100, 20
    button "Register", *register
    button "Codec Config", *configure
    button "VoiceFilter", *Applyfilter
    button "Shutdown", *jump4
    button "AudioWizard", *jump5
 
    pos 120,0
    objsize 20,20
    button "1",*dtmf1
 
    pos 140,0
    button "2",*dtmf2
 
    pos 160,0
    button "3",*dtmf3
 
    pos 120,20
    button "4",*dtmf4
 
    pos 140,20
    button "5",*dtmf5
 
    pos 160,20
    button "6",*dtmf6
 
    pos 120,40
    button "7",*dtmf7
 
    pos 140,40
    button "8",*dtmf8
 
    pos 160,40
    button "9",*dtmf9
 
    pos 120,60
    button "*",*dtmfAst
 
    pos 140,60
    button "0",*dtmf0
 
    pos 160,60
    button "#",*dtmfPound
 
    objsize 20, 20
 
    pos 120,100
    button "D", *jump2
 
    pos 140,100
    button "H", *jump3
 
    pos 160,100
    button "HL", *hold
 
    pos 180,100
    button "T", *transfer
 
    pos 40,120
    mes "Call to"
    pos 120,120
    input PhoneNumber,200,20
    PNobj = stat
 
    pos 40,140
    mes "Status"
    pos 120,140
    input Status1,200,20
    STobj = stat
 
    pos 40,160
    mes "Voicemail"
    pos 120,160
    input VMStatus1,200,20
    VMobj = stat
 
    pos 200,40
    objsize 20,20
 
    pos 200,0
    ActLine1 = 1
 
    chkbox "", ActLine1
    sendmsg objinfo (stat, 2), $F4, $9
 
    chkbox "", ActLine2
    sendmsg objinfo (stat, 2), $F4, $9
 
    chkbox "", ActLine3
    sendmsg objinfo (stat, 2), $F4, $9
 
    chkbox "", ActLine4
    sendmsg objinfo (stat, 2), $F4, $9
 
    chkbox "", FwdSet
    SetWindowLong objinfo (stat, 2), -16, $50000003 | $20
 
    pos 220,0
    objsize 100,20
    
    DndLine1 = 1
    
    toggle_button "Line1", Dndline1
    toggle_button "Line2", Dndline2
    toggle_button "Line3", Dndline3
    toggle_button "Line4", Dndline4
 
    pos 220,80
 
    fwdnum = "0427013260"
    input fwdnum
 
    return
 
;; DTMF
*dtmf1
    iax -> "SendDTMF" "1"
    stop
 
*dtmf2
    iax -> "SendDTMF" "2"
    stop
 
*dtmf3
    iax -> "SendDTMF" "3"
    stop
 
*dtmf4
    iax -> "SendDTMF" "4"
    stop
 
*dtmf5
    iax -> "SendDTMF" "5"
    stop
 
*dtmf6
    iax -> "SendDTMF" "6"
    stop
 
*dtmf7
    iax -> "SendDTMF" "7"
    stop
 
*dtmf8
    iax -> "SendDTMF" "8"
    stop
 
*dtmf9
    iax -> "SendDTMF" "9"
    stop
 
*dtmfAst
    iax -> "SendDTMF" "*"
    stop
 
*dtmf0
    iax -> "SendDTMF" "0"
    stop
 
*dtmfPound
    iax -> "SendDTMF" "#"
    stop

↑

config.ini †

[編集]

別途、config.ini としてソースと同一のディレクトリに保存してください。

[default]
PhoneNumber=1234
UserID=guest
Password=guest
HostName=www.dairiten.com
CLIIDName=guest
CLIIDNum=15551212

これってHSPWikiのだっけ？削除していい？ -- 2007-05-28 (月) 22:08:53
なんで？著作権放棄されたものだから掲載していいんだよ -- 2008-10-13 (月) 20:04:16
お邪魔でしたら失礼(^-^; -- mack (作者)? 2008-11-25 (火) 19:58:57

OFFICIAL/関連

TUTORIAL

TOPICS

ETC

EDIT

REFERENCE

LOG

お知らせ

HSP Web-Ring

最新の40件

IP電話機能 †

config.ini †