| Вопрос: tga и vbnet | Добавлено: 10.04.06 23:02 |
Автор вопроса:  mich | Web-сайт: belkyokushin.net | ICQ: 261800349 |
| Ответы | Всего ответов: 32 |
|
Номер ответа: 31 Автор ответа:  mich ICQ: 261800349 Вопросов: 19 Ответов: 148 |
Web-сайт: Профиль | | #31 | Добавлено: 14.04.06 10:21 |
| перевести без проблем. Но неужели CopyData работает аналогично? А как насчет доступа из других приложений? | ||
|
Номер ответа: 32 Автор ответа: vitoРазработчик Offline Client Вопросов: 23 Ответов: 879 |
Web-сайт: Профиль | | #32 | Добавлено: 14.04.06 14:33 |
|
Функция CopyMemory.
VOID CopyMemory (
PVOID Destination, // адрес куда копируем CONST VOID *Source, // адрес откуда копируем  WORD Length // размер в байтах блока для копирования
 ;Процедура CopyData тоже копирует данные между двумя блоками памяти. Stream можно рассматривать как умный буфер, куда мы считали в бинаре TGA. Private Sub CopyData(ByVal FromStream As Stream, ByVal ToStream As Stream)
' счетчик прочитанных байтов Dim intBytesRead As Integer ' Временный буфер для чтения Const intSize As Integer = 4096 ' размер блока для чтения Dim bytes(intSize) As Byte ' читаем в буфер 4096 байтов ' третий параметр 0 - показывает смещение от начала буфера потока( в данном случае сначала) 'intSize - сколько байтов читаем intBytesRead = FromStream.Read(bytes, 0, intSize) While intBytesRead > 0 ' записываем прочитанные данные во второй поток (буфер) ToStream.Write(bytes, 0, intBytesRead) ' читаем очередной блок ' и так до конца intBytesRead = FromStream.Read(bytes, 0, intSize) End While End Sub Что ты имел в виду под доступом из других приложений? |
||