dde_client.c 38 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437
  1. /*
  2. * DDEML library
  3. *
  4. * Copyright 1997 Alexandre Julliard
  5. * Copyright 1997 Len White
  6. * Copyright 1999 Keith Matthews
  7. * Copyright 2000 Corel
  8. * Copyright 2001 Eric Pouech
  9. * Copyright 2004, 2005 Dmitry Timoshkov
  10. *
  11. * This library is free software; you can redistribute it and/or
  12. * modify it under the terms of the GNU Lesser General Public
  13. * License as published by the Free Software Foundation; either
  14. * version 2.1 of the License, or (at your option) any later version.
  15. *
  16. * This library is distributed in the hope that it will be useful,
  17. * but WITHOUT ANY WARRANTY; without even the implied warranty of
  18. * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  19. * Lesser General Public License for more details.
  20. *
  21. * You should have received a copy of the GNU Lesser General Public
  22. * License along with this library; if not, write to the Free Software
  23. * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  24. */
  25. #include <stdarg.h>
  26. #include <string.h>
  27. #include "windef.h"
  28. #include "winbase.h"
  29. #include "wingdi.h"
  30. #include "winuser.h"
  31. #include "winnls.h"
  32. #include "dde.h"
  33. #include "ddeml.h"
  34. #include "win.h"
  35. #include "wine/debug.h"
  36. #include "dde_private.h"
  37. WINE_DEFAULT_DEBUG_CHANNEL(ddeml);
  38. static LRESULT CALLBACK WDML_ClientProc(HWND, UINT, WPARAM, LPARAM); /* only for one client, not conv list */
  39. const char WDML_szClientConvClassA[] = "WineDdeClientA";
  40. const WCHAR WDML_szClientConvClassW[] = L"WineDdeClientW";
  41. /******************************************************************************
  42. * DdeConnectList [USER32.@] Establishes conversation with DDE servers
  43. *
  44. * PARAMS
  45. * idInst [I] Instance identifier
  46. * hszService [I] Handle to service name string
  47. * hszTopic [I] Handle to topic name string
  48. * hConvList [I] Handle to conversation list
  49. * pCC [I] Pointer to structure with context data
  50. *
  51. * RETURNS
  52. * Success: Handle to new conversation list
  53. * Failure: 0
  54. */
  55. HCONVLIST WINAPI DdeConnectList(DWORD idInst, HSZ hszService, HSZ hszTopic,
  56. HCONVLIST hConvList, PCONVCONTEXT pCC)
  57. {
  58. FIXME("(%d,%p,%p,%p,%p): stub\n", idInst, hszService, hszTopic, hConvList, pCC);
  59. return (HCONVLIST)1;
  60. }
  61. /*****************************************************************
  62. * DdeQueryNextServer [USER32.@]
  63. */
  64. HCONV WINAPI DdeQueryNextServer(HCONVLIST hConvList, HCONV hConvPrev)
  65. {
  66. FIXME("(%p,%p): stub\n", hConvList, hConvPrev);
  67. return 0;
  68. }
  69. /******************************************************************************
  70. * DdeDisconnectList [USER32.@] Destroys list and terminates conversations
  71. *
  72. *
  73. * PARAMS
  74. * hConvList [I] Handle to conversation list
  75. *
  76. * RETURNS
  77. * Success: TRUE
  78. * Failure: FALSE
  79. */
  80. BOOL WINAPI DdeDisconnectList(HCONVLIST hConvList)
  81. {
  82. FIXME("(%p): stub\n", hConvList);
  83. return TRUE;
  84. }
  85. /*****************************************************************
  86. * DdeConnect (USER32.@)
  87. */
  88. HCONV WINAPI DdeConnect(DWORD idInst, HSZ hszService, HSZ hszTopic,
  89. PCONVCONTEXT pCC)
  90. {
  91. HWND hwndClient;
  92. WDML_INSTANCE* pInstance;
  93. WDML_CONV* pConv;
  94. ATOM aSrv = 0, aTpc = 0;
  95. TRACE("(0x%x,%p,%p,%p)\n", idInst, hszService, hszTopic, pCC);
  96. pInstance = WDML_GetInstance(idInst);
  97. if (!pInstance)
  98. return NULL;
  99. /* make sure this conv is never created */
  100. pConv = WDML_FindConv(pInstance, WDML_CLIENT_SIDE, hszService, hszTopic);
  101. if (pConv != NULL)
  102. {
  103. ERR("This Conv already exists: (%p)\n", pConv);
  104. return NULL;
  105. }
  106. /* we need to establish a conversation with
  107. server, so create a window for it */
  108. if (pInstance->unicode)
  109. {
  110. WNDCLASSEXW wndclass;
  111. wndclass.cbSize = sizeof(wndclass);
  112. wndclass.style = 0;
  113. wndclass.lpfnWndProc = WDML_ClientProc;
  114. wndclass.cbClsExtra = 0;
  115. wndclass.cbWndExtra = 2 * sizeof(ULONG_PTR);
  116. wndclass.hInstance = 0;
  117. wndclass.hIcon = 0;
  118. wndclass.hCursor = 0;
  119. wndclass.hbrBackground = 0;
  120. wndclass.lpszMenuName = NULL;
  121. wndclass.lpszClassName = WDML_szClientConvClassW;
  122. wndclass.hIconSm = 0;
  123. RegisterClassExW(&wndclass);
  124. hwndClient = CreateWindowW(WDML_szClientConvClassW, NULL, WS_POPUP, 0, 0, 0, 0, 0, 0, 0, 0);
  125. }
  126. else
  127. {
  128. WNDCLASSEXA wndclass;
  129. wndclass.cbSize = sizeof(wndclass);
  130. wndclass.style = 0;
  131. wndclass.lpfnWndProc = WDML_ClientProc;
  132. wndclass.cbClsExtra = 0;
  133. wndclass.cbWndExtra = 2 * sizeof(ULONG_PTR);
  134. wndclass.hInstance = 0;
  135. wndclass.hIcon = 0;
  136. wndclass.hCursor = 0;
  137. wndclass.hbrBackground = 0;
  138. wndclass.lpszMenuName = NULL;
  139. wndclass.lpszClassName = WDML_szClientConvClassA;
  140. wndclass.hIconSm = 0;
  141. RegisterClassExA(&wndclass);
  142. hwndClient = CreateWindowA(WDML_szClientConvClassA, NULL, WS_POPUP, 0, 0, 0, 0, 0, 0, 0, 0);
  143. }
  144. SetWindowLongPtrW(hwndClient, GWL_WDML_INSTANCE, (ULONG_PTR)pInstance);
  145. if (hszService)
  146. {
  147. aSrv = WDML_MakeAtomFromHsz(hszService);
  148. if (!aSrv) goto theEnd;
  149. }
  150. if (hszTopic)
  151. {
  152. aTpc = WDML_MakeAtomFromHsz(hszTopic);
  153. if (!aTpc) goto theEnd;
  154. }
  155. /* note: sent messages shall not use packing */
  156. SendMessageTimeoutW( HWND_BROADCAST, WM_DDE_INITIATE, (WPARAM)hwndClient, MAKELPARAM(aSrv, aTpc),
  157. SMTO_ABORTIFHUNG, 0, NULL );
  158. pInstance = WDML_GetInstance(idInst);
  159. if (!pInstance)
  160. {
  161. goto theEnd;
  162. }
  163. /* At this point, Client WM_DDE_ACK should have saved hwndServer
  164. for this instance id and hwndClient if server responds.
  165. So get HCONV and return it. And add it to conv list */
  166. pConv = WDML_GetConvFromWnd(hwndClient);
  167. if (pConv == NULL || pConv->hwndServer == 0)
  168. {
  169. WARN("Done with INITIATE, but no Server window available\n");
  170. pConv = NULL;
  171. pInstance->lastError = DMLERR_NO_CONV_ESTABLISHED;
  172. goto theEnd;
  173. }
  174. TRACE("Connected to Server window (%p)\n", pConv->hwndServer);
  175. pConv->wConvst = XST_CONNECTED;
  176. /* finish init of pConv */
  177. if (pCC != NULL)
  178. {
  179. pConv->convContext = *pCC;
  180. }
  181. else
  182. {
  183. memset(&pConv->convContext, 0, sizeof(pConv->convContext));
  184. pConv->convContext.cb = sizeof(pConv->convContext);
  185. pConv->convContext.iCodePage = (pInstance->unicode) ? CP_WINUNICODE : CP_WINANSI;
  186. }
  187. theEnd:
  188. if (aSrv) GlobalDeleteAtom(aSrv);
  189. if (aTpc) GlobalDeleteAtom(aTpc);
  190. return (HCONV)pConv;
  191. }
  192. /*****************************************************************
  193. * DdeReconnect (DDEML.37)
  194. * DdeReconnect (USER32.@)
  195. */
  196. HCONV WINAPI DdeReconnect(HCONV hConv)
  197. {
  198. WDML_CONV* pConv;
  199. WDML_CONV* pNewConv = NULL;
  200. ATOM aSrv = 0, aTpc = 0;
  201. TRACE("(%p)\n", hConv);
  202. pConv = WDML_GetConv(hConv, FALSE);
  203. if (pConv != NULL && (pConv->wStatus & ST_CLIENT))
  204. {
  205. BOOL ret;
  206. /* to reestablish a connection, we have to make sure that:
  207. * 1/ pConv is the conversation attached to the client window (it wouldn't be
  208. * if a call to DdeReconnect would have already been done...)
  209. * FIXME: is this really an error ???
  210. * 2/ the pConv conversation had really been deconnected
  211. */
  212. if (pConv == WDML_GetConvFromWnd(pConv->hwndClient) &&
  213. (pConv->wStatus & ST_TERMINATED) && !(pConv->wStatus & ST_CONNECTED))
  214. {
  215. HWND hwndClient = pConv->hwndClient;
  216. HWND hwndServer = pConv->hwndServer;
  217. SetWindowLongPtrW(pConv->hwndClient, GWL_WDML_CONVERSATION, 0);
  218. aSrv = WDML_MakeAtomFromHsz(pConv->hszService);
  219. aTpc = WDML_MakeAtomFromHsz(pConv->hszTopic);
  220. if (!aSrv || !aTpc) goto theEnd;
  221. /* note: sent messages shall not use packing */
  222. ret = SendMessageW(hwndServer, WM_DDE_INITIATE, (WPARAM)hwndClient,
  223. MAKELPARAM(aSrv, aTpc));
  224. pConv = WDML_GetConv(hConv, FALSE);
  225. if (pConv == NULL)
  226. {
  227. FIXME("Should fail reconnection\n");
  228. goto theEnd;
  229. }
  230. if (ret && (pNewConv = WDML_GetConvFromWnd(pConv->hwndClient)) != NULL)
  231. {
  232. /* re-establish all links... */
  233. WDML_LINK* pLink;
  234. for (pLink = pConv->instance->links[WDML_CLIENT_SIDE]; pLink; pLink = pLink->next)
  235. {
  236. if (pLink->hConv == hConv)
  237. {
  238. /* try to reestablish the links... */
  239. DdeClientTransaction(NULL, 0, (HCONV)pNewConv, pLink->hszItem, pLink->uFmt,
  240. pLink->transactionType, 1000, NULL);
  241. }
  242. }
  243. }
  244. else
  245. {
  246. /* reset the conversation as it was */
  247. SetWindowLongPtrW(pConv->hwndClient, GWL_WDML_CONVERSATION, (ULONG_PTR)pConv);
  248. }
  249. }
  250. }
  251. theEnd:
  252. if (aSrv) GlobalDeleteAtom(aSrv);
  253. if (aTpc) GlobalDeleteAtom(aTpc);
  254. return (HCONV)pNewConv;
  255. }
  256. /******************************************************************
  257. * WDML_ClientQueueAdvise
  258. *
  259. * Creates and queue an WM_DDE_ADVISE transaction
  260. */
  261. static WDML_XACT* WDML_ClientQueueAdvise(WDML_CONV* pConv, UINT wType, UINT wFmt, HSZ hszItem)
  262. {
  263. DDEADVISE* pDdeAdvise;
  264. WDML_XACT* pXAct;
  265. ATOM atom;
  266. TRACE("XTYP_ADVSTART (with%s data) transaction\n", (wType & XTYPF_NODATA) ? "out" : "");
  267. atom = WDML_MakeAtomFromHsz(hszItem);
  268. if (!atom) return NULL;
  269. pXAct = WDML_AllocTransaction(pConv->instance, WM_DDE_ADVISE, wFmt, hszItem);
  270. if (!pXAct)
  271. {
  272. GlobalDeleteAtom(atom);
  273. return NULL;
  274. }
  275. pXAct->wType = wType & ~0x0F;
  276. pXAct->hMem = GlobalAlloc(GHND | GMEM_DDESHARE, sizeof(DDEADVISE));
  277. /* FIXME: hMem is unfreed for now... should be deleted in server */
  278. /* pack DdeAdvise */
  279. pDdeAdvise = GlobalLock(pXAct->hMem);
  280. pDdeAdvise->fAckReq = (wType & XTYPF_ACKREQ) != 0;
  281. pDdeAdvise->fDeferUpd = (wType & XTYPF_NODATA) != 0;
  282. pDdeAdvise->cfFormat = wFmt;
  283. GlobalUnlock(pXAct->hMem);
  284. pXAct->lParam = PackDDElParam(WM_DDE_ADVISE, (UINT_PTR)pXAct->hMem, atom);
  285. return pXAct;
  286. }
  287. /******************************************************************
  288. * WDML_HandleAdviseReply
  289. *
  290. * handles the reply to an advise request
  291. */
  292. static WDML_QUEUE_STATE WDML_HandleAdviseReply(WDML_CONV* pConv, MSG* msg, WDML_XACT* pXAct, DWORD *ack)
  293. {
  294. DDEACK ddeAck;
  295. UINT_PTR uiLo, uiHi;
  296. HSZ hsz;
  297. if (msg->message != WM_DDE_ACK || WIN_GetFullHandle((HWND)msg->wParam) != pConv->hwndServer)
  298. {
  299. return WDML_QS_PASS;
  300. }
  301. UnpackDDElParam(WM_DDE_ACK, msg->lParam, &uiLo, &uiHi);
  302. hsz = WDML_MakeHszFromAtom(pConv->instance, uiHi);
  303. if (DdeCmpStringHandles(hsz, pXAct->hszItem) != 0)
  304. return WDML_QS_PASS;
  305. GlobalDeleteAtom(uiHi);
  306. FreeDDElParam(WM_DDE_ACK, msg->lParam);
  307. if (ack) *ack = uiLo;
  308. WDML_ExtractAck(uiLo, &ddeAck);
  309. if (ddeAck.fAck)
  310. {
  311. WDML_LINK* pLink;
  312. /* billx: first to see if the link is already created. */
  313. pLink = WDML_FindLink(pConv->instance, (HCONV)pConv, WDML_CLIENT_SIDE,
  314. pXAct->hszItem, TRUE, pXAct->wFmt);
  315. if (pLink != NULL)
  316. {
  317. /* we found a link, and only need to modify it in case it changes */
  318. pLink->transactionType = pXAct->wType;
  319. }
  320. else
  321. {
  322. WDML_AddLink(pConv->instance, (HCONV)pConv, WDML_CLIENT_SIDE,
  323. pXAct->wType, pXAct->hszItem, pXAct->wFmt);
  324. }
  325. pXAct->hDdeData = (HDDEDATA)1;
  326. }
  327. else
  328. {
  329. TRACE("Returning FALSE on XTYP_ADVSTART - fAck was FALSE\n");
  330. GlobalFree(pXAct->hMem);
  331. pXAct->hDdeData = NULL;
  332. }
  333. return WDML_QS_HANDLED;
  334. }
  335. /******************************************************************
  336. * WDML_ClientQueueUnadvise
  337. *
  338. * queues an unadvise transaction
  339. */
  340. static WDML_XACT* WDML_ClientQueueUnadvise(WDML_CONV* pConv, UINT wFmt, HSZ hszItem)
  341. {
  342. WDML_XACT* pXAct;
  343. ATOM atom;
  344. TRACE("XTYP_ADVSTOP transaction\n");
  345. atom = WDML_MakeAtomFromHsz(hszItem);
  346. if (!atom) return NULL;
  347. pXAct = WDML_AllocTransaction(pConv->instance, WM_DDE_UNADVISE, wFmt, hszItem);
  348. if (!pXAct)
  349. {
  350. GlobalDeleteAtom(atom);
  351. return NULL;
  352. }
  353. /* end advise loop: post WM_DDE_UNADVISE to server to terminate link
  354. * on the specified item.
  355. */
  356. pXAct->lParam = PackDDElParam(WM_DDE_UNADVISE, wFmt, atom);
  357. return pXAct;
  358. }
  359. /******************************************************************
  360. * WDML_HandleUnadviseReply
  361. *
  362. *
  363. */
  364. static WDML_QUEUE_STATE WDML_HandleUnadviseReply(WDML_CONV* pConv, MSG* msg, WDML_XACT* pXAct, DWORD *ack)
  365. {
  366. DDEACK ddeAck;
  367. UINT_PTR uiLo, uiHi;
  368. HSZ hsz;
  369. if (msg->message != WM_DDE_ACK || WIN_GetFullHandle((HWND)msg->wParam) != pConv->hwndServer)
  370. {
  371. return WDML_QS_PASS;
  372. }
  373. UnpackDDElParam(WM_DDE_ACK, msg->lParam, &uiLo, &uiHi);
  374. hsz = WDML_MakeHszFromAtom(pConv->instance, uiHi);
  375. if (DdeCmpStringHandles(hsz, pXAct->hszItem) != 0)
  376. return WDML_QS_PASS;
  377. FreeDDElParam(WM_DDE_ACK, msg->lParam);
  378. GlobalDeleteAtom(uiHi);
  379. if (ack) *ack = uiLo;
  380. WDML_ExtractAck(uiLo, &ddeAck);
  381. TRACE("WM_DDE_ACK received while waiting for a timeout\n");
  382. if (!ddeAck.fAck)
  383. {
  384. TRACE("Returning FALSE on XTYP_ADVSTOP - fAck was FALSE\n");
  385. pXAct->hDdeData = NULL;
  386. }
  387. else
  388. {
  389. /* billx: remove the link */
  390. WDML_RemoveLink(pConv->instance, (HCONV)pConv, WDML_CLIENT_SIDE,
  391. pXAct->hszItem, pXAct->wFmt);
  392. pXAct->hDdeData = (HDDEDATA)1;
  393. }
  394. return WDML_QS_HANDLED;
  395. }
  396. /******************************************************************
  397. * WDML_ClientQueueRequest
  398. *
  399. *
  400. */
  401. static WDML_XACT* WDML_ClientQueueRequest(WDML_CONV* pConv, UINT wFmt, HSZ hszItem)
  402. {
  403. WDML_XACT* pXAct;
  404. ATOM atom;
  405. TRACE("XTYP_REQUEST transaction\n");
  406. atom = WDML_MakeAtomFromHsz(hszItem);
  407. if (!atom) return NULL;
  408. pXAct = WDML_AllocTransaction(pConv->instance, WM_DDE_REQUEST, wFmt, hszItem);
  409. if (!pXAct)
  410. {
  411. GlobalDeleteAtom(atom);
  412. return NULL;
  413. }
  414. pXAct->lParam = PackDDElParam(WM_DDE_REQUEST, wFmt, atom);
  415. return pXAct;
  416. }
  417. /******************************************************************
  418. * WDML_HandleRequestReply
  419. *
  420. *
  421. */
  422. static WDML_QUEUE_STATE WDML_HandleRequestReply(WDML_CONV* pConv, MSG* msg, WDML_XACT* pXAct, DWORD *ack)
  423. {
  424. DDEACK ddeAck;
  425. WINE_DDEHEAD wdh;
  426. UINT_PTR uiLo, uiHi;
  427. HSZ hsz;
  428. if (WIN_GetFullHandle((HWND)msg->wParam) != pConv->hwndServer)
  429. return WDML_QS_PASS;
  430. switch (msg->message)
  431. {
  432. case WM_DDE_ACK:
  433. UnpackDDElParam(WM_DDE_ACK, msg->lParam, &uiLo, &uiHi);
  434. FreeDDElParam(WM_DDE_ACK, msg->lParam);
  435. GlobalDeleteAtom(uiHi);
  436. if (ack) *ack = uiLo;
  437. WDML_ExtractAck(uiLo, &ddeAck);
  438. pXAct->hDdeData = 0;
  439. if (ddeAck.fAck)
  440. ERR("Positive answer should appear in NACK for a request, assuming negative\n");
  441. TRACE("Negative answer...\n");
  442. break;
  443. case WM_DDE_DATA:
  444. UnpackDDElParam(WM_DDE_DATA, msg->lParam, &uiLo, &uiHi);
  445. TRACE("Got the result (%08lx)\n", uiLo);
  446. hsz = WDML_MakeHszFromAtom(pConv->instance, uiHi);
  447. if (DdeCmpStringHandles(hsz, pXAct->hszItem) != 0)
  448. return WDML_QS_PASS;
  449. pXAct->hDdeData = WDML_Global2DataHandle(pConv, (HGLOBAL)uiLo, &wdh);
  450. if (wdh.fRelease)
  451. {
  452. GlobalFree((HGLOBAL)uiLo);
  453. }
  454. if (wdh.fAckReq)
  455. {
  456. pConv->instance->lastError = DMLERR_MEMORY_ERROR;
  457. }
  458. else
  459. {
  460. GlobalDeleteAtom(uiHi);
  461. FreeDDElParam(WM_DDE_ACK, msg->lParam);
  462. }
  463. break;
  464. default:
  465. FreeDDElParam(msg->message, msg->lParam);
  466. return WDML_QS_PASS;
  467. }
  468. return WDML_QS_HANDLED;
  469. }
  470. /******************************************************************
  471. * WDML_BuildExecuteCommand
  472. *
  473. * Creates a DDE block suitable for sending in WM_DDE_COMMAND
  474. * It also takes care of string conversion between the two window procedures
  475. */
  476. static HGLOBAL WDML_BuildExecuteCommand(WDML_CONV* pConv, LPCVOID pData, DWORD cbData)
  477. {
  478. HGLOBAL hMem;
  479. BOOL clientUnicode, serverUnicode;
  480. DWORD memSize;
  481. clientUnicode = pConv->instance->unicode;
  482. TRACE("client %p uses unicode = %d\n", pConv->hwndClient, clientUnicode);
  483. /* FIXME: how exactly Windows determines what to use for the server side? */
  484. serverUnicode = IsWindowUnicode(pConv->hwndServer) && IsWindowUnicode(pConv->hwndClient);
  485. TRACE("server %p uses unicode = %d\n", pConv->hwndServer, serverUnicode);
  486. if (clientUnicode == serverUnicode)
  487. {
  488. memSize = cbData;
  489. }
  490. else
  491. {
  492. if (clientUnicode)
  493. {
  494. memSize = WideCharToMultiByte( CP_ACP, 0, pData, cbData / sizeof(WCHAR), NULL, 0, NULL, NULL);
  495. }
  496. else
  497. {
  498. memSize = MultiByteToWideChar( CP_ACP, 0, pData, cbData, NULL, 0) * sizeof(WCHAR);
  499. }
  500. }
  501. hMem = GlobalAlloc(GMEM_MOVEABLE | GMEM_DDESHARE, memSize);
  502. if (hMem)
  503. {
  504. LPSTR pDst;
  505. pDst = GlobalLock(hMem);
  506. if (pDst)
  507. {
  508. if (clientUnicode == serverUnicode)
  509. {
  510. memcpy(pDst, pData, cbData);
  511. }
  512. else
  513. {
  514. if (clientUnicode)
  515. {
  516. WideCharToMultiByte( CP_ACP, 0, pData, cbData / sizeof(WCHAR), pDst, memSize, NULL, NULL);
  517. }
  518. else
  519. {
  520. MultiByteToWideChar( CP_ACP, 0, pData, cbData, (LPWSTR)pDst, memSize/sizeof(WCHAR));
  521. }
  522. }
  523. GlobalUnlock(hMem);
  524. }
  525. else
  526. {
  527. GlobalFree(hMem);
  528. hMem = 0;
  529. }
  530. }
  531. return hMem;
  532. }
  533. /******************************************************************
  534. * WDML_ClientQueueExecute
  535. *
  536. *
  537. */
  538. static WDML_XACT* WDML_ClientQueueExecute(WDML_CONV* pConv, LPVOID pData, DWORD cbData)
  539. {
  540. WDML_XACT* pXAct;
  541. TRACE("XTYP_EXECUTE transaction\n");
  542. if (pData == NULL)
  543. {
  544. if (cbData == (DWORD)-1)
  545. pConv->instance->lastError = DMLERR_INVALIDPARAMETER;
  546. else
  547. pConv->instance->lastError = DMLERR_MEMORY_ERROR;
  548. return NULL;
  549. }
  550. pXAct = WDML_AllocTransaction(pConv->instance, WM_DDE_EXECUTE, 0, 0);
  551. if (!pXAct)
  552. return NULL;
  553. if (cbData == (DWORD)-1)
  554. {
  555. HDDEDATA hDdeData = pData;
  556. pData = DdeAccessData(hDdeData, &cbData);
  557. if (pData)
  558. {
  559. pXAct->hMem = WDML_BuildExecuteCommand(pConv, pData, cbData);
  560. DdeUnaccessData(hDdeData);
  561. }
  562. }
  563. else
  564. {
  565. pXAct->hMem = WDML_BuildExecuteCommand(pConv, pData, cbData);
  566. }
  567. pXAct->lParam = (LPARAM)pXAct->hMem;
  568. return pXAct;
  569. }
  570. /******************************************************************
  571. * WDML_HandleExecuteReply
  572. *
  573. *
  574. */
  575. static WDML_QUEUE_STATE WDML_HandleExecuteReply(WDML_CONV* pConv, MSG* msg, WDML_XACT* pXAct, DWORD *ack)
  576. {
  577. DDEACK ddeAck;
  578. UINT_PTR uiLo, uiHi;
  579. if (msg->message != WM_DDE_ACK || WIN_GetFullHandle((HWND)msg->wParam) != pConv->hwndServer)
  580. {
  581. return WDML_QS_PASS;
  582. }
  583. UnpackDDElParam(WM_DDE_ACK, msg->lParam, &uiLo, &uiHi);
  584. FreeDDElParam(WM_DDE_ACK, msg->lParam);
  585. if ((HANDLE)uiHi != pXAct->hMem)
  586. {
  587. return WDML_QS_PASS;
  588. }
  589. if (ack) *ack = uiLo;
  590. WDML_ExtractAck(uiLo, &ddeAck);
  591. pXAct->hDdeData = (HDDEDATA)(UINT_PTR)ddeAck.fAck;
  592. TRACE("hDdeData = %p\n", pXAct->hDdeData);
  593. pConv->instance->lastError = (pXAct->hDdeData != 0) ? DMLERR_NO_ERROR : DMLERR_NOTPROCESSED;
  594. return WDML_QS_HANDLED;
  595. }
  596. /******************************************************************
  597. * WDML_ClientQueuePoke
  598. *
  599. *
  600. */
  601. static WDML_XACT* WDML_ClientQueuePoke(WDML_CONV* pConv, LPVOID pData, DWORD cbData,
  602. UINT wFmt, HSZ hszItem)
  603. {
  604. DDE_DATAHANDLE_HEAD *dh;
  605. WDML_XACT *pXAct;
  606. DDEPOKE *ddePoke;
  607. HGLOBAL hglobal;
  608. ATOM atom;
  609. TRACE("XTYP_POKE transaction\n");
  610. atom = WDML_MakeAtomFromHsz(hszItem);
  611. if (!atom) return NULL;
  612. pXAct = WDML_AllocTransaction(pConv->instance, WM_DDE_POKE, wFmt, hszItem);
  613. if (!pXAct)
  614. {
  615. GlobalDeleteAtom(atom);
  616. return NULL;
  617. }
  618. if (cbData == (DWORD)-1)
  619. {
  620. hglobal = pData;
  621. dh = GlobalLock(hglobal);
  622. cbData = GlobalSize(hglobal) - sizeof(DDE_DATAHANDLE_HEAD);
  623. pData = dh + 1;
  624. GlobalUnlock(hglobal);
  625. }
  626. pXAct->hMem = GlobalAlloc(GHND | GMEM_DDESHARE, FIELD_OFFSET(DDEPOKE, Value[cbData]));
  627. ddePoke = GlobalLock(pXAct->hMem);
  628. if (!ddePoke)
  629. {
  630. pConv->instance->lastError = DMLERR_MEMORY_ERROR;
  631. return NULL;
  632. }
  633. ddePoke->unused = 0;
  634. ddePoke->fRelease = TRUE;
  635. ddePoke->cfFormat = wFmt;
  636. memcpy(ddePoke->Value, pData, cbData);
  637. GlobalUnlock(pXAct->hMem);
  638. pXAct->lParam = PackDDElParam(WM_DDE_POKE, (UINT_PTR)pXAct->hMem, atom);
  639. return pXAct;
  640. }
  641. /******************************************************************
  642. * WDML_HandlePokeReply
  643. *
  644. *
  645. */
  646. static WDML_QUEUE_STATE WDML_HandlePokeReply(WDML_CONV* pConv, MSG* msg, WDML_XACT* pXAct, DWORD *ack)
  647. {
  648. UINT_PTR uiLo, uiHi;
  649. HSZ hsz;
  650. if (msg->message != WM_DDE_ACK && WIN_GetFullHandle((HWND)msg->wParam) != pConv->hwndServer)
  651. {
  652. return WDML_QS_PASS;
  653. }
  654. UnpackDDElParam(WM_DDE_ACK, msg->lParam, &uiLo, &uiHi);
  655. hsz = WDML_MakeHszFromAtom(pConv->instance, uiHi);
  656. if (DdeCmpStringHandles(hsz, pXAct->hszItem) != 0)
  657. {
  658. return WDML_QS_PASS;
  659. }
  660. FreeDDElParam(WM_DDE_ACK, msg->lParam);
  661. GlobalDeleteAtom(uiHi);
  662. if (ack) *ack = uiLo;
  663. pXAct->hMem = GlobalFree(pXAct->hMem);
  664. pXAct->hDdeData = (HDDEDATA)TRUE;
  665. return TRUE;
  666. }
  667. /******************************************************************
  668. * WDML_ClientQueueTerminate
  669. *
  670. * Creates and queue an WM_DDE_TERMINATE transaction
  671. */
  672. static WDML_XACT* WDML_ClientQueueTerminate(WDML_CONV* pConv)
  673. {
  674. WDML_XACT* pXAct;
  675. pXAct = WDML_AllocTransaction(pConv->instance, WM_DDE_TERMINATE, 0, 0);
  676. if (!pXAct)
  677. return NULL;
  678. pXAct->lParam = 0;
  679. pConv->wStatus &= ~ST_CONNECTED;
  680. return pXAct;
  681. }
  682. /******************************************************************
  683. * WDML_HandleTerminateReply
  684. *
  685. * handles the reply to a terminate request
  686. */
  687. static WDML_QUEUE_STATE WDML_HandleTerminateReply(WDML_CONV* pConv, MSG* msg)
  688. {
  689. if (msg->message != WM_DDE_TERMINATE)
  690. {
  691. /* FIXME: should delete data passed here */
  692. return WDML_QS_SWALLOWED;
  693. }
  694. if (WIN_GetFullHandle((HWND)msg->wParam) != pConv->hwndServer)
  695. {
  696. FIXME("hmmm shouldn't happen\n");
  697. return WDML_QS_PASS;
  698. }
  699. if (!(pConv->instance->CBFflags & CBF_SKIP_DISCONNECTS))
  700. {
  701. WDML_InvokeCallback(pConv->instance, XTYP_DISCONNECT, 0, (HCONV)pConv,
  702. 0, 0, 0, 0, (pConv->wStatus & ST_ISSELF) ? 1 : 0);
  703. }
  704. WDML_RemoveConv(pConv, WDML_CLIENT_SIDE);
  705. return WDML_QS_HANDLED;
  706. }
  707. /******************************************************************
  708. * WDML_HandleIncomingData
  709. *
  710. *
  711. */
  712. static WDML_QUEUE_STATE WDML_HandleIncomingData(WDML_CONV* pConv, MSG* msg, HDDEDATA* hdd)
  713. {
  714. UINT_PTR uiLo, uiHi;
  715. HDDEDATA hDdeDataIn, hDdeDataOut;
  716. WDML_LINK* pLink;
  717. WINE_DDEHEAD wdh;
  718. HSZ hsz;
  719. TRACE("WM_DDE_DATA message received in the Client Proc!\n");
  720. /* wParam -- sending window handle */
  721. /* lParam -- hDdeData & item HSZ */
  722. UnpackDDElParam(WM_DDE_DATA, msg->lParam, &uiLo, &uiHi);
  723. hsz = WDML_MakeHszFromAtom(pConv->instance, uiHi);
  724. hDdeDataIn = WDML_Global2DataHandle(pConv, (HGLOBAL)uiLo, &wdh);
  725. /* billx:
  726. * For hot link, data should be passed to its callback with
  727. * XTYP_ADVDATA and callback should return the proper status.
  728. */
  729. pLink = WDML_FindLink(pConv->instance, (HCONV)pConv, WDML_CLIENT_SIDE, hsz,
  730. uiLo != 0, wdh.cfFormat);
  731. if (!pLink)
  732. {
  733. WDML_DecHSZ(pConv->instance, hsz);
  734. DdeFreeDataHandle(hDdeDataIn);
  735. return WDML_QS_PASS;
  736. }
  737. if (hDdeDataIn != 0 && wdh.fAckReq)
  738. {
  739. WDML_PostAck(pConv, WDML_CLIENT_SIDE, 0, FALSE, TRUE, uiHi, msg->lParam, WM_DDE_DATA);
  740. if (msg->lParam)
  741. msg->lParam = 0;
  742. }
  743. else
  744. {
  745. GlobalDeleteAtom(uiHi);
  746. }
  747. hDdeDataOut = WDML_InvokeCallback(pConv->instance, XTYP_ADVDATA, pLink->uFmt, pLink->hConv,
  748. pConv->hszTopic, pLink->hszItem, hDdeDataIn, 0, 0);
  749. if (hDdeDataOut != (HDDEDATA)DDE_FACK || wdh.fRelease)
  750. {
  751. if (uiLo) GlobalFree((HANDLE)uiLo);
  752. }
  753. DdeFreeDataHandle(hDdeDataIn);
  754. WDML_DecHSZ(pConv->instance, hsz);
  755. if (msg->lParam)
  756. FreeDDElParam(WM_DDE_DATA, msg->lParam);
  757. return WDML_QS_HANDLED;
  758. }
  759. /******************************************************************
  760. * WDML_HandleIncomingTerminate
  761. *
  762. *
  763. */
  764. static WDML_QUEUE_STATE WDML_HandleIncomingTerminate(WDML_CONV* pConv, MSG* msg, HDDEDATA* hdd)
  765. {
  766. if (pConv->hwndServer != WIN_GetFullHandle((HWND)msg->wParam))
  767. return WDML_QS_PASS;
  768. pConv->wStatus |= ST_TERMINATED;
  769. if (pConv->wStatus & ST_CONNECTED)
  770. {
  771. /* don't care about result code (if server exists or not) */
  772. PostMessageW(pConv->hwndServer, WM_DDE_TERMINATE, (WPARAM)pConv->hwndClient, 0L);
  773. pConv->wStatus &= ~ST_CONNECTED;
  774. }
  775. /* have to keep connection around to allow reconnection */
  776. return WDML_QS_HANDLED;
  777. }
  778. /******************************************************************
  779. * WDML_HandleReply
  780. *
  781. * handles any incoming reply, and try to match to an already sent request
  782. */
  783. static WDML_QUEUE_STATE WDML_HandleReply(WDML_CONV* pConv, MSG* msg, HDDEDATA* hdd, DWORD *ack)
  784. {
  785. WDML_XACT* pXAct = pConv->transactions;
  786. WDML_QUEUE_STATE qs;
  787. if (pConv->transactions)
  788. {
  789. if (ack) *ack = DDE_FNOTPROCESSED;
  790. /* first check message against a pending transaction, if any */
  791. switch (pXAct->ddeMsg)
  792. {
  793. case WM_DDE_ADVISE:
  794. qs = WDML_HandleAdviseReply(pConv, msg, pXAct, ack);
  795. break;
  796. case WM_DDE_UNADVISE:
  797. qs = WDML_HandleUnadviseReply(pConv, msg, pXAct, ack);
  798. break;
  799. case WM_DDE_EXECUTE:
  800. qs = WDML_HandleExecuteReply(pConv, msg, pXAct, ack);
  801. break;
  802. case WM_DDE_REQUEST:
  803. qs = WDML_HandleRequestReply(pConv, msg, pXAct, ack);
  804. break;
  805. case WM_DDE_POKE:
  806. qs = WDML_HandlePokeReply(pConv, msg, pXAct, ack);
  807. break;
  808. case WM_DDE_TERMINATE:
  809. qs = WDML_HandleTerminateReply(pConv, msg);
  810. break;
  811. default:
  812. qs = WDML_QS_ERROR;
  813. FIXME("oooch\n");
  814. }
  815. }
  816. else
  817. {
  818. qs = WDML_QS_PASS;
  819. }
  820. /* now check the results */
  821. switch (qs)
  822. {
  823. case WDML_QS_ERROR:
  824. case WDML_QS_SWALLOWED:
  825. *hdd = 0;
  826. break;
  827. case WDML_QS_HANDLED:
  828. /* ok, we have resolved a pending transaction
  829. * notify callback if asynchronous.
  830. */
  831. if (pXAct->dwTimeout == TIMEOUT_ASYNC && pXAct->ddeMsg != WM_DDE_TERMINATE)
  832. {
  833. WDML_InvokeCallback(pConv->instance, XTYP_XACT_COMPLETE, pXAct->wFmt,
  834. (HCONV)pConv, pConv->hszTopic, pXAct->hszItem,
  835. pXAct->hDdeData, MAKELONG(0, pXAct->xActID), 0 /* FIXME */);
  836. qs = WDML_QS_PASS;
  837. }
  838. else
  839. {
  840. *hdd = pXAct->hDdeData;
  841. }
  842. break;
  843. case WDML_QS_PASS:
  844. /* no pending transaction found, try a warm/hot link or a termination request */
  845. switch (msg->message)
  846. {
  847. case WM_DDE_DATA:
  848. qs = WDML_HandleIncomingData(pConv, msg, hdd);
  849. break;
  850. case WM_DDE_TERMINATE:
  851. qs = WDML_HandleIncomingTerminate(pConv, msg, hdd);
  852. break;
  853. case WM_DDE_ACK:
  854. /* This happens at end of DdeClientTransaction XTYP_EXECUTE
  855. * Without this assignment, DdeClientTransaction's return value is undefined
  856. */
  857. *hdd = (HDDEDATA)TRUE;
  858. if (ack)
  859. *ack = DDE_FACK;
  860. break;
  861. }
  862. break;
  863. case WDML_QS_BLOCK:
  864. FIXME("shouldn't be used on client side\n");
  865. break;
  866. }
  867. return qs;
  868. }
  869. /******************************************************************
  870. * WDML_SyncWaitTransactionReply
  871. *
  872. * waits until an answer for a sent request is received
  873. * time out is also handled. only used for synchronous transactions
  874. */
  875. static HDDEDATA WDML_SyncWaitTransactionReply(HCONV hConv, DWORD dwTimeout, const WDML_XACT* pXAct, DWORD *ack)
  876. {
  877. DWORD start, elapsed;
  878. DWORD err;
  879. WDML_CONV* pConv;
  880. TRACE("Starting wait for a timeout of %d ms\n", dwTimeout);
  881. start = GetTickCount();
  882. while ((elapsed = GetTickCount() - start) < dwTimeout)
  883. {
  884. /* we cannot be in the crit sect all the time because when client and server run in a
  885. * single process they need to share the access to the internal data
  886. */
  887. if (MsgWaitForMultipleObjects(0, NULL, FALSE,
  888. dwTimeout - elapsed, QS_POSTMESSAGE) == WAIT_OBJECT_0)
  889. {
  890. MSG msg;
  891. while (PeekMessageW(&msg, 0, WM_DDE_FIRST, WM_DDE_LAST, PM_REMOVE))
  892. {
  893. HDDEDATA hdd = NULL;
  894. pConv = WDML_GetConv(hConv, FALSE);
  895. if (pConv == NULL)
  896. {
  897. /* conversation no longer available... return failure */
  898. return 0;
  899. }
  900. if (msg.hwnd == pConv->hwndClient)
  901. {
  902. /* check that either pXAct has been processed or no more xActions are pending */
  903. BOOL ret = (pConv->transactions == pXAct);
  904. if (WDML_HandleReply(pConv, &msg, &hdd, ack) == WDML_QS_HANDLED)
  905. {
  906. TRACE("WDML_HandleReply returned WDML_QS_HANDLED\n");
  907. ret = TRUE;
  908. }
  909. else
  910. ret = (pConv->transactions == NULL || ret);
  911. if (ret)
  912. {
  913. pConv->instance->lastError = hdd ? DMLERR_NO_ERROR : DMLERR_NOTPROCESSED;
  914. return hdd;
  915. }
  916. }
  917. else
  918. {
  919. DispatchMessageW(&msg);
  920. }
  921. }
  922. }
  923. }
  924. TRACE("Timeout !!\n");
  925. pConv = WDML_GetConv(hConv, FALSE);
  926. if (pConv != NULL)
  927. {
  928. if (pConv->transactions)
  929. {
  930. switch (pConv->transactions->ddeMsg)
  931. {
  932. case WM_DDE_ADVISE: err = DMLERR_ADVACKTIMEOUT; break;
  933. case WM_DDE_REQUEST: err = DMLERR_DATAACKTIMEOUT; break;
  934. case WM_DDE_EXECUTE: err = DMLERR_EXECACKTIMEOUT; break;
  935. case WM_DDE_POKE: err = DMLERR_POKEACKTIMEOUT; break;
  936. case WM_DDE_UNADVISE: err = DMLERR_UNADVACKTIMEOUT; break;
  937. default: err = DMLERR_INVALIDPARAMETER; break;
  938. }
  939. pConv->instance->lastError = err;
  940. }
  941. }
  942. return 0;
  943. }
  944. /*****************************************************************
  945. * WDML_ClientHandle
  946. */
  947. HDDEDATA WDML_ClientHandle(WDML_CONV *pConv, WDML_XACT *pXAct, DWORD dwTimeout, LPDWORD pdwResult)
  948. {
  949. HDDEDATA hDdeData;
  950. if (!PostMessageW(pConv->hwndServer, pXAct->ddeMsg, (WPARAM)pConv->hwndClient, pXAct->lParam))
  951. {
  952. WARN("Failed posting message %x to %p (error=0x%x)\n",
  953. pXAct->ddeMsg, pConv->hwndServer, GetLastError());
  954. pConv->wStatus &= ~ST_CONNECTED;
  955. pConv->instance->lastError = DMLERR_POSTMSG_FAILED;
  956. return 0;
  957. }
  958. pXAct->dwTimeout = dwTimeout;
  959. /* FIXME: should set the app bits on *pdwResult */
  960. if (dwTimeout == TIMEOUT_ASYNC)
  961. {
  962. if (pdwResult)
  963. *pdwResult = MAKELONG(0, pXAct->xActID);
  964. hDdeData = (HDDEDATA)1;
  965. }
  966. else
  967. hDdeData = WDML_SyncWaitTransactionReply((HCONV)pConv, dwTimeout, pXAct, pdwResult);
  968. return hDdeData;
  969. }
  970. /*****************************************************************
  971. * DdeClientTransaction (USER32.@)
  972. */
  973. HDDEDATA WINAPI DdeClientTransaction(LPBYTE pData, DWORD cbData, HCONV hConv, HSZ hszItem, UINT wFmt,
  974. UINT wType, DWORD dwTimeout, LPDWORD pdwResult)
  975. {
  976. WDML_CONV* pConv;
  977. WDML_XACT* pXAct;
  978. HDDEDATA hDdeData;
  979. TRACE("(%p,%d,%p,%p,%x,%x,%d,%p)\n",
  980. pData, cbData, hConv, hszItem, wFmt, wType, dwTimeout, pdwResult);
  981. if (hConv == 0)
  982. {
  983. WARN("Invalid conversation handle NULL\n");
  984. return 0;
  985. }
  986. pConv = WDML_GetConv(hConv, TRUE);
  987. if (pConv == NULL)
  988. {
  989. /* cannot set error... cannot get back to DDE instance */
  990. return 0;
  991. }
  992. switch (wType)
  993. {
  994. case XTYP_EXECUTE:
  995. /* Windows simply ignores hszItem and wFmt in this case */
  996. pXAct = WDML_ClientQueueExecute(pConv, pData, cbData);
  997. if (pXAct == NULL)
  998. return 0;
  999. break;
  1000. case XTYP_POKE:
  1001. if (!hszItem)
  1002. {
  1003. pConv->instance->lastError = DMLERR_INVALIDPARAMETER;
  1004. return 0;
  1005. }
  1006. pXAct = WDML_ClientQueuePoke(pConv, pData, cbData, wFmt, hszItem);
  1007. break;
  1008. case XTYP_ADVSTART|XTYPF_NODATA:
  1009. case XTYP_ADVSTART|XTYPF_NODATA|XTYPF_ACKREQ:
  1010. case XTYP_ADVSTART:
  1011. case XTYP_ADVSTART|XTYPF_ACKREQ:
  1012. if (pData)
  1013. {
  1014. pConv->instance->lastError = DMLERR_INVALIDPARAMETER;
  1015. return 0;
  1016. }
  1017. pXAct = WDML_ClientQueueAdvise(pConv, wType, wFmt, hszItem);
  1018. break;
  1019. case XTYP_ADVSTOP:
  1020. if (pData)
  1021. {
  1022. pConv->instance->lastError = DMLERR_INVALIDPARAMETER;
  1023. return 0;
  1024. }
  1025. pXAct = WDML_ClientQueueUnadvise(pConv, wFmt, hszItem);
  1026. break;
  1027. case XTYP_REQUEST:
  1028. if (pData || !hszItem)
  1029. {
  1030. pConv->instance->lastError = DMLERR_INVALIDPARAMETER;
  1031. return 0;
  1032. }
  1033. pXAct = WDML_ClientQueueRequest(pConv, wFmt, hszItem);
  1034. break;
  1035. default:
  1036. FIXME("Unknown transaction type %04x\n", wType);
  1037. /* unknown transaction type */
  1038. pConv->instance->lastError = DMLERR_INVALIDPARAMETER;
  1039. return 0;
  1040. }
  1041. if (pXAct == NULL)
  1042. {
  1043. pConv->instance->lastError = DMLERR_MEMORY_ERROR;
  1044. return 0;
  1045. }
  1046. WDML_QueueTransaction(pConv, pXAct);
  1047. TRACE("pConv->wStatus %04x\n", pConv->wStatus);
  1048. if (pConv->wStatus & ST_BLOCKED)
  1049. {
  1050. TRACE("Transactions are blocked, add to the queue and exit\n");
  1051. return (HDDEDATA)1;
  1052. }
  1053. hDdeData = WDML_ClientHandle(pConv, pXAct, dwTimeout, pdwResult);
  1054. if (dwTimeout != TIMEOUT_ASYNC)
  1055. {
  1056. WDML_UnQueueTransaction(pConv, pXAct);
  1057. WDML_FreeTransaction(pConv->instance, pXAct, TRUE);
  1058. }
  1059. return hDdeData;
  1060. }
  1061. /*****************************************************************
  1062. * DdeAbandonTransaction (USER32.@)
  1063. */
  1064. BOOL WINAPI DdeAbandonTransaction(DWORD idInst, HCONV hConv, DWORD idTransaction)
  1065. {
  1066. WDML_INSTANCE* pInstance;
  1067. WDML_CONV* pConv;
  1068. WDML_XACT* pXAct;
  1069. if ((pInstance = WDML_GetInstance(idInst)))
  1070. {
  1071. if (hConv)
  1072. {
  1073. if ((pConv = WDML_GetConv(hConv, TRUE)) && pConv->instance == pInstance)
  1074. {
  1075. pXAct = pConv->transactions;
  1076. while (pXAct) {
  1077. WDML_XACT *nextXAct = pXAct->next;
  1078. if (pXAct->dwTimeout == TIMEOUT_ASYNC &&
  1079. (idTransaction == 0 || pXAct->xActID == idTransaction))
  1080. {
  1081. WDML_UnQueueTransaction(pConv, pXAct);
  1082. WDML_FreeTransaction(pInstance, pXAct, TRUE);
  1083. }
  1084. pXAct = nextXAct;
  1085. }
  1086. }
  1087. }
  1088. else
  1089. {
  1090. for (pConv = pInstance->convs[WDML_CLIENT_SIDE]; pConv; pConv = pConv->next)
  1091. {
  1092. if (!(pConv->wStatus & ST_CONNECTED)) continue;
  1093. pXAct = pConv->transactions;
  1094. while (pXAct) {
  1095. WDML_XACT *nextXAct = pXAct->next;
  1096. if (pXAct->dwTimeout == TIMEOUT_ASYNC)
  1097. {
  1098. WDML_UnQueueTransaction(pConv, pXAct);
  1099. WDML_FreeTransaction(pInstance, pXAct, TRUE);
  1100. }
  1101. pXAct = nextXAct;
  1102. }
  1103. }
  1104. }
  1105. }
  1106. return TRUE;
  1107. }
  1108. /******************************************************************
  1109. * WDML_ClientProc
  1110. *
  1111. * Window Proc created on client side for each conversation
  1112. */
  1113. static LRESULT CALLBACK WDML_ClientProc(HWND hwnd, UINT iMsg, WPARAM wParam, LPARAM lParam)
  1114. {
  1115. UINT uiLo, uiHi;
  1116. WDML_CONV* pConv = NULL;
  1117. HSZ hszSrv, hszTpc;
  1118. TRACE("%p %04x %08lx %08lx\n", hwnd, iMsg, wParam , lParam);
  1119. if (iMsg == WM_DDE_ACK &&
  1120. /* in the initial WM_INITIATE sendmessage */
  1121. ((pConv = WDML_GetConvFromWnd(hwnd)) == NULL || pConv->wStatus == XST_INIT1))
  1122. {
  1123. /* In response to WM_DDE_INITIATE, save server window */
  1124. char buf[256];
  1125. WDML_INSTANCE* pInstance;
  1126. /* note: sent messages do not need packing */
  1127. uiLo = LOWORD(lParam);
  1128. uiHi = HIWORD(lParam);
  1129. /* FIXME: convlist should be handled here */
  1130. if (pConv)
  1131. {
  1132. /* we already have started the conv with a server, drop other replies */
  1133. GlobalDeleteAtom(uiLo);
  1134. GlobalDeleteAtom(uiHi);
  1135. PostMessageW((HWND)wParam, WM_DDE_TERMINATE, (WPARAM)hwnd, 0);
  1136. return 0;
  1137. }
  1138. pInstance = WDML_GetInstanceFromWnd(hwnd);
  1139. hszSrv = WDML_MakeHszFromAtom(pInstance, uiLo);
  1140. hszTpc = WDML_MakeHszFromAtom(pInstance, uiHi);
  1141. pConv = WDML_AddConv(pInstance, WDML_CLIENT_SIDE, hszSrv, hszTpc, hwnd, (HWND)wParam);
  1142. SetWindowLongPtrW(hwnd, GWL_WDML_CONVERSATION, (ULONG_PTR)pConv);
  1143. pConv->wStatus |= ST_CONNECTED;
  1144. pConv->wConvst = XST_INIT1;
  1145. /* check if server is handled by DDEML */
  1146. if ((GetClassNameA((HWND)wParam, buf, sizeof(buf)) &&
  1147. lstrcmpiA(buf, WDML_szServerConvClassA) == 0) ||
  1148. (GetClassNameW((HWND)wParam, (LPWSTR)buf, sizeof(buf)/sizeof(WCHAR)) &&
  1149. lstrcmpiW((LPWSTR)buf, WDML_szServerConvClassW) == 0))
  1150. {
  1151. pConv->wStatus |= ST_ISLOCAL;
  1152. }
  1153. GlobalDeleteAtom(uiLo);
  1154. GlobalDeleteAtom(uiHi);
  1155. /* accept conversation */
  1156. return 1;
  1157. }
  1158. if (iMsg >= WM_DDE_FIRST && iMsg <= WM_DDE_LAST)
  1159. {
  1160. pConv = WDML_GetConvFromWnd(hwnd);
  1161. if (pConv)
  1162. {
  1163. MSG msg;
  1164. HDDEDATA hdd;
  1165. msg.hwnd = hwnd;
  1166. msg.message = iMsg;
  1167. msg.wParam = wParam;
  1168. msg.lParam = lParam;
  1169. WDML_HandleReply(pConv, &msg, &hdd, NULL);
  1170. }
  1171. return 0;
  1172. }
  1173. return IsWindowUnicode(hwnd) ? DefWindowProcW(hwnd, iMsg, wParam, lParam) :
  1174. DefWindowProcA(hwnd, iMsg, wParam, lParam);
  1175. }
  1176. /*****************************************************************
  1177. * DdeDisconnect (USER32.@)
  1178. */
  1179. BOOL WINAPI DdeDisconnect(HCONV hConv)
  1180. {
  1181. WDML_CONV* pConv;
  1182. WDML_XACT* pXAct;
  1183. BOOL ret = FALSE;
  1184. TRACE("(%p)\n", hConv);
  1185. if (hConv == 0)
  1186. {
  1187. WARN("DdeDisconnect(): hConv = 0\n");
  1188. return FALSE;
  1189. }
  1190. pConv = WDML_GetConv(hConv, TRUE);
  1191. if (pConv != NULL)
  1192. {
  1193. if (pConv->wStatus & ST_CLIENT)
  1194. {
  1195. /* FIXME: should abandon all pending transactions */
  1196. pXAct = WDML_ClientQueueTerminate(pConv);
  1197. if (pXAct != NULL)
  1198. {
  1199. if (PostMessageW(pConv->hwndServer, pXAct->ddeMsg,
  1200. (WPARAM)pConv->hwndClient, pXAct->lParam))
  1201. {
  1202. WDML_SyncWaitTransactionReply(hConv, 10000, pXAct, NULL);
  1203. ret = TRUE;
  1204. }
  1205. else
  1206. pConv->instance->lastError = DMLERR_POSTMSG_FAILED;
  1207. WDML_FreeTransaction(pConv->instance, pXAct, TRUE);
  1208. /* still have to destroy data associated with conversation */
  1209. WDML_RemoveConv(pConv, WDML_CLIENT_SIDE);
  1210. }
  1211. else
  1212. {
  1213. FIXME("Not implemented yet for a server side conversation\n");
  1214. }
  1215. }
  1216. }
  1217. return ret;
  1218. }
  1219. /*****************************************************************
  1220. * DdeImpersonateClient (USER32.@)
  1221. */
  1222. BOOL WINAPI DdeImpersonateClient(HCONV hConv)
  1223. {
  1224. WDML_CONV* pConv;
  1225. BOOL ret = FALSE;
  1226. TRACE("(%p)\n", hConv);
  1227. pConv = WDML_GetConv(hConv, TRUE);
  1228. if (pConv)
  1229. {
  1230. ret = ImpersonateDdeClientWindow(pConv->hwndClient, pConv->hwndServer);
  1231. }
  1232. return ret;
  1233. }