vBasic
V.I.P
Mesaj Sayısı : 41
Puanı : 115
Rep Değeri : 14
Kayıt tarihi : 27/03/10
 |  Konu: ConvHEX2ByteArray yolu Cuma Nis. 02, 2010 9:52 pm | |
| - Kod:
-
Public Function ConvHEX2ByteArray(pStr As String, pByte() As Byte)
Dim i As Long
Dim j As Long
ReDim pByte(1 To Len(pStr) / 2)
j = LBound(pByte) - 1
For i = 1 To Len(pStr) Step 2
j = j + 1
pByte(j) = CByte("&H" & Mid(pStr, i, 2))
Next
End Function
| |
|
updowngo1
KoxpZamani Üyesi
Mesaj Sayısı : 1
Puanı : 1
Rep Değeri : 10
Kayıt tarihi : 17/07/13
| | Konu: Geri: ConvHEX2ByteArray yolu Perş. Tem. 18, 2013 12:02 am | |
| bunları yazıyon iyi güzelde ne işe yarar onlarıda yaz | |
|
