求将二进制文件转为文本文件的方法
发布网友
发布时间：2022-04-22 01:42
共4个回答
热心网友
时间：2024-01-30 02:59
faint，岂有此理...
可以用十六进制显示并存入txt文件，如下面的方法
但这绝对是一个愚蠢的主意。
-------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
const BUF_SIZE=1024;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procere Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
f:file of byte;
implementation
{$R *.DFM}
function Str2Hex(const data: array of byte; len: integer): string;
const
Hex:array[0..15] of char='01234567ABCDEF';
var
i: Integer;
begin
setlength(result,length(data)*2);
for i := 0 to Len-1 do
begin
result[i*2+1]:=Hex[data[i] shr 4];
result[i*2+2]:=Hex[data[i] and $F];
end;
end;
procere TForm1.Button1Click(Sender: TObject);
var
NumRead:integer;
b:array[1..BUF_SIZE] of byte;
s: string;
begin
assignfile(f,'T0105.101');
Reset(f);
repeat
BlockRead(f,b,BUF_SIZE,NumRead);
if NumRead=0 then break;
s:=Str2Hex(b,NumRead); //将每个字节以16进制表示
Memo1.Lines.Add(s);
until (NumRead = 0);
closefile(f);
Memo1.Lines.SaveToFile('binfile.txt');
end;
end.
就是把图片编为十六进制，然后再用解码程序解成 2进制，把图象再显示出来。
只是这个解码的程序没搞定，
编码的程序如上。
没分了，有了再给。
热心网友
时间：2024-01-30 03:00
按shift右键点你要打开的文件
选择打开方式
修改软件建议你使用ultraedit
热心网友
时间：2024-01-30 03:00
从文件编码的方式来看，文件可分为ascii码文件和二进制码文件两种。
ascii文件也称为文本文件，这种文件在磁盘中存放时每个字符对应一个字节，用于存放对应的ascii码。例如，数5678的存储形式为：
asc码：
00110101
00110110
00110111
00111000
↓
↓
↓
↓
十进制码：
5
6
7
8
共占用4个字节。ascii码文件可在屏幕上按字符显示，
例如源程序文件就是ascii文件，用dos命令type可显示文件的内容。
由于是按字符显示，因此能读懂文件内容。
二进制文件是按二进制的编码方式来存放文件的。
例如，
数5678的存储形式为：
00010110
00101110只占二个字节。二进制文件虽然也可在屏幕上显示，
但其内容无法读懂。c系统在处理这些文件时，并不区分类型，都看成是字符流，按字节进行处理。
输入输出字符流的开始和结束只由程序控制而不受物理符号(如回车符)的控制。
因此也把这种文件称作“流式文件”。
热心网友
时间：2024-01-30 03:01
具体有几个问题想问!呵呵!看你的消息吧!楼上的不是vb
