Question

请问有哪位高手能帮我把这个VC转成delphi的语言，谢谢

void Ckoide_camera_cypress_mysqlView::ROI(UCHAR* RGBBuffer, int istartx, int istarty, int size_ROI, int iWidth)
{
int i,j,x,y;
UCHAR RR,GG,BB;
double HH, SS;
int ipos;
UCHAR * uBuffer;

uBuffer=RGBBuffer;
// ROI_bgr=new UCHAR[size_ROI*size_ROI*3];// ROI_L=new double[size_ROI*size_ROI];
x=0;
for(j=istarty,y=0;j<istarty+size_ROI;j++,y++)
{
for (i=istartx;i<(istartx+size_ROI);i++,x++)
{
ipos=j*iWidth*3+i*3;
BB = uBuffer[ipos];
GG = uBuffer[ipos+1];
RR = uBuffer[ipos+2];
Rgb2Hls(RR,GG,BB,&HH,&ROI_L[x],&SS);
}
}

// delete [] ROI_bgr;
return;
}

Answer 1

procedure ROI(RGBBuffer:pchar,istartx,istarty,size_ROI, iWidth:integer);
var
i,j,x,y:integer;
RR,GG,BB:char;
ipos:integer;
uBuffer:pchar;
begin
uBuffer:=RGBBuffer;
x:=0;
for j:=istarty,y:=0 to j<(istarty+size_ROI) do
begin
for i:=istartx to i<(istartx+size_ROI) do
begin
ipos:=j*iWidth*3+i*3;
BB:= uBuffer[ipos];
GG:=uBuffer[ipos+1];
RR:=uBuffer[ipos+2];
Rgb2Hls(RR,GG,BB,HH,ROI_L[x],SS);
i:=i+1;
x:=x+1;
end;
y:=y+1;
j:=j+1;
end;
end;
其中Rgb2Hls函数后面的三个参数最好就是使用变量参数来进行参数传递

Answer 2

楼上正解。
其实就是语法不同，算法都一样的……