Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Кто-нибудь сохранял когда-нибудь каринку под своим Добавлено: 26.09.06 15:42  

Автор вопроса:  -АлександР- | Web-сайт: sham.clan.su
Как сохранить текст понятно: открываем txt и записываем туда из текстбокса...
bmp - кажется там

Вопрос: как сохранить содержимое picturebox'a в файл с авторским (например .lve) расширением так, чтобы помимо изображения в файле хранилась ещё и другая информация.... (в частности переечень объектов, из которых состоит это изображение)???

Ответить

  Ответы Всего ответов: 10  

Номер ответа: 1
Автор ответа:
 sne



Разработчик Offline Client

ICQ: 233286456 

Вопросов: 34
Ответов: 5445
 Web-сайт: hw.t-k.ru
 Профиль | | #1
Добавлено: 26.09.06 15:46
разработай свой формат данных, составь заголовок и в нем поля.

Ответить

Номер ответа: 2
Автор ответа:
 -АлександР-



Вопросов: 55
Ответов: 1008
 Web-сайт: sham.clan.su
 Профиль | | #2
Добавлено: 26.09.06 15:58
разработай свой формат данных, составь заголовок и в нем поля.
А как это сделать не подскжте?

Ответить

Номер ответа: 3
Автор ответа:
 vito



Разработчик Offline Client

Вопросов: 23
Ответов: 879
 Web-сайт: softvito.narod2.ru
 Профиль | | #3
Добавлено: 26.09.06 16:06
Если только на С.
На VB sne уникальные вещи делает.

Ответить

Номер ответа: 4
Автор ответа:
 Sur



ICQ: 1249088 

Вопросов: 10
Ответов: 304
 Web-сайт: sur.hotbox.ru/
 Профиль | | #4
Добавлено: 26.09.06 19:03
Если, после создания на диске твоего bmp, бинарно его открыть и дописать в конец свои данные, думаю никто от этого не пострадает.

Ответить

Номер ответа: 5
Автор ответа:
 vito



Разработчик Offline Client

Вопросов: 23
Ответов: 879
 Web-сайт: softvito.narod2.ru
 Профиль | | #5
Добавлено: 26.09.06 19:31
Sur

Просто и красиво.

Ответить

Номер ответа: 6
Автор ответа:
 Nj



ICQ: 223663115 

Вопросов: 21
Ответов: 285
 Профиль | | #6 Добавлено: 26.09.06 21:43
1. Любые данные можно записать в файл как обычный текст (т.е. как набор байтов, которые выглядят текстом). Т.е. хоть картинку, хоть музыку, хоть фильм.
Тебе нужно либо: разработай свой формат данных, т.е., например: считываешь методом Point цвета каждого пиксела
for x=1 to shirina
for y=1 to vysota
pix(x,y)=mypicture.point(x,y)
next x
next y
Вот у тебя получился массив со всей картинкой. Теперь такими же циклами его можно выгрузить в файл. Получится картинка по принципу БМП, только тяжелее - Получится битмап. А вот хитрость формата заключается в том, что ПНГ, ГИФ, ЖПЕГ умеют такой набор пиксвелов сжать и закодировать.
Либо: скачать пару библиотек, хотя бы тот же pkzip, которые сжимают данные в нужный формат и пользоваться нормальными форматами. Короче, идея проста - ты можешь эти пикселы хоть в шахматном формате, хоть с текстом, хоть по пять картинок в один файл - главное, чтобы твоя прога умела правильно прочесть эти данные и отрисовать картинку, извлечь текст и настройки и т.п.

Ответить

Номер ответа: 7
Автор ответа:
 -АлександР-



Вопросов: 55
Ответов: 1008
 Web-сайт: sham.clan.su
 Профиль | | #7
Добавлено: 26.09.06 22:44
for x=1 to shirina
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
sub Save()
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 точек)

Title of my file is here
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-сайт: sham.clan.su
 Профиль | | #9
Добавлено: 26.09.06 23:26
Спасибо большое, Nj!
Помог за пятнадцать минут мне в обоих вопросах
Таланатлив

Ответить

Номер ответа: 10
Автор ответа:
 Nj



ICQ: 223663115 

Вопросов: 21
Ответов: 285
 Профиль | | #10 Добавлено: 27.09.06 21:51
Рад был помочь! :)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам