Вот, решил сконвертировать:

Код

procedure FastResize32(Src,Dst:TFastDIB); var  x,y,xp,yp,sx,sy: Integer;  Line: PLine32;  pc: PFColorA; begin  sx:=(Src.Width shl 16)div Dst.Width;  sy:=(Src.AbsHeight shl 16)div Dst.AbsHeight;  yp:=0; pc:=Pointer(Dst.Bits);  for y:=0 to Dst.AbsHeight-1 do  begin    Line:=Src.Scanlines[yp shr 16]; xp:=0;    for x:=0 to Dst.Width-1 do    begin      pc^:=Line[xp shr 16];      Inc(pc); Inc(xp,sx);    end;    pc:=Ptr(Integer(pc)+Dst.Gap);    Inc(yp,sy);  end; end;

получил:

Код

void DIB::FastResize32(DIB * dst) { if (!dst->width || !dst->height) return; int sx = (width << 16) / dst->width; int sy = (height << 16) / dst->height; int yp = 0; DWORD * pc = (DWORD *) dst->bits; for (int y = 0; y < dst->height; y++) {  DWORD * line = (DWORD *) (bits + (yp >> 16) * width);  int xp = 0;  for (int x = 0; x < dst->width; x++)  {   *pc = line[xp >> 16];   pc++;   xp += sx;  }  //pc:=Ptr(Integer(pc)+Dst.Gap); gap for 32bpp dibs is always 0  yp += sy; } }

но, не работает, получается какая-то странная смесь пикселей исходного изображения, в чем может быть проблема? Вроде же код переписан один в один, а оригинал точно работает.
Добавлено @ 16:00
Как всегда, мучаешся весь день, идешь за помощью на форум, а потом через пять минут понимаешь все сам энергетика тут такая, видимо. Кароче:

Код

DWORD * line = (DWORD *) (bits + ((yp >> 16) * width) * sizeof(DWORD));

может кому пригодится...