Rekan2, gimana sih caranya membaca file binary ke array of byte?
Saya sudah buka2 msdn tapi nggak ada contohnya dan nggak ada
fungsi/subrutine yg bisa membantu. Jadi saya baca filenya 1 byte 1
byte hingga selesai. Cuman jadinya performanya lambat. Ada saran?
--
Eddy Wibowo
==========
Dim isi() As Byte
Dim iter As Long
iter = 0
Open namafile For Binary Access Read As nomerfile
Do While Not EOF(nomerfile)
Get nomerfile, , buffer
ReDim Preserve isi(iter)
isi(iter) = buffer
iter = iter + 1
Loop
Close nomerfile
'potong data extra
If iter - 2 > 0 Then ReDim Preserve isi(iter - 2)
==========
------------------------ Yahoo! Groups Sponsor --------------------~-->
<font face=arial size=-1><a
href="http://us.ard.yahoo.com/SIG=12hant13e/M=362329.6886308.7839368.1510227/D=groups/S=1705115364:TM/Y=YAHOO/EXP=1123128762/A=2894321/R=0/SIG=11dvsfulr/*http://youthnoise.com/page.php?page_id=1992
">Fair play? Video games influencing politics. Click and talk back!</a>.</font>
--------------------------------------------------------------------~->
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
