如何把一个PChar变量指向的字符串保存到二进制文件里,又怎样从二进制文件读出它? 把 der_pkcs10Size^ 改成 der_pkcs10Size,去掉“^” 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 不行啊,der_pkcs10Size是个PInteger类型的变量,去掉“^”的话编译器就会报错了,提示Incompatible types!!! 把 der_pkcs10Size^ 改成 der_pkcs10Size[0]assignfile(tempfile,'der_pkcs10.cer'); der_pkcs10Size:=得到文件长度; reset(tempfile,der_pkcs10Size); strnew(der_pkcs10,der_pkcs10Size); blockread(tempfile,der_pkcs10,1); strdispose(der_pkcs10,der_pkcs10Size); closefile(tempfile); examplevar p:pchar; f:file ; len:integer;begin p:='12345'; assignfile(f,'c:\test.dat'); rewrite(f,1); blockwrite(f,p^,strlen(p)); closefile(f); assignfile(f,'c:\test.dat'); reset(f,1); len:=filesize(f); p:=StrAlloc(len+1); blockread(f,p^,len); p[len]:=#0; closefile(f); strdispose(p);end;//p^=p[0] 谢谢zjqyb,你的两个回复都是说读取文件,但是第一个里面提到的“把 der_pkcs10Size^ 改成 der_pkcs10Size[0]”是说写文件时要改的吗?der_pkcs10Size是PInteger,但是der_pkcs10Size[0]是char类型的,编译器还是会说类型不匹配啊 OK,使用zjqyb给的example已经可以成功读写二进制文件,谢谢你的帮助。不过我对你的第一个回复仍不理解,“把 der_pkcs10Size^ 改成 der_pkcs10Size[0]”是什么意思?还有strnew函数只能带一个参数啊!! der_pkcs10Size^ =der_pkcs10Size[0] 如何擦除窗体上动态生成的控件? delphi 奇怪的问题! DEPHI 关于学生机何教师机的问题 3K人民币求购小型企业管理软件源码 结构化存储问题,急!!! 询问idtcpclient接收idtcpserver信息问题! DCOM事件问题 怎么实现文件的复制? 关于table排序问题! 关于delphi c/s数据库连接的简单问题??? 问一个愚蠢的问题。我做的Delphi+sql的程序。如果拿到别的机子上用,是不是还要在那台子上装上SQL(还得是同样的设置),两台机子不联网 [高分!]如何在Delphi中捕获其他程序的标准输出?
assignfile(tempfile,'der_pkcs10.cer');
der_pkcs10Size:=得到文件长度;
reset(tempfile,der_pkcs10Size);
strnew(der_pkcs10,der_pkcs10Size);
blockread(tempfile,der_pkcs10,1);
strdispose(der_pkcs10,der_pkcs10Size);
closefile(tempfile);
var p:pchar;
f:file ;
len:integer;
begin
p:='12345';
assignfile(f,'c:\test.dat');
rewrite(f,1);
blockwrite(f,p^,strlen(p));
closefile(f);
assignfile(f,'c:\test.dat');
reset(f,1);
len:=filesize(f);
p:=StrAlloc(len+1);
blockread(f,p^,len);
p[len]:=#0;
closefile(f);
strdispose(p);end;
//p^=p[0]