|
ｿｽ@ｿｽｿｽｿｽFｿｽﾌ取得ｿｽﾆ描ｿｽｿｽﾌ搾ｿｽｿｽｿｽｿｽｿｽ
|
ｿｽ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
ｿｽｿｽx 2011/04/25(ｿｽｿｽ) 17:02:49
D6ｿｽpｿｽ[ｿｽ¥ｿｽiｿｽｿｽｿｽYｿｽﾅ趣ｿｽｿｽｿｽｿｽpｿｽﾌ画像ｿｽｿｽｿｽｿｽｿｽ¥ｿｽtｿｽgｿｽｿｽｿｽｿｽしｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽuｿｽaｿｽｿｽｿｽｿｽﾚ行ｿｽｿｽｿｽﾄフｿｽ@ｿｽCｿｽｿｽｿｽﾇみ搾ｿｽｿｽﾝとゑｿｽｿｽﾌ托ｿｽｿｽxｿｽﾌ費ｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽGDI+ｿｽﾌ簡便ゑｿｽｿｽﾈどに厄ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽ鞫懶ｿｽｿｽ]ｿｽﾈどで色ｿｽﾌ取得ｿｽAｿｽ`ｿｽｿｽﾅゑｿｽ4000ｿｽｿｽ3000ｿｽsｿｽNｿｽZｿｽｿｽｿｽｿｽｿｽxｿｽﾉなゑｿｽﾆ忘ｿｽ黷ｽｿｽｿｽｿｽｿｽﾉ描ｿｽ謔ｳｿｽｿｽｿｽﾙど低速ｿｽﾈのでどゑｿｽｿｽｿｽｿｽｿｽｿｽ迯ゑｿｽｿｽｿｽﾉなるかｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽRｿｽ[ｿｽhｿｽｿｽﾍ会ｿｽｿｽLｿｽﾌようｿｽﾈゑｿｽﾌでゑｿｽｿｽｿｽ
(1)Delphiｿｽｿｽgｿｽｿｽｿｽﾄ搾ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
(2)ｿｽ鞫懶ｿｽ¥ｿｽtｿｽgｿｽﾅは大きｿｽﾈ画像ｿｽﾅゑｿｽｿｽｿｽbｿｽﾅ会ｿｽ]ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍどのようｿｽﾈ鯉ｿｽｿｽｿｽAｿｽｿｽｿｽ驍｢ｿｽﾍ趣ｿｽ@ｿｽﾅ搾ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽHｿｽ@ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
cx:=w1 div 2;
cy:=h1 div 2;
for y:=0 to h1-1 do begin
for x:=0 to w1-1 do begin
tx:=round((x-cx)*cs-(y-cy)*ss+cx);
ty:=round((x-cx)*ss+(y-cy)*cs+cy);
form1.image2.canvas.pixels[tx,ty]:=bmp1.canvas.pixels[x,y];
form1.image2.canvas.pixels[tx,ty+1]:=bmp1.canvas.pixels[x,y];
end;
end;
tor 2011/04/25(ｿｽｿｽ) 19:05:10
Canvas.Pixelsｿｽｿｽ1ｿｽsｿｽNｿｽZｿｽｿｽｿｽｿｽｿｽﾂ読み擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾖ撰ｿｽｿｽﾅ費ｿｽｿｽﾉ遅ｿｽｿｽｿｽﾌゑｿｽ
ｿｽ鞫懶ｿｽﾌ難ｿｽeｿｽｿｽｿｽｿｽｿｽｿｽ閧ｽｿｽｿｽｿｽ鼾ｿｽｿｽTBitmap.ScanLineｿｽﾅ抵ｿｽｿｽﾚｿｽｿｽｿｽｿｽｿｽｿｽAｿｽNｿｽZｿｽXｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽﾊでゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽuｿｽｿｽｿｽﾌ画像ｿｽﾌ各ｿｽsｿｽNｿｽZｿｽｿｽｿｽｿｽAｿｽｿｽ]ｿｽｿｽﾌ搾ｿｽｿｽWｿｽﾉ移ゑｿｽｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽWｿｽﾉ重ｿｽﾋて描ｿｽ謔ｵｿｽｿｽｿｽｿｽAｿｽtｿｽﾉ会ｿｽｿｽｿｽ`ｿｽ謔ｳｿｽｿｽﾈゑｿｽｿｽuｿｽｿｽｿｽﾔ」ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽ閧ｵｿｽﾄ品ｿｽｿｽｿｽｿｽｿｽｿｽしｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽiｿｽｿｽｿｽｿｽｿｽ_ｿｽｿｽ2ｿｽずらしｿｽﾄ描ｿｽ謔ｵｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽAｿｽｿｽｿｽﾌ鯉ｿｽｿｽﾔを埋めようｿｽﾆゑｿｽｿｽﾄのゑｿｽｿｽﾆゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽj
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽlｿｽｿｽｿｽｿｽｿｽｿｽtｿｽﾉゑｿｽｿｽﾄ「ｿｽｿｽ]ｿｽｿｽﾌ各ｿｽsｿｽNｿｽZｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ画像ｿｽﾌどゑｿｽｿｽﾉゑｿｽｿｽｿｽｿｽ驍ｩｿｽvｿｽ調べて移ゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
// (tx, ty) ｿｽﾍ会ｿｽ]ｿｽｿｽﾌ画像ｿｽｿｽﾌ搾ｿｽｿｽWｿｽA(tw, th) ｿｽﾍ会ｿｽ]ｿｽｿｽﾌ大きｿｽｿｽ
for ty := 0 to th - 1 do begin
for tx := 0 to tw - 1 do begin
// ｿｽｿｽｿｽｿｽｿｽｿｽ(tx, ty)ｿｽｿｽｿｽｿｽ_ｿｽｿｽｿｽｿｽﾉ逆ｿｽｿｽｿｽｿｽｿｽﾉ会ｿｽ]ｿｽｿｽｿｽｿｽｿｽｿｽ(x, y)ｿｽｿｽｿｽｿｽﾟゑｿｽ
<ｿｽｿｽ]ｿｽｿｽﾌビｿｽbｿｽgｿｽ}ｿｽbｿｽv>.ScanLine[ty][tx] := <ｿｽｿｽｿｽﾌビｿｽbｿｽgｿｽ}ｿｽbｿｽv>.ScanLine[y][x];
end;
end;
ｿｽｿｽx 2011/04/26(ｿｽｿｽ) 17:14:28
torｿｽlｿｽAｿｽAｿｽhｿｽoｿｽCｿｽXｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽいｿｽｿｽﾆトｿｽｿｽｿｽuｿｽｿｽｿｽﾅ進ｿｽﾝまゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽﾙど搾ｿｽｿｽｿｽｿｽﾅ難ｿｽｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽDelphiｿｽﾌ威力に会ｿｽｿｽﾟて厄ｿｽｿｽﾍゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽﾓゑｿｽｿｽ轤ｲｿｽ答にゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽScanlineｿｽｿｽ^ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽ<ｿｽｿｽ]ｿｽｿｽﾌビｿｽbｿｽgｿｽ}ｿｽbｿｽv>.ScanLine[ty][tx] := <ｿｽｿｽｿｽﾌビｿｽbｿｽgｿｽ}ｿｽbｿｽv>.ScanLine[y][x];ｿｽﾌとゑｿｽｿｽｿｽﾅエｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅてゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBScanLineｿｽﾆゑｿｽｿｽｿｽｿｽLｿｽ[ｿｽｿｽｿｽ[ｿｽhｿｽｿｽWEBｿｽTｿｽCｿｽgｿｽ調べてみまゑｿｽｿｽｿｽｿｽｿｽ鞫懶ｿｽｿｽ]ｿｽﾌサｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで趣ｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽﾊりだｿｽﾆ鯉ｿｽｿｽﾔのでゑｿｽｿｽｿｽGｿｽﾆなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽﾅアｿｽhｿｽoｿｽCｿｽXｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉ「ｿｽlｿｽｿｽｿｽｿｽｿｽｿｽtｿｽﾉゑｿｽｿｽﾄ「ｿｽｿｽ]ｿｽｿｽﾌ各ｿｽsｿｽNｿｽZｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ画像ｿｽﾌどゑｿｽｿｽﾉゑｿｽｿｽｿｽｿｽ驍ｩｿｽvｿｽ調べて移ゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽvｿｽｿｽQｿｽlｿｽﾉ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽYｿｽｿｽﾉ会ｿｽ]ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽLｿｽvｿｽﾈアｿｽhｿｽoｿｽCｿｽXｿｽﾉ会ｿｽｿｽﾟて鯉ｿｽｿｽ¥ｿｽｿｽｿｽ繧ｰｿｽﾜゑｿｽｿｽB
PS
ｿｽQｿｽlｿｽﾜでに趣ｿｽｿｽ竄ｳｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽScanLine[tx][ty]ｿｽﾌようｿｽｿｽ2ｿｽｿｽｿｽｿｽｿｽIｿｽﾈ使ｿｽpｿｽﾍ可能ｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽHｿｽ@
tor 2011/04/26(ｿｽｿｽ) 20:06:24
> ｿｽQｿｽlｿｽﾜでに趣ｿｽｿｽ竄ｳｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽScanLine[tx][ty]ｿｽﾌようｿｽｿｽ2ｿｽｿｽｿｽｿｽｿｽIｿｽﾈ使ｿｽpｿｽﾍ可能ｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽHｿｽ@
ｿｽｿｽｿｽﾌ暦ｿｽﾍ端ｿｽﾜゑｿｽｿｽﾄ擾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽwｿｽｿｽｿｽvｿｽｿｽScanLineｿｽﾌとゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽ痰ｪｿｽﾚゑｿｽｿｽﾄゑｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ScanLine[y]ｿｽｿｽｿｽﾔゑｿｽｿｽﾌは型ｿｽﾈゑｿｽｿｽﾌポｿｽCｿｽｿｽｿｽ^ｿｽﾈので、ｿｽvｿｽfｿｽﾉアｿｽNｿｽZｿｽXｿｽｿｽｿｽｿｽﾉは型ｿｽtｿｽｿｽｿｽﾌポｿｽCｿｽｿｽｿｽ^ｿｽﾉ変奇ｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽrｿｽbｿｽgｿｽ}ｿｽbｿｽvｿｽﾌ形ｿｽｿｽ(PixelFormat)ｿｽﾉゑｿｽｿｽｿｽﾄ型ｿｽｿｽｿｽ痰､ｿｽﾌで抵ｿｽｿｽﾓゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
// ｿｽｿｽ: 32bitｿｽtｿｽHｿｽ[ｿｽ}ｿｽbｿｽgｿｽﾌ場合
// DWORDｿｽzｿｽｿｽｿｽwｿｽｿｽｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽ^ｿｽｿｽｿｽ`ｿｽｿｽｿｽｿｽ
type
TDWArray = array[0..0] of DWORD;
PDWArray = ^TDWArray;
var
pd: PDWArray;
...
pd := Bitmap.ScanLine[y];
pd[x] := value;
// PDWArray(Bitmap.ScanLine[y])^[x] ｿｽﾆ擾ｿｽｿｽｿｽｿｽﾄゑｿｽﾇゑｿｽ
ｿｽｿｽx 2011/04/27(ｿｽｿｽ) 10:59:59
torｿｽlｿｽAｿｽｿｽｿｽｿｽｿｽJｿｽﾈ撰ｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾜではつゑｿｽｿｽﾂゑｿｽImageｿｽﾆゑｿｽFormｿｽﾈどの鯉ｿｽｿｽｿｽｿｽｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽCanvasｿｽｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾌで搾ｿｽｿｽｿｽｿｽScanLineｿｽﾆゑｿｽｿｽｿｽﾉ関連ｿｽｿｽｿｽｿｽｿｽAｿｽﾌポｿｽCｿｽｿｽｿｽ^ｿｽ[ｿｽﾖ連ｿｽﾌ茨ｿｽｿｽｿｽｿｽﾍ擾ｿｽｿｽﾟてのゑｿｽｿｽﾆでゑｿｽｿｽｿｽｿｽBｿｽﾜゑｿｽｿｽｿｽｿｽ謔､ｿｽｿｽｿｽﾜねでゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが趣ｿｽ閧ｿｽｿｽｿｽｿｽｿｽﾍ目的ｿｽｿｽｿｽBｿｽｿｽｿｽﾅゑｿｽｿｽﾄ托ｿｽﾏ奇ｿｽｿｽﾓゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽﾝ搾ｿｽｿｽﾞとゑｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾆ奇ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽ@ｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾝ搾ｿｽｿｽﾞゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆなゑｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽﾜで。
ｿｽｿｽｿｽﾍ抵ｿｽｿｽｿｽｿｽﾌ午前 2011/04/27(ｿｽｿｽ) 14:24:35
ｿｽｿｽｿｽﾍ抵ｿｽｿｽｿｽｿｽﾌ午前
bbs.csdn.net
bbs.phpchina.com
