delphixe中关于pchar的问题

cuit_xiong cuit_xiong 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
我用delphixe写了一个dll,这个dll是调用webservice接口,里面一个函数是返回pchar类型,当返回的pchar里面的字符不多时,一切正常,在调用下载接口的时候,下载下来的数据很大(存成记事本有9m),就会出错,整个函数代码如下:
begin
try
Result := PChar(GetPub_WebServicePortType(false, AURL).downLoad(ATaskType, AJXS8M,
AIP, AJSON));//当这个接口数据不大是能正常传给调用的exe,当数据很大时这里的result是有值的,但是调用的exe接收到的是空
//aa := TStringList.Create;
//aa.Add(Result);
//aa.SaveToFile('11.txt');//这个是用来调试的,存成记事本有9m
except
on E: Exception do
begin
Result := PChar(E.Message);
end;
end;
end;
我也这样试过:result返回left(GetPub_WebServicePortType(false, AURL).downLoad(ATaskType, AJXS8M,
AIP, AJSON)),N),当n到1500多的时候就出现那种情况了
...全文

相关推荐

Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结

Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结 !最后有个项目要移植到64位,所以这个很有用。在2010中PChar已经不再表示PAnsiChar而是表示PWideChar,如果依然这样写,运行时很可能会得到一个内存访问错误。因为每 次Inc(P),实际上指针向前移动了2字节,因为SizeOf(WideChar)=2,Inc(P)相当于 P:=P+SizeOf(WideChar)。 解决方法是把PChar替换成PAnsiChar

hefeibing

delphi隐藏窗体在windows任务栏,在右下角,单独集成单元文件,比控件好用

delphi隐藏窗体在windows任务栏,在右下角,单独集成单元文件,比控件好用,支持delphi7---XE10,主要区分是下面的函数 delphiXE10 procedure TShellNotifyIcon.LoadAppIcon; var s: string; begin with NotifyIcon do begin cbSize := SizeOf; //TNotifyIconData Wnd := Classes.AllocateHWnd(WndProc); uID := 1; uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP; uCallBackMessage := WM_NotifyIcon; hIcon := Application.Icon.Handle; s := HintStr; //StrLCopy(szTip, PAnsiChar(s), Length(s)); //Icon.OnClick:=onclik(TObject); StrCopy(szTip,PChar(s)); end; Shell_NotifyIcon(NIM_ADD, @NotifyIcon); end; delphi7 procedure TShellNotifyIcon.LoadAppIcon; var s: string; begin with NotifyIcon do begin cbSize := SizeOf(TNotifyIconData); //TNotifyIconData Wnd := Classes.AllocateHWnd(WndProc); uID := 1; uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP; uCallBackMessage := WM_NotifyIcon; hIcon := Application.Icon.Handle; s := HintStr; //StrLCopy(szTip, PAnsiChar(s), Length(s)); //Icon.OnClick:=onclik(TObject); StrCopy(szTip,PChar(s)); end; Shell_NotifyIcon(NIM_ADD, @NotifyIcon); end;

yingmiaochaomiao

Delphi XE10 调用外部程序并等待其运行结束_调用外部程序等待运行结束_

Delphi XE10 调用外部程序并等待其运行结束

kikikuka

delphi实现ping功能代码

用delphi语言来实现网络中ping的相关功能!

luoyongqiang1987

DELPHI在视窗里执行DOS命令并返回结果.rar

DELPHI在视窗里执行DOS命令并返回结果,测试可用。

walkmangood
评论 2
收藏 已收藏
分享
返回顶部
cuit_xiong
Delphi 5,944 成员 262,941 内容