296(5): 290 [sage] 03/05/25 17:23 ID:ll42N4KR(1/3) AAS
>>295
ソース拝見いたしました。
> ・For文で回してる処理が非常に遅い（scanlineのせい？）
マスクを作るプロシージャにて、パレットコードを String に変換している
為と思われます。

procedure TForm1.make_mask(sBmp:TBitmap);
var
i,j, x : Integer;
p : PDWORD;
mp : PBYTEArray;
begin
for i:=0 to sBmp.Height-1 do begin
p := sBmp.ScanLine[i]; // ビットマップ座標(0,i)のポインタ
mp := mask.ScanLine[i];
x :=0;
for j:=0 to sBmp.Width-1 do begin
if p^ = $00000000 then //if str_mask = '000' then
begin
mp[x]:=$ff; mp[x+1]:=$ff; mp[x+2]:=$ff; // B=255 , G=255 , R=255
end else begin
mp[x]:=$00; mp[x+1]:=$00; mp[x+2]:=$00; // B=0 , G=0 , R=0
end;
Inc(p); Inc(x,3);
end;
end;
end;
……と、いうのは如何でしょう？（ PDWORD よりも PDCHARArray の方が
わかりやすいでしょうか）

2(2): 名無しさん＠お腹いっぱい。 [] 01/11/20 18:48 ID:dEhL3Xq/(2/2) AAS
取り合えず初心者はDelphi6PersonalをDLしてきて、
Googleディレクトリの、
コンピュータ > プログラミング > Delphi
を見て回ろう。

DelphiX:
外部ﾘﾝｸ:www.yks.ne.jp
Quadruple D:
外部ﾘﾝｸ[html]:www-fu.magma.ne.jp