Dim ByteArray() As Byte
Private Sub StrToByte(byval Value as String)
Dim i As Integer
ReDim ByteArray(Len(Value) - 1)
For i = 1 To Len(Value)
ByteArray(i - 1) = Asc(Mid(Value, i, 1))
Next
End Sub
-------------------------------------------------
a mozes i ovako
ByteArray = StrConv(Text, vbFromUnicode)
ili ovako
Call CopyMemory (ByteArray(0), ByVal Text, lText)
gde je lText duzina stringa, a CopyMem API
Declare Sub CopyMemory Lib "kernel32" Alias _
"RtlMoveMemory" ( _
hpvDest As Any, _
hpvSource As Any, _
ByVal cbCopy As Long)
[
Ovu poruku je menjao mladenovicz dana 23.06.2003. u 21:50 GMT]
[
Ovu poruku je menjao mladenovicz dana 23.06.2003. u 22:17 GMT]