- 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