Option Strict Off

Option Explicit On

Friend Class Form1

        Inherits System.Windows.Forms.Form

        Dim CommData As Integer

        Dim Connect As Short

    ' Nije spojen = 0

    ' Spojen = 1

        Dim Result As Short

    Private Declare Function Online_ESC_Y_BYTE Lib "C:\UNI_TRANS\OnlineDll.Dll" Alias "Online_ESC_Y" (ByVal CommData As Integer, ByVal tAdd As Short, ByRef bDat As Byte, ByRef bLen As Byte) As Short

    Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load

        CommData = Online_Create()

        Connect = 0

        If CommData <> 0 Then

            Result = Online_SetupEx(CommData, 18, Asc("7"), Asc("1"), Asc("N"))

            ' Result = 1

        End If

    End Sub

    Private Sub Form1_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

        If CommData <> 0 Then

            Call Online_Destroy(CommData)

            CommData = 0

            Connect = 0

        End If

    End Sub

    Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click

        'Spajaj

        If (CommData <> 0) And (Connect = 0) Then

            Connect = Online_Connect(CommData)

        End If

        MsgBox(Connect)

    End Sub

    Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click

        'odspoji

        If (CommData <> 0) And (Connect = 1) Then

            Call Online_Disconnect(CommData)

            Connect = 0

        End If

        MsgBox(Connect)

    End Sub

    Private Sub Command3_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command3.Click

        'Prebaci

        Dim NameStr As String

        Dim FileLen_Renamed As Integer

        Dim TextAsc(120) As Byte

        Dim TextLen As Byte

        Dim Count As Byte

        If (CommData = 0) Or (Connect = 0) Then Exit Sub

        NameStr = "C:\UNI_TRANS\COLLECT.TXT" 'C:\UNI_TRANS\

        FileOpen(1, NameStr, OpenMode.Append, OpenAccess.Default, OpenShare.Default, 1)

        'Suppose File Exists

        'Suppose FileLen>0

        Result = Online_ESC_L(CommData, Asc("A"), "COLLECT.TXT", 10)

        'Suppose Result = 1

        FileLen_Renamed = LOF(1)

OK:

        TextLen = 120

        If TextLen > FileLen_Renamed Then TextLen = FileLen_Renamed

        For Count = 1 To TextLen

            FileGet(1, TextAsc(Count - 1))

        Next Count

        Result = Online_ESC_Y_BYTE(CommData, Asc("A"), TextAsc(0), TextLen)

        'Suppose Result = CmdACK (4)

        Call Online_ACK(CommData, Asc("A"))

        FileLen_Renamed = FileLen_Renamed - TextLen

        If FileLen_Renamed > 0 Then GoTo OK

        Result = Online_ESC_Z(CommData, Asc("A"))

        'Suppose Result = CmdACK (4)

        Call Online_ACK(CommData, Asc("A"))

        FileClose(1)

        MsgBox("File Download", , "COLLECT.TXT")

    End Sub

End Class