Запись exe'шника

[Keen]

Предположим, в переменной содержиться код екзешника или иконки. При записи этой переменной в новый exe-файл программа не запускается, хотя эта новая программа и оригинал (откуда был нагло выдран код) имеет абсолютно одинаковое строение и длинну. В чем дело?

[MOV]

одинаковое строение и длинну

По моему, только один вариант, хоть ты тресни:
1. Длина разная, (может ты скинул массив начиная не с нулевого элемента или наоборот с нулевого, а записывал с первого и т.д. в общем смотри длину оригинала и копии именно в БАЙТАХ разница даже в один байт - в основном, пипец ).

[Keen]

одинаковое строение и длинну

По моему, только один вариант, хоть ты тресни:
1. Длина разная, (может ты скинул массив начиная не с нулевого элемента или наоборот с нулевого, а записывал с первого и т.д. в общем смотри длину оригинала и копии именно в БАЙТАХ разница даже в один байт - в основном, пипец ).

Массив? Массивы здесь нипричем. Пользуюсь binary - длина отличается на байт 10, однако при просмотре в блокноте файлы одинаковы. Даже расположение символов совпадают в точности В байтах и смотрю, кстати

[MOV]

длина отличается на байт 10

ты издеваешься? Ну сам подумай, если ты говоришь, что длина все-таки отличается, так о чем говорить? Воткни хоть пример кода.

binary

понятно, что binary хотя есть и другие варианты, конечно, но на физическом уровне все равно в итоге binary .

[Keen]

длина отличается на байт 10

ты издеваешься? Ну сам подумай, если ты говоришь, что длина все-таки отличается, так о чем говорить? Воткни хоть пример кода.

binary

понятно, что binary хотя есть и другие варианты, конечно, но на физическом уровне все равно в итоге binary .

Да я просто поработал с кодом, в результате стало отлияаться а 10 байт , хотя до этого в точности сопвадало, но не работало. А код скоро предоставлю...[/code]

[Tarik]

А какого типа переменная, в которой содержится код? Уж не String ли?

[Keen]

А какого типа переменная, в которой содержится код? Уж не String ли?

Гы... Да, а что?

[Approximator]

Предположим, в переменной содержиться код екзешника или иконки. При записи этой переменной в новый exe-файл программа не запускается, хотя эта новая программа и оригинал (откуда был нагло выдран код) имеет абсолютно одинаковое строение и длинну. В чем дело?

Всё будет работать, если делать правильно, например, вот так:

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

Dim lFileLength as Long, lData as String
Open FilePath For Binary as #FileNumb
lFileLength=LOF(FileNumb)
lData=String(lFileLength," ")
Get #FileNumb, 1, lData
Open NewFilePath For Binary as #NewFileNumb
Put #NewFileNumb, 1, lData
Close

[Tarik]

Для хранения такого рода данных всё же лучше использовать массив байт

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

Dim mByte() as Byte


[Keen]

Для хранения такого рода данных всё же лучше использовать массив байт

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

Dim mByte() as Byte


Подскажи, а как в него записывать?!

Во всяком случае, всем спасибо, проблему я уже решил в тот де день

[SeRRg]

Сначала надо сделать этому массиву ReDim (откуда и докуда нужно записывать)

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

    Open Text1.Text For Binary As #3
    ReDim OriginalArray(0 To LOF(3) - 1)
    Get #3, , OriginalArray()
    Close #3


[pitbull]

можешь посмотреть пример чтения и записи файлов в бинарном режиме в этом примере: http://www.realvb.narod.ru/huffman.zip. Смотрив коде формы.

[Keen]

Всем спасибо! Вопрос по теме больше нет