neu
This commit is contained in:
@@ -1,6 +1,6 @@
|
||||
<?xml version="1.0" encoding="utf-8" ?>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configuration>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7" />
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
|
||||
</startup>
|
||||
</configuration>
|
||||
</configuration>
|
||||
|
||||
@@ -11,9 +11,10 @@
|
||||
<AssemblyName>VERAG_TELEINFO</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsFormsWithCustomSubMain</MyType>
|
||||
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
|
||||
<TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
|
||||
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
|
||||
<Deterministic>true</Deterministic>
|
||||
<TargetFrameworkProfile />
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
@@ -111,6 +112,9 @@
|
||||
<HintPath>..\..\..\dll\Tapi3\VBTAPI.dll</HintPath>
|
||||
<EmbedInteropTypes>False</EmbedInteropTypes>
|
||||
</Reference>
|
||||
<Reference Include="zdk.net">
|
||||
<HintPath>..\..\..\dll\ZOIPER\zdk.net_Windows_x86_64_v2.0.17.0\zdk.net_Windows_x86_64_v2.0.17.0\RunTest\zdk.net.dll</HintPath>
|
||||
</Reference>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Import Include="Microsoft.VisualBasic" />
|
||||
@@ -124,6 +128,7 @@
|
||||
<Import Include="System.Linq" />
|
||||
<Import Include="System.Xml.Linq" />
|
||||
<Import Include="System.Threading.Tasks" />
|
||||
<Import Include="ZDK_NET" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="Form1.vb">
|
||||
@@ -141,6 +146,12 @@
|
||||
<Compile Include="Form2.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmCamera.Designer.vb">
|
||||
<DependentUpon>frmCamera.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmCamera.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmTapi.Designer.vb">
|
||||
<DependentUpon>frmTapi.vb</DependentUpon>
|
||||
</Compile>
|
||||
@@ -180,9 +191,87 @@
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Content Include="antlr3c.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="avcodec-53.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="avutil-51.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="bctoolbox.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="belcard.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="bellesip.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="belr.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="bv16.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="bzrtp.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="gsm.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="libbcg729.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="linphone.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="mbedcrypto.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="mbedtls.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="mbedx509.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="mediastreamer_base.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="mediastreamer_voip.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="opus.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="ortp.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="PlathosysApiWrapper.pdb">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="speex.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="speexdsp.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="sqlite3.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="srtp.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="swscale-2.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="xml2.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="zlib.dll">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<None Include="My Project\app.manifest" />
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
@@ -220,6 +309,10 @@
|
||||
<Project>{a4a15e4a-9d83-4fd5-807b-63fc87ca4f0f}</Project>
|
||||
<Name>PlathosysApiWrapper</Name>
|
||||
</ProjectReference>
|
||||
<ProjectReference Include="..\..\..\dll\BRIA\Bria_API_CSharp_SampleApp_3-main\Bria_API_CSharp_SampleApp_3-main\Bria_API_SampleApp_Phone\Bria_API_CSharp_SampleApp_3.0.csproj">
|
||||
<Project>{1f68e194-88a8-47f2-b9f9-20e092efa30a}</Project>
|
||||
<Name>Bria_API_CSharp_SampleApp_3.0</Name>
|
||||
</ProjectReference>
|
||||
<ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
|
||||
<Project>{A3B497BD-842C-4A2B-B398-ED1976849DF1}</Project>
|
||||
<Name>VERAG_PROG_ALLGEMEIN</Name>
|
||||
@@ -229,6 +322,12 @@
|
||||
<PackageReference Include="ATAPI">
|
||||
<Version>2018.3.9</Version>
|
||||
</PackageReference>
|
||||
<PackageReference Include="LinphoneSDK.Windows">
|
||||
<Version>5.2.0-alpha.156</Version>
|
||||
</PackageReference>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Folder Include="lib\" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||
</Project>
|
||||
BIN
VERAG_TELEINFO/antlr3c.dll
Normal file
BIN
VERAG_TELEINFO/antlr3c.dll
Normal file
Binary file not shown.
BIN
VERAG_TELEINFO/avcodec-53.dll
Normal file
BIN
VERAG_TELEINFO/avcodec-53.dll
Normal file
Binary file not shown.
BIN
VERAG_TELEINFO/avutil-51.dll
Normal file
BIN
VERAG_TELEINFO/avutil-51.dll
Normal file
Binary file not shown.
BIN
VERAG_TELEINFO/bctoolbox.dll
Normal file
BIN
VERAG_TELEINFO/bctoolbox.dll
Normal file
Binary file not shown.
BIN
VERAG_TELEINFO/belcard.dll
Normal file
BIN
VERAG_TELEINFO/belcard.dll
Normal file
Binary file not shown.
BIN
VERAG_TELEINFO/bellesip.dll
Normal file
BIN
VERAG_TELEINFO/bellesip.dll
Normal file
Binary file not shown.
BIN
VERAG_TELEINFO/belr.dll
Normal file
BIN
VERAG_TELEINFO/belr.dll
Normal file
Binary file not shown.
BIN
VERAG_TELEINFO/bv16.dll
Normal file
BIN
VERAG_TELEINFO/bv16.dll
Normal file
Binary file not shown.
BIN
VERAG_TELEINFO/bzrtp.dll
Normal file
BIN
VERAG_TELEINFO/bzrtp.dll
Normal file
Binary file not shown.
30
VERAG_TELEINFO/frmCamera.Designer.vb
generated
Normal file
30
VERAG_TELEINFO/frmCamera.Designer.vb
generated
Normal file
@@ -0,0 +1,30 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmCamera
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(800, 450)
|
||||
Me.Text = "frmCamera"
|
||||
End Sub
|
||||
End Class
|
||||
3
VERAG_TELEINFO/frmCamera.vb
Normal file
3
VERAG_TELEINFO/frmCamera.vb
Normal file
@@ -0,0 +1,3 @@
|
||||
Public Class frmCamera
|
||||
|
||||
End Class
|
||||
38
VERAG_TELEINFO/frmTapi.Designer.vb
generated
38
VERAG_TELEINFO/frmTapi.Designer.vb
generated
@@ -30,21 +30,22 @@ Partial Class frmTapi
|
||||
Me.Timer = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.picCallState = New System.Windows.Forms.PictureBox()
|
||||
Me.pic = New System.Windows.Forms.PictureBox()
|
||||
Me.lblCallState = New System.Windows.Forms.Label()
|
||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.lblClose = New System.Windows.Forms.Label()
|
||||
Me.pic = New System.Windows.Forms.PictureBox()
|
||||
Me.lblClock = New System.Windows.Forms.Label()
|
||||
Me.lbl = New System.Windows.Forms.Label()
|
||||
Me.Panel = New System.Windows.Forms.Panel()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
CType(Me.picCallState, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel2.SuspendLayout()
|
||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'btn
|
||||
@@ -102,6 +103,7 @@ Partial Class frmTapi
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.BackColor = System.Drawing.Color.White
|
||||
Me.Panel1.Controls.Add(Me.Button2)
|
||||
Me.Panel1.Controls.Add(Me.picCallState)
|
||||
Me.Panel1.Controls.Add(Me.pic)
|
||||
Me.Panel1.Controls.Add(Me.lblCallState)
|
||||
@@ -114,6 +116,15 @@ Partial Class frmTapi
|
||||
Me.Panel1.Size = New System.Drawing.Size(1318, 893)
|
||||
Me.Panel1.TabIndex = 5
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.Location = New System.Drawing.Point(88, 411)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(75, 23)
|
||||
Me.Button2.TabIndex = 11
|
||||
Me.Button2.Text = "Button2"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'picCallState
|
||||
'
|
||||
Me.picCallState.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
@@ -126,6 +137,16 @@ Partial Class frmTapi
|
||||
Me.picCallState.TabIndex = 10
|
||||
Me.picCallState.TabStop = False
|
||||
'
|
||||
'pic
|
||||
'
|
||||
Me.pic.BackgroundImage = Global.VERAG_TELEINFO.My.Resources.Resources.Logo_blue_globe_Horizontal_eG
|
||||
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.pic.Location = New System.Drawing.Point(3, 110)
|
||||
Me.pic.Name = "pic"
|
||||
Me.pic.Size = New System.Drawing.Size(332, 104)
|
||||
Me.pic.TabIndex = 8
|
||||
Me.pic.TabStop = False
|
||||
'
|
||||
'lblCallState
|
||||
'
|
||||
Me.lblCallState.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
@@ -179,16 +200,6 @@ Partial Class frmTapi
|
||||
Me.lblClose.Text = "X"
|
||||
Me.lblClose.TextAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
'
|
||||
'pic
|
||||
'
|
||||
Me.pic.BackgroundImage = Global.VERAG_TELEINFO.My.Resources.Resources.Logo_blue_globe_Horizontal_eG
|
||||
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.pic.Location = New System.Drawing.Point(3, 110)
|
||||
Me.pic.Name = "pic"
|
||||
Me.pic.Size = New System.Drawing.Size(332, 104)
|
||||
Me.pic.TabIndex = 8
|
||||
Me.pic.TabStop = False
|
||||
'
|
||||
'lblClock
|
||||
'
|
||||
Me.lblClock.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
@@ -240,10 +251,10 @@ Partial Class frmTapi
|
||||
Me.pnl.PerformLayout()
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
CType(Me.picCallState, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.Panel2.ResumeLayout(False)
|
||||
Me.Panel2.PerformLayout()
|
||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
@@ -264,4 +275,5 @@ Partial Class frmTapi
|
||||
Friend WithEvents picCallState As PictureBox
|
||||
Friend WithEvents lblCallState As Label
|
||||
Friend WithEvents lblClose As Label
|
||||
Friend WithEvents Button2 As Button
|
||||
End Class
|
||||
|
||||
@@ -1,6 +1,10 @@
|
||||
Imports System.ComponentModel
|
||||
Imports sipdotnet
|
||||
Imports System.ComponentModel
|
||||
Imports System.Text
|
||||
Imports TAPI3Lib
|
||||
Imports Bria_API_CSharp_SampleApp
|
||||
Imports Bria_API_CSharp_SampleApp.BriaPhoneRemoteControl
|
||||
Imports Bria_API_CSharp_SampleApp.CallHistoryView
|
||||
|
||||
Public Class frmTapi
|
||||
|
||||
@@ -14,6 +18,11 @@ Public Class frmTapi
|
||||
Private oAddress As ITAddress
|
||||
Private RegCookie As Integer
|
||||
|
||||
|
||||
Dim briaAPI As BriaAPI
|
||||
Private phoneLines As PhoneLine() = New PhoneLine(5) {}
|
||||
|
||||
|
||||
Sub New()
|
||||
Try
|
||||
InitializeComponent()
|
||||
@@ -249,6 +258,20 @@ Public Class frmTapi
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
Sub makeVideoCallBRIA(PhoneNumber As String)
|
||||
Try
|
||||
|
||||
Dim connected = True
|
||||
If connected Then
|
||||
|
||||
briaAPI.RequestPlaceCall(PhoneNumber, Bria_API_CSharp_SampleApp.BriaAPI.CallTypes.video)
|
||||
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Sub makeVideoCall2(PhoneNumber As String)
|
||||
@@ -554,8 +577,8 @@ Public Class frmTapi
|
||||
Dim HookPttInfo = -1
|
||||
Dim ReadHook = PlathosysApiWrapper.Plathosys.ReadHookAndPTT(HookPttInfo)
|
||||
|
||||
Console.WriteLine($"ReadHook? {ReadHook}")
|
||||
Console.WriteLine($"HookPttInfo? {HookPttInfo}")
|
||||
' Console.WriteLine($"ReadHook? {ReadHook}")
|
||||
' Console.WriteLine($"HookPttInfo? {HookPttInfo}")
|
||||
|
||||
'Dim HookAndPTTState = PlathosysApiWrapper.Plathosys.InitHookAndPTTState()
|
||||
'Console.WriteLine($"HookAndPTTState? {HookAndPTTState}")
|
||||
@@ -570,10 +593,12 @@ Public Class frmTapi
|
||||
'picCallState.BackgroundImage = Nothing
|
||||
'picCallState.Image = My.Resources._call
|
||||
lblCallState.Text = "Anruf wird gestartet..."
|
||||
Dim PhoneNumber As String = "00436644178557"
|
||||
Dim PhoneNumber As String = "800" '"00436644178557"
|
||||
' Dim PhoneNumber As String = "147"
|
||||
makePhoneCall(PhoneNumber)
|
||||
' MsgBox("PICKUP!!!")
|
||||
'makePhoneCall(PhoneNumber)
|
||||
endCall()
|
||||
makeVideoCallBRIA(PhoneNumber)
|
||||
|
||||
End If
|
||||
Case Else
|
||||
If STATE = "PICKUP" Then
|
||||
@@ -583,7 +608,12 @@ Public Class frmTapi
|
||||
'picCallState.BackgroundImage = My.Resources.PLATHOSYS
|
||||
'picCallState.Image = Nothing
|
||||
lblCallState.Text = "Bitte heben Sie den Höhrer ab, um den Anruf zu starten."
|
||||
CURRENTCALL.Disconnect(DISCONNECT_CODE.DC_NORMAL)
|
||||
'CURRENTCALL.Disconnect(DISCONNECT_CODE.DC_NORMAL)
|
||||
endCall()
|
||||
|
||||
|
||||
|
||||
'briaAPI.Stop()
|
||||
' MsgBox("PICKUP DOWN!!!")
|
||||
End If
|
||||
End Select
|
||||
@@ -593,9 +623,104 @@ Public Class frmTapi
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub endCall()
|
||||
Try
|
||||
' briaAPI.
|
||||
For Each phoneLine As PhoneLine In phoneLines
|
||||
|
||||
If (phoneLine IsNot Nothing) Then
|
||||
MsgBox(phoneLine.Id)
|
||||
|
||||
briaAPI.RequestEndCall(phoneLine.Id)
|
||||
|
||||
End If
|
||||
|
||||
Next
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub frmTapi_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
'allFunc()
|
||||
Timer.Enabled = True
|
||||
'SipLinphone()
|
||||
|
||||
Try
|
||||
briaAPI = New Bria_API_CSharp_SampleApp.BriaAPI()
|
||||
|
||||
briaAPI.Start()
|
||||
'AddHandler briaAPI.OnCallStatus, AddressOf OnCallOptionsStatus(Me, aes As BriaAPI.CallOptionsStatusEventArgs)
|
||||
'AddHandler briaAPI.OnCallStatus, AddressOf MainThread_OnCallStatus(New BriaAPI.CallStatusEventArgs)
|
||||
' AddHandler briaAPI.OnCallOptionsStatus, AddressOf OnCallStatus
|
||||
AddHandler briaAPI.OnCallStatus, AddressOf OnCallStatus
|
||||
|
||||
' briaAPI.OnCallOptionsStatus += New EventHandler(Of BriaAPI.CallOptionsStatusEventArgs)(OnCallOptionsStatus)
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Delegate Sub OnCallStatusDelegate() ' As OnCallOptionsStatusDelegateEv
|
||||
|
||||
Private Event OnCallStatusDelegateEv(ByVal args As BriaAPI.CallStatusEventArgs)
|
||||
|
||||
'Private Delegate Sub OnCallOptionsStatus() As OnCallOptionsStatusDelegate
|
||||
'Private Event OnCallOptionsStatusDelegate(ByVal args As BriaAPI.CallStatusEventArgs)
|
||||
|
||||
'Private Delegate void OnCallOptionsStatusDelegate(BriaAPI.CallOptionsStatusEventArgs args);
|
||||
' Private OnCallOptionsStatusDelegate onCallOptionsStatusDelegate;
|
||||
|
||||
Private Sub OnCallStatus(ByVal sender As Object, ByVal args As BriaAPI.CallStatusEventArgs)
|
||||
Dim lineInUse As Boolean() = New Boolean(5) {}
|
||||
Dim callList As List(Of BriaAPI.[Call]) = args.CallList
|
||||
|
||||
|
||||
phoneLines = New PhoneLine(5) {}
|
||||
|
||||
Dim cnt = 0
|
||||
|
||||
For Each [call] As BriaAPI.[Call] In callList
|
||||
Dim existingCall As Boolean = False
|
||||
Dim phoneLine As PhoneLine = Nothing
|
||||
Dim newPhoneLine As PhoneLine = New PhoneLine([call].CallId)
|
||||
|
||||
|
||||
phoneLines(cnt) = newPhoneLine
|
||||
|
||||
|
||||
|
||||
phoneLine.HoldState = [call].HoldState
|
||||
|
||||
For Each participant As BriaAPI.CallParticipant In [call].ParticipantList
|
||||
Dim remoteParty As RemoteParty = New RemoteParty()
|
||||
remoteParty.Number = participant.Number
|
||||
remoteParty.DisplayName = participant.DisplayName
|
||||
remoteParty.TimeInitiated = participant.TimeInitiated
|
||||
remoteParty.State = participant.CallState
|
||||
phoneLine.RemoteParties.Add(remoteParty)
|
||||
|
||||
If (phoneLine.RemoteParties.Count = 1) AndAlso (remoteParty.State = BriaAPI.CallStates.Ringing) Then
|
||||
phoneLine.IsRinging = True
|
||||
Else
|
||||
phoneLine.IsRinging = False
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
|
||||
For i As Integer = 0 To 6 - 1
|
||||
|
||||
If lineInUse(i) = False Then
|
||||
phoneLines(i) = Nothing
|
||||
End If
|
||||
Next
|
||||
|
||||
UpdateCallStates()
|
||||
End Sub
|
||||
|
||||
Private Sub lblClose_Click(sender As Object, e As EventArgs) Handles lblClose.Click
|
||||
@@ -611,4 +736,71 @@ Public Class frmTapi
|
||||
lblClose.BackColor = Panel2.BackColor
|
||||
lblClose.ForeColor = Panel2.BackColor
|
||||
End Sub
|
||||
|
||||
'Private Sub SurroundingSub()
|
||||
' Dim callee As Address = Factory.Instance.CreateAddress("sip:janedoe@sip.example.org")
|
||||
' Dim callParams As CallParams = Core.CreateCallParams(Nothing)
|
||||
' callParams.MediaEncryption = MediaEncryption.SRTP
|
||||
' callParams.VideoEnabled = True
|
||||
' Dim [call] As [Call] = Core.InviteAddressWithParams(callee, callParams)
|
||||
' [call].Listener.OnStateChanged += Function(ByVal delegateCall As [Call], ByVal state As CallState, ByVal message As String)
|
||||
|
||||
' Select Case state
|
||||
' Case CallState.Connected
|
||||
' loggingService.Message("Call is connected")
|
||||
' Case Else
|
||||
' loggingService.Message("Call is " & state.ToString())
|
||||
' End Select
|
||||
' End Function
|
||||
'End Sub
|
||||
|
||||
'Sub SipLinphone()
|
||||
' Dim account As Account = New Account("0p6ou3lEGC", "WarT4jO5Us", "sip:verag.3cx.at")
|
||||
' Dim phone As Phone = New Phone(account)
|
||||
' AddHandler phone.PhoneConnectedEvent, Sub()
|
||||
' Console.WriteLine("Phone connected. Calling...")
|
||||
' ' phone.MakeCallAndRecord("phonenumber", "/tmp/filename.wav")
|
||||
' phone.MakeCall("phonenumber")
|
||||
' End Sub
|
||||
' AddHandler phone.CallActiveEvent, Sub()
|
||||
' Console.WriteLine("Answered. Call is active!")
|
||||
' End Sub
|
||||
' AddHandler phone.CallCompletedEvent, Sub()
|
||||
' Console.WriteLine("Completed.")
|
||||
' End Sub
|
||||
' AddHandler phone.PhoneConnectedEvent, Sub()
|
||||
' Console.WriteLine("Connected.")
|
||||
' End Sub
|
||||
' AddHandler phone.PhoneDisconnectedEvent, Sub()
|
||||
' Console.WriteLine("Disonnected.")
|
||||
' End Sub
|
||||
' Console.WriteLine("Go....")
|
||||
|
||||
|
||||
|
||||
' phone.Connect() ' // connecting
|
||||
|
||||
' Console.WriteLine(phone.CurrentConnectState)
|
||||
' 'phone.MakeCall("800")
|
||||
' 'Console.ReadLine()
|
||||
' 'phone.Disconnect() ' // terminate all calls And disconnect
|
||||
'End Sub
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub UpdateCallStates()
|
||||
'Dim active1 As Boolean = UpdatePhoneLine(Me.PhoneLine1Status_Text, Me.PhoneLine1Hold_Button, Me.PhoneLine1Resume_Button, Me.PhoneLine1End_Button, phoneLines(0))
|
||||
'Dim active2 As Boolean = UpdatePhoneLine(Me.PhoneLine2Status_Text, Me.PhoneLine2Hold_Button, Me.PhoneLine2Resume_Button, Me.PhoneLine2End_Button, phoneLines(1))
|
||||
'Dim active3 As Boolean = UpdatePhoneLine(Me.PhoneLine3Status_Text, Me.PhoneLine3Hold_Button, Me.PhoneLine3Resume_Button, Me.PhoneLine3End_Button, phoneLines(2))
|
||||
'Dim active4 As Boolean = UpdatePhoneLine(Me.PhoneLine4Status_Text, Me.PhoneLine4Hold_Button, Me.PhoneLine4Resume_Button, Me.PhoneLine4End_Button, phoneLines(3))
|
||||
'Dim active5 As Boolean = UpdatePhoneLine(Me.PhoneLine5Status_Text, Me.PhoneLine5Hold_Button, Me.PhoneLine5Resume_Button, Me.PhoneLine5End_Button, phoneLines(4))
|
||||
'Dim active6 As Boolean = UpdatePhoneLine(Me.PhoneLine6Status_Text, Me.PhoneLine6Hold_Button, Me.PhoneLine6Resume_Button, Me.PhoneLine6End_Button, phoneLines(5))
|
||||
'm_IsActiveOnThePhone = active1 OrElse active2 OrElse active3 OrElse active4 OrElse active5 OrElse active6
|
||||
'UpdatePhoneState()
|
||||
Me.Update()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
BIN
VERAG_TELEINFO/gsm.dll
Normal file
BIN
VERAG_TELEINFO/gsm.dll
Normal file
Binary file not shown.
BIN
VERAG_TELEINFO/libbcg729.dll
Normal file
BIN
VERAG_TELEINFO/libbcg729.dll
Normal file
Binary file not shown.
BIN
VERAG_TELEINFO/linphone.dll
Normal file
BIN
VERAG_TELEINFO/linphone.dll
Normal file
Binary file not shown.
BIN
VERAG_TELEINFO/mbedcrypto.dll
Normal file
BIN
VERAG_TELEINFO/mbedcrypto.dll
Normal file
Binary file not shown.
BIN
VERAG_TELEINFO/mbedtls.dll
Normal file
BIN
VERAG_TELEINFO/mbedtls.dll
Normal file
Binary file not shown.
BIN
VERAG_TELEINFO/mbedx509.dll
Normal file
BIN
VERAG_TELEINFO/mbedx509.dll
Normal file
Binary file not shown.
BIN
VERAG_TELEINFO/mediastreamer_base.dll
Normal file
BIN
VERAG_TELEINFO/mediastreamer_base.dll
Normal file
Binary file not shown.
BIN
VERAG_TELEINFO/mediastreamer_voip.dll
Normal file
BIN
VERAG_TELEINFO/mediastreamer_voip.dll
Normal file
Binary file not shown.
BIN
VERAG_TELEINFO/opus.dll
Normal file
BIN
VERAG_TELEINFO/opus.dll
Normal file
Binary file not shown.
BIN
VERAG_TELEINFO/ortp.dll
Normal file
BIN
VERAG_TELEINFO/ortp.dll
Normal file
Binary file not shown.
BIN
VERAG_TELEINFO/speex.dll
Normal file
BIN
VERAG_TELEINFO/speex.dll
Normal file
Binary file not shown.
BIN
VERAG_TELEINFO/speexdsp.dll
Normal file
BIN
VERAG_TELEINFO/speexdsp.dll
Normal file
Binary file not shown.
BIN
VERAG_TELEINFO/sqlite3.dll
Normal file
BIN
VERAG_TELEINFO/sqlite3.dll
Normal file
Binary file not shown.
BIN
VERAG_TELEINFO/srtp.dll
Normal file
BIN
VERAG_TELEINFO/srtp.dll
Normal file
Binary file not shown.
BIN
VERAG_TELEINFO/swscale-2.dll
Normal file
BIN
VERAG_TELEINFO/swscale-2.dll
Normal file
Binary file not shown.
BIN
VERAG_TELEINFO/xml2.dll
Normal file
BIN
VERAG_TELEINFO/xml2.dll
Normal file
Binary file not shown.
BIN
VERAG_TELEINFO/zlib.dll
Normal file
BIN
VERAG_TELEINFO/zlib.dll
Normal file
Binary file not shown.
Reference in New Issue
Block a user