Запись в файл и... проблема.

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
DiSe
Обычный пользователь
Обычный пользователь
 
Сообщения: 97
Зарегистрирован: 30.06.2003 (Пн) 19:11

Запись в файл и... проблема.

Сообщение DiSe » 19.07.2003 (Сб) 12:25

Я записываю в файл изображение (каждый RGB цвет пиксела представляю в виде числа в 16-ной системе счисления). Но при открытии этого файла через Блокнот, я обнаруживаю в конце каждой строки непонятные FFFFFFFF. Что это? Ведь максимальный вожможный цвет пиксела это - FFFFFF.

MEMBER
Гугль
Гугль
 
Сообщения: 758
Зарегистрирован: 29.11.2002 (Пт) 12:02
Откуда: 10 этаж

Сообщение MEMBER » 19.07.2003 (Сб) 21:15

У мене голова болит, не знаете от чего?
Код, пожалуйста.
Господа! Пользуйтесь www.ya.ru
ЗЫ и www.planetsourcecode.com

DiSe
Обычный пользователь
Обычный пользователь
 
Сообщения: 97
Зарегистрирован: 30.06.2003 (Пн) 19:11

Сообщение DiSe » 19.07.2003 (Сб) 22:07

For i = 0 To PictureHeight
For j = 0 To PictureWidth
sColor = GetPixel(Bitmap.Shape.hdc, j, i)
'sColor = Bitmap.Shape.Point(j, i)
sHEXColor = RGBtoHex(sColor)
'''
If sColor = vbBlack Then sHEXColor = "!"
If sColor = vbRed Then sHEXColor = "R"
If sColor = vbGreen Then sHEXColor = "G"
If sColor = vbYellow Then sHEXColor = "Y"
If sColor = vbBlue Then sHEXColor = "L"
If sColor = vbMagenta Then sHEXColor = "M"
If sColor = vbCyan Then sHEXColor = "S"
If sColor = vbWhite Then sHEXColor = "W"
If sHEXColor <> "FFFFFFFF" Then sData = sData & sHEXColor
'''
Next
Print #1, sData
sData = ""
Next
Close #1

DiSe
Обычный пользователь
Обычный пользователь
 
Сообщения: 97
Зарегистрирован: 30.06.2003 (Пн) 19:11

Сообщение DiSe » 19.07.2003 (Сб) 22:09

Строка, удаляющая непонятный FFFFFFFF:
If sHEXColor <> "FFFFFFFF" Then sData = sData & sHEXColor


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot, Google-бот и гости: 6

    TopList