CopyMem

[Faust]

Людь, подкиньте пример использования CopyMem с массивами. Дело обстоит так: я считываю файл в бинарном режиме в массив байтов. Потом из оного пытаюсь с помощью CopyMem нарезать стрингов. Как?

[EvilCoder]

<DELETE>

[tyomitch]

Тебе нужно массив Байт закинуть в Строку с Ипользованием CopyMem?

То ... может так

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

    Dim ByteS() As Byte      '--- массив байтов
    Dim ByteString As String   '-- строка

    ByteString = Space$(UBound(ByteS) + 1)
    CopyMemory ByVal ByteString, ByteS(0), Len(ByteString)

А может, просто ByteS = ByteString?

PS: ты ReDim забыл

[EvilCoder]

<DELETE>

[tyomitch]

так ведь он через CopyMem просил...

Redim ? Где?... это пускай он разбирается

)))) ROTFL

[Faust]

2EvilCoder: Спасибо, попробую.
2tyomitch:

А может, просто ByteS = ByteString?

Не может - мне нужно записать в строку только часть массива. Но все равно спасибо.

[EvilCoder]

<DELETE>

[alibek]

Байтовый массив и стринг имеют разную структуру (из-за Unicode), лучше просто назначать (sData = bData()) или использовать функцию StrConv.

[tyomitch]

Байтовый массив и стринг имеют разную структуру (из-за Unicode), лучше просто назначать (sData = bData()) или использовать функцию StrConv.

2tyomitch:

А может, просто ByteS = ByteString?

Не может - мне нужно записать в строку только часть массива. Но все равно спасибо.