ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / искажение файла при сохранении
15 сообщений из 15, страница 1 из 1
искажение файла при сохранении
    #36589673
cynep kopoBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cynep kopoBka
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
    mfile = "d:\trash\16.jpg"
    mfile1 = "d:\trash\161.jpg"
    Open mfile For Binary As # 1 
        r = Input(FileLen(mfile), # 1 )
    Close # 1 
    Open mfile1 For Binary As # 1 
        Put # 1 , , r
    Close # 1

картинка "161.jpg" не открывается.
Размер файла увеличился на 8 байт, а занимаемое на диске место - такое же, как и у оригинала.

В чем ошибка?
...
Рейтинг: 0 / 0
21.04.2010, 11:55
| Ответить | Цитировать | Написать  
искажение файла при сохранении
    #36589683
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: plaintext
Dim r As ?????
...
Рейтинг: 0 / 0
21.04.2010, 11:58
| Ответить | Цитировать | Написать  
искажение файла при сохранении
    #36589693
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ЗЫ: для вышеописанной операции есть FileCopy Statement (впрочем, ваша задача может быть сложнее, чем вы изложили)
...
Рейтинг: 0 / 0
21.04.2010, 12:00
| Ответить | Цитировать | Написать  
искажение файла при сохранении
    #36589698
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
cynep kopoBkaРазмер файла увеличился на 8 байт, а занимаемое на диске место - такое же, как и у оригинала.

Занимаемое место кратно размеру кластера. Ориентируйтесь на длину файла.
...
Рейтинг: 0 / 0
21.04.2010, 12:00
| Ответить | Цитировать | Написать  
искажение файла при сохранении
    #36589754
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
У меня на небольшом файле и на файле в 1.5 МБ всё отработало нормально.
...
Рейтинг: 0 / 0
21.04.2010, 12:16
| Ответить | Цитировать | Написать  
искажение файла при сохранении
    #36589765
cynep kopoBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cynep kopoBka
Участник
Shocker.Pro,

Он сохранится позже. В другом месте. Просто я вырезал промежуточные операции.
Кстати, при просмотре обычным блокнотом лишние 8 байт оказались в самом начале нового файла. Из-за чего они?
...
Рейтинг: 0 / 0
21.04.2010, 12:19
| Ответить | Цитировать | Написать  
искажение файла при сохранении
    #36589768
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Hugo121У меня на небольшом файле и на файле в 1.5 МБ всё отработало нормально.

ты как при этом r определил?
...
Рейтинг: 0 / 0
21.04.2010, 12:19
| Ответить | Цитировать | Написать  
искажение файла при сохранении
    #36589771
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
cynep kopoBkaОн сохранится позже. В другом месте. Просто я вырезал промежуточные операции.
Кстати, при просмотре обычным блокнотом лишние 8 байт оказались в самом начале нового файла. Из-за чего они?

Повторяю вопрос - как вы определили r?
...
Рейтинг: 0 / 0
21.04.2010, 12:21
| Ответить | Цитировать | Написать  
искажение файла при сохранении
    #36589795
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Shocker.Pro,
я его не определял
...
Рейтинг: 0 / 0
21.04.2010, 12:26
| Ответить | Цитировать | Написать  
искажение файла при сохранении
    #36589802
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Очевидно никак, из-за чего в файл добавилась дефиниция не то Variant'а не то SAFEARRAY'я.
...
Рейтинг: 0 / 0
21.04.2010, 12:27
| Ответить | Цитировать | Написать  
искажение файла при сохранении
    #36589814
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
AntonariyОчевидно никак, из-за чего в файл добавилась дефиниция не то Variant'а не то SAFEARRAY'я.


cynep kopoBka - ну тогда Используйте Option Explicit!
...
Рейтинг: 0 / 0
21.04.2010, 12:30
| Ответить | Цитировать | Написать  
искажение файла при сохранении
    #36589815
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Так работает:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Option Explicit

Sub tt()
Dim r$
Dim mfile$, mfile1$
mfile = "C:\Foto\PICT4128.JPG"
    mfile1 = "C:\Foto\PICT4128-2.JPG"
    Open mfile For Binary As # 1 
        r = Input(FileLen(mfile), # 1 )
    Close # 1 
    Open mfile1 For Binary As # 1 
        Put # 1 , , r
    Close # 1 
End Sub
...
Рейтинг: 0 / 0
21.04.2010, 12:31
| Ответить | Цитировать | Написать  
искажение файла при сохранении
    #36589825
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
И кстати в этом варианте файлы идентичны. Если не определять, есть расхождение в 8 байт.
...
Рейтинг: 0 / 0
21.04.2010, 12:32
| Ответить | Цитировать | Написать  
искажение файла при сохранении
    #36589844
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
r - должен быть массив байт
...
Рейтинг: 0 / 0
21.04.2010, 12:37
| Ответить | Цитировать | Написать  
искажение файла при сохранении
    #36589878
cynep kopoBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cynep kopoBka
Участник
Спасибо, учту.
...
Рейтинг: 0 / 0
21.04.2010, 12:49
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / искажение файла при сохранении
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]