Dim PIp As String = DefaultPayTerminalMAP.Get("printer_address")
Dim Pport As Int = DefaultPayTerminalMAP.Get("printer_port")
PayTerminal.Initialize("PayTerminal")
PayTerminal.Connect(PIp, Pport, 0)
Wait For (PayTerminal) PayTerminal_Connected (Successful As Boolean)
Log("PayTerminal.IsInitialized = " & PayTerminal.IsInitialized)
Log("PayTerminal.Connected = " & PayTerminal.Connected)
If Successful Then
Log("PayTerminal.IsInitialized = " & PayTerminal.IsInitialized)
Log("PayTerminal.Connected = " & PayTerminal.Connected)
TerminalRequestStatus = "CONNECTED"
Log("TerminalRequestStatus = " & TerminalRequestStatus)
Log("PayTerminal.InputStream, = " & PayTerminal.InputStream.IsInitialized)
Log("PayTerminal.OutputStream = " & PayTerminal.OutputStream.IsInitialized)
'The code app crashes here.
PayTerminalStream.Initialize(PayTerminal.InputStream, PayTerminal.OutputStream, "PayTerminalStream")
PayTerminalStream.Write(SendStr.GetBytes("UTF-8"))
'The code app crashes here.
PayTerminalStream.Initialize(PayTerminal.InputStream, PayTerminal.OutputStream, "PayTerminalStream")