Сохранить в BMP

[Debugger]

Есть некий Image. В нём картинка. Я рисую на этой картинке Line' ами и пр. Как сохранить ИЗМЕНЁННУЮ КАРТИНКУ?

[tyomitch]

SavePicture(Image, FileName)

[Debugger]

Ага, я такой тупой??? Нет? этот метод НЕ СОХРАНЯЕТ LINE'ОВ И ПР.. Он сохраняет исходную картинку!

[tyomitch]

Вместо кипятиться, передавай в SavePicture свойство Image.
Ты, не иначе, передаёшь Picture.

[Debugger]

Гении не вывелись.
Не работает.
Можно примерчик?

[alibek]

Есть некий Image. В нём картинка. Я рисую на этой картинке Line' ами и пр. Как сохранить ИЗМЕНЁННУЮ КАРТИНКУ?

Если бы было понимание, что ты НЕ РИСУЕШЬ на этой картинке, а РАЗМЕЩАЕШЬ ПОВЕРХ НЕЕ другие элементы управления, вопроса бы не было.
Либо вместо Image используй PictureBox и РИСУЙ линии на ней, либо с помощью BitBlt снимай растр с формы, с фрагмента, совпадающего с Image.

[Debugger]

Какие элементы управления?
Что, код

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


img.Line(0,0)-(100,100)


рисует поверх?
(я самоучка и задаю вопрорсы...)



А кто-нибудь скажет, как пользоваться itBlt?

[tyomitch]

Можно примерчик?

Да на удовольствие.

[alibek]

Debugger, значит это у тебя не Image.

[Debugger]

Спасибо! Кажись, работает... И с PictureBox работает.. Токо AutoRedraw зачем-то надо в True

[tyomitch]

Видишь, зря кипятился.

[Debugger]

Не, чайника не было. Ремонт

[VB-constructor]

Очень подходящее название темы, так что даже новую создавать не хочется...
У меня аналогичная проблема, но у меня именно - line'ы на форме, т.е элементы управления и это как раз про меня:

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

Если бы было понимание, что ты НЕ РИСУЕШЬ на этой картинке, а РАЗМЕЩАЕШЬ ПОВЕРХ НЕЕ другие элементы управления, вопроса бы не было.
Либо вместо Image используй PictureBox и РИСУЙ линии на ней, либо с помощью BitBlt снимай растр с формы, с фрагмента, совпадающего с Image.

Я использую savepicture picturebox1.Image, FileName - не работает
Подскажите пожалста, как рисовать "рисовать линии на ней"?
Заранее спасибо!

[alibek]

PictureBox1.Line ...

[Конь]

Еще вопрос, который я давно хотел задать. Для чего нужно свойство AutoRedraw?

[alibek]

Чтобы не обновлять изображение вручную. Когда AutoRedraw=True, все изменения, вносимые в картинку, автоматически дублируются в буфере. И при необходимости восстанавливаются из него, когда надо перерисовать DC.

[VB-constructor]

PictureBox1.Line ...

Он пишет, что аргнумент не оптимальный. И выделяет line

[alibek]

Ну разумеется, это был не готовый код, а направление.
Открой справку, там описано, какие аргументы должны быть у метода, и сколько их. Ну и описан смысл каждого аргумента. Простейший вариант: .Line (0,0)-(100,100),0

[VB-constructor]

Ну alibek, я ж писал:

У меня аналогичная проблема, но у меня именно - line'ы на форме, т.е элементы управления и это как раз про меня:

Причем тут line(0,0)? ... У меня именно line-контролы.
Что касается line(0,...)... так здесь - и picture1.image сохраняет, которую в этом вопросе до меня уже раскрутили

[Kovu]

Подскажите пожалста, как рисовать "рисовать линии на ней"?

Собсно Алибек и дал ответ на твой вопрос. М?

[VB-constructor]

Собсно Алибек и дал ответ на твой вопрос. М?

Ребят, я не понимаю, вы что путаете

Line-контрол - это элемент управления.
line-метод - это графический метод, который только рисует.
Мне не нужен метод, а нужно, чтобы был виднен на bmp элемент управления LIne

Я ясно выразился?

[Kovu]

Тише, тише. Так катит?

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

Private Declare Function BitBlt Lib "gdi32.dll" ( _
     ByVal hDestDC As Long, _
     ByVal x As Long, _
     ByVal y As Long, _
     ByVal nWidth As Long, _
     ByVal nHeight As Long, _
     ByVal hSrcDC As Long, _
     ByVal xSrc As Long, _
     ByVal ySrc As Long, _
     ByVal dwRop As Long) As Long




Private Sub Command1_Click()
BitBlt Picture2.hDC, 0, 0, 500, 300, Me.hDC, 0, 0, vbSrcCopy
Picture2.Refresh
SavePicture Picture2.Image, "C:\12345.bmp"
End Sub

Private Sub Form_Load()
Picture2.AutoRedraw = True
Picture2.Visible = False

End Sub


[VB-constructor]

Тише, тише. Так катит?

Да, катит, спасибо!

P.S Извини за шум

[VB-constructor]

А рисовать поверх рисунка Line-контролами всё таки нельзя?

Я по-видимому alibeka не так понял: он наверно подразумевал, что для каждого элемента line соответствует метод line, который переносит изображение на picture типа line(line1.x1,line1.y1)-(line1.x2,line1.y2)? Так, alibek?

Я понял, что пытаешься объяснить, как можно сохранить другим способом savepicture(picture1.line, путь) вместо picture1.image. Правда абсурд?

[Kovu]

VB-constructor
Ты спросил как рисовать линиями. Линии- это такая штука, которая рисуется именно методом Line =). А то что хочешь ты- так кидаешь на пикчербокс контрол линия и изменяешь его св-ва X1,Y1,X2,Y2 =)

[Debugger]

Возможно - выход - пройтись по всем контролам, найту, у которых Parent = Ваш Пиктюр Бокс и которые TypeOf Line , тогда порисовываем через X1,Y1,X2,Y2 линию на вышеп п-боксе и сохраняем?
Вроде, объяснил правильно, но косо.