把 der_pkcs10Size^ 改成 der_pkcs10Size,去掉“^”
解决方案 »
- intraWeb 9.0 不会创建Cache子目录
- 关于借口的问题(求助高手)
- zzlazio...先给你100分.原贴的要分些给其他跟帖的兄弟.
- 大家好! 谁有关于硬盘序列号的程序,谢谢!!
- 如何查找局域网中FTP中的某个文件是否存在?(100)
- 如何用DELPHI调用帮助文件(帮助文件扩展名为chm)?
- 呵呵,大家能给个意见吗?谢谢!
- 控件的相对位置问题
- 怎样得到任意字体的不同字符宽度---请教~~~~~~~~~折磨我好久了
- 怎么在DBGrid中显示两个表的字段?
- 问一个愚蠢的问题。我做的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]