EDMI: Update Service and Client to Use Messages for EDMI Methods
This commit is contained in:
Jonathan Jenne
20
GUIs.Test.EDMIBenchmark/Form1.Designer.vb
generated
20
GUIs.Test.EDMIBenchmark/Form1.Designer.vb
generated
@@ -32,7 +32,7 @@ Partial Class Form1
|
||||
Me.ButtonImportFiles = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.buttonClearLog = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.buttonClearFiles = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.TextboxObejctId = New DevExpress.XtraBars.BarEditItem()
|
||||
Me.TextboxObjectId = New DevExpress.XtraBars.BarEditItem()
|
||||
Me.RepositoryItemTextEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit()
|
||||
Me.ButtonLoadFile = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarListItem1 = New DevExpress.XtraBars.BarListItem()
|
||||
@@ -110,7 +110,7 @@ Partial Class Form1
|
||||
'RibbonControl1
|
||||
'
|
||||
Me.RibbonControl1.ExpandCollapseItem.Id = 0
|
||||
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.ButtonSelectFiles, Me.ButtonImportFiles, Me.buttonClearLog, Me.buttonClearFiles, Me.TextboxObejctId, Me.ButtonLoadFile, Me.BarListItem1, Me.BarButtonItem2, Me.BarToggleSwitchItem1, Me.BarDockingMenuItem1, Me.BarMdiChildrenListItem1, Me.BarButtonItem1})
|
||||
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.ButtonSelectFiles, Me.ButtonImportFiles, Me.buttonClearLog, Me.buttonClearFiles, Me.TextboxObjectId, Me.ButtonLoadFile, Me.BarListItem1, Me.BarButtonItem2, Me.BarToggleSwitchItem1, Me.BarDockingMenuItem1, Me.BarMdiChildrenListItem1, Me.BarButtonItem1})
|
||||
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.RibbonControl1.MaxItemId = 14
|
||||
Me.RibbonControl1.Name = "RibbonControl1"
|
||||
@@ -151,12 +151,12 @@ Partial Class Form1
|
||||
'
|
||||
'TextboxObejctId
|
||||
'
|
||||
Me.TextboxObejctId.Caption = "Document Id"
|
||||
Me.TextboxObejctId.Edit = Me.RepositoryItemTextEdit1
|
||||
Me.TextboxObejctId.EditWidth = 100
|
||||
Me.TextboxObejctId.Id = 5
|
||||
Me.TextboxObejctId.ImageOptions.SvgImage = CType(resources.GetObject("TextboxObejctId.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.TextboxObejctId.Name = "TextboxObejctId"
|
||||
Me.TextboxObjectId.Caption = "Document Id"
|
||||
Me.TextboxObjectId.Edit = Me.RepositoryItemTextEdit1
|
||||
Me.TextboxObjectId.EditWidth = 100
|
||||
Me.TextboxObjectId.Id = 5
|
||||
Me.TextboxObjectId.ImageOptions.SvgImage = CType(resources.GetObject("TextboxObejctId.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.TextboxObjectId.Name = "TextboxObejctId"
|
||||
'
|
||||
'RepositoryItemTextEdit1
|
||||
'
|
||||
@@ -218,7 +218,7 @@ Partial Class Form1
|
||||
'
|
||||
'RibbonPageGroup4
|
||||
'
|
||||
Me.RibbonPageGroup4.ItemLinks.Add(Me.TextboxObejctId)
|
||||
Me.RibbonPageGroup4.ItemLinks.Add(Me.TextboxObjectId)
|
||||
Me.RibbonPageGroup4.ItemLinks.Add(Me.BarToggleSwitchItem1)
|
||||
Me.RibbonPageGroup4.ItemLinks.Add(Me.ButtonLoadFile)
|
||||
Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem2)
|
||||
@@ -497,7 +497,7 @@ Partial Class Form1
|
||||
Friend WithEvents buttonClearLog As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents buttonClearFiles As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents TextboxObejctId As DevExpress.XtraBars.BarEditItem
|
||||
Friend WithEvents TextboxObjectId As DevExpress.XtraBars.BarEditItem
|
||||
Friend WithEvents RepositoryItemTextEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemTextEdit
|
||||
Friend WithEvents ButtonLoadFile As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
|
||||
@@ -4,22 +4,19 @@ Imports DigitalData.Modules.EDMI.API
|
||||
Imports DevExpress.XtraEditors
|
||||
Imports DevExpress.XtraEditors.Controls
|
||||
Imports System.IO
|
||||
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
|
||||
|
||||
Public Class Form1
|
||||
Private _Channel As EDMIServiceReference.IEDMIServiceChannel
|
||||
Private _LogConfig As LogConfig
|
||||
Private _Logger As Logger
|
||||
Private _Client As Client
|
||||
|
||||
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Try
|
||||
_LogConfig = New LogConfig(LogConfig.PathType.Temp, Nothing, "EDMIBenschmark")
|
||||
_Logger = _LogConfig.GetLogger()
|
||||
|
||||
Dim oChannelFactory As New ChannelFactory(Of EDMIServiceReference.IEDMIServiceChannel)(
|
||||
Channel.GetBinding(TcpClientCredentialType.Windows),
|
||||
"net.tcp://172.24.12.39:9000/DigitalData/Services/Main")
|
||||
_Channel = oChannelFactory.CreateChannel()
|
||||
_Channel.Open()
|
||||
_Client = New Client(_LogConfig, "net.tcp://172.24.12.39:9000/DigitalData/Services/Main")
|
||||
_Client.Connect()
|
||||
|
||||
DocumentViewer1.Init(_LogConfig, "21182889975216572111813147150675976632")
|
||||
Catch ex As Exception
|
||||
@@ -61,18 +58,8 @@ Public Class Form1
|
||||
|
||||
AddLogMessage($"Importing {oFileInfo.Name}... ({FormatBytes(oFileInfo.Length)})")
|
||||
|
||||
Dim oContents As Byte() = New Byte(oFileInfo.Length) {}
|
||||
|
||||
Using oStream As New FileStream(oFileName, FileMode.Open)
|
||||
Await oStream.ReadAsync(oContents, 0, oFileInfo.Length)
|
||||
End Using
|
||||
|
||||
Dim oResult As EDMIServiceReference.DocumentResult = Await _Channel.ImportFileAsync(oFileInfo.Name, oContents, 1, "WichtigesDokument", 0)
|
||||
If oResult.OK Then
|
||||
AddLogMessage($"File [{oFileInfo.Name}] with Id [{oResult.Document.FileId}] imported!")
|
||||
Else
|
||||
AddLogMessage($"Import Error: {oResult.ErrorMessage}")
|
||||
End If
|
||||
Dim oObjectId As Long = Await _Client.ImportFileAsync(oFileInfo.Name, "WichtigesDokument", 1, 0)
|
||||
AddLogMessage($"File with Id [{oObjectId}] imported!")
|
||||
oSW.Stop()
|
||||
AddLogMessage($"Import Time: {FormatTime(oSW.ElapsedMilliseconds)}")
|
||||
AddLogMessage("")
|
||||
@@ -135,18 +122,14 @@ Public Class Form1
|
||||
Dim oSWTotal As New Stopwatch()
|
||||
oSWTotal.Start()
|
||||
|
||||
If TextboxObejctId.EditValue = "" Then
|
||||
If TextboxObjectId.EditValue = "" Then
|
||||
MsgBox("Please enter an object id!", MsgBoxStyle.Exclamation, "Uh oh!")
|
||||
End If
|
||||
|
||||
Dim oObjectId As Integer = TextboxObejctId.EditValue
|
||||
Dim oObjectId As Integer = TextboxObjectId.EditValue
|
||||
Dim oResponse As Client.StreamedFile = Await _Client.GetFileByObjectIdAsync(oObjectId)
|
||||
|
||||
Dim oResponse = Await _Channel.GetFileByObjectIdAsync(New EDMIServiceReference.DocumentStreamRequest() With {.ObjectId = oObjectId})
|
||||
Dim oMemoryStream As New MemoryStream()
|
||||
oResponse.FileContents.CopyTo(oMemoryStream)
|
||||
oMemoryStream.Position = 0
|
||||
|
||||
DocumentViewer1.LoadFile(oResponse.FileName, oMemoryStream)
|
||||
DocumentViewer1.LoadFile(oResponse.FileName, oResponse.Stream)
|
||||
|
||||
oSWTotal.Stop()
|
||||
AddLogMessage($"File [{oResponse.FileName}] loaded: [{FormatTime(oSWTotal.ElapsedMilliseconds)}]")
|
||||
@@ -159,7 +142,7 @@ Public Class Form1
|
||||
|
||||
Private Async Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
|
||||
Try
|
||||
Dim oResult = Await _Channel.ListFilesForUserAsync()
|
||||
Dim oResult As Client.FileList = Await _Client.ListFilesForUserAsync()
|
||||
BindingSource1.DataSource = oResult.Datatable
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Uh oh!")
|
||||
@@ -177,13 +160,10 @@ Public Class Form1
|
||||
Dim oSWTotal As New Stopwatch()
|
||||
oSWTotal.Start()
|
||||
|
||||
Dim oObjectId As Int64 = oRow.Item("IDB_OBJ_ID")
|
||||
Dim oResponse = Await _Channel.GetFileByObjectIdAsync(New EDMIServiceReference.DocumentStreamRequest() With {.ObjectId = oObjectId})
|
||||
Dim oMemoryStream As New MemoryStream()
|
||||
oResponse.FileContents.CopyTo(oMemoryStream)
|
||||
oMemoryStream.Position = 0
|
||||
Dim oObjectId As Long = oRow.Item("IDB_OBJ_ID")
|
||||
Dim oResponse As Client.StreamedFile = Await _Client.GetFileByObjectIdAsync(oObjectId)
|
||||
|
||||
DocumentViewer1.LoadFile(oResponse.FileName, oMemoryStream)
|
||||
DocumentViewer1.LoadFile(oResponse.FileName, oResponse.Stream)
|
||||
|
||||
oSWTotal.Stop()
|
||||
AddLogMessage($"File [{oResponse.FileName}] loaded: [{FormatTime(oSWTotal.ElapsedMilliseconds)}]")
|
||||
@@ -199,14 +179,11 @@ Public Class Form1
|
||||
Dim oSWTotal As New Stopwatch()
|
||||
oSWTotal.Start()
|
||||
|
||||
Dim oObjectId As Integer = TextboxObejctId.EditValue
|
||||
Dim oObjectId As Integer = TextboxObjectId.EditValue
|
||||
|
||||
Dim oResponse = Await _Channel.GetFileByObjectIdAsync(New EDMIServiceReference.DocumentStreamRequest() With {.ObjectId = oObjectId})
|
||||
Dim oMemoryStream As New MemoryStream()
|
||||
oResponse.FileContents.CopyTo(oMemoryStream)
|
||||
oMemoryStream.Position = 0
|
||||
Dim oResponse As Client.StreamedFile = Await _Client.GetFileByObjectIdAsync(oObjectId)
|
||||
|
||||
DocumentViewer1.LoadFile(oResponse.FileName, oMemoryStream)
|
||||
DocumentViewer1.LoadFile(oResponse.FileName, oResponse.Stream)
|
||||
|
||||
oSWTotal.Stop()
|
||||
AddLogMessage($"File [{oResponse.FileName}] loaded: [{FormatTime(oSWTotal.ElapsedMilliseconds)}]")
|
||||
@@ -217,7 +194,7 @@ Public Class Form1
|
||||
|
||||
Private Sub BarToggleSwitchItem1_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarToggleSwitchItem1.CheckedChanged
|
||||
If BarToggleSwitchItem1.Checked Then
|
||||
If TextboxObejctId.EditValue = "" Then
|
||||
If TextboxObjectId.EditValue = "" Then
|
||||
Timer1.Stop()
|
||||
MsgBox("Please set a ObjectId!", MsgBoxStyle.Critical, Text)
|
||||
Else
|
||||
|
||||
Reference in New Issue
Block a user