как сохраить рисунок с канвы?

← →
Locke © (2006-04-10 10:48) [0]

Помогите сабж, зарание спасибо.

← →
Locke © (2006-04-10 11:24) [1]

ап

← →
Poirot © (2006-04-10 11:30) [2]

TBitmap и у него есть TCanvas :)
+ GetWindowDC

← →
Gydvin © (2006-04-10 11:36) [3]

procedure TForm1.Button1Click(Sender: TObject);
var
bitmap:tbitmap;
begin
canvas.Brush.Color:=clred;
canvas.Rectangle(0,0,100,100);
bitmap:=tbitmap.Create;
bitmap.Width:=100;
bitmap.Height:=100;
bitblt (bitmap.Canvas.Handle,0,0,100,100,canvas.Handle,0,0,SRCCOPY);
bitmap.SaveToFile("test.bmp");
bitmap.Free;

end;

← →
Der Nechk@ssoff © (2006-04-10 11:43) [4]

if savepicturedialog1.Execute then Image1.Picture.SaveToFile(SavePictureDialog1.FileName);
Я пользуюсь и реально сейвит.

← →
Gydvin © (2006-04-10 11:47) [5]

Der Nechk@ssoff © (10.04.06 11:43) [4]

а если это не Timage, а скажем канва формы

← →
Der Nechk@ssoff © (2006-04-10 11:57) [6]

> Gydvin © (10.04.06 11:47) [5]

Тогда извеняюсь.

← →
balepa © (2006-04-10 12:09) [7]

> Der Nechk@ssoff © (10.04.06 11:57) [6]
> Тогда извеняюсь

ИзвИняюсь

← →
Джо © (2006-04-10 12:13) [8]

> [7] balepa © (10.04.06 12:09)
> ИзвИняюсь

Прошу прощения ;)

← →
Locke © (2006-04-10 12:33) [9]

я с Пэинт бобка пытаюсь сохранение сделать
это как-нибудь проще можно осуществить?

← →
Gydvin © (2006-04-10 12:45) [10]

Тоже самое

procedure TForm1.Button1Click(Sender: TObject); var bitmap:tbitmap; w,h:integer; begin w:=paintbox1.Width; h:=paintbox1.Heigh; bitmap:=tbitmap.Create; bitmap.Width:=w; bitmap.Height:=h; bitblt (bitmap.Canvas.Handle,0,0,w,h,paintbox1.canvas.Handle,0,0,SRCCOPY); bitmap.SaveToFile("test.bmp"); bitmap.Free; end;

← →
Locke © (2006-04-10 12:48) [11]

разьясните пожалуйста Bitblt() и что в скобках именно?

← →
Locke © (2006-04-10 12:58) [12]

он ошибку выдает

bitmap:=tbitmap.Create; bitmap.Width:=w; bitmap.Height:=h

на вот этом вот

← →
Джо © (2006-04-10 12:59) [13]

> [12] Locke © (10.04.06 12:58)
> он ошибку выдает
>
> bitmap:=tbitmap.Create;
> bitmap.Width:=w;
> bitmap.Height:=h
>
> на вот этом вот

Вместо этих букв подставь ширину/высоту картинки.
За подробностями по BitBlt - нажми F1.

← →
Gydvin © (2006-04-10 12:59) [14]

Разъясняю

Это WinApi функци копирования с одной канвы на другую.
Где bitmap.Canvas приемник, (0,0,w,h) это координаты куда врисовать, paintbox1.canvas - это источник (0,0) это координаты от которых надо начинать копировать изображение, SRCCOPY с этим разбирайся сам. Соответственно про хендлы я рассказывать не буду.

А вообще читай WinApi и прибудет с тобой сила

← →
Locke © (2006-04-10 13:05) [15]

спасибо Вейдер ;)

← →
Gydvin © (2006-04-10 13:06) [16]

w:=paintbox1.Width;
h:=paintbox1.Heigh;

TO

w:=paintbox1.ClientWidth; h:=paintbox1.ClientHeight;

ЗЫ. Я и забыл как в паинтбоксе, давно им непользовался

← →
Locke © (2006-04-10 13:15) [17]

w:=PaintBox1.Width; h:=PaintBox1.Height; bitmap1.Width:=w; // Вот тут ошибку выдает когда сохранить пытаюсь bitmap1.Height:=h; bitblt(bitmap1.Canvas.Handle,0,0,w,h,paintbox1.canvas.Handle,0,0,SRCCOPY); bitmap1.SaveToFile("c:\1.bmp");

← →
Gydvin © (2006-04-10 13:17) [18]

какую, у меня ничего не выдает

← →
Locke © (2006-04-10 13:18) [19]

w:=PaintBox1.ClientWidth; h:=PaintBox1.ClientHeight; bitmap1.Width:=w; // Опять тут bitmap1.Height:=h; bitblt(bitmap1.Canvas.Handle,0,0,w,h,paintbox1.canvas.Handle,0,0,SRCCOPY); bitmap1.SaveToFile("c:\1.bmp");

← →
Gydvin © (2006-04-10 13:20) [20]

......

bitmap:=tbitmap.Create;
.....

bitmap.Free;

← →
Locke © (2006-04-10 13:21) [21]

Debugger exception notification
access violation at addess ... in module "s.exe" .read of address ooooooo.

← →
Locke © (2006-04-10 13:22) [22]

во create не поставил

... а зачем он?
можно через Bitmap1.Create ?

Давай целиком код обработчика от

Procedure

до

END;

нет нельзя

Не пойму это, что прикол или развод, или и то и то

а почему чем различаются их функции?

не ну точно развод, а я повелся.

← →
Ашкые (2006-04-10 13:29) [28]

а почему чем различаются их функции?

← →
Ашкые (2006-04-10 13:36) [29]

ап

почему если начинающий сразу не догоняет , значит подкол?
все заработало

bitmap:=tbitmap.Create;
когда поставил

только не понимаю почему

Bitmap1.Create что это делает и что bitmap:=tbitmap.Create

???

Потому что так вызывается зкземпляр класса.

mybitmap:=tbitmap.create;
mystringlist:=TstringList.create;
mywmf:=Tmetafile.create;
myjpg:=tjpegimage.create;
myedit:=tedit.create;
myform:=tform.create;

И я сомневаюсь, что кто либо будет давать всю теорию, нуна читать умные книжки, если задаешься подобными вопросами (а ими впринципе следует задаваться), но только не здесь. а посему прими это, как данность

Понятно , спасибо

как сохраить рисунок с канвы? Найти похожие ветки