pchar(),pwidechar(),pansichar()都不行啊。

haochin haochin 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区

procedure TCamera_F.btn1Click(Sender: TObject);
var
PhotoName : string;
begin
PhotoName := 'D:\JETT\1.BMP'
if hWndC <> 0 then
begin
SendMessage(hWndC, WM_CAP_SAVEDIB, 0, LongInt(PAnsiChar(PhotoName)));
end;
end;


上面程序的结果在程序的目录下生成了一个名为 'D'的文件。
显然不是想要的结果

但是如果后面一句写成
SendMessage(hWndC, WM_CAP_SAVEDIB, 0, LongInt(PAnsiChar('D:\JETT\1.BMP')));

就可以正常将图像保存到指字文件中。

我想回该是sendMessage的最后一个参数出了问题,
PAnsiChar()好像不行。
Pchar也不行
Pwidechar也不行。

那要怎么做才行啊。????
...全文

相关推荐

评论 9
收藏 已收藏
分享
返回顶部
haochin
Windows SDK/API 1,184 成员 22,326 内容