用PByte,试试这样:
function AddSealCard_Type(FrontSealcard: PByte; flen: Integer; BackSealcard: PByte; blen: Integer): DWORD;stdcall;
var
Fbuf, Bbuf: array of PByte;
begin
SetLength(Fbuf,1000000);
SetLength(Bbuf,1000000);
re := m_AddSealCard(Fbuf,sizeF,Bbuf,sizeB);