byte() to string

[[Zeus]]

Привет! Подскажите, есть ли функция которая переводит массив byte в строку. Вообще пробовал цыклом:

Код: Выделить всё

Dim pic() as Byte
Dim S as String

ReDim pic(UBound(LoadResData(path, 23)))
pic() = LoadResData(path, 23)

For i = 0 To UBound(pic)
    S = S & CStr(pic(i))
Next i



но чето не работает и ошибки не выдает...
В ресурсе хранится jpg который нужно передавать через winsock...
Вообще можно сохранять в файл, но тогда пропадает смысл в хранении в ресурсе...

[/code]

[alibek]

S = pic()

[GSerg]

Всё-таки хочется параллельно спросить автора, в чём он видит разницу между строкой и байтовым массивом, а также в чём причина нежелания передавать массив.

[[Zeus]]

Массив пробовал передавать, картинка не выводится...
Получилось тока так:

Код: Выделить всё

  Dim S as String
  Dim pic() as byte
  ReDim pic(UBound(LoadResData(path, 23)))
  pic() = LoadResData(path, 23)
 
  f = FreeFile
  Open getFileName(path) For Binary Access Write As #f
  Put #f, , pic
  Close #f
 
  Open getFileName(path) For Binary As #f
  l = LOF(f)
  S = String(l, vbNullChar)
  Get #f, , S
  Close #f

  senddata id, S


Так все работает... Не могу понять, вчем разница между сохранением данных в файл и отправкой, и отправкой данных напрямую (без сохранения в файл)

[GSerg]

В том, что ты упорно отправляешь строку. Неизвестно зачем.

[pronto]

Есть вариант:

Код: Выделить всё

Str$ = StrConv(byte(), vbUnicode)