Конференция VBStreets

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

Local Buffer, sFile AS STRING
sFile = "image.bmp"
IF ISFILE(sFile) THEN
    OPEN sFile FOR BINARY AS #1
    Buffer = STRING$(LOF(1),"0")
    GET #1, 1, Buffer
   CLOSE #1
END IF

? Buffer

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

GET #1, Lof(1), Buffer

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

Local Buffer() as Byte

Open sFile For Binary As #1
   Redim Buffer(LOF(1)-1)
   Get #1, 1, Buffer
Close #1

jangle писал(а):GET #1, Lof(1), Buffer

pronto писал(а):Local Buffer() as Byte

Open sFile For Binary As #1
Redim Buffer(LOF(1)-1)
Get #1, 1, Buffer
Close #1

Kroos писал(а):

jangle писал(а):GET #1, Lof(1), Buffer

нет, это Binary, тут задаем не кол-во байт, а стартовую позицию. я и такой по смыслу вариант тоже пробовал, не читает, и с GET$ тоже облом. никак не читает, не пойму почему

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

    Get$ #1, Lof(1), Buffer   

Kroos писал(а):а вообще корректно так читать Binary в String ?

Kroos писал(а):мм да, проверил длину Buffer, она равна размеру файла... видимо в виде обычной строки просто некорректно отображалось, обрезает на нулевых байтах... а вообще корректно так читать Binary в String ?

jangle писал(а):BSTR строка это просто буфер памяти, в нем можно хранить все что угодно

Хакер писал(а):

jangle писал(а):BSTR строка это просто буфер памяти, в нем можно хранить все что угодно

За хранение там «чего угодно» надо бить кувалдой по темечку.

jangle писал(а):это еще почему?

Хакер писал(а):

jangle писал(а):это еще почему?

Уже обсуждалось тут: viewtopic.php?f=1&t=45649&hilit=bstr&start=0
Но вряд ли до тебя дойдёт, ведь до тебя недоходило, почему плохо на кнопку «Выход» садить вызов ExitProcess.

jangle писал(а):Хамло высокомерное

NashRus писал(а):только не надо бана. он хороший

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

F = FREEFILE
OPEN file FOR BINARY AS #F
L = LOF(#F)
S = SPACE$(L)
GET$ #F, L, S
CLOSE #F