Delphi2010 和VC2010 用COPYDATA传递消息 接受不全? 请帮忙解决
发送端是delphi2010
接受端是vc2010
问题出在 , 我用delphi写接受消息就是全的, 用vc这个 只显示 第一个字符, 那出问题了?
procedure TForm1.btn1Click(Sender: TObject);
var DataStruct:TCopyDataStruct;
buffsize:Integer;
buff:PChar;
h:HWND;
begin
h:=StrToInt(edt1.Text); //vc窗体句柄
buffsize:=length(edt2.Text)*sizeof(Char)+2; //一个字符站2字节
buff:=StrAlloc(buffsize); //分配内存
StrCopy(buff,PChar(edt2.Text)); //拷贝数据到缓冲区
DataStruct.dwData:=0;
DataStruct.cbData:=buffsize;
DataStruct.lpData:=buff;
SendMessage(h,WM_COPYDATA,0,LongInt(@DataStruct));
end;
接受端是vc2010
//接受消息
BOOL CMyView::OnCopyData(CWnd* pWnd, COPYDATASTRUCT* pCopyDataStruct)
{
if (pCopyDataStruct != NULL)
{
LPCTSTR pszText = (LPCTSTR)(pCopyDataStruct->lpData);
DWORD dwLength = (DWORD)(pCopyDataStruct->cbData);
TCHAR szRecvText[1024] = {0};
memcpy(szRecvText, pszText, dwLength);
MessageBox(szRecvText, _T("Test"), MB_OK);
}
return CWnd::OnCopyData(pWnd, pCopyDataStruct);
}
问题出在 , 我用delphi写接受消息就是全的, 用vc这个 只显示 第一个字符, 那出问题了?
...全文
相关推荐
5-实验指导书_PID控制算法.docx
5-实验指导书_PID控制算法.docx
高校技术转移办公室人员如何利用平台提升技术成果的精准推介效率?.docx
高校技术转移办公室人员如何利用平台提升技术成果的精准推介效率?
产业园区运营负责人如何精准对接企业技术需求与科技成果?.docx
科易网基于40亿+科创知识图谱数据库,深度探索AI技术在技术转移、成果转化、技术经纪、知识产权、产业创新、科技招商等垂直领域的多样化应用场景,研究科技创新领域的AI+数智化解决方案,推动科技创新与产业创新智能化发展。
产业园区运营负责人如何通过平台实现对入驻企业的创新能力评估与服务匹配?.docx
科易网基于40亿+科创知识图谱数据库,深度探索AI技术在技术转移、成果转化、技术经纪、知识产权、产业创新、科技招商等垂直领域的多样化应用场景,研究科技创新领域的AI+数智化解决方案,推动科技创新与产业创新智能化发展。
《Hive数据仓库应用教程》教学大纲+课件+数据库+源代码+习题答案
《Hive数据仓库应用教程》教学大纲+课件+数据库+源代码+习题答案


