Prikazi cijelu temu 03.01.2011 19:43
roko Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Rijeka


Predmet:unitech HT630
Bar kod čitač za velike firme... bla bla ...
skinu san dll za njega i našao kod koji se spaja
''ATACH
pa onda kod na formi 3 dugmica (spoji,odspoji Download)
PreuzmiIzvorni kôd (Text):
  1. Option Strict Off
  2. Option Explicit On
  3. Friend Class Form1
  4.         Inherits System.Windows.Forms.Form
  5.         Dim CommData As Integer
  6.         Dim Connect As Short
  7.     ' Nije spojen = 0
  8.     ' Spojen = 1
  9.         Dim Result As Short
  10.     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
  11.     Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
  12.         CommData = Online_Create()
  13.         Connect = 0
  14.         If CommData <> 0 Then
  15.             Result = Online_SetupEx(CommData, 18, Asc("7"), Asc("1"), Asc("N"))
  16.             ' Result = 1
  17.         End If
  18.     End Sub
  19.     Private Sub Form1_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
  20.         If CommData <> 0 Then
  21.             Call Online_Destroy(CommData)
  22.             CommData = 0
  23.             Connect = 0
  24.         End If
  25.     End Sub
  26.     Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
  27.         'Spajaj
  28.         If (CommData <> 0) And (Connect = 0) Then
  29.             Connect = Online_Connect(CommData)
  30.         End If
  31.         MsgBox(Connect)
  32.     End Sub
  33.     Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click
  34.         'odspoji
  35.         If (CommData <> 0) And (Connect = 1) Then
  36.             Call Online_Disconnect(CommData)
  37.             Connect = 0
  38.         End If
  39.         MsgBox(Connect)
  40.     End Sub
  41.     Private Sub Command3_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command3.Click
  42.         'Prebaci
  43.         Dim NameStr As String
  44.         Dim FileLen_Renamed As Integer
  45.         Dim TextAsc(120) As Byte
  46.         Dim TextLen As Byte
  47.         Dim Count As Byte
  48.         If (CommData = 0) Or (Connect = 0) Then Exit Sub
  49.         NameStr = "C:\UNI_TRANS\COLLECT.TXT" 'C:\UNI_TRANS\
  50.         FileOpen(1, NameStr, OpenMode.Append, OpenAccess.Default, OpenShare.Default, 1)
  51.         'Suppose File Exists
  52.         'Suppose FileLen>0
  53.         Result = Online_ESC_L(CommData, Asc("A"), "COLLECT.TXT", 10)
  54.         'Suppose Result = 1
  55.         FileLen_Renamed = LOF(1)
  56. OK:
  57.         TextLen = 120
  58.         If TextLen > FileLen_Renamed Then TextLen = FileLen_Renamed
  59.         For Count = 1 To TextLen
  60.             FileGet(1, TextAsc(Count - 1))
  61.         Next Count
  62.         Result = Online_ESC_Y_BYTE(CommData, Asc("A"), TextAsc(0), TextLen)
  63.         'Suppose Result = CmdACK (4)
  64.         Call Online_ACK(CommData, Asc("A"))
  65.         FileLen_Renamed = FileLen_Renamed - TextLen
  66.         If FileLen_Renamed > 0 Then GoTo OK
  67.         Result = Online_ESC_Z(CommData, Asc("A"))
  68.         'Suppose Result = CmdACK (4)
  69.         Call Online_ACK(CommData, Asc("A"))
  70.         FileClose(1)
  71.         MsgBox("File Download", , "COLLECT.TXT")
  72.     End Sub
  73. End Class

dobijem fil na disk ali prazan ?
kreira na disk -OK ,spaja se jer se vanjska jedinica upali - OK ali fil je prazan a u aparatu nije jer sam provjerio. ima li neki kod da to Å¡to mogu binarno izvuči iz HP650 iz fila COLLECT.TXT samo zaljepim na lokallni disk ?

Prilozi:
unitech-pt630-gr.jpg
Preuzimanja:330
Velicina datoteke:5.36 KB
New Text Document.txt
Preuzimanja:452
Velicina datoteke:21.73 KB