델파이 배열의 PByte 배열

Question

나는 PBYTE와 함께 @buffer를 전달하고자하는 수정 불가능한 DLL 내부에 함수를 가지고 있습니다.

function Base(Buffer: PBYTE): Integer; 

그 위에 다른 길이의 버퍼가 있습니다. 이제 더 쉽게 접근 할 수 있도록 이러한 모든 버퍼를 포함하는 배열처럼 작동하는 무언가를 만들고 싶습니다 (인덱스 필요). 나는 그것을 어느 방향으로나 돌리려고했지만, 나는 정신이 막혔다.

Buffer1: array[0..100] of Byte; 
Buffer2: array[250..600] of Byte; 

Buffers: array of PByte; 

지금

function Foo(var Buffer: PByte): Boolean; 
begin 
    Result := Boolean(Buffer[SomePosition]); 
end; 

가 "필요한 배열 형"을 던지는 받아들이려고 내 다른 기능으로 사용의 문제, 작업에 가장 가까운했다.

필자는 전체 구조를 거꾸로 뒤집어서 포인터, 포인터 배열을 내 자신의 유형으로 도입했거나 PByte 배열 배열을 작성하여 자연스럽게 일관되지 않은 배열 길이 문제를 일으켰습니다. 나는 그것을 풀 수 없다.

편집 : 자세한

buffers : array of PByte; 
buffer_DB11 : array[0..200] of byte; 
buffer_DB20 : array[400..640] of byte; 

function ReadInt(var Buffer : array of Byte; Position : Word): Integer; 
begin 
    Result := buffer[Position]*256+buffer[Position+1]; 
end; 

procedure TServiceItem.FetchValues; // somewhere else 
begin 
    Value := IntToStr(ReadInt(buffers[db], Position)); 
end; 

나는 그게 내가 할 노력하고있어 명확하게 할 수 있기를 바랍니다.

Answer 1

수정할 수없는 DLL이 들어있는 부분이 보이지 않으므로 편집을 마치면 PByte와 바이트 배열이 같은 것으로 가정하는 것처럼 보입니다. 그들은 그렇지 않습니다.

버퍼 [xxx]는 PByte 유형이며 바이트 배열이 아니므로 PByte를 가져 오기 위해 함수를 캐스트하거나 수정해야합니다.

buffers : array of PByte; 
buffer_DB11 : array[0..200] of byte; 
buffer_DB20 : array[400..640] of byte; 

function ReadInt(var Buffer : PByte; Position : Word): Integer; 
begin 
    Result := buffer[Position]*256+buffer[Position+1]; 
end; 

procedure TServiceItem.FetchValues; // somewhere else 
begin 
    Value := IntToStr(ReadInt(buffers[db], Position)); 
end;