Dll для побайтового чтения из файла

[ALX_2002]

2 Gserg: Если не трудно - можно примерчик - Как именно сделать ?

[GSerg]

Vlz, input не лучший вариант... Binary немного удобнее.

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

Option Explicit

Private Declare Function GetTickCount Lib "kernel32" () As Long

Private t As Long

Private Sub Command1_Click()
  t = GetTickCount
  WasteMemory
End Sub

Private Sub WasteMemory()
  Dim b(1 To 100000000) As Byte
 
  Debug.Print "Memory allocation took "; GetTickCount - t
  t = GetTickCount
  Open "c:\movies\Шрек.avi" For Binary Access Read As #1
  Get #1, , b
  Close #1
  Debug.Print "Loaded 100 mln bytes in "; GetTickCount - t
  Debug.Print "ok."
 
  Debug.Print b(41435326), b(1), b(100000000)
End Sub

[ALX_2002]

Ух ! Красота... А как я потом этот массив выводить ?

Через For Next ?? Или я чего то не знаю ?

И кстати - есть способ преобразования строки в двоичные данные ?

[A.A.Z.]

http://bbs.vbstreets.ru/viewtopic.php?t=12641

[ALX_2002]

to GSerg: ПО ХОДУ ПОЛУЧИЛОСЬ ! СКОРОСТЬ НЕИМОВЕРНАЯ КАЖИСЬ !!!

[ALX_2002]

ДА ! РЕАЛ ПОЛУЧИЛОСЬ ! СКОРОСТЬ СУМАСШЕДШАЯ ! БОЛЬШЕ ЧЕМ У FSO ! ОБАЛДЕТЬ !

GSERG: Пожизненный RESPECT !!!!!!!!!

680 метров за 1 минуту !!!

[GSerg]

Да всегда пожалуйста, для этого мы и нужны

[ALX_2002]

ОБАЛДЕТЬ ! Сегодня разгнал скачку файлов до 8,9 мегов в секунуду !!!

Доделал формирование эскизов на серваке

Теперь делаю возможность для пользователя по желанию сохранить себе WALLPAPER в желаемом формате и желаемом разрешении, независимо от в каком разрешении и формате исходный файл !!! Б а л д е ю !!!

VIP respect GSerg, Tyomitch, A.A.Z за бесценную помошь.