N nicai_wgl Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-02 #2 写段代码楼主参考： var i: Integer; tmpPByte: PByte; begin tmpPByte := PByte(@Buffer); for i := 1 to SizeOf(Buffer) do begin tmpPByte^ := 255 - tmpPByte^; Inc(tmpPByte); end; end;
写段代码楼主参考： var i: Integer; tmpPByte: PByte; begin tmpPByte := PByte(@Buffer); for i := 1 to SizeOf(Buffer) do begin tmpPByte^ := 255 - tmpPByte^; Inc(tmpPByte); end; end;
