1

私はデルフィで働いています。私はbmp.ScanLine[]自分のコードで使用しています。私のコードは次のとおりです。

   bmp := TBitmap.Create;
   bmp.Height := imgMain.Height;
   bmp.Width := imgMain.Width;
   for i := 0 to imgMain.Height - 1 do begin
      prgb := bmp.ScanLine[i];
      p1 := imgMain.ScanLine[i];
      for j := 0 to imgMain.Width - 1 do begin
         //Some code
      end;
   end;

ここで、imgMain は TBitmap 型です。私の問題は、このコードを実行すると、行に時間がかかりすぎることです

prgb := bmp.ScanLine[i];
p1 := imgMain.ScanLine[i];

どこが間違っているのか教えてください。

4

1 に答える 1

2

うーん、何かを得ることができます（行ピッチの紹介、以下を参照）が、それはそれほど多くはありません。おそらく、forループをwhileループに変更して、ポインターをインクリメントし、最後のピクセルのポインター値と比較します。

   // from memory, might need an additional typecast here or there.

   // will typically be negative
   scanline0:=imga.scanline[0];
   rowpitchimga:=integer(imga.scanline[1])-integer(scanline0);  // bytes to jump row.

   prgb1 :=scanline0;
   for i:=0 to imgmain.height-1;
     begin
       prgbend:=prgb1;
       inc(prgbend,width);  // if prgbend, it will be with sizeof(prgb1^)
       while(prgb1<prbend) do // smaller then, since prgb1[] is 0 based.
         begin
           // do your thing
           inc(prgb1);
         end;      
       prgb1:=prgbend;
       inc(pointer(prgb1),rowpitch-width*sizeof(prgb1^));  // skip alignmentbytes
       inc(pointer(prgbend),rowpitch);
     end;

ビットマップの回転も参照してください。画像を高速で回転させるためにこのようなことを行うルーチンのコード。

bmpを常に割り当てることもコストがかかる可能性があります。特に、bmpが大きい場合は、プールを使用して繰り返し割り当てを回避します。

于 2010-08-17T08:30:25.597 に答える