Application d'exemple

L'échantillon de code indiqué ci-dessous illustre comment utiliser l'API COM.

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