如何以十六进制打开,编辑和保存二进制文件?
如何以十六进制打开,编辑和保存二进制文件?

[解决办法]
http://download.csdn.net/source/160432
[解决办法]
//参考如下代码，没有测试过

procedure TForm1.Button1Click(Sender: TObject);
var
vMemoryStream: TMemoryStream;
vFileName: string;
vStart, vEnd: Integer;
vBuffer: string;
I: Integer;
begin
vFileName := 'c:\temp\temp.dat ';
vStart := $123;
vEnd := $456;
SetLength(vBuffer, vEnd - vStart + 1);
vMemoryStream := TMemoryStream.Create;
try
vMemoryStream.LoadFromFile(vFileName);
vMemoryStream.Seek(vStart, soFromBeginning);
vMemoryStream.Read(vBuffer[1], Length(vBuffer));
for I := 1 to Length(vBuffer) do
vBuffer[I] := Chr(Ord(vBuffer[I]) xor $ff);
vMemoryStream.Seek(vStart, soFromBeginning);
vMemoryStream.Write(vBuffer[1], Length(vBuffer));
vMemoryStream.SaveToFile(vFileName);
finally
vMemoryStream.Free;
end;
end;