サンプル アプリケーション
以下のサンプル コードに、COM API の使い方を示します。
On Error GoTo ErrorHandler
Dim server As New G1CLIENTLib.server
Dim service As G1CLIENTLib.service
Dim requestMsg As New G1CLIENTLib.Message
Dim replyMsg As G1CLIENTLib.Message
Dim dataTable As G1CLIENTLib.dataTable
Dim newRow As G1CLIENTLib.dataRow
Dim returnDataTable As G1CLIENTLib.dataTable
Dim row As G1CLIENTLib.DataRow
Dim sColumnNames() As String
Dim sColumnName As String
Dim sFieldValue As String
Dim rows() As Variant
Dim nRow As Integer
Dim nColumn As Integer
'Set server connection properties
server.setConnectionProperty server.HOST, "localhost"
server.setConnectionProperty server.Port, "10119"
server.setConnectionProperty server.CONNECTION_TYPE, "SOCKET"
server.setConnectionProperty server.ACCOUNT_ID, "guest"
server.setConnectionProperty server.ACCOUNT_PASSWORD, ""
'Connect to server
server.Connect
'Get the service from the server
Set service = server.getService("ValidateAddress")
'Fill DataTable in the input message
Set dataTable = requestMsg.getDataTable
dataTable.addColumn ("AddressLine1")
dataTable.addColumn ("City")
dataTable.addColumn ("StateProvince")
Set newRow = dataTable.newRow
newRow.setByIndex 0, "10535 Boyer"
newRow.setByIndex 1, "Austin"
newRow.setByIndex 2, "Texas"
dataTable.addRow newRow
'Set"option" Properties to the Input Message
requestMsg.putOption "OutputCasing", "M"
requestMsg.putOption "OutputRecordType", "A"
'Process Input Message, return output Message
Set replyMsg = service.process(requestMsg)
'Disconnect from the server
server.disconnect
'Get the result from the resonse message
Set returnDataTable = replyMsg.getDataTable
ReDim rows(returnDataTable.getRowCount) As Variant
rows = returnDataTable.iterator
ReDim sColumnNames(returnDataTable.getColumnCount) As String
sColumnNames = returnDataTable.getColumnNames
For nRow = 0 To returnDataTable.getRowCount - 1
Set row = rows(nRow)
For nColumn = 0 To row.getColumnCount - 1
sColumnName = sColumnNames(nColumn)
sFieldValue = row.getByName(sColumnName)
Next
Next
Exit Sub
ErrorHandler:
MsgBox Err.Description