iFile = FreeFile
Open sDatFile For Binary As iFile
lByteLen = LOF(iFile)
If lByteLen - 1 < lEnd Then
Close iFile
Exit Sub
End If
NewFile = FreeFile
Open sImageFile For Binary As NewFile
Dim i As Long, n As Long
For i = lBegin To lEnd
Get iFile, i, bytData
n = n + 1
Put NewFile, n, bytData
Next
Close iFile
Close NewFile
Извлечь графику из BIN-файла?
Есть BIN-файл, содержащий графику. Точно известны номер начального бита и длина (количество бит) некоего jpg-а.
Вопрос: Как извлечь рисунок из BIN-а, те записать jpg в нужном месте под нужным именем?
P.S. ExtractIcon здесь не подходит, А чтобы было проще понять - надо взять любой файл картинки и измените ему расширение на "bin", а потом причтиать его как бинарный файл начиная с бита №1 до конца и запмсать файл картинки.
Вопрос: Как извлечь рисунок из BIN-а, те записать jpg в нужном месте под нужным именем?
P.S. ExtractIcon здесь не подходит, А чтобы было проще понять - надо взять любой файл картинки и измените ему расширение на "bin", а потом причтиать его как бинарный файл начиная с бита №1 до конца и запмсать файл картинки.
Похоже озадачил...
Упрощаю задачу: Из бинарного файла вынуть кусок и записать его в новый файл
Типа этого:
Код работает, но данные записывает неверно
Упрощаю задачу: Из бинарного файла вынуть кусок и записать его в новый файл
Типа этого:
Код:
Код работает, но данные записывает неверно
you can read free manga Hunter X Hunter onlinehttp://www.MaxManga.comHunter X Hunter 280 Hunter X Hunter 281 Hunter X Hunter 282 Hunter X Hunter 283
iFile = FreeFile
Open sDatFile For Binary As iFile
lByteLen = LOF(iFile)
If lByteLen - 1 < lEnd Then
Close iFile
Exit Sub
End If
NewFile = FreeFile
Open sImageFile For Binary As NewFile
Dim sBuf as string
sBuf=Space(lEnd-lBegin+1)
Get iFile,lBegin,sBuf
Put NewFile, 1, sBuf
Close iFile
Close NewFile
Open sDatFile For Binary As iFile
lByteLen = LOF(iFile)
If lByteLen - 1 < lEnd Then
Close iFile
Exit Sub
End If
NewFile = FreeFile
Open sImageFile For Binary As NewFile
Dim sBuf as string
sBuf=Space(lEnd-lBegin+1)
Get iFile,lBegin,sBuf
Put NewFile, 1, sBuf
Close iFile
Close NewFile