关于PChar中存在#0 的问题

bluepph 2019-01-12 09:02:04
#0一般做为结束符,但是最近要调用一个C的动态库。传的值中间就存在#0。估计是这个原因导致调用动态库一直报错。
大家遇到这个问题一般如何解决的?
...全文
833 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
虎子8 2019-01-29
  • 打赏
  • 举报
回复
换个类型或者 继续用pchar把内容base64一下
sazhufa 2019-01-14
  • 打赏
  • 举报
回复
一定要先搞清楚动态库如何使用传入参数。
如果只有一个单纯的字符指针参数, 那么遇到#0就中止很正常。

解决方法是: 先确定dll导出函数的定义,然后review代码看看有没有调用问题(参数个数、类型、顺序 三个方面)
doloopcn 2019-01-13
  • 打赏
  • 举报
回复
应该是你的调用方法有问题

DELPHI调用C一般都可能通过BUFF,你的程序在读BUFF的时候读的字节数不对,就有可能把#0读进来了

试试通过String数组解决:
var S:AnsiString;
...
Result:='';
for i:=1 to Length(S) do
begin
if Ord(S[i])<>0 then
Result:=Result+S[i]
else
Break;
end;
  • 打赏
  • 举报
回复
只能说你的参数传入就是有问题的...
BlueStorm 2019-01-12
  • 打赏
  • 举报
回复
可以改为传指针,例如: @str[1]
压缩文件 1. Function MyZip_AddFile(SrcFile,ZipFile:pchar):integer;stdcall; 功能 : 将文件SrcFile添加到压缩文档ZipFile 参数 : SrcFile 待压缩文件(全路径) Zipfile 目标文件(全路径) 返回 : 0 成功 说明 : 同名文件将自动被替换(overwrite) 2. Function MyZip_AddDirectory(SrcPath,ZipFile:pchar):integer;stdcall; 功能 : 将目录SrcPath里的所有文件(子目录)添加到压缩文档ZipFile 参数 : SrcPath 待压缩目录(全路径) Zipfile 目标文件(全路径) 返回 : 0 成功 说明 : 同名文件将自动被替换(overwrite) 解压文件 1. Function MyZip_ExtractFileAll(ZipFile,PathName:pchar):integer;stdcall; 功能 : 将ZipFile包含的所有文件解包到文件夹PathName 参数 : ZipFile 压缩文件(全路径) PathName 文件输出路径(如果不存在,则自动创建该目录) 返回 : 0 解包的文件数量 说明 : 同名文件将自动被替换(overwrite) 2. Function MyZip_ExtractFile(ZipFile,srcName,DstName:pchar):integer;stdcall; 功能 : 从ZipFile将由SrcName指定的文件解包到由DstName指定的目标文件 参数 : Zipfile 压缩文件(全路径) SrcName 需要解包的文件(不包含路径) DstName 目标文件(全路径) 返回 : 0 成功 说明 : 同名文件将自动被替换(overwrite) 错误信息 1. Function MyZip_GetLastError(out msg : ShortString):integer;stdcall; 功能 : 在压缩/解压的过程,如有错误发生,可立即调用该函数获取相关错误信息,并由msg返回 参数 : msg 用于返回相关错误信息 返回 : 0 成功

16,747

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧