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

[alibek]

ALX_2002, GDI+ бесплатно распространяется Microsoft, tyomitch сделал к ней враппер.
А вот совместить VB6 и Framework... Я сомневаюсь, что это вообще возможно.

[GSerg]

Да можно...
Мы пытались даже...

[ALX_2002]

Плохо....... Совсем плохо

[GSerg]

Чё плохо? Поставил и забыл...

[ALX_2002]

Ну у меня FrameWork нету, а качать замучаюсь.

Вы лучше объясните - там DLL которую нельзя подключить через CreateObject что ли ? Или она ещё как то хитро сделана, что её к VB не подключишь ?

[GSerg]

Маньяк, блин, 600 метровые файлы отдаёт, а 25 метров скачать не может...

Там наваяешь Class dll, в атрибутах COM Visible пропишешь, он тогда ещё и tlb создаст. Её из VB подключаешь, и работает...
Библы регятся через RegAsm, а не regsvr32.

[Konst_One]

прога на .NET без FW не пашет на компьютере,так как собственно она не скомпилина вообще. FW как раз и есть компилятор в машинные коды.

[Konst_One]

Шаман как всегда прав, слушай его советов

[ALX_2002]

Gserg: У меня сервак в локальной сети... С него мне нужно файло и больше 600 метров раздавать, а вот качать из нета 25 метров я за.....усь...

замучаюсь

Так что у меня единственная возможность ASP и DLL и всё....

[GSerg]

Извращенец, размести всё на сетевой шаре...

[ALX_2002]

Да ё..... Рад бы !!!

Объясняю ситуацию - В локальной сети есть главный сервер.
Меня попросили сделать сайт для них. В целях безопасности на серве доступ по шарам закрыт вооообщее.

Для отладки файлового серва я тестируюсь сейчас на своём...

[GSerg]

В целях безопасности ставь NTFS и на каждый файл разрешения на чтение, и больше ни на что. И вообще на всю шару. И пусть сайт раздаёт ссылки на шары.
Короче, юзай security features 2000/nt/xp.

[alibek]

А зачем ASP? Зачем FTP придумали?

[ALX_2002]

Отцы..... Ну я же объяснил - у меня изначально был договор - СДЕЛАТЬ ВСЁ НА ASP......

Ни в право ни влево !!!

Мне нужна помошь не советом как организовать "по другому", а

помошь - как заставить файлы читаться "б ы с т р е е"

Всё остальное мне не поможет.....

Была бы возможность, я бы наверное не парился и давно уже сделал

всё проще.

Лучше помогите кодом..... [/b]

[GSerg]

Говорю тебе...
open for input читает очень б ы с т р о...

[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 за бесценную помошь.