Страница: 1 |
Страница: 1 |
Вопрос: Кто-нибудь сохранял когда-нибудь каринку под своим
Добавлено: 26.09.06 15:42
Автор вопроса: -АлександР- | Web-сайт:
Как сохранить текст понятно: открываем txt и записываем туда из текстбокса...
bmp - кажется там
Вопрос: как сохранить содержимое picturebox'a в файл с авторским (например .lve) расширением так, чтобы помимо изображения в файле хранилась ещё и другая информация.... (в частности переечень объектов, из которых состоит это изображение)???
Ответы
Всего ответов: 10
Номер ответа: 1
Автор ответа:
sne
Разработчик Offline Client
ICQ: 233286456
Вопросов: 34
Ответов: 5445
Web-сайт:
Профиль | | #1
Добавлено: 26.09.06 15:46
разработай свой формат данных, составь заголовок и в нем поля.
Номер ответа: 2
Автор ответа:
-АлександР-
Вопросов: 55
Ответов: 1008
Web-сайт:
Профиль | | #2
Добавлено: 26.09.06 15:58
Номер ответа: 3
Автор ответа:
vito
Разработчик Offline Client
Вопросов: 23
Ответов: 879
Web-сайт:
Профиль | | #3
Добавлено: 26.09.06 16:06
Если только на С.
На VB sne уникальные вещи делает.
Номер ответа: 4
Автор ответа:
Sur
ICQ: 1249088
Вопросов: 10
Ответов: 304
Web-сайт:
Профиль | | #4
Добавлено: 26.09.06 19:03
Если, после создания на диске твоего bmp, бинарно его открыть и дописать в конец свои данные, думаю никто от этого не пострадает.
Номер ответа: 5
Автор ответа:
vito
Разработчик Offline Client
Вопросов: 23
Ответов: 879
Web-сайт:
Профиль | | #5
Добавлено: 26.09.06 19:31
Sur
Просто и красиво.
Номер ответа: 6
Автор ответа:
Nj
ICQ: 223663115
Вопросов: 21
Ответов: 285
Профиль | | #6
Добавлено: 26.09.06 21:43
1. Любые данные можно записать в файл как обычный текст (т.е. как набор байтов, которые выглядят текстом). Т.е. хоть картинку, хоть музыку, хоть фильм.
Тебе нужно либо: разработай свой формат данных, т.е., например: считываешь методом Point цвета каждого пиксела
for y=1 to vysota
pix(x,y)=mypicture.point(x,y)
next x
next y
Либо: скачать пару библиотек, хотя бы тот же pkzip, которые сжимают данные в нужный формат и пользоваться нормальными форматами. Короче, идея проста - ты можешь эти пикселы хоть в шахматном формате, хоть с текстом, хоть по пять картинок в один файл - главное, чтобы твоя прога умела правильно прочесть эти данные и отрисовать картинку, извлечь текст и настройки и т.п.
Номер ответа: 7
Автор ответа:
-АлександР-
Вопросов: 55
Ответов: 1008
Web-сайт:
Профиль | | #7
Добавлено: 26.09.06 22:44
for y=1 to vysota
pix(x,y)=mypicture.point(x,y)
next x
next y
Номер ответа: 8
Автор ответа:
Nj
ICQ: 223663115
Вопросов: 21
Ответов: 285
Профиль | | #8
Добавлено: 26.09.06 23:09
Dim X as integer,Y as integer,F as integer
F=FreeFile
open "SomeFile.lve" for output as #F
print #f,"Title of my file is here"
print #f,"Author Name (my) is here"
write #f, mypicture.height,mypicture.width
for x=1 to mypicture.width 'не помню, возможно mypicture.width -1, и со вторым тоже
for y=1 to mypicture.height
Write #f, mypicture.point(x,y)
next x
next y
print #f,"Comment: My file format very smart and very small-size, isn't it?"
close #f
end sub
sub Load()
Dim X as integer,Y as integer,F as integer
Dim X1 as integer,Y1 as integer, Px as long
F=FreeFile
open "SomeFile.lve" for input as #F
line input #f, strTitle
line input #f, strAuthor
input #f, x1,y1
for x=1 to x1
for y=1 to y1
input #f, px
mypicture.pset(x,y),px
next x
next y
line input #f, strComment
close #f
end sub
Разумеется имя файла, заголовок, автор и комментарий могут задаваться\сохраняться в переменную. Это только пример.
Файл будет выглядеть примерно так (Скажем 5 на 5 точек)
Author Name (my) is here
5,5
123124255,112113114,123124255,112113114,123124255,123124255,112113114,123124255,112113114,123124255,123124255,112113114,123124255,112113114,123124255,123124255,112113114,123124255,112113114,123124255,123124255,112113114,123124255,112113114,123124255
Comment: My file format very smart and very small-size, isn't it?
Номер ответа: 9
Автор ответа:
-АлександР-
Вопросов: 55
Ответов: 1008
Web-сайт:
Профиль | | #9
Добавлено: 26.09.06 23:26
Спасибо большое, Nj!
Помог за пятнадцать минут мне в обоих вопросах
Таланатлив
Номер ответа: 10
Автор ответа:
Nj
ICQ: 223663115
Вопросов: 21
Ответов: 285
Профиль | | #10
Добавлено: 27.09.06 21:51
Рад был помочь!