台灣最大程式設計社群網站
線上人數
1973
 
會員總數:246038
討論主題:189625
歡迎您免費加入會員
討論區列表 >> VB6 >> 請問如何用VB擷取VC以SendMessage()傳送的字串資料?
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
請問如何用VB擷取VC以SendMessage()傳送的字串資料?
價值 : 50 QP  點閱數:2787 回應數:0
樓主

darrent
門外漢
0 1
123 2
發送站內信

已離職的同事用VC寫了兩個程式,
在同一台電腦中的兩個應用程式傳遞資料,
但因為我用VB比較上手,想以VB改寫收資料的程式,
收原來VC傳送出來的字串資料,
請問有哪位高手能幫幫我嗎?

原來用SendMessage()傳送訊息的部份程式:
cpd.dwData = 0;
cpd.cbData = sizeof(MyData);
cpd.lpData = &MyData;
SendMessage(hWnd_senddata,WM_COPYDATA,NULL,(LPARAM)&cpd);

原來接收訊息的部份程式:
BOOL CSendDataDlg::OnCopyData(CWnd* pWnd, COPYDATASTRUCT* pCopyDataStruct)
{
// TODO: 在此加入您的訊息處理常式程式碼和 (或) 呼叫預設值
MyRec *pMyData;
// 取出資料
pMyData=(MyRec*)pCopyDataStruct->lpData;
// 取出資料完成
CString tmp3=pMyData->data;
CClientSocket *curr = NULL;
POSITION pos = sendlist->GetHeadPosition();
if(pos==NULL)
m_list1.InsertString(0,"發送數據錯誤,沒有Client。");
while (pos != NULL)
{
curr = (CClientSocket *)sendlist->GetNext(pos);
if(curr->Send(tmp3,tmp3.GetLength()) == SOCKET_ERROR)
m_list1.InsertString(0,"發送數據錯誤。");
else
m_list1.InsertString(0,pMyData->data);
}
int i,j=m_list1.GetCount();
for(i=100;i<j;i++)
m_list1.DeleteString(i);
return CDialog::OnCopyData(pWnd, pCopyDataStruct);
}



搜尋相關Tags的文章: [ SendMessage ] , [ OnCopyData ] , [ Vc ] ,
本篇文章發表於2007-12-17 17:15
目前尚無任何回覆
   

回覆
如要回應,請先登入.