magz_sr
یک شنبه 08 شهریور 1388, 13:40 عصر
سلام
در vb6 میشه قسمتی یا کل یک فایل رو تو یه استراکچر قرار داد، بعنوان مثال در مورد فایلهای bmp :
Type BITMAPFILEHEADER
bfType As Integer
bfSize As Long
bfReserved1 As Integer
bfReserved2 As Integer
bfOffBits As Long
End Type
Public tmp_bmfh As BITMAPFILEHEADER
FilePath = "c:\a.bmp"
Open FilePath For Binary Access Read As #1
Get #1, , tmp_bmfh
Close #1
من زیاد به دات نت وارد نیستم ولی تا جایی که میدونم معادل کدهای بالا تو vb.Net 2008 باید بشکل زیر باشه :
Structure BITMAPFILEHEADER
Dim bfType As Integer
Dim bfSize As Long
Dim bfReserved1 As Integer
Dim bfReserved2 As Integer
Dim bfOffBits As Long
End Structure
Public tmp_bmfh As BITMAPFILEHEADER
FilePath = "c:\a.bmp"
FileOpen(1, FilePath, OpenMode.Binary)
FileGet(1, tmp_bmfh)
FileClose(1)
ولی این روش جواب نمیده،هیچ خطایی رخ نمیده ولی بایتهای خونده شده نادرست هستن، نمیدونم مشکل از کجاست
دوستان اگه راهنمایی کنن ممنون میشم.
در vb6 میشه قسمتی یا کل یک فایل رو تو یه استراکچر قرار داد، بعنوان مثال در مورد فایلهای bmp :
Type BITMAPFILEHEADER
bfType As Integer
bfSize As Long
bfReserved1 As Integer
bfReserved2 As Integer
bfOffBits As Long
End Type
Public tmp_bmfh As BITMAPFILEHEADER
FilePath = "c:\a.bmp"
Open FilePath For Binary Access Read As #1
Get #1, , tmp_bmfh
Close #1
من زیاد به دات نت وارد نیستم ولی تا جایی که میدونم معادل کدهای بالا تو vb.Net 2008 باید بشکل زیر باشه :
Structure BITMAPFILEHEADER
Dim bfType As Integer
Dim bfSize As Long
Dim bfReserved1 As Integer
Dim bfReserved2 As Integer
Dim bfOffBits As Long
End Structure
Public tmp_bmfh As BITMAPFILEHEADER
FilePath = "c:\a.bmp"
FileOpen(1, FilePath, OpenMode.Binary)
FileGet(1, tmp_bmfh)
FileClose(1)
ولی این روش جواب نمیده،هیچ خطایی رخ نمیده ولی بایتهای خونده شده نادرست هستن، نمیدونم مشکل از کجاست
دوستان اگه راهنمایی کنن ممنون میشم.