C
csdelphi2007
Unregistered / Unconfirmed
GUEST, unregistred user!
我合并的,就是有爆音,请哪位贴一下代码,谢谢!!!
我写的代码:在46个字节处开始合并。
for i:=0 to LENdo
begin
SrcByte1:=PByte(Dword(OutBuf)+i*2)^;
SrcByte2:=PByte(Dword(OutBuf)+i*2+1)^;
SrcByte3:=PByte(Dword(inBuf)+i*2)^;
SrcByte4:=PByte(Dword(inBuf)+i*2+1)^;
Value1:=SrcByte1 + SrcByte2 shl 8;
Value2:=SrcByte3 + SrcByte4 shl 8;
Value1:=Value1+Value2;
PByte(Dword(OutBuf)+i*2)^:=SrcByte3;
PByte(Dword(OutBuf)+i*2+1)^:=SrcByte4;
end;
我写的代码:在46个字节处开始合并。
for i:=0 to LENdo
begin
SrcByte1:=PByte(Dword(OutBuf)+i*2)^;
SrcByte2:=PByte(Dword(OutBuf)+i*2+1)^;
SrcByte3:=PByte(Dword(inBuf)+i*2)^;
SrcByte4:=PByte(Dword(inBuf)+i*2+1)^;
Value1:=SrcByte1 + SrcByte2 shl 8;
Value2:=SrcByte3 + SrcByte4 shl 8;
Value1:=Value1+Value2;
PByte(Dword(OutBuf)+i*2)^:=SrcByte3;
PByte(Dword(OutBuf)+i*2+1)^:=SrcByte4;
end;