admin

[系统应用] delphi txt2bin ,txt2dump,txt2dat 同理! 文本转二进制文件

procedure TForm1.btn1Click(Sender: TObject);

var

  Mem: TMemoryStream;

  buf:array[1..1024] of Byte; // 下界为0所以减1

  k:TStringList;

begin

  k:=TStringList.Create;

  Mem := TMemoryStream.Create;

  k.LoadFromFile(hint+'1.txt');

//关键转换点,注意buf大小,可适当调整,根据原始数据大小来调整

  HexToBin(PAnsiChar(k.Text),@buf,SizeOf(buf));


  Mem.Position:=0;

  Mem.Write(buf,SizeOf(buf));

  Mem.SaveToFile('1.dump');

  Mem.free;

end;


【原创技术文章,转载请注明出处!】

如果觉得本内容对您有用,请扫描右侧二维码 赏赞支持下。谢谢!


#1楼
发帖时间:2月前   |   查看数:0   |   回复数:0
游客组