AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

update service and api

Browse Source
This commit is contained in:
Jonathan Jenne 2020-02-04 15:42:12 +01:00
parent 265c08d5d5
commit c66a2dc5e5
21 changed files with 622 additions and 396 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

83
GUIs.ClientSuite/_TEST/frmFileTest.Designer.vb generated
View File

@ -26,13 +26,6 @@ Partial Class frmFileTest
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.listboxLog = New System.Windows.Forms.ListBox() Me.listboxLog = New System.Windows.Forms.ListBox()
Me.btnDocByDocId = New System.Windows.Forms.Button()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.btnDocByContainerId = New System.Windows.Forms.Button()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.TextBox4 = New System.Windows.Forms.TextBox()
Me.Button2 = New System.Windows.Forms.Button()
Me.SuspendLayout() Me.SuspendLayout()
' '
'Button1 'Button1
@ -46,96 +39,26 @@ Partial Class frmFileTest
' '
'listboxLog 'listboxLog
' '
Me.listboxLog.Dock = System.Windows.Forms.DockStyle.Bottom Me.listboxLog.Dock = System.Windows.Forms.DockStyle.Right
Me.listboxLog.FormattingEnabled = True Me.listboxLog.FormattingEnabled = True
Me.listboxLog.Location = New System.Drawing.Point(0, 225) Me.listboxLog.Location = New System.Drawing.Point(165, 0)
Me.listboxLog.Name = "listboxLog" Me.listboxLog.Name = "listboxLog"
Me.listboxLog.Size = New System.Drawing.Size(800, 225) Me.listboxLog.Size = New System.Drawing.Size(635, 450)
Me.listboxLog.TabIndex = 1 Me.listboxLog.TabIndex = 1
' '
'btnDocByDocId
'
Me.btnDocByDocId.Location = New System.Drawing.Point(655, 12)
Me.btnDocByDocId.Name = "btnDocByDocId"
Me.btnDocByDocId.Size = New System.Drawing.Size(133, 32)
Me.btnDocByDocId.TabIndex = 2
Me.btnDocByDocId.Text = "GetDocByDocId"
Me.btnDocByDocId.UseVisualStyleBackColor = True
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(425, 24)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(224, 20)
Me.TextBox1.TabIndex = 3
'
'btnDocByContainerId
'
Me.btnDocByContainerId.Location = New System.Drawing.Point(655, 50)
Me.btnDocByContainerId.Name = "btnDocByContainerId"
Me.btnDocByContainerId.Size = New System.Drawing.Size(133, 32)
Me.btnDocByContainerId.TabIndex = 4
Me.btnDocByContainerId.Text = "GetDocByContainerId"
Me.btnDocByContainerId.UseVisualStyleBackColor = True
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(425, 62)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(224, 20)
Me.TextBox2.TabIndex = 3
'
'TextBox3
'
Me.TextBox3.Location = New System.Drawing.Point(425, 138)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(224, 20)
Me.TextBox3.TabIndex = 5
'
'TextBox4
'
Me.TextBox4.Location = New System.Drawing.Point(425, 112)
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New System.Drawing.Size(224, 20)
Me.TextBox4.TabIndex = 5
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(655, 126)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(133, 32)
Me.Button2.TabIndex = 4
Me.Button2.Text = "GetDocByContainerId"
Me.Button2.UseVisualStyleBackColor = True
'
'frmFileTest 'frmFileTest
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450) Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Controls.Add(Me.TextBox4)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.btnDocByContainerId)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.btnDocByDocId)
Me.Controls.Add(Me.listboxLog) Me.Controls.Add(Me.listboxLog)
Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.Button1)
Me.Name = "frmFileTest" Me.Name = "frmFileTest"
Me.Text = "frmFileTest" Me.Text = "frmFileTest"
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout()
End Sub End Sub
Friend WithEvents Button1 As Button Friend WithEvents Button1 As Button
Friend WithEvents listboxLog As ListBox Friend WithEvents listboxLog As ListBox
Friend WithEvents btnDocByDocId As Button
Friend WithEvents TextBox1 As TextBox
Friend WithEvents btnDocByContainerId As Button
Friend WithEvents TextBox2 As TextBox
Friend WithEvents TextBox3 As TextBox
Friend WithEvents TextBox4 As TextBox
Friend WithEvents Button2 As Button
End Class End Class

104
GUIs.ClientSuite/_TEST/frmFileTest.vb
View File

@ -1,6 +1,5 @@
Imports System.IO Imports System.IO
Imports DigitalData.Modules.EDMIAPI Imports DigitalData.Modules.EDMIAPI
Imports DigitalData.Modules.Filesystem
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Public Class frmFileTest Public Class frmFileTest
@ -16,7 +15,10 @@ Public Class frmFileTest
End Sub End Sub
Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim oDialog = New OpenFileDialog() Dim oDialog = New OpenFileDialog() With {
.Multiselect = True
}
Dim oDialogResult = oDialog.ShowDialog() Dim oDialogResult = oDialog.ShowDialog()
If oDialogResult <> DialogResult.OK Then If oDialogResult <> DialogResult.OK Then
@ -24,65 +26,71 @@ Public Class frmFileTest
End If End If
Try Try
Dim oResult = Await _fileOp.ImportFileAsync(oDialog.FileName) For Each oFileName In oDialog.FileNames
Dim oSW As New Stopwatch()
oSW.Start()
If oResult.OK = False Then Dim oResult = Await _fileOp.ImportFile2(oFileName)
MsgBox(oResult.ErrorMessage)
Exit Sub
End If
listboxLog.Items.Add($"Document uploaded!") oSW.Stop()
listboxLog.Items.Add($"DocId: {oResult.Document.DocumentId}")
listboxLog.Items.Add($"ContainerId: {oResult.Document.ContainerId}") If oResult.OK = False Then
listboxLog.Items.Add($"Filename: {oResult.Document.FileName}") MsgBox(oResult.ErrorMessage)
listboxLog.Items.Add($"----------------------------------------------------------") Exit Sub
End If
listboxLog.Items.Add($"Document uploaded!")
listboxLog.Items.Add($"Filename: {oResult.Document.FileName}")
listboxLog.Items.Add($"Time in milliseconds: {oSW.ElapsedMilliseconds}")
listboxLog.Items.Add($"----------------------------------------------------------")
Next
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) ShowErrorMessage(ex)
Logger.Error(ex) Logger.Error(ex)
End Try End Try
End Sub End Sub
Private Sub btnDocByDocId_Click(sender As Object, e As EventArgs) Handles btnDocByDocId.Click 'Private Sub btnDocByDocId_Click(sender As Object, e As EventArgs)
Try ' Try
Dim oDocId As Int64 = Int64.Parse(TextBox1.Text) ' Dim oDocId As Int64 = Int64.Parse(TextBox1.Text)
Dim oResult = _fileOp.GetDocumentByDocumentId(oDocId) ' Dim oResult = _fileOp.GetDocumentByDocumentId(oDocId)
If Not oResult.OK Then ' If Not oResult.OK Then
MsgBox(oResult.ErrorMessage) ' MsgBox(oResult.ErrorMessage)
Exit Sub ' Exit Sub
End If ' End If
Dim oDocObject = oResult.Document ' Dim oDocObject = oResult.Document
listboxLog.Items.Add($"Document fetched!") ' listboxLog.Items.Add($"Document fetched!")
listboxLog.Items.Add($"DocId: {oDocObject.DocumentId}") ' listboxLog.Items.Add($"DocId: {oDocObject.DocumentId}")
listboxLog.Items.Add($"ContainerId: {oDocObject.ContainerId}") ' listboxLog.Items.Add($"ContainerId: {oDocObject.ContainerId}")
listboxLog.Items.Add($"Filename: {oDocObject.FileName}") ' listboxLog.Items.Add($"Filename: {oDocObject.FileName}")
listboxLog.Items.Add($"----------------------------------------------------------") ' listboxLog.Items.Add($"----------------------------------------------------------")
Catch ex As Exception ' Catch ex As Exception
ShowErrorMessage(ex) ' ShowErrorMessage(ex)
End Try ' End Try
End Sub 'End Sub
Private Sub btnDocByContainerId_Click(sender As Object, e As EventArgs) Handles btnDocByContainerId.Click, Button2.Click 'Private Sub btnDocByContainerId_Click(sender As Object, e As EventArgs)
Try ' Try
Dim oContainerId As Int64 = Int64.Parse(TextBox2.Text) ' Dim oContainerId As Int64 = Int64.Parse(TextBox2.Text)
Dim oResult = _fileOp.GetDocumentByContainerId(oContainerId) ' Dim oResult = _fileOp.GetDocumentByContainerId(oContainerId)
If Not oResult.OK Then ' If Not oResult.OK Then
MsgBox(oResult.ErrorMessage) ' MsgBox(oResult.ErrorMessage)
Exit Sub ' Exit Sub
End If ' End If
Dim oDocObject = oResult.Document ' Dim oDocObject = oResult.Document
listboxLog.Items.Add($"Document fetched!") ' listboxLog.Items.Add($"Document fetched!")
listboxLog.Items.Add($"DocId: {oDocObject.DocumentId}") ' listboxLog.Items.Add($"DocId: {oDocObject.DocumentId}")
listboxLog.Items.Add($"ContainerId: {oDocObject.ContainerId}") ' listboxLog.Items.Add($"ContainerId: {oDocObject.ContainerId}")
listboxLog.Items.Add($"Filename: {oDocObject.FileName}") ' listboxLog.Items.Add($"Filename: {oDocObject.FileName}")
listboxLog.Items.Add($"----------------------------------------------------------") ' listboxLog.Items.Add($"----------------------------------------------------------")
Catch ex As Exception ' Catch ex As Exception
ShowErrorMessage(ex) ' ShowErrorMessage(ex)
End Try ' End Try
End Sub 'End Sub
End Class End Class

4
Modules.EDMIAPI/Channel.vb
View File

@ -2,7 +2,7 @@
Imports System.Xml Imports System.Xml
Public Class Channel Public Class Channel
Public Shared Function GetBinding() As NetTcpBinding Public Shared Function GetBinding(Optional AuthenticationMode As TcpClientCredentialType = TcpClientCredentialType.Windows) As NetTcpBinding
Return New NetTcpBinding() With { Return New NetTcpBinding() With {
.MaxReceivedMessageSize = Constants.MAX_RECEIVED_MESSAGE_SIZE, .MaxReceivedMessageSize = Constants.MAX_RECEIVED_MESSAGE_SIZE,
.MaxBufferSize = Constants.MAX_BUFFER_SIZE, .MaxBufferSize = Constants.MAX_BUFFER_SIZE,
@ -11,7 +11,7 @@ Public Class Channel
.Security = New NetTcpSecurity() With { .Security = New NetTcpSecurity() With {
.Mode = SecurityMode.Transport, .Mode = SecurityMode.Transport,
.Transport = New TcpTransportSecurity() With { .Transport = New TcpTransportSecurity() With {
.ClientCredentialType = TcpClientCredentialType.Windows .ClientCredentialType = AuthenticationMode
} }
}, },
.ReaderQuotas = New XmlDictionaryReaderQuotas() With { .ReaderQuotas = New XmlDictionaryReaderQuotas() With {

10
Modules.EDMIAPI/Connected Services/IDBServiceReference/DigitalData.Modules.EDMIAPI.IDBServiceReference.DocumentResult2.datasource Normal file
View File

@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="DocumentResult2" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>DigitalData.Modules.EDMIAPI.IDBServiceReference.DocumentResult2, Connected Services.IDBServiceReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

11
Modules.EDMIAPI/Connected Services/IDBServiceReference/DigitalData.Services.IDBService.wsdl
View File

@ -8,6 +8,7 @@
<xsd:import namespace="http://schemas.datacontract.org/2004/07/System" /> <xsd:import namespace="http://schemas.datacontract.org/2004/07/System" />
<xsd:import namespace="http://schemas.datacontract.org/2004/07/System.Data" /> <xsd:import namespace="http://schemas.datacontract.org/2004/07/System.Data" />
<xsd:import namespace="http://schemas.datacontract.org/2004/07/DigitalData.Modules.Filesystem" /> <xsd:import namespace="http://schemas.datacontract.org/2004/07/DigitalData.Modules.Filesystem" />
<xsd:import namespace="http://schemas.datacontract.org/2004/07/System.IO" />
</xsd:schema> </xsd:schema>
</wsdl:types> </wsdl:types>
<wsdl:message name="IIDBService_Heartbeat_InputMessage"> <wsdl:message name="IIDBService_Heartbeat_InputMessage">
@ -70,6 +71,12 @@
<wsdl:message name="IIDBService_DeleteFile_OutputMessage"> <wsdl:message name="IIDBService_DeleteFile_OutputMessage">
<wsdl:part name="parameters" element="tns:DeleteFileResponse" /> <wsdl:part name="parameters" element="tns:DeleteFileResponse" />
</wsdl:message> </wsdl:message>
<wsdl:message name="IIDBService_ImportFile_InputMessage">
<wsdl:part name="parameters" element="tns:ImportFile" />
</wsdl:message>
<wsdl:message name="IIDBService_ImportFile_OutputMessage">
<wsdl:part name="parameters" element="tns:ImportFileResponse" />
</wsdl:message>
<wsdl:message name="IIDBService_GetDocumentByDocumentId_InputMessage"> <wsdl:message name="IIDBService_GetDocumentByDocumentId_InputMessage">
<wsdl:part name="parameters" element="tns:GetDocumentByDocumentId" /> <wsdl:part name="parameters" element="tns:GetDocumentByDocumentId" />
</wsdl:message> </wsdl:message>
@ -129,6 +136,10 @@
<wsdl:input wsaw:Action="http://DigitalData.Services.IDBService/IIDBService/DeleteFile" message="tns:IIDBService_DeleteFile_InputMessage" /> <wsdl:input wsaw:Action="http://DigitalData.Services.IDBService/IIDBService/DeleteFile" message="tns:IIDBService_DeleteFile_InputMessage" />
<wsdl:output wsaw:Action="http://DigitalData.Services.IDBService/IIDBService/DeleteFileResponse" message="tns:IIDBService_DeleteFile_OutputMessage" /> <wsdl:output wsaw:Action="http://DigitalData.Services.IDBService/IIDBService/DeleteFileResponse" message="tns:IIDBService_DeleteFile_OutputMessage" />
</wsdl:operation> </wsdl:operation>
<wsdl:operation name="ImportFile">
<wsdl:input wsaw:Action="http://DigitalData.Services.IDBService/IIDBService/ImportFile" message="tns:IIDBService_ImportFile_InputMessage" />
<wsdl:output wsaw:Action="http://DigitalData.Services.IDBService/IIDBService/ImportFileResponse" message="tns:IIDBService_ImportFile_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="GetDocumentByDocumentId"> <wsdl:operation name="GetDocumentByDocumentId">
<wsdl:input wsaw:Action="http://DigitalData.Services.IDBService/IIDBService/GetDocumentByDocumentId" message="tns:IIDBService_GetDocumentByDocumentId_InputMessage" /> <wsdl:input wsaw:Action="http://DigitalData.Services.IDBService/IIDBService/GetDocumentByDocumentId" message="tns:IIDBService_GetDocumentByDocumentId_InputMessage" />
<wsdl:output wsaw:Action="http://DigitalData.Services.IDBService/IIDBService/GetDocumentByDocumentIdResponse" message="tns:IIDBService_GetDocumentByDocumentId_OutputMessage" /> <wsdl:output wsaw:Action="http://DigitalData.Services.IDBService/IIDBService/GetDocumentByDocumentIdResponse" message="tns:IIDBService_GetDocumentByDocumentId_OutputMessage" />

24
Modules.EDMIAPI/Connected Services/IDBServiceReference/DigitalData.Services.IDBService.xsd
View File

@ -2,6 +2,7 @@
<xs:schema xmlns:tns="http://DigitalData.Services.IDBService" elementFormDefault="qualified" targetNamespace="http://DigitalData.Services.IDBService" xmlns:xs="http://www.w3.org/2001/XMLSchema"> <xs:schema xmlns:tns="http://DigitalData.Services.IDBService" elementFormDefault="qualified" targetNamespace="http://DigitalData.Services.IDBService" xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:import namespace="http://schemas.datacontract.org/2004/07/DigitalData.Services.IDBService" /> <xs:import namespace="http://schemas.datacontract.org/2004/07/DigitalData.Services.IDBService" />
<xs:import namespace="http://schemas.datacontract.org/2004/07/DigitalData.Modules.Filesystem" /> <xs:import namespace="http://schemas.datacontract.org/2004/07/DigitalData.Modules.Filesystem" />
<xs:import namespace="http://schemas.datacontract.org/2004/07/System.IO" />
<xs:element name="Heartbeat"> <xs:element name="Heartbeat">
<xs:complexType> <xs:complexType>
<xs:sequence /> <xs:sequence />
@ -139,6 +140,21 @@
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="ImportFile">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q10="http://schemas.datacontract.org/2004/07/System.IO" minOccurs="0" name="FileInfo" nillable="true" type="q10:FileInfo" />
<xs:element minOccurs="0" name="Contents" nillable="true" type="xs:base64Binary" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="ImportFileResponse">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q11="http://schemas.datacontract.org/2004/07/DigitalData.Services.IDBService" minOccurs="0" name="ImportFileResult" nillable="true" type="q11:DocumentResult2" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="GetDocumentByDocumentId"> <xs:element name="GetDocumentByDocumentId">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
@ -149,7 +165,7 @@
<xs:element name="GetDocumentByDocumentIdResponse"> <xs:element name="GetDocumentByDocumentIdResponse">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element xmlns:q10="http://schemas.datacontract.org/2004/07/DigitalData.Services.IDBService" minOccurs="0" name="GetDocumentByDocumentIdResult" nillable="true" type="q10:DocumentResult" /> <xs:element xmlns:q12="http://schemas.datacontract.org/2004/07/DigitalData.Services.IDBService" minOccurs="0" name="GetDocumentByDocumentIdResult" nillable="true" type="q12:DocumentResult" />
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
@ -163,14 +179,14 @@
<xs:element name="GetDocumentByContainerIdResponse"> <xs:element name="GetDocumentByContainerIdResponse">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element xmlns:q11="http://schemas.datacontract.org/2004/07/DigitalData.Services.IDBService" minOccurs="0" name="GetDocumentByContainerIdResult" nillable="true" type="q11:DocumentResult" /> <xs:element xmlns:q13="http://schemas.datacontract.org/2004/07/DigitalData.Services.IDBService" minOccurs="0" name="GetDocumentByContainerIdResult" nillable="true" type="q13:DocumentResult" />
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="NewFileIndex"> <xs:element name="NewFileIndex">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element xmlns:q12="http://schemas.datacontract.org/2004/07/DigitalData.Modules.Filesystem" minOccurs="0" name="DocObject" nillable="true" type="q12:DocumentObject" /> <xs:element xmlns:q14="http://schemas.datacontract.org/2004/07/DigitalData.Modules.Filesystem" minOccurs="0" name="DocObject" nillable="true" type="q14:DocumentObject" />
<xs:element minOccurs="0" name="Syskey" nillable="true" type="xs:string" /> <xs:element minOccurs="0" name="Syskey" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="LanguageCode" nillable="true" type="xs:string" /> <xs:element minOccurs="0" name="LanguageCode" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="Value" nillable="true" type="xs:string" /> <xs:element minOccurs="0" name="Value" nillable="true" type="xs:string" />
@ -180,7 +196,7 @@
<xs:element name="NewFileIndexResponse"> <xs:element name="NewFileIndexResponse">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element xmlns:q13="http://schemas.datacontract.org/2004/07/DigitalData.Services.IDBService" minOccurs="0" name="NewFileIndexResult" nillable="true" type="q13:IndexResult" /> <xs:element xmlns:q15="http://schemas.datacontract.org/2004/07/DigitalData.Services.IDBService" minOccurs="0" name="NewFileIndexResult" nillable="true" type="q15:IndexResult" />
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>

18
Modules.EDMIAPI/Connected Services/IDBServiceReference/DigitalData.Services.IDBService1.xsd
View File

@ -61,6 +61,24 @@
</xs:complexContent> </xs:complexContent>
</xs:complexType> </xs:complexType>
<xs:element name="DocumentResult" nillable="true" type="tns:DocumentResult" /> <xs:element name="DocumentResult" nillable="true" type="tns:DocumentResult" />
<xs:complexType name="DocumentResult2">
<xs:complexContent mixed="false">
<xs:extension base="tns:BaseResult">
<xs:sequence>
<xs:element name="Contents" nillable="true" type="xs:base64Binary" />
<xs:element name="Document" nillable="true" type="tns:DocumentResult2.DocumentObject" />
<xs:element name="HasContents" type="xs:boolean" />
</xs:sequence>
</xs:extension>
</xs:complexContent>
</xs:complexType>
<xs:element name="DocumentResult2" nillable="true" type="tns:DocumentResult2" />
<xs:complexType name="DocumentResult2.DocumentObject">
<xs:sequence>
<xs:element minOccurs="0" name="FileName" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
<xs:element name="DocumentResult2.DocumentObject" nillable="true" type="tns:DocumentResult2.DocumentObject" />
<xs:complexType name="IndexResult"> <xs:complexType name="IndexResult">
<xs:complexContent mixed="false"> <xs:complexContent mixed="false">
<xs:extension base="tns:BaseResult"> <xs:extension base="tns:BaseResult">

21
Modules.EDMIAPI/Connected Services/IDBServiceReference/Reference.svcmap
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<ReferenceGroup xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ID="8f70695e-bfc8-468e-9319-fcee52ab7587" xmlns="urn:schemas-microsoft-com:xml-wcfservicemap"> <ReferenceGroup xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ID="1b516c6d-d2d0-4dfc-9557-3dd0593fa624" xmlns="urn:schemas-microsoft-com:xml-wcfservicemap">
<ClientOptions> <ClientOptions>
<GenerateAsynchronousMethods>false</GenerateAsynchronousMethods> <GenerateAsynchronousMethods>false</GenerateAsynchronousMethods>
<GenerateTaskBasedAsynchronousMethod>true</GenerateTaskBasedAsynchronousMethod> <GenerateTaskBasedAsynchronousMethod>true</GenerateTaskBasedAsynchronousMethod>
@ -19,17 +19,18 @@
<ServiceContractMappings /> <ServiceContractMappings />
</ClientOptions> </ClientOptions>
<MetadataSources> <MetadataSources>
<MetadataSource Address="net.tcp://172.24.12.67:9000/DigitalData/Services/Main/mex" Protocol="mex" SourceId="1" /> <MetadataSource Address="net.tcp://172.24.12.39:9000/DigitalData/Services/Main/mex" Protocol="mex" SourceId="1" />
</MetadataSources> </MetadataSources>
<Metadata> <Metadata>
<MetadataFile FileName="DigitalData.Services.IDBService.wsdl" MetadataType="Wsdl" ID="971f6710-be91-4872-b6b5-ee7a9fff400f" SourceId="1" SourceUrl="net.tcp://172.24.12.67:9000/DigitalData/Services/Main/mex" /> <MetadataFile FileName="DigitalData.Services.IDBService.wsdl" MetadataType="Wsdl" ID="c1a28c67-687c-489e-a78c-ad8254acdb1a" SourceId="1" SourceUrl="net.tcp://172.24.12.39:9000/DigitalData/Services/Main/mex" />
<MetadataFile FileName="service.wsdl" MetadataType="Wsdl" ID="10e64723-f4ba-4d9f-bf18-1e69717f4592" SourceId="1" SourceUrl="net.tcp://172.24.12.67:9000/DigitalData/Services/Main/mex" /> <MetadataFile FileName="service.wsdl" MetadataType="Wsdl" ID="63e6618a-fa84-4922-b771-92728dee5bd0" SourceId="1" SourceUrl="net.tcp://172.24.12.39:9000/DigitalData/Services/Main/mex" />
<MetadataFile FileName="DigitalData.Services.IDBService.xsd" MetadataType="Schema" ID="95252953-3cc6-400e-8e27-760bd5a4af4d" SourceId="1" SourceUrl="net.tcp://172.24.12.67:9000/DigitalData/Services/Main/mex" /> <MetadataFile FileName="DigitalData.Services.IDBService.xsd" MetadataType="Schema" ID="bf8a7780-bd95-4c01-8532-928e7d65f528" SourceId="1" SourceUrl="net.tcp://172.24.12.39:9000/DigitalData/Services/Main/mex" />
<MetadataFile FileName="service.xsd" MetadataType="Schema" ID="e3578761-b797-44ca-b8c5-3c9c25394c73" SourceId="1" SourceUrl="net.tcp://172.24.12.67:9000/DigitalData/Services/Main/mex" /> <MetadataFile FileName="service.xsd" MetadataType="Schema" ID="1d0f216a-7f01-4129-a6bf-26e91c5e631d" SourceId="1" SourceUrl="net.tcp://172.24.12.39:9000/DigitalData/Services/Main/mex" />
<MetadataFile FileName="DigitalData.Services.IDBService1.xsd" MetadataType="Schema" ID="6c450d04-bf5d-45e9-a72a-953d1e192e55" SourceId="1" SourceUrl="net.tcp://172.24.12.67:9000/DigitalData/Services/Main/mex" /> <MetadataFile FileName="DigitalData.Services.IDBService1.xsd" MetadataType="Schema" ID="7e8d682f-5a2c-4dd4-a7e3-fb3e0b95a585" SourceId="1" SourceUrl="net.tcp://172.24.12.39:9000/DigitalData/Services/Main/mex" />
<MetadataFile FileName="System.xsd" MetadataType="Schema" ID="d73cd0a9-b834-4be2-9d31-4d8175f9e00c" SourceId="1" SourceUrl="net.tcp://172.24.12.67:9000/DigitalData/Services/Main/mex" /> <MetadataFile FileName="System.xsd" MetadataType="Schema" ID="e0db7004-6943-4cf8-b88f-4811ed14a341" SourceId="1" SourceUrl="net.tcp://172.24.12.39:9000/DigitalData/Services/Main/mex" />
<MetadataFile FileName="System.Data.xsd" MetadataType="Schema" ID="726d8c80-557e-49ba-9cfd-3da491f48c1e" SourceId="1" SourceUrl="net.tcp://172.24.12.67:9000/DigitalData/Services/Main/mex" /> <MetadataFile FileName="System.Data.xsd" MetadataType="Schema" ID="6c7bdb47-eea4-4d03-bc52-9747c865bbf0" SourceId="1" SourceUrl="net.tcp://172.24.12.39:9000/DigitalData/Services/Main/mex" />
<MetadataFile FileName="DigitalData.Modules.Filesystem.xsd" MetadataType="Schema" ID="72dd325b-17bf-4ec7-8a3e-933c17eca5d5" SourceId="1" SourceUrl="net.tcp://172.24.12.67:9000/DigitalData/Services/Main/mex" /> <MetadataFile FileName="DigitalData.Modules.Filesystem.xsd" MetadataType="Schema" ID="cfa7fe70-b4f1-4a12-a957-d0134a8e6279" SourceId="1" SourceUrl="net.tcp://172.24.12.39:9000/DigitalData/Services/Main/mex" />
<MetadataFile FileName="System.IO.xsd" MetadataType="Schema" ID="2af2d8d2-0bc4-42bc-a200-42cecb5bf98e" SourceId="1" SourceUrl="net.tcp://172.24.12.39:9000/DigitalData/Services/Main/mex" />
</Metadata> </Metadata>
<Extensions> <Extensions>
<ExtensionFile FileName="configuration91.svcinfo" Name="configuration91.svcinfo" /> <ExtensionFile FileName="configuration91.svcinfo" Name="configuration91.svcinfo" />

550
Modules.EDMIAPI/Connected Services/IDBServiceReference/Reference.vb
View File

@ -15,67 +15,68 @@ Imports System
Imports System.Runtime.Serialization Imports System.Runtime.Serialization
Namespace IDBServiceReference Namespace IDBServiceReference
<System.Diagnostics.DebuggerStepThroughAttribute(), <System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
System.Runtime.Serialization.DataContractAttribute(Name:="BaseResult", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.IDBService"), System.Runtime.Serialization.DataContractAttribute(Name:="BaseResult", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.IDBService"), _
System.SerializableAttribute(), System.SerializableAttribute(), _
System.Runtime.Serialization.KnownTypeAttribute(GetType(IDBServiceReference.ScalarResult)), System.Runtime.Serialization.KnownTypeAttribute(GetType(IDBServiceReference.ScalarResult)), _
System.Runtime.Serialization.KnownTypeAttribute(GetType(IDBServiceReference.NonQueryResult)), System.Runtime.Serialization.KnownTypeAttribute(GetType(IDBServiceReference.NonQueryResult)), _
System.Runtime.Serialization.KnownTypeAttribute(GetType(IDBServiceReference.DocumentResult)), System.Runtime.Serialization.KnownTypeAttribute(GetType(IDBServiceReference.DocumentResult)), _
System.Runtime.Serialization.KnownTypeAttribute(GetType(IDBServiceReference.IndexResult)), System.Runtime.Serialization.KnownTypeAttribute(GetType(IDBServiceReference.DocumentResult2)), _
System.Runtime.Serialization.KnownTypeAttribute(GetType(IDBServiceReference.TableResult))> System.Runtime.Serialization.KnownTypeAttribute(GetType(IDBServiceReference.IndexResult)), _
System.Runtime.Serialization.KnownTypeAttribute(GetType(IDBServiceReference.TableResult))> _
Partial Public Class BaseResult Partial Public Class BaseResult
Inherits Object Inherits Object
Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
<System.NonSerializedAttribute()> <System.NonSerializedAttribute()> _
Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
<System.Runtime.Serialization.OptionalFieldAttribute()> <System.Runtime.Serialization.OptionalFieldAttribute()> _
Private ErrorMessageField As String Private ErrorMessageField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> <System.Runtime.Serialization.OptionalFieldAttribute()> _
Private OKField As Boolean Private OKField As Boolean
<Global.System.ComponentModel.BrowsableAttribute(False)> <Global.System.ComponentModel.BrowsableAttribute(false)> _
Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData
Get Get
Return Me.extensionDataField Return Me.extensionDataField
End Get End Get
Set Set
Me.extensionDataField = Value Me.extensionDataField = value
End Set End Set
End Property End Property
<System.Runtime.Serialization.DataMemberAttribute()> <System.Runtime.Serialization.DataMemberAttribute()> _
Public Property ErrorMessage() As String Public Property ErrorMessage() As String
Get Get
Return Me.ErrorMessageField Return Me.ErrorMessageField
End Get End Get
Set Set
If (Object.ReferenceEquals(Me.ErrorMessageField, Value) <> True) Then If (Object.ReferenceEquals(Me.ErrorMessageField, value) <> true) Then
Me.ErrorMessageField = Value Me.ErrorMessageField = value
Me.RaisePropertyChanged("ErrorMessage") Me.RaisePropertyChanged("ErrorMessage")
End If End If
End Set End Set
End Property End Property
<System.Runtime.Serialization.DataMemberAttribute()> <System.Runtime.Serialization.DataMemberAttribute()> _
Public Property OK() As Boolean Public Property OK() As Boolean
Get Get
Return Me.OKField Return Me.OKField
End Get End Get
Set Set
If (Me.OKField.Equals(Value) <> True) Then If (Me.OKField.Equals(value) <> true) Then
Me.OKField = Value Me.OKField = value
Me.RaisePropertyChanged("OK") Me.RaisePropertyChanged("OK")
End If End If
End Set End Set
End Property End Property
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Sub RaisePropertyChanged(ByVal propertyName As String) Protected Sub RaisePropertyChanged(ByVal propertyName As String)
Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (propertyChanged) Is Nothing) Then If (Not (propertyChanged) Is Nothing) Then
@ -83,214 +84,317 @@ Namespace IDBServiceReference
End If End If
End Sub End Sub
End Class End Class
<System.Diagnostics.DebuggerStepThroughAttribute(), <System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
System.Runtime.Serialization.DataContractAttribute(Name:="ScalarResult", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.IDBService"), System.Runtime.Serialization.DataContractAttribute(Name:="ScalarResult", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.IDBService"), _
System.SerializableAttribute(), System.SerializableAttribute(), _
System.Runtime.Serialization.KnownTypeAttribute(GetType(IDBServiceReference.TableResult)), System.Runtime.Serialization.KnownTypeAttribute(GetType(IDBServiceReference.TableResult)), _
System.Runtime.Serialization.KnownTypeAttribute(GetType(IDBServiceReference.BaseResult)), System.Runtime.Serialization.KnownTypeAttribute(GetType(IDBServiceReference.BaseResult)), _
System.Runtime.Serialization.KnownTypeAttribute(GetType(IDBServiceReference.NonQueryResult)), System.Runtime.Serialization.KnownTypeAttribute(GetType(IDBServiceReference.NonQueryResult)), _
System.Runtime.Serialization.KnownTypeAttribute(GetType(IDBServiceReference.DocumentResult)), System.Runtime.Serialization.KnownTypeAttribute(GetType(IDBServiceReference.DocumentResult)), _
System.Runtime.Serialization.KnownTypeAttribute(GetType(IDBServiceReference.IndexResult)), System.Runtime.Serialization.KnownTypeAttribute(GetType(IDBServiceReference.DocumentResult2)), _
System.Runtime.Serialization.KnownTypeAttribute(GetType(System.DBNull)), System.Runtime.Serialization.KnownTypeAttribute(GetType(IDBServiceReference.DocumentResult2.DocumentObject)), _
System.Runtime.Serialization.KnownTypeAttribute(GetType(IDBServiceReference.DocumentObject))> System.Runtime.Serialization.KnownTypeAttribute(GetType(IDBServiceReference.IndexResult)), _
System.Runtime.Serialization.KnownTypeAttribute(GetType(System.DBNull)), _
System.Runtime.Serialization.KnownTypeAttribute(GetType(IDBServiceReference.DocumentObject)), _
System.Runtime.Serialization.KnownTypeAttribute(GetType(System.IO.FileInfo)), _
System.Runtime.Serialization.KnownTypeAttribute(GetType(System.IO.FileSystemInfo))> _
Partial Public Class ScalarResult Partial Public Class ScalarResult
Inherits IDBServiceReference.BaseResult Inherits IDBServiceReference.BaseResult
<System.Runtime.Serialization.OptionalFieldAttribute()> <System.Runtime.Serialization.OptionalFieldAttribute()> _
Private ScalarField As Object Private ScalarField As Object
<System.Runtime.Serialization.DataMemberAttribute()> <System.Runtime.Serialization.DataMemberAttribute()> _
Public Property Scalar() As Object Public Property Scalar() As Object
Get Get
Return Me.ScalarField Return Me.ScalarField
End Get End Get
Set Set
If (Object.ReferenceEquals(Me.ScalarField, Value) <> True) Then If (Object.ReferenceEquals(Me.ScalarField, value) <> true) Then
Me.ScalarField = Value Me.ScalarField = value
Me.RaisePropertyChanged("Scalar") Me.RaisePropertyChanged("Scalar")
End If End If
End Set End Set
End Property End Property
End Class End Class
<System.Diagnostics.DebuggerStepThroughAttribute(), <System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
System.Runtime.Serialization.DataContractAttribute(Name:="NonQueryResult", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.IDBService"), System.Runtime.Serialization.DataContractAttribute(Name:="NonQueryResult", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.IDBService"), _
System.SerializableAttribute()> System.SerializableAttribute()> _
Partial Public Class NonQueryResult Partial Public Class NonQueryResult
Inherits IDBServiceReference.BaseResult Inherits IDBServiceReference.BaseResult
End Class End Class
<System.Diagnostics.DebuggerStepThroughAttribute(), <System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
System.Runtime.Serialization.DataContractAttribute(Name:="DocumentResult", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.IDBService"), System.Runtime.Serialization.DataContractAttribute(Name:="DocumentResult", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.IDBService"), _
System.SerializableAttribute()> System.SerializableAttribute()> _
Partial Public Class DocumentResult Partial Public Class DocumentResult
Inherits IDBServiceReference.BaseResult Inherits IDBServiceReference.BaseResult
Private ContentsField() As Byte Private ContentsField() As Byte
Private DocumentField As IDBServiceReference.DocumentObject Private DocumentField As IDBServiceReference.DocumentObject
Private HasContentsField As Boolean Private HasContentsField As Boolean
<System.Runtime.Serialization.DataMemberAttribute(IsRequired:=True)> <System.Runtime.Serialization.DataMemberAttribute(IsRequired:=true)> _
Public Property Contents() As Byte() Public Property Contents() As Byte()
Get Get
Return Me.ContentsField Return Me.ContentsField
End Get End Get
Set Set
If (Object.ReferenceEquals(Me.ContentsField, Value) <> True) Then If (Object.ReferenceEquals(Me.ContentsField, value) <> true) Then
Me.ContentsField = Value Me.ContentsField = value
Me.RaisePropertyChanged("Contents") Me.RaisePropertyChanged("Contents")
End If End If
End Set End Set
End Property End Property
<System.Runtime.Serialization.DataMemberAttribute(IsRequired:=True)> <System.Runtime.Serialization.DataMemberAttribute(IsRequired:=true)> _
Public Property Document() As IDBServiceReference.DocumentObject Public Property Document() As IDBServiceReference.DocumentObject
Get Get
Return Me.DocumentField Return Me.DocumentField
End Get End Get
Set Set
If (Object.ReferenceEquals(Me.DocumentField, Value) <> True) Then If (Object.ReferenceEquals(Me.DocumentField, value) <> true) Then
Me.DocumentField = Value Me.DocumentField = value
Me.RaisePropertyChanged("Document") Me.RaisePropertyChanged("Document")
End If End If
End Set End Set
End Property End Property
<System.Runtime.Serialization.DataMemberAttribute(IsRequired:=True)> <System.Runtime.Serialization.DataMemberAttribute(IsRequired:=true)> _
Public Property HasContents() As Boolean Public Property HasContents() As Boolean
Get Get
Return Me.HasContentsField Return Me.HasContentsField
End Get End Get
Set Set
If (Me.HasContentsField.Equals(Value) <> True) Then If (Me.HasContentsField.Equals(value) <> true) Then
Me.HasContentsField = Value Me.HasContentsField = value
Me.RaisePropertyChanged("HasContents") Me.RaisePropertyChanged("HasContents")
End If End If
End Set End Set
End Property End Property
End Class End Class
<System.Diagnostics.DebuggerStepThroughAttribute(), <System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
System.Runtime.Serialization.DataContractAttribute(Name:="IndexResult", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.IDBService"), System.Runtime.Serialization.DataContractAttribute(Name:="DocumentResult2", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.IDBService"), _
System.SerializableAttribute()> System.SerializableAttribute()> _
Partial Public Class DocumentResult2
Inherits IDBServiceReference.BaseResult
Private ContentsField() As Byte
Private DocumentField As IDBServiceReference.DocumentResult2.DocumentObject
Private HasContentsField As Boolean
<System.Runtime.Serialization.DataMemberAttribute(IsRequired:=true)> _
Public Property Contents() As Byte()
Get
Return Me.ContentsField
End Get
Set
If (Object.ReferenceEquals(Me.ContentsField, value) <> true) Then
Me.ContentsField = value
Me.RaisePropertyChanged("Contents")
End If
End Set
End Property
<System.Runtime.Serialization.DataMemberAttribute(IsRequired:=true)> _
Public Property Document() As IDBServiceReference.DocumentResult2.DocumentObject
Get
Return Me.DocumentField
End Get
Set
If (Object.ReferenceEquals(Me.DocumentField, value) <> true) Then
Me.DocumentField = value
Me.RaisePropertyChanged("Document")
End If
End Set
End Property
<System.Runtime.Serialization.DataMemberAttribute(IsRequired:=true)> _
Public Property HasContents() As Boolean
Get
Return Me.HasContentsField
End Get
Set
If (Me.HasContentsField.Equals(value) <> true) Then
Me.HasContentsField = value
Me.RaisePropertyChanged("HasContents")
End If
End Set
End Property
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
System.Runtime.Serialization.DataContractAttribute(Name:="DocumentResult2.DocumentObject", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.IDBService"), _
System.SerializableAttribute()> _
Partial Public Class DocumentObject
Inherits Object
Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
<System.NonSerializedAttribute()> _
Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private FileNameField As String
Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData
Get
Return Me.extensionDataField
End Get
Set
Me.extensionDataField = value
End Set
End Property
<System.Runtime.Serialization.DataMemberAttribute()> _
Public Property FileName() As String
Get
Return Me.FileNameField
End Get
Set
If (Object.ReferenceEquals(Me.FileNameField, value) <> true) Then
Me.FileNameField = value
Me.RaisePropertyChanged("FileName")
End If
End Set
End Property
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Sub RaisePropertyChanged(ByVal propertyName As String)
Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (propertyChanged) Is Nothing) Then
propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class
End Class
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
System.Runtime.Serialization.DataContractAttribute(Name:="IndexResult", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.IDBService"), _
System.SerializableAttribute()> _
Partial Public Class IndexResult Partial Public Class IndexResult
Inherits IDBServiceReference.BaseResult Inherits IDBServiceReference.BaseResult
Private IndexIdField As Long Private IndexIdField As Long
<System.Runtime.Serialization.DataMemberAttribute(IsRequired:=True)> <System.Runtime.Serialization.DataMemberAttribute(IsRequired:=true)> _
Public Property IndexId() As Long Public Property IndexId() As Long
Get Get
Return Me.IndexIdField Return Me.IndexIdField
End Get End Get
Set Set
If (Me.IndexIdField.Equals(Value) <> True) Then If (Me.IndexIdField.Equals(value) <> true) Then
Me.IndexIdField = Value Me.IndexIdField = value
Me.RaisePropertyChanged("IndexId") Me.RaisePropertyChanged("IndexId")
End If End If
End Set End Set
End Property End Property
End Class End Class
<System.Diagnostics.DebuggerStepThroughAttribute(), <System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
System.Runtime.Serialization.DataContractAttribute(Name:="TableResult", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.IDBService"), System.Runtime.Serialization.DataContractAttribute(Name:="TableResult", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.IDBService"), _
System.SerializableAttribute()> System.SerializableAttribute()> _
Partial Public Class TableResult Partial Public Class TableResult
Inherits IDBServiceReference.BaseResult Inherits IDBServiceReference.BaseResult
<System.Runtime.Serialization.OptionalFieldAttribute()> <System.Runtime.Serialization.OptionalFieldAttribute()> _
Private TableField As System.Data.DataTable Private TableField As System.Data.DataTable
<System.Runtime.Serialization.DataMemberAttribute()> <System.Runtime.Serialization.DataMemberAttribute()> _
Public Property Table() As System.Data.DataTable Public Property Table() As System.Data.DataTable
Get Get
Return Me.TableField Return Me.TableField
End Get End Get
Set Set
If (Object.ReferenceEquals(Me.TableField, Value) <> True) Then If (Object.ReferenceEquals(Me.TableField, value) <> true) Then
Me.TableField = Value Me.TableField = value
Me.RaisePropertyChanged("Table") Me.RaisePropertyChanged("Table")
End If End If
End Set End Set
End Property End Property
End Class End Class
<System.Diagnostics.DebuggerStepThroughAttribute(), <System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
System.Runtime.Serialization.DataContractAttribute(Name:="DocumentObject", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Modules.Filesystem"), System.Runtime.Serialization.DataContractAttribute(Name:="DocumentObject", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Modules.Filesystem"), _
System.SerializableAttribute()> System.SerializableAttribute()> _
Partial Public Class DocumentObject Partial Public Class DocumentObject
Inherits Object Inherits Object
Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
<System.NonSerializedAttribute()> <System.NonSerializedAttribute()> _
Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
Private ContainerIdField As String Private ContainerIdField As String
Private DocumentIdField As Long Private DocumentIdField As Long
Private FileNameField As String Private FileNameField As String
<Global.System.ComponentModel.BrowsableAttribute(False)> <Global.System.ComponentModel.BrowsableAttribute(false)> _
Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData
Get Get
Return Me.extensionDataField Return Me.extensionDataField
End Get End Get
Set Set
Me.extensionDataField = Value Me.extensionDataField = value
End Set End Set
End Property End Property
<System.Runtime.Serialization.DataMemberAttribute(IsRequired:=True)> <System.Runtime.Serialization.DataMemberAttribute(IsRequired:=true)> _
Public Property ContainerId() As String Public Property ContainerId() As String
Get Get
Return Me.ContainerIdField Return Me.ContainerIdField
End Get End Get
Set Set
If (Object.ReferenceEquals(Me.ContainerIdField, Value) <> True) Then If (Object.ReferenceEquals(Me.ContainerIdField, value) <> true) Then
Me.ContainerIdField = Value Me.ContainerIdField = value
Me.RaisePropertyChanged("ContainerId") Me.RaisePropertyChanged("ContainerId")
End If End If
End Set End Set
End Property End Property
<System.Runtime.Serialization.DataMemberAttribute(IsRequired:=True)> <System.Runtime.Serialization.DataMemberAttribute(IsRequired:=true)> _
Public Property DocumentId() As Long Public Property DocumentId() As Long
Get Get
Return Me.DocumentIdField Return Me.DocumentIdField
End Get End Get
Set Set
If (Me.DocumentIdField.Equals(Value) <> True) Then If (Me.DocumentIdField.Equals(value) <> true) Then
Me.DocumentIdField = Value Me.DocumentIdField = value
Me.RaisePropertyChanged("DocumentId") Me.RaisePropertyChanged("DocumentId")
End If End If
End Set End Set
End Property End Property
<System.Runtime.Serialization.DataMemberAttribute(IsRequired:=True)> <System.Runtime.Serialization.DataMemberAttribute(IsRequired:=true)> _
Public Property FileName() As String Public Property FileName() As String
Get Get
Return Me.FileNameField Return Me.FileNameField
End Get End Get
Set Set
If (Object.ReferenceEquals(Me.FileNameField, Value) <> True) Then If (Object.ReferenceEquals(Me.FileNameField, value) <> true) Then
Me.FileNameField = Value Me.FileNameField = value
Me.RaisePropertyChanged("FileName") Me.RaisePropertyChanged("FileName")
End If End If
End Set End Set
End Property End Property
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Sub RaisePropertyChanged(ByVal propertyName As String) Protected Sub RaisePropertyChanged(ByVal propertyName As String)
Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (propertyChanged) Is Nothing) Then If (Not (propertyChanged) Is Nothing) Then
@ -298,225 +402,239 @@ Namespace IDBServiceReference
End If End If
End Sub End Sub
End Class End Class
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), <System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.ServiceContractAttribute([Namespace]:="http://DigitalData.Services.IDBService", ConfigurationName:="IDBServiceReference.IIDBService")> System.ServiceModel.ServiceContractAttribute([Namespace]:="http://DigitalData.Services.IDBService", ConfigurationName:="IDBServiceReference.IIDBService")> _
Public Interface IIDBService Public Interface IIDBService
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/Heartbeat", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/HeartbeatResponse")> <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/Heartbeat", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/HeartbeatResponse")> _
Function Heartbeat() As Boolean Function Heartbeat() As Boolean
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/Heartbeat", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/HeartbeatResponse")> <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/Heartbeat", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/HeartbeatResponse")> _
Function HeartbeatAsync() As System.Threading.Tasks.Task(Of Boolean) Function HeartbeatAsync() As System.Threading.Tasks.Task(Of Boolean)
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/CreateDatabaseRequest", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/CreateDatabaseRequestResponse")> <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/CreateDatabaseRequest", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/CreateDatabaseRequestResponse")> _
Function CreateDatabaseRequest(ByVal Name As String, ByVal Debug As Boolean) As String Function CreateDatabaseRequest(ByVal Name As String, ByVal Debug As Boolean) As String
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/CreateDatabaseRequest", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/CreateDatabaseRequestResponse")> <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/CreateDatabaseRequest", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/CreateDatabaseRequestResponse")> _
Function CreateDatabaseRequestAsync(ByVal Name As String, ByVal Debug As Boolean) As System.Threading.Tasks.Task(Of String) Function CreateDatabaseRequestAsync(ByVal Name As String, ByVal Debug As Boolean) As System.Threading.Tasks.Task(Of String)
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/CloseDatabaseRequest", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/CloseDatabaseRequestResponse")> <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/CloseDatabaseRequest", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/CloseDatabaseRequestResponse")> _
Sub CloseDatabaseRequest() Sub CloseDatabaseRequest()
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/CloseDatabaseRequest", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/CloseDatabaseRequestResponse")> <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/CloseDatabaseRequest", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/CloseDatabaseRequestResponse")> _
Function CloseDatabaseRequestAsync() As System.Threading.Tasks.Task Function CloseDatabaseRequestAsync() As System.Threading.Tasks.Task
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/ReturnDatatable", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/ReturnDatatableResponse")> <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/ReturnDatatable", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/ReturnDatatableResponse")> _
Function ReturnDatatable(ByVal SQL As String) As IDBServiceReference.TableResult Function ReturnDatatable(ByVal SQL As String) As IDBServiceReference.TableResult
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/ReturnDatatable", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/ReturnDatatableResponse")> <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/ReturnDatatable", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/ReturnDatatableResponse")> _
Function ReturnDatatableAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of IDBServiceReference.TableResult) Function ReturnDatatableAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of IDBServiceReference.TableResult)
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/ReturnScalar", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/ReturnScalarResponse")> <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/ReturnScalar", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/ReturnScalarResponse")> _
Function ReturnScalar(ByVal SQL As String) As IDBServiceReference.ScalarResult Function ReturnScalar(ByVal SQL As String) As IDBServiceReference.ScalarResult
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/ReturnScalar", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/ReturnScalarResponse")> <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/ReturnScalar", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/ReturnScalarResponse")> _
Function ReturnScalarAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of IDBServiceReference.ScalarResult) Function ReturnScalarAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of IDBServiceReference.ScalarResult)
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/ExecuteNonQuery", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/ExecuteNonQueryResponse")> <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/ExecuteNonQuery", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/ExecuteNonQueryResponse")> _
Function ExecuteNonQuery(ByVal SQL As String) As IDBServiceReference.NonQueryResult Function ExecuteNonQuery(ByVal SQL As String) As IDBServiceReference.NonQueryResult
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/ExecuteNonQuery", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/ExecuteNonQueryResponse")> <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/ExecuteNonQuery", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/ExecuteNonQueryResponse")> _
Function ExecuteNonQueryAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of IDBServiceReference.NonQueryResult) Function ExecuteNonQueryAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of IDBServiceReference.NonQueryResult)
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/NewFile", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/NewFileResponse")> <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/NewFile", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/NewFileResponse")> _
Function NewFile(ByVal FileName As String, ByVal Contents() As Byte) As IDBServiceReference.DocumentResult Function NewFile(ByVal FileName As String, ByVal Contents() As Byte) As IDBServiceReference.DocumentResult
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/NewFile", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/NewFileResponse")> <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/NewFile", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/NewFileResponse")> _
Function NewFileAsync(ByVal FileName As String, ByVal Contents() As Byte) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult) Function NewFileAsync(ByVal FileName As String, ByVal Contents() As Byte) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult)
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/UpdateFile", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/UpdateFileResponse")> <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/UpdateFile", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/UpdateFileResponse")> _
Function UpdateFile(ByVal DocObject As IDBServiceReference.DocumentObject, ByVal Contents() As Byte) As IDBServiceReference.DocumentResult Function UpdateFile(ByVal DocObject As IDBServiceReference.DocumentObject, ByVal Contents() As Byte) As IDBServiceReference.DocumentResult
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/UpdateFile", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/UpdateFileResponse")> <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/UpdateFile", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/UpdateFileResponse")> _
Function UpdateFileAsync(ByVal DocObject As IDBServiceReference.DocumentObject, ByVal Contents() As Byte) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult) Function UpdateFileAsync(ByVal DocObject As IDBServiceReference.DocumentObject, ByVal Contents() As Byte) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult)
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/GetFile", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/GetFileResponse")> <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/GetFile", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/GetFileResponse")> _
Function GetFile(ByVal DocObject As IDBServiceReference.DocumentObject) As IDBServiceReference.DocumentResult Function GetFile(ByVal DocObject As IDBServiceReference.DocumentObject) As IDBServiceReference.DocumentResult
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/GetFile", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/GetFileResponse")> <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/GetFile", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/GetFileResponse")> _
Function GetFileAsync(ByVal DocObject As IDBServiceReference.DocumentObject) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult) Function GetFileAsync(ByVal DocObject As IDBServiceReference.DocumentObject) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult)
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/DeleteFile", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/DeleteFileResponse")> <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/DeleteFile", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/DeleteFileResponse")> _
Function DeleteFile(ByVal DocObject As IDBServiceReference.DocumentObject) As Boolean Function DeleteFile(ByVal DocObject As IDBServiceReference.DocumentObject) As Boolean
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/DeleteFile", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/DeleteFileResponse")> <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/DeleteFile", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/DeleteFileResponse")> _
Function DeleteFileAsync(ByVal DocObject As IDBServiceReference.DocumentObject) As System.Threading.Tasks.Task(Of Boolean) Function DeleteFileAsync(ByVal DocObject As IDBServiceReference.DocumentObject) As System.Threading.Tasks.Task(Of Boolean)
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/GetDocumentByDocumentId", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/GetDocumentByDocumentIdRespons" & <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/ImportFile", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/ImportFileResponse")> _
"e")> Function ImportFile(ByVal FileInfo As System.IO.FileInfo, ByVal Contents() As Byte) As IDBServiceReference.DocumentResult2
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/ImportFile", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/ImportFileResponse")> _
Function ImportFileAsync(ByVal FileInfo As System.IO.FileInfo, ByVal Contents() As Byte) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult2)
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/GetDocumentByDocumentId", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/GetDocumentByDocumentIdRespons"& _
"e")> _
Function GetDocumentByDocumentId(ByVal DocumentId As Long) As IDBServiceReference.DocumentResult Function GetDocumentByDocumentId(ByVal DocumentId As Long) As IDBServiceReference.DocumentResult
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/GetDocumentByDocumentId", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/GetDocumentByDocumentIdRespons" & <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/GetDocumentByDocumentId", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/GetDocumentByDocumentIdRespons"& _
"e")> "e")> _
Function GetDocumentByDocumentIdAsync(ByVal DocumentId As Long) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult) Function GetDocumentByDocumentIdAsync(ByVal DocumentId As Long) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult)
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/GetDocumentByContainerId", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/GetDocumentByContainerIdRespon" & <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/GetDocumentByContainerId", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/GetDocumentByContainerIdRespon"& _
"se")> "se")> _
Function GetDocumentByContainerId(ByVal ContainerId As String) As IDBServiceReference.DocumentResult Function GetDocumentByContainerId(ByVal ContainerId As String) As IDBServiceReference.DocumentResult
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/GetDocumentByContainerId", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/GetDocumentByContainerIdRespon" & <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/GetDocumentByContainerId", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/GetDocumentByContainerIdRespon"& _
"se")> "se")> _
Function GetDocumentByContainerIdAsync(ByVal ContainerId As String) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult) Function GetDocumentByContainerIdAsync(ByVal ContainerId As String) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult)
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/NewFileIndex", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/NewFileIndexResponse")> <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/NewFileIndex", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/NewFileIndexResponse")> _
Function NewFileIndex(ByVal DocObject As IDBServiceReference.DocumentObject, ByVal Syskey As String, ByVal LanguageCode As String, ByVal Value As String) As IDBServiceReference.IndexResult Function NewFileIndex(ByVal DocObject As IDBServiceReference.DocumentObject, ByVal Syskey As String, ByVal LanguageCode As String, ByVal Value As String) As IDBServiceReference.IndexResult
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/NewFileIndex", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/NewFileIndexResponse")> <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.IDBService/IIDBService/NewFileIndex", ReplyAction:="http://DigitalData.Services.IDBService/IIDBService/NewFileIndexResponse")> _
Function NewFileIndexAsync(ByVal DocObject As IDBServiceReference.DocumentObject, ByVal Syskey As String, ByVal LanguageCode As String, ByVal Value As String) As System.Threading.Tasks.Task(Of IDBServiceReference.IndexResult) Function NewFileIndexAsync(ByVal DocObject As IDBServiceReference.DocumentObject, ByVal Syskey As String, ByVal LanguageCode As String, ByVal Value As String) As System.Threading.Tasks.Task(Of IDBServiceReference.IndexResult)
End Interface End Interface
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0")> <System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0")> _
Public Interface IIDBServiceChannel Public Interface IIDBServiceChannel
Inherits IDBServiceReference.IIDBService, System.ServiceModel.IClientChannel Inherits IDBServiceReference.IIDBService, System.ServiceModel.IClientChannel
End Interface End Interface
<System.Diagnostics.DebuggerStepThroughAttribute(), <System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0")> System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0")> _
Partial Public Class IDBServiceClient Partial Public Class IDBServiceClient
Inherits System.ServiceModel.ClientBase(Of IDBServiceReference.IIDBService) Inherits System.ServiceModel.ClientBase(Of IDBServiceReference.IIDBService)
Implements IDBServiceReference.IIDBService Implements IDBServiceReference.IIDBService
Public Sub New() Public Sub New()
MyBase.New MyBase.New
End Sub End Sub
Public Sub New(ByVal endpointConfigurationName As String) Public Sub New(ByVal endpointConfigurationName As String)
MyBase.New(endpointConfigurationName) MyBase.New(endpointConfigurationName)
End Sub End Sub
Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As String) Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As String)
MyBase.New(endpointConfigurationName, remoteAddress) MyBase.New(endpointConfigurationName, remoteAddress)
End Sub End Sub
Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As System.ServiceModel.EndpointAddress) Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As System.ServiceModel.EndpointAddress)
MyBase.New(endpointConfigurationName, remoteAddress) MyBase.New(endpointConfigurationName, remoteAddress)
End Sub End Sub
Public Sub New(ByVal binding As System.ServiceModel.Channels.Binding, ByVal remoteAddress As System.ServiceModel.EndpointAddress) Public Sub New(ByVal binding As System.ServiceModel.Channels.Binding, ByVal remoteAddress As System.ServiceModel.EndpointAddress)
MyBase.New(binding, remoteAddress) MyBase.New(binding, remoteAddress)
End Sub End Sub
Public Function Heartbeat() As Boolean Implements IDBServiceReference.IIDBService.Heartbeat Public Function Heartbeat() As Boolean Implements IDBServiceReference.IIDBService.Heartbeat
Return MyBase.Channel.Heartbeat Return MyBase.Channel.Heartbeat
End Function End Function
Public Function HeartbeatAsync() As System.Threading.Tasks.Task(Of Boolean) Implements IDBServiceReference.IIDBService.HeartbeatAsync Public Function HeartbeatAsync() As System.Threading.Tasks.Task(Of Boolean) Implements IDBServiceReference.IIDBService.HeartbeatAsync
Return MyBase.Channel.HeartbeatAsync Return MyBase.Channel.HeartbeatAsync
End Function End Function
Public Function CreateDatabaseRequest(ByVal Name As String, ByVal Debug As Boolean) As String Implements IDBServiceReference.IIDBService.CreateDatabaseRequest Public Function CreateDatabaseRequest(ByVal Name As String, ByVal Debug As Boolean) As String Implements IDBServiceReference.IIDBService.CreateDatabaseRequest
Return MyBase.Channel.CreateDatabaseRequest(Name, Debug) Return MyBase.Channel.CreateDatabaseRequest(Name, Debug)
End Function End Function
Public Function CreateDatabaseRequestAsync(ByVal Name As String, ByVal Debug As Boolean) As System.Threading.Tasks.Task(Of String) Implements IDBServiceReference.IIDBService.CreateDatabaseRequestAsync Public Function CreateDatabaseRequestAsync(ByVal Name As String, ByVal Debug As Boolean) As System.Threading.Tasks.Task(Of String) Implements IDBServiceReference.IIDBService.CreateDatabaseRequestAsync
Return MyBase.Channel.CreateDatabaseRequestAsync(Name, Debug) Return MyBase.Channel.CreateDatabaseRequestAsync(Name, Debug)
End Function End Function
Public Sub CloseDatabaseRequest() Implements IDBServiceReference.IIDBService.CloseDatabaseRequest Public Sub CloseDatabaseRequest() Implements IDBServiceReference.IIDBService.CloseDatabaseRequest
MyBase.Channel.CloseDatabaseRequest() MyBase.Channel.CloseDatabaseRequest
End Sub End Sub
Public Function CloseDatabaseRequestAsync() As System.Threading.Tasks.Task Implements IDBServiceReference.IIDBService.CloseDatabaseRequestAsync Public Function CloseDatabaseRequestAsync() As System.Threading.Tasks.Task Implements IDBServiceReference.IIDBService.CloseDatabaseRequestAsync
Return MyBase.Channel.CloseDatabaseRequestAsync Return MyBase.Channel.CloseDatabaseRequestAsync
End Function End Function
Public Function ReturnDatatable(ByVal SQL As String) As IDBServiceReference.TableResult Implements IDBServiceReference.IIDBService.ReturnDatatable Public Function ReturnDatatable(ByVal SQL As String) As IDBServiceReference.TableResult Implements IDBServiceReference.IIDBService.ReturnDatatable
Return MyBase.Channel.ReturnDatatable(SQL) Return MyBase.Channel.ReturnDatatable(SQL)
End Function End Function
Public Function ReturnDatatableAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of IDBServiceReference.TableResult) Implements IDBServiceReference.IIDBService.ReturnDatatableAsync Public Function ReturnDatatableAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of IDBServiceReference.TableResult) Implements IDBServiceReference.IIDBService.ReturnDatatableAsync
Return MyBase.Channel.ReturnDatatableAsync(SQL) Return MyBase.Channel.ReturnDatatableAsync(SQL)
End Function End Function
Public Function ReturnScalar(ByVal SQL As String) As IDBServiceReference.ScalarResult Implements IDBServiceReference.IIDBService.ReturnScalar Public Function ReturnScalar(ByVal SQL As String) As IDBServiceReference.ScalarResult Implements IDBServiceReference.IIDBService.ReturnScalar
Return MyBase.Channel.ReturnScalar(SQL) Return MyBase.Channel.ReturnScalar(SQL)
End Function End Function
Public Function ReturnScalarAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of IDBServiceReference.ScalarResult) Implements IDBServiceReference.IIDBService.ReturnScalarAsync Public Function ReturnScalarAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of IDBServiceReference.ScalarResult) Implements IDBServiceReference.IIDBService.ReturnScalarAsync
Return MyBase.Channel.ReturnScalarAsync(SQL) Return MyBase.Channel.ReturnScalarAsync(SQL)
End Function End Function
Public Function ExecuteNonQuery(ByVal SQL As String) As IDBServiceReference.NonQueryResult Implements IDBServiceReference.IIDBService.ExecuteNonQuery Public Function ExecuteNonQuery(ByVal SQL As String) As IDBServiceReference.NonQueryResult Implements IDBServiceReference.IIDBService.ExecuteNonQuery
Return MyBase.Channel.ExecuteNonQuery(SQL) Return MyBase.Channel.ExecuteNonQuery(SQL)
End Function End Function
Public Function ExecuteNonQueryAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of IDBServiceReference.NonQueryResult) Implements IDBServiceReference.IIDBService.ExecuteNonQueryAsync Public Function ExecuteNonQueryAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of IDBServiceReference.NonQueryResult) Implements IDBServiceReference.IIDBService.ExecuteNonQueryAsync
Return MyBase.Channel.ExecuteNonQueryAsync(SQL) Return MyBase.Channel.ExecuteNonQueryAsync(SQL)
End Function End Function
Public Function NewFile(ByVal FileName As String, ByVal Contents() As Byte) As IDBServiceReference.DocumentResult Implements IDBServiceReference.IIDBService.NewFile Public Function NewFile(ByVal FileName As String, ByVal Contents() As Byte) As IDBServiceReference.DocumentResult Implements IDBServiceReference.IIDBService.NewFile
Return MyBase.Channel.NewFile(FileName, Contents) Return MyBase.Channel.NewFile(FileName, Contents)
End Function End Function
Public Function NewFileAsync(ByVal FileName As String, ByVal Contents() As Byte) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult) Implements IDBServiceReference.IIDBService.NewFileAsync Public Function NewFileAsync(ByVal FileName As String, ByVal Contents() As Byte) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult) Implements IDBServiceReference.IIDBService.NewFileAsync
Return MyBase.Channel.NewFileAsync(FileName, Contents) Return MyBase.Channel.NewFileAsync(FileName, Contents)
End Function End Function
Public Function UpdateFile(ByVal DocObject As IDBServiceReference.DocumentObject, ByVal Contents() As Byte) As IDBServiceReference.DocumentResult Implements IDBServiceReference.IIDBService.UpdateFile Public Function UpdateFile(ByVal DocObject As IDBServiceReference.DocumentObject, ByVal Contents() As Byte) As IDBServiceReference.DocumentResult Implements IDBServiceReference.IIDBService.UpdateFile
Return MyBase.Channel.UpdateFile(DocObject, Contents) Return MyBase.Channel.UpdateFile(DocObject, Contents)
End Function End Function
Public Function UpdateFileAsync(ByVal DocObject As IDBServiceReference.DocumentObject, ByVal Contents() As Byte) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult) Implements IDBServiceReference.IIDBService.UpdateFileAsync Public Function UpdateFileAsync(ByVal DocObject As IDBServiceReference.DocumentObject, ByVal Contents() As Byte) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult) Implements IDBServiceReference.IIDBService.UpdateFileAsync
Return MyBase.Channel.UpdateFileAsync(DocObject, Contents) Return MyBase.Channel.UpdateFileAsync(DocObject, Contents)
End Function End Function
Public Function GetFile(ByVal DocObject As IDBServiceReference.DocumentObject) As IDBServiceReference.DocumentResult Implements IDBServiceReference.IIDBService.GetFile Public Function GetFile(ByVal DocObject As IDBServiceReference.DocumentObject) As IDBServiceReference.DocumentResult Implements IDBServiceReference.IIDBService.GetFile
Return MyBase.Channel.GetFile(DocObject) Return MyBase.Channel.GetFile(DocObject)
End Function End Function
Public Function GetFileAsync(ByVal DocObject As IDBServiceReference.DocumentObject) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult) Implements IDBServiceReference.IIDBService.GetFileAsync Public Function GetFileAsync(ByVal DocObject As IDBServiceReference.DocumentObject) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult) Implements IDBServiceReference.IIDBService.GetFileAsync
Return MyBase.Channel.GetFileAsync(DocObject) Return MyBase.Channel.GetFileAsync(DocObject)
End Function End Function
Public Function DeleteFile(ByVal DocObject As IDBServiceReference.DocumentObject) As Boolean Implements IDBServiceReference.IIDBService.DeleteFile Public Function DeleteFile(ByVal DocObject As IDBServiceReference.DocumentObject) As Boolean Implements IDBServiceReference.IIDBService.DeleteFile
Return MyBase.Channel.DeleteFile(DocObject) Return MyBase.Channel.DeleteFile(DocObject)
End Function End Function
Public Function DeleteFileAsync(ByVal DocObject As IDBServiceReference.DocumentObject) As System.Threading.Tasks.Task(Of Boolean) Implements IDBServiceReference.IIDBService.DeleteFileAsync Public Function DeleteFileAsync(ByVal DocObject As IDBServiceReference.DocumentObject) As System.Threading.Tasks.Task(Of Boolean) Implements IDBServiceReference.IIDBService.DeleteFileAsync
Return MyBase.Channel.DeleteFileAsync(DocObject) Return MyBase.Channel.DeleteFileAsync(DocObject)
End Function End Function
Public Function ImportFile(ByVal FileInfo As System.IO.FileInfo, ByVal Contents() As Byte) As IDBServiceReference.DocumentResult2 Implements IDBServiceReference.IIDBService.ImportFile
Return MyBase.Channel.ImportFile(FileInfo, Contents)
End Function
Public Function ImportFileAsync(ByVal FileInfo As System.IO.FileInfo, ByVal Contents() As Byte) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult2) Implements IDBServiceReference.IIDBService.ImportFileAsync
Return MyBase.Channel.ImportFileAsync(FileInfo, Contents)
End Function
Public Function GetDocumentByDocumentId(ByVal DocumentId As Long) As IDBServiceReference.DocumentResult Implements IDBServiceReference.IIDBService.GetDocumentByDocumentId Public Function GetDocumentByDocumentId(ByVal DocumentId As Long) As IDBServiceReference.DocumentResult Implements IDBServiceReference.IIDBService.GetDocumentByDocumentId
Return MyBase.Channel.GetDocumentByDocumentId(DocumentId) Return MyBase.Channel.GetDocumentByDocumentId(DocumentId)
End Function End Function
Public Function GetDocumentByDocumentIdAsync(ByVal DocumentId As Long) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult) Implements IDBServiceReference.IIDBService.GetDocumentByDocumentIdAsync Public Function GetDocumentByDocumentIdAsync(ByVal DocumentId As Long) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult) Implements IDBServiceReference.IIDBService.GetDocumentByDocumentIdAsync
Return MyBase.Channel.GetDocumentByDocumentIdAsync(DocumentId) Return MyBase.Channel.GetDocumentByDocumentIdAsync(DocumentId)
End Function End Function
Public Function GetDocumentByContainerId(ByVal ContainerId As String) As IDBServiceReference.DocumentResult Implements IDBServiceReference.IIDBService.GetDocumentByContainerId Public Function GetDocumentByContainerId(ByVal ContainerId As String) As IDBServiceReference.DocumentResult Implements IDBServiceReference.IIDBService.GetDocumentByContainerId
Return MyBase.Channel.GetDocumentByContainerId(ContainerId) Return MyBase.Channel.GetDocumentByContainerId(ContainerId)
End Function End Function
Public Function GetDocumentByContainerIdAsync(ByVal ContainerId As String) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult) Implements IDBServiceReference.IIDBService.GetDocumentByContainerIdAsync Public Function GetDocumentByContainerIdAsync(ByVal ContainerId As String) As System.Threading.Tasks.Task(Of IDBServiceReference.DocumentResult) Implements IDBServiceReference.IIDBService.GetDocumentByContainerIdAsync
Return MyBase.Channel.GetDocumentByContainerIdAsync(ContainerId) Return MyBase.Channel.GetDocumentByContainerIdAsync(ContainerId)
End Function End Function
Public Function NewFileIndex(ByVal DocObject As IDBServiceReference.DocumentObject, ByVal Syskey As String, ByVal LanguageCode As String, ByVal Value As String) As IDBServiceReference.IndexResult Implements IDBServiceReference.IIDBService.NewFileIndex Public Function NewFileIndex(ByVal DocObject As IDBServiceReference.DocumentObject, ByVal Syskey As String, ByVal LanguageCode As String, ByVal Value As String) As IDBServiceReference.IndexResult Implements IDBServiceReference.IIDBService.NewFileIndex
Return MyBase.Channel.NewFileIndex(DocObject, Syskey, LanguageCode, Value) Return MyBase.Channel.NewFileIndex(DocObject, Syskey, LanguageCode, Value)
End Function End Function
Public Function NewFileIndexAsync(ByVal DocObject As IDBServiceReference.DocumentObject, ByVal Syskey As String, ByVal LanguageCode As String, ByVal Value As String) As System.Threading.Tasks.Task(Of IDBServiceReference.IndexResult) Implements IDBServiceReference.IIDBService.NewFileIndexAsync Public Function NewFileIndexAsync(ByVal DocObject As IDBServiceReference.DocumentObject, ByVal Syskey As String, ByVal LanguageCode As String, ByVal Value As String) As System.Threading.Tasks.Task(Of IDBServiceReference.IndexResult) Implements IDBServiceReference.IIDBService.NewFileIndexAsync
Return MyBase.Channel.NewFileIndexAsync(DocObject, Syskey, LanguageCode, Value) Return MyBase.Channel.NewFileIndexAsync(DocObject, Syskey, LanguageCode, Value)
End Function End Function

17
Modules.EDMIAPI/Connected Services/IDBServiceReference/System.IO.xsd Normal file
View File

@ -0,0 +1,17 @@
<?xml version="1.0" encoding="utf-8"?>
<xs:schema xmlns:ser="http://schemas.microsoft.com/2003/10/Serialization/" xmlns:tns="http://schemas.datacontract.org/2004/07/System.IO" elementFormDefault="qualified" targetNamespace="http://schemas.datacontract.org/2004/07/System.IO" xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:import namespace="http://schemas.microsoft.com/2003/10/Serialization/" />
<xs:complexType name="FileInfo">
<xs:complexContent mixed="false">
<xs:extension base="tns:FileSystemInfo" />
</xs:complexContent>
</xs:complexType>
<xs:element name="FileInfo" nillable="true" type="tns:FileInfo" />
<xs:complexType name="FileSystemInfo">
<xs:sequence>
<xs:any minOccurs="0" maxOccurs="unbounded" namespace="##local" processContents="skip" />
</xs:sequence>
<xs:attribute ref="ser:FactoryType" />
</xs:complexType>
<xs:element name="FileSystemInfo" nillable="true" type="tns:FileSystemInfo" />
</xs:schema>

2
Modules.EDMIAPI/Connected Services/IDBServiceReference/configuration.svcinfo
View File

@ -2,7 +2,7 @@
<configurationSnapshot xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="urn:schemas-microsoft-com:xml-wcfconfigurationsnapshot"> <configurationSnapshot xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="urn:schemas-microsoft-com:xml-wcfconfigurationsnapshot">
<behaviors /> <behaviors />
<bindings> <bindings>
<binding digest="System.ServiceModel.Configuration.NetTcpBindingElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089:&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data name=&quot;tcpBinding&quot; /&gt;" bindingType="netTcpBinding" name="tcpBinding" /> <binding digest="System.ServiceModel.Configuration.NetTcpBindingElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089:&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data name=&quot;tcpBinding&quot;&gt;&lt;security&gt;&lt;transport sslProtocols=&quot;None&quot; /&gt;&lt;/security&gt;&lt;/Data&gt;" bindingType="netTcpBinding" name="tcpBinding" />
</bindings> </bindings>
<endpoints> <endpoints>
<endpoint normalizedDigest="&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data address=&quot;net.tcp://localhost:9000/DigitalData/Services/Main&quot; binding=&quot;netTcpBinding&quot; bindingConfiguration=&quot;tcpBinding&quot; contract=&quot;IDBServiceReference.IIDBService&quot; name=&quot;tcpBinding&quot;&gt;&lt;identity&gt;&lt;dns value=&quot;localhost&quot; /&gt;&lt;/identity&gt;&lt;/Data&gt;" digest="&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data address=&quot;net.tcp://localhost:9000/DigitalData/Services/Main&quot; binding=&quot;netTcpBinding&quot; bindingConfiguration=&quot;tcpBinding&quot; contract=&quot;IDBServiceReference.IIDBService&quot; name=&quot;tcpBinding&quot;&gt;&lt;identity&gt;&lt;dns value=&quot;localhost&quot; /&gt;&lt;/identity&gt;&lt;/Data&gt;" contractName="IDBServiceReference.IIDBService" name="tcpBinding" /> <endpoint normalizedDigest="&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data address=&quot;net.tcp://localhost:9000/DigitalData/Services/Main&quot; binding=&quot;netTcpBinding&quot; bindingConfiguration=&quot;tcpBinding&quot; contract=&quot;IDBServiceReference.IIDBService&quot; name=&quot;tcpBinding&quot;&gt;&lt;identity&gt;&lt;dns value=&quot;localhost&quot; /&gt;&lt;/identity&gt;&lt;/Data&gt;" digest="&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data address=&quot;net.tcp://localhost:9000/DigitalData/Services/Main&quot; binding=&quot;netTcpBinding&quot; bindingConfiguration=&quot;tcpBinding&quot; contract=&quot;IDBServiceReference.IIDBService&quot; name=&quot;tcpBinding&quot;&gt;&lt;identity&gt;&lt;dns value=&quot;localhost&quot; /&gt;&lt;/identity&gt;&lt;/Data&gt;" contractName="IDBServiceReference.IIDBService" name="tcpBinding" />

6
Modules.EDMIAPI/Connected Services/IDBServiceReference/configuration91.svcinfo
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<SavedWcfConfigurationInformation xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" Version="9.1" CheckSum="fq6ZABYBBZDTG2RPQCA7uj4nPro="> <SavedWcfConfigurationInformation xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" Version="9.1" CheckSum="gcZhEvE0dzQnwKubt3MrVgLmByo=">
<bindingConfigurations> <bindingConfigurations>
<bindingConfiguration bindingType="netTcpBinding" name="tcpBinding"> <bindingConfiguration bindingType="netTcpBinding" name="tcpBinding">
<properties> <properties>
@ -105,8 +105,8 @@
<property path="/security/transport/extendedProtectionPolicy/customServiceNames" isComplexType="true" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.Configuration.ServiceNameElementCollection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <property path="/security/transport/extendedProtectionPolicy/customServiceNames" isComplexType="true" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.Configuration.ServiceNameElementCollection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>(Sammlung)</serializedValue> <serializedValue>(Sammlung)</serializedValue>
</property> </property>
<property path="/security/transport/sslProtocols" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Authentication.SslProtocols, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <property path="/security/transport/sslProtocols" isComplexType="false" isExplicitlyDefined="true" clrType="System.Security.Authentication.SslProtocols, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>Tls, Tls11, Tls12</serializedValue> <serializedValue>None</serializedValue>
</property> </property>
<property path="/security/message" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.MessageSecurityOverTcpElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <property path="/security/message" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.MessageSecurityOverTcpElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>System.ServiceModel.Configuration.MessageSecurityOverTcpElement</serializedValue> <serializedValue>System.ServiceModel.Configuration.MessageSecurityOverTcpElement</serializedValue>

9
Modules.EDMIAPI/Connected Services/IDBServiceReference/service.wsdl
View File

@ -129,6 +129,15 @@
<soap12:body use="literal" /> <soap12:body use="literal" />
</wsdl:output> </wsdl:output>
</wsdl:operation> </wsdl:operation>
<wsdl:operation name="ImportFile">
<soap12:operation soapAction="http://DigitalData.Services.IDBService/IIDBService/ImportFile" style="document" />
<wsdl:input>
<soap12:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap12:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="GetDocumentByDocumentId"> <wsdl:operation name="GetDocumentByDocumentId">
<soap12:operation soapAction="http://DigitalData.Services.IDBService/IIDBService/GetDocumentByDocumentId" style="document" /> <soap12:operation soapAction="http://DigitalData.Services.IDBService/IIDBService/GetDocumentByDocumentId" style="document" />
<wsdl:input> <wsdl:input>

20
Modules.EDMIAPI/Document.vb
View File

@ -68,6 +68,26 @@ Public Class Document
End Try End Try
End Function End Function
''' <summary>
''' Imports a file by filename
''' </summary>
''' <param name="FilePath">The filename to import</param>
''' <returns>A document object</returns>
Public Async Function ImportFile2(FilePath As String) As Task(Of DocumentResult2)
Try
Dim oContents As Byte() = File.ReadAllBytes(FilePath)
Dim oInfo As New FileInfo(FilePath)
Dim oName As String = oInfo.Name
Dim oExtension As String = oInfo.Extension.Substring(1)
Dim oResult = Await _channel.ImportFileAsync(oInfo, oContents)
Return oResult
Catch ex As Exception
_logger.Error(ex)
Throw ex
End Try
End Function
''' <summary> ''' <summary>
''' Imports a file by filename ''' Imports a file by filename
''' </summary> ''' </summary>

18
Modules.EDMIAPI/EDMIAPI.vbproj
View File

@ -109,6 +109,9 @@
<None Include="Connected Services\IDBServiceReference\DigitalData.Modules.EDMIAPI.IDBServiceReference.DocumentResult.datasource"> <None Include="Connected Services\IDBServiceReference\DigitalData.Modules.EDMIAPI.IDBServiceReference.DocumentResult.datasource">
<DependentUpon>Reference.svcmap</DependentUpon> <DependentUpon>Reference.svcmap</DependentUpon>
</None> </None>
<None Include="Connected Services\IDBServiceReference\DigitalData.Modules.EDMIAPI.IDBServiceReference.DocumentResult2.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Connected Services\IDBServiceReference\DigitalData.Modules.EDMIAPI.IDBServiceReference.IndexResult.datasource"> <None Include="Connected Services\IDBServiceReference\DigitalData.Modules.EDMIAPI.IDBServiceReference.IndexResult.datasource">
<DependentUpon>Reference.svcmap</DependentUpon> <DependentUpon>Reference.svcmap</DependentUpon>
</None> </None>
@ -138,6 +141,9 @@
<None Include="Connected Services\IDBServiceReference\System.Data.xsd"> <None Include="Connected Services\IDBServiceReference\System.Data.xsd">
<SubType>Designer</SubType> <SubType>Designer</SubType>
</None> </None>
<None Include="Connected Services\IDBServiceReference\System.IO.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Connected Services\IDBServiceReference\System.xsd"> <None Include="Connected Services\IDBServiceReference\System.xsd">
<SubType>Designer</SubType> <SubType>Designer</SubType>
</None> </None>
@ -155,6 +161,12 @@
<ItemGroup> <ItemGroup>
<WCFMetadata Include="Connected Services\" /> <WCFMetadata Include="Connected Services\" />
</ItemGroup> </ItemGroup>
<ItemGroup>
<ProjectReference Include="..\Modules.Logging\Logging.vbproj">
<Project>{903b2d7d-3b80-4be9-8713-7447b704e1b0}</Project>
<Name>Logging</Name>
</ProjectReference>
</ItemGroup>
<ItemGroup> <ItemGroup>
<WCFMetadataStorage Include="Connected Services\IDBServiceReference\" /> <WCFMetadataStorage Include="Connected Services\IDBServiceReference\" />
</ItemGroup> </ItemGroup>
@ -170,11 +182,5 @@
<LastGenOutput>Reference.vb</LastGenOutput> <LastGenOutput>Reference.vb</LastGenOutput>
</None> </None>
</ItemGroup> </ItemGroup>
<ItemGroup>
<ProjectReference Include="..\Modules.Logging\Logging.vbproj">
<Project>{903b2d7d-3b80-4be9-8713-7447b704e1b0}</Project>
<Name>Logging</Name>
</ProjectReference>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project> </Project>

6
Modules.EDMIAPI/app.config
View File

@ -25,7 +25,11 @@
<system.serviceModel> <system.serviceModel>
<bindings> <bindings>
<netTcpBinding> <netTcpBinding>
<binding name="tcpBinding" /> <binding name="tcpBinding">
<security>
<transport sslProtocols="None" />
</security>
</binding>
</netTcpBinding> </netTcpBinding>
</bindings> </bindings>
<client> <client>

34
SERVICES/DDEDM_NetworkService/App.config
View File

@ -1,26 +1,22 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<configuration> <configuration>
<system.diagnostics> <system.diagnostics>
<sources> <sources>
<source propagateActivity="true" name="System.ServiceModel" switchValue="Warning, ActivityTracing"> <source name="System.ServiceModel" switchValue="Information,ActivityTracing"
propagateActivity="true">
<listeners> <listeners>
<add type="System.Diagnostics.DefaultTraceListener" name="Default"> <add name="xml" />
<filter type="" />
</add>
</listeners> </listeners>
</source> </source>
<source name="System.ServiceModel.MessageLogging" switchValue="Warning, ActivityTracing"> <source name="System.ServiceModel.MessageLogging">
<listeners> <listeners>
<add type="System.Diagnostics.DefaultTraceListener" name="Default"> <add name="xml" />
<filter type="" />
</add>
</listeners> </listeners>
</source> </source>
</sources> </sources>
<sharedListeners> <sharedListeners>
<add initializeData="E:\EDMService\Trace.svclog" type="System.Diagnostics.XmlWriterTraceListener, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" name="Xml" traceOutputOptions="LogicalOperationStack, DateTime, Timestamp, ProcessId, ThreadId, Callstack"> <add initializeData="C:\logs\TracingAndLogging-service.svclog" type="System.Diagnostics.XmlWriterTraceListener"
<filter type="" /> name="xml" />
</add>
</sharedListeners> </sharedListeners>
<trace autoflush="true" /> <trace autoflush="true" />
</system.diagnostics> </system.diagnostics>
@ -34,12 +30,20 @@
</appSettings> </appSettings>
<system.serviceModel> <system.serviceModel>
<diagnostics wmiProviderEnabled="true"> <diagnostics wmiProviderEnabled="true">
<messageLogging logMalformedMessages="true" logMessagesAtTransportLevel="true" /> <messageLogging logEntireMessage="true" logMalformedMessages="true"
logMessagesAtTransportLevel="true" />
<endToEndTracing propagateActivity="true" activityTracing="true"
messageFlowTracing="true" />
</diagnostics> </diagnostics>
<bindings> <bindings>
<netTcpBinding> <netTcpBinding>
<binding name="tcpBinding" sendTimeout="00:10:00" maxReceivedMessageSize="2147483647" maxBufferSize="2147483647" transferMode="Streamed"> <binding name="tcpBinding" sendTimeout="00:10:00" transferMode="Buffered"
<readerQuotas maxStringContentLength="2147483647" maxArrayLength="2147483647" maxBytesPerRead="2147483647" maxDepth="32" maxNameTableCharCount="2147483647" /> maxBufferSize="2147483647" maxReceivedMessageSize="2147483647">
<readerQuotas maxDepth="32" maxStringContentLength="2147483647"
maxArrayLength="2147483647" maxBytesPerRead="2147483647" maxNameTableCharCount="2147483647" />
<security mode="None">
<transport clientCredentialType="None" />
</security>
</binding> </binding>
</netTcpBinding> </netTcpBinding>
</bindings> </bindings>

42
SERVICES/DDEDM_NetworkService/IDBService.vb
View File

@ -1,9 +1,9 @@
Imports System.ServiceModel Imports System.ServiceModel
Imports DigitalData.Modules.Database Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Imports System.IO
Imports DigitalData.Modules.Filesystem Imports DigitalData.Modules.Filesystem
Imports DigitalData.Services.IDBService Imports DigitalData.Services.IDBService
Imports System.IO
<ServiceBehavior(InstanceContextMode:=InstanceContextMode.PerSession)> <ServiceBehavior(InstanceContextMode:=InstanceContextMode.PerSession)>
Public Class IDBService Public Class IDBService
@ -31,17 +31,16 @@ Public Class IDBService
#Region "Auth" #Region "Auth"
Private Function TestUserAuth() As Boolean Private Function TestUserAuth() As Boolean
Try Try
Dim oSQL As String = $"SELECT FNIDB_AUTH_USER('{_username}') FROM RDB$DATABASE;" 'Dim oSQL As String = $"SELECT FNIDB_AUTH_USER('{_username}') FROM RDB$DATABASE;"
Dim oResult As Boolean = Database.GetScalarValue(oSQL) 'Dim oResult As Boolean = Database.GetScalarValue(oSQL)
'Return oResult
Return oResult Return True
Catch ex As Exception Catch ex As Exception
_logger.Error(ex) _logger.Error(ex)
Return False Return False
End Try End Try
End Function End Function
#End Region #End Region
#Region "Heartbeat" #Region "Heartbeat"
Public Function Heartbeat() As Boolean Implements IIDBService.Heartbeat Public Function Heartbeat() As Boolean Implements IIDBService.Heartbeat
Return True Return True
@ -129,7 +128,7 @@ Public Class IDBService
#End Region #End Region
#Region "Document" #Region "Document (with FileContainer)"
Public Function NewFile(FileName As String, Contents() As Byte) As DocumentResult Implements IIDBService.NewFile Public Function NewFile(FileName As String, Contents() As Byte) As DocumentResult Implements IIDBService.NewFile
Try Try
Dim oContainer As FileContainer Dim oContainer As FileContainer
@ -237,6 +236,35 @@ Public Class IDBService
End Sub End Sub
#End Region #End Region
#Region "Document"
Public Function ImportFile(FileInfo As FileInfo, Contents() As Byte) As DocumentResult2 Implements IIDBService.ImportFile
Dim oFilePath = Path.Combine(AppConfig.ContainerPath, FileInfo.Name)
Dim oDocument = New DocumentResult2.DocumentObject() With {.FileName = FileInfo.Name}
Try
_logger.Info("Saving file [{0}] to path [{1}]", FileInfo.Name, oFilePath)
Using oStream = New FileStream(oFilePath, FileMode.CreateNew)
oStream.Write(Contents, 0, Contents.Length)
oStream.Flush(True)
oStream.Close()
End Using
Dim oAttributes = IO.File.GetAttributes(oFilePath) Or FileAttributes.ReadOnly
_logger.Info("Setting LastAccessTime")
IO.File.SetLastAccessTime(oFilePath, Date.Now.AddYears(30))
_logger.Info("Setting ReadOnly Attribute")
IO.File.SetAttributes(oFilePath, oAttributes)
Return New DocumentResult2(oDocument)
Catch ex As Exception
_logger.Error(ex)
Return New DocumentResult2(ex.Message)
End Try
End Function
#End Region
#Region "Utils" #Region "Utils"
Public Function GetDocumentByDocumentId(DocumentId As Long) As DocumentResult Implements IIDBService.GetDocumentByDocumentId Public Function GetDocumentByDocumentId(DocumentId As Long) As DocumentResult Implements IIDBService.GetDocumentByDocumentId
Try Try

1
SERVICES/DDEDM_NetworkService/IDBService.vbproj
View File

@ -90,6 +90,7 @@
<Compile Include="Exceptions.vb" /> <Compile Include="Exceptions.vb" />
<Compile Include="Results\DatabaseResult.vb" /> <Compile Include="Results\DatabaseResult.vb" />
<Compile Include="IDBService.vb" /> <Compile Include="IDBService.vb" />
<Compile Include="Results\DocumentResult2.vb" />
<Compile Include="Results\IndexResult.vb" /> <Compile Include="Results\IndexResult.vb" />
<Compile Include="WindowsService.vb"> <Compile Include="WindowsService.vb">
<SubType>Component</SubType> <SubType>Component</SubType>

10
SERVICES/DDEDM_NetworkService/IIDBService.vb
View File

@ -1,4 +1,5 @@
Imports System.ServiceModel Imports System.IO
Imports System.ServiceModel
Imports DigitalData.Modules.Filesystem Imports DigitalData.Modules.Filesystem
<ServiceContract([Namespace]:="http://DigitalData.Services.IDBService")> <ServiceContract([Namespace]:="http://DigitalData.Services.IDBService")>
@ -26,7 +27,7 @@ Interface IIDBService
Function ExecuteNonQuery(SQL As String) As NonQueryResult Function ExecuteNonQuery(SQL As String) As NonQueryResult
#End Region #End Region
#Region "Document" #Region "Document (with FileContainer)"
<OperationContract> <OperationContract>
Function NewFile(FileName As String, Contents As Byte()) As DocumentResult Function NewFile(FileName As String, Contents As Byte()) As DocumentResult
@ -38,8 +39,11 @@ Interface IIDBService
<OperationContract> <OperationContract>
Function DeleteFile(DocObject As DocumentObject) As Boolean Function DeleteFile(DocObject As DocumentObject) As Boolean
#End Region
#Region "Document (New)"
<OperationContract>
Function ImportFile(FileInfo As FileInfo, Contents As Byte()) As DocumentResult2
#End Region #End Region
#Region "Utils" #Region "Utils"

28
SERVICES/DDEDM_NetworkService/Results/DocumentResult2.vb Normal file
View File

@ -0,0 +1,28 @@
<Serializable>
Public Class DocumentResult2
Inherits BaseResult
Public Document As DocumentObject
Public HasContents As Boolean = False
Public Contents As Byte()
Public Sub New(Document As DocumentObject)
MyBase.New()
Me.Document = Document
End Sub
Public Sub New(Document As DocumentObject, Contents As Byte())
MyBase.New()
Me.Document = Document
Me.Contents = Contents
Me.HasContents = True
End Sub
Public Sub New(ErrorMessage As String)
MyBase.New(ErrorMessage)
End Sub
Public Class DocumentObject
Public FileName As String
End Class
End Class