TBitmap.ScanLine [] 실행에 너무 많은 시간이 걸립니다.

Question

저는 Delphi에서 작업하고 있습니다. 내 코드에 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]; 

하십시오에 너무 많은 시간이 소요입니까?

Answer 1

흠, 뭔가를 얻을 수 있습니다 (로우 피치 소개, 아래 참조).하지만 너무 많이는 아닙니다. 아마 포인터 증가를 수행하고

// 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; 

빠른 이미지를 회전하려면이 같은 일을하는 루틴도 rotating bitmaps. In code 참조 마지막 픽셀의 포인터 값과 비교하는 while 루프에 루프에 대한 변경.

항상 bmps를 할당하는 것은 비용이 많이들 수 있습니다. 특히 큰 경우 반복 할당을 피하기 위해 풀을 사용하십시오.