ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

ｿｽjｿｽｿｽ 2006/08/18(ｿｽｿｽ) 19:15:17

BitBltｿｽｿｽｿｽｿｽｿｽﾊの一部ｿｽｿｽ謫ｾｿｽｿｽｿｽATBitmapｿｽﾉまで受け渡ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽFｿｽｿｽｿｽｿｽ謔､ｿｽｿｽTBitmap.PixelFormat := pf8bit;ｿｽﾌようｿｽﾉゑｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽsｿｽｿｽｿｽﾉ「ｿｽｿｽｿｽﾌコｿｽ}ｿｽｿｽｿｽhｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽﾌに十ｿｽｿｽｿｽﾈ記ｿｽｿｽｿｽ謔ｪｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽvｿｽｿｽ
ｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽﾜゑｿｽｿｽBPixelFormatｿｽｿｽgｿｽｿｽﾈゑｿｽｿｽｿｽﾎ厄ｿｽｿｽﾈゑｿｽｿｽﾅ鯉ｿｽﾜでゑｿｽｿｽｿｽｿｽﾌゑｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽFｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで。

TBitmapｿｽﾉ受け渡ｿｽｿｽｿｽｿｽｿｽAHBitmapｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽPixelFormatｿｽｿｽｿｽgｿｽpｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
PixelFormatｿｽｿｽgｿｽずｿｽﾆゑｿｽｿｽﾄゑｿｽBitBltｿｽｿｽｿｽｿｽTBitmapｿｽﾉ趣ｿｽｿｽｿｽﾟ抵ｿｽｿｽﾅ鯉ｿｽｿｽFｿｽｿｽｿｽｿｽﾉゑｿｽ
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽHｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾎゑｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽﾉゑｿｽ 2006/08/18(ｿｽｿｽ) 22:36:30

>TBitmapｿｽﾉ受け渡ｿｽｿｽｿｽｿｽｿｽAHBitmapｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽﾌ意厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾆりあｿｽｿｽｿｽｿｽｿｽﾅ擾ｿｽｿｽRｿｽ[ｿｽhｿｽﾅ難ｿｽｿｽｿｽmｿｽFｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp :TBitmap;
  bmp2:TBitmap;
begin
  bmp:=TBitmap.Create;
  bmp.LoadFromFile('test.bmp');

  bmp2:=TBitmap.Create;
  bmp2.Width :=50;
  bmp2.Height:=50;
  BitBlt(bmp2.Canvas.Handle,0,0,50,50,bmp.Canvas.Handle,0,0,SRCCOPY);
  bmp2.PixelFormat:=pf1bit; //pf8bit
  bmp2.SaveToFile('aaa.bmp');
  bmp2.Free;

  bmp.Free;
end;

ｿｽjｿｽｿｽ 2006/08/19(ｿｽy) 01:28:14

ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ鞫懶ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽﾅはなゑｿｽｿｽｿｽﾊゑｿｽｿｽｿｽｿｽｿｽﾛに取得ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽ
HBitmapｿｽｿｽgｿｽｿｽｿｽじゑｿｽﾈゑｿｽｿｽｿｽｿｽﾈ？ｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾈゑｿｽｿｽ
ｿｽｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽｿｽｿｽ[ｿｽｿｽ 2006/08/19(ｿｽy) 03:03:08

BitBlt() ｿｽﾅデｿｽXｿｽNｿｽgｿｽbｿｽvｿｽｿｽｿｽｿｽ TBitmap ｿｽﾉ写ゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ
HBitmap ｿｽﾍ関係ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB

ｿｽudelphi ｿｽLｿｽｿｽｿｽvｿｽ`ｿｽｿｽｿｽvｿｽﾅ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽ見つゑｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽ痰ｦｿｽｿｽ

http://www.hi-ho.ne.jp/tadokoro/menu/menu8_3.html

ｿｽｿｽﾉゑｿｽ 2006/08/19(ｿｽy) 04:43:54

HBitmapｿｽﾍ茨ｿｽﾊ的ｿｽﾈ表ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽｿｽｿｽ轤ｭｿｽfｿｽoｿｽCｿｽXｿｽRｿｽｿｽｿｽeｿｽLｿｽXｿｽgｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽｿｽｿｽﾆは鯉ｿｽｿｽｿｽｿｽﾂゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾇ。
ｿｽrｿｽbｿｽgｿｽ}ｿｽbｿｽvｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽﾆの違いｿｽﾍ抵ｿｽｿｽﾗて托ｿｽｿｽﾍなゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/jpgdi/html/_win32_bitblt.asp


procedure TForm1.Button2Click(Sender: TObject);
var
  bmp:Tbitmap;
  dc:hdc;
begin
  bmp:=Tbitmap.Create;
  bmp.width :=100;
  bmp.height:=100;
  dc:=getdc(0);
  BitBlt(bmp.canvas.handle,0,0,bmp.width,bmp.height,dc,0,0,srccopy);
  releasedc(0,dc);

  bmp.PixelFormat:=pf1bit;
  bmp.SaveToFile('bbb.bmp');
  bmp.free;
end;

ｿｽjｿｽｿｽ 2006/08/19(ｿｽy) 13:50:08

ｿｽｿｽﾉゃさｿｽｿｽAｿｽｿｽｿｽ[ｿｽﾆゑｿｽｿｽｿｽ@ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ
HBitmapｿｽﾖ係ｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽﾋ。
ｿｽｿｽｿｽｿｽｿｽﾔ前ｿｽﾌソｿｽ[ｿｽXｿｽﾈゑｿｽﾅどゑｿｽｿｽｿｽｿｽｿｽﾄ搾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽYｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽ
ｿｽﾚ的ｿｽｿｽBｿｽｿｽｿｽｿｽｿｽ驍ｽｿｽﾟにゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌサｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽｿｽqｿｽｿｽｿｽqｿｽｿｽｿｽｿｽ
ｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽOｿｽOｿｽG
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

var
bit: tbitmap;
Bitmap: HBitmap;
D, DC: HDC;

begin
DC:=CreateDC('DISPLAY', nil, nil, nil);
d:=CreateCompatibleDC(dc);
Bitmap:=CreateCompatibleBitmap(DC, xx, yx);
SelectObject(D,Bitmap);
BitBlt(D, 0, 0, xx, yx, dc,widsi,heisi, srccopy); 
bit:=TBitmap.Create;
Bit.Width:=100;
Bit.Height:=100;
Bit.Handle:=Bitmap;

ｿｽｿｽLｿｽｿｽｿｽCｿｽｿｽｿｽOｿｽﾌゑｿｽﾂでゑｿｽｿｽB
> BitBlt(bmp2.Canvas.Handle,0,0,50,50,bmp.Canvas.Handle,0,0,SRCCOPY);
ｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽﾍ以前ｿｽﾉわかｿｽｿｽｿｽﾄゑｿｽｿｽﾍゑｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾚ渡ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽLｿｽｿｽｿｽｿｽ
ｿｽcｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽOｿｽOｿｽG
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽOｿｽOｿｽｿｽｿｽｿｽlｿｽﾉ奇ｿｽｿｽﾓゑｿｽｿｽﾜゑｿｽｿｽOｿｽO

ｿｽjｿｽｿｽ 2006/08/19(ｿｽy) 13:50:54

ｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽYｿｽｿｽﾄまゑｿｽｿｽｿｽ^^ｿｽG

Created by board of various Programming Library.