1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
<B><CODE><PRE>
Imports QuickFix
Module MyModule
Sub Main(ByVal CmdArgs() As String)
If(CmdArgs <> 1) Then
Return
End If
Dim fileName As String = CmdArgs(1)
Try
Dim settings As New SessionSettings(fileName)
Dim application As New MyApplication()
Dim storeFactory As New FileStoreFactory(settings)
Dim logFactory As New FileLogFactory(settings)
Dim messageFactory As New DefaultMessageFactory()
Dim acceptor As New SocketAcceptor(application, storeFactory, settings, logFactory, messageFactory)
acceptor.start()
'While( condition = True )
' do something
'End While
acceptor.stop()
Catch e As ConfigError
Console.WriteLine(e)
End Try
End Sub
End Module
</PRE></CODE></B>
|
