?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
user32: Implement GetDpiForWindow().
[wine.git] / dlls / user32 / dde_misc.c
blob175d9e31f4ab426471f61a9e21fabd82b0662f58
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 2003, 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
26 #include "config.h"
27 #include "wine/port.h"
28
29 #include <string.h>
30 #include <stdarg.h>
31 #include <stdio.h>
32 #include "windef.h"
33 #include "winbase.h"
34 #include "wingdi.h"
35 #include "winuser.h"
36 #include "dde.h"
37 #include "ddeml.h"
38 #include "win.h"
39 #include "dde_private.h"
40 #include "wine/unicode.h"
41 #include "wine/debug.h"
42
43 WINE_DEFAULT_DEBUG_CHANNEL(ddeml);
44
45 /* convert between ATOM and HSZ avoiding compiler warnings */
46 #define ATOM2HSZ(atom) ((HSZ) (ULONG_PTR)(atom))
47 #define HSZ2ATOM(hsz) ((ATOM) (ULONG_PTR)(hsz))
48
49 static WDML_INSTANCE* WDML_InstanceList = NULL;
50 static LONG WDML_MaxInstanceID = 0; /* OK for present, have to worry about wrap-around later */
51 const WCHAR WDML_szEventClass[] = {'W','i','n','e','D','d','e','E','v','e','n','t','C','l','a','s','s',0};
52
53 /* protection for instance list */
54 static CRITICAL_SECTION WDML_CritSect;
55 static CRITICAL_SECTION_DEBUG critsect_debug =
56 {
57 0, 0, &WDML_CritSect,
58 { &critsect_debug.ProcessLocksList, &critsect_debug.ProcessLocksList },
59 0, 0, { (DWORD_PTR)(__FILE__ ": WDML_CritSect") }
60 };
61 static CRITICAL_SECTION WDML_CritSect = { &critsect_debug, -1, 0, 0, 0, 0 };
62
63 /* ================================================================
64 *
65 * Pure DDE (non DDEML) management
66 *
67 * ================================================================ */
68
69
70 /*****************************************************************
71 * PackDDElParam (USER32.@)
72 *
73 * RETURNS
74 * the packed lParam
75 */
76 LPARAM WINAPI PackDDElParam(UINT msg, UINT_PTR uiLo, UINT_PTR uiHi)
77 {
78 HGLOBAL hMem;
79 UINT_PTR *params;
80
81 switch (msg)
82 {
83 case WM_DDE_ACK:
84 case WM_DDE_ADVISE:
85 case WM_DDE_DATA:
86 case WM_DDE_POKE:
87 if (!(hMem = GlobalAlloc(GMEM_DDESHARE, sizeof(UINT_PTR) * 2)))
88 {
89 ERR("GlobalAlloc failed\n");
90 return 0;
91 }
92 if (!(params = GlobalLock(hMem)))
93 {
94 ERR("GlobalLock failed (%p)\n", hMem);
95 return 0;
96 }
97 params[0] = uiLo;
98 params[1] = uiHi;
99 GlobalUnlock(hMem);
100 return (LPARAM)hMem;
101
102 case WM_DDE_EXECUTE:
103 return uiHi;
104
105 default:
106 return MAKELONG(uiLo, uiHi);
107 }
108 }
109
110
111 /*****************************************************************
112 * UnpackDDElParam (USER32.@)
113 *
114 * RETURNS
115 * success: nonzero
116 * failure: zero
117 */
118 BOOL WINAPI UnpackDDElParam(UINT msg, LPARAM lParam,
119 PUINT_PTR uiLo, PUINT_PTR uiHi)
120 {
121 UINT_PTR *params;
122
123 switch (msg)
124 {
125 case WM_DDE_ACK:
126 case WM_DDE_ADVISE:
127 case WM_DDE_DATA:
128 case WM_DDE_POKE:
129 if (!lParam || !(params = GlobalLock((HGLOBAL)lParam)))
130 {
131 if (uiLo) *uiLo = 0;
132 if (uiHi) *uiHi = 0;
133 return FALSE;
134 }
135 if (uiLo) *uiLo = params[0];
136 if (uiHi) *uiHi = params[1];
137 GlobalUnlock( (HGLOBAL)lParam );
138 return TRUE;
139
140 case WM_DDE_EXECUTE:
141 if (uiLo) *uiLo = 0;
142 if (uiHi) *uiHi = lParam;
143 return TRUE;
144
145 default:
146 if (uiLo) *uiLo = LOWORD(lParam);
147 if (uiHi) *uiHi = HIWORD(lParam);
148 return TRUE;
149 }
150 }
151
152
153 /*****************************************************************
154 * FreeDDElParam (USER32.@)
155 *
156 * RETURNS
157 * success: nonzero
158 * failure: zero
159 */
160 BOOL WINAPI FreeDDElParam(UINT msg, LPARAM lParam)
161 {
162 switch (msg)
163 {
164 case WM_DDE_ACK:
165 case WM_DDE_ADVISE:
166 case WM_DDE_DATA:
167 case WM_DDE_POKE:
168 /* first check if it's a global handle */
169 if (!GlobalHandle( (LPVOID)lParam )) return TRUE;
170 return !GlobalFree( (HGLOBAL)lParam );
171
172 default:
173 return TRUE;
174 }
175 }
176
177
178 /*****************************************************************
179 * ReuseDDElParam (USER32.@)
180 *
181 * RETURNS
182 * the packed lParam
183 */
184 LPARAM WINAPI ReuseDDElParam(LPARAM lParam, UINT msgIn, UINT msgOut,
185 UINT_PTR uiLo, UINT_PTR uiHi)
186 {
187 UINT_PTR *params;
188
189 switch (msgIn)
190 {
191 case WM_DDE_ACK:
192 case WM_DDE_ADVISE:
193 case WM_DDE_DATA:
194 case WM_DDE_POKE:
195 switch(msgOut)
196 {
197 case WM_DDE_ACK:
198 case WM_DDE_ADVISE:
199 case WM_DDE_DATA:
200 case WM_DDE_POKE:
201 if (!lParam) return 0;
202 if (!(params = GlobalLock( (HGLOBAL)lParam )))
203 {
204 ERR("GlobalLock failed\n");
205 return 0;
206 }
207 params[0] = uiLo;
208 params[1] = uiHi;
209 TRACE("Reusing pack %08lx %08lx\n", uiLo, uiHi);
210 GlobalUnlock( (HGLOBAL)lParam );
211 return lParam;
212
213 case WM_DDE_EXECUTE:
214 FreeDDElParam( msgIn, lParam );
215 return uiHi;
216
217 default:
218 FreeDDElParam( msgIn, lParam );
219 return MAKELPARAM(uiLo, uiHi);
220 }
221
222 default:
223 return PackDDElParam( msgOut, uiLo, uiHi );
224 }
225 }
226
227 /*****************************************************************
228 * ImpersonateDdeClientWindow (USER32.@)
229 *
230 * PARAMS
231 * hWndClient [I] handle to DDE client window
232 * hWndServer [I] handle to DDE server window
233 */
234 BOOL WINAPI ImpersonateDdeClientWindow(HWND hWndClient, HWND hWndServer)
235 {
236 FIXME("(%p %p): stub\n", hWndClient, hWndServer);
237 return FALSE;
238 }
239
240 /*****************************************************************
241 * DdeSetQualityOfService (USER32.@)
242 */
243
244 BOOL WINAPI DdeSetQualityOfService(HWND hwndClient, const SECURITY_QUALITY_OF_SERVICE *pqosNew,
245 PSECURITY_QUALITY_OF_SERVICE pqosPrev)
246 {
247 FIXME("(%p %p %p): stub\n", hwndClient, pqosNew, pqosPrev);
248 return TRUE;
249 }
250
251 /* ================================================================
252 *
253 * WDML Error management
254 *
255 * ================================================================ */
256
257 /******************************************************************************
258 * DdeGetLastError [USER32.@] Gets most recent error code
259 *
260 * PARAMS
261 * idInst [I] Instance identifier
262 *
263 * RETURNS
264 * Last error code
265 */
266 UINT WINAPI DdeGetLastError(DWORD idInst)
267 {
268 DWORD error_code;
269 WDML_INSTANCE* pInstance;
270
271 /* First check instance
272 */
273 pInstance = WDML_GetInstance(idInst);
274 if (pInstance == NULL)
275 {
276 error_code = DMLERR_INVALIDPARAMETER;
277 }
278 else
279 {
280 error_code = pInstance->lastError;
281 pInstance->lastError = 0;
282 }
283
284 return error_code;
285 }
286
287 /******************************************************************
288 * WDML_SetAllLastError
289 *
290 *
291 */
292 static void WDML_SetAllLastError(DWORD lastError)
293 {
294 DWORD threadID;
295 WDML_INSTANCE* pInstance;
296 threadID = GetCurrentThreadId();
297 pInstance = WDML_InstanceList;
298 while (pInstance)
299 {
300 if (pInstance->threadID == threadID)
301 pInstance->lastError = lastError;
302 pInstance = pInstance->next;
303 }
304 }
305
306 /* ================================================================
307 *
308 * String management
309 *
310 * ================================================================ */
311
312
313 /******************************************************************
314 * WDML_FindNode
315 *
316 *
317 */
318 static HSZNode* WDML_FindNode(WDML_INSTANCE* pInstance, HSZ hsz)
319 {
320 HSZNode* pNode;
321
322 if (pInstance == NULL) return NULL;
323
324 for (pNode = pInstance->nodeList; pNode != NULL; pNode = pNode->next)
325 {
326 if (pNode->hsz == hsz) break;
327 }
328 if (!pNode) WARN("HSZ %p not found\n", hsz);
329 return pNode;
330 }
331
332 /******************************************************************
333 * WDML_MakeAtomFromHsz
334 *
335 * Creates a global atom from an existing HSZ
336 * Generally used before sending an HSZ as an atom to a remote app
337 */
338 ATOM WDML_MakeAtomFromHsz(HSZ hsz)
339 {
340 WCHAR nameBuffer[MAX_BUFFER_LEN];
341
342 if (GetAtomNameW(HSZ2ATOM(hsz), nameBuffer, MAX_BUFFER_LEN))
343 return GlobalAddAtomW(nameBuffer);
344 WARN("HSZ %p not found\n", hsz);
345 return 0;
346 }
347
348 /******************************************************************
349 * WDML_MakeHszFromAtom
350 *
351 * Creates a HSZ from an existing global atom
352 * Generally used while receiving a global atom and transforming it
353 * into an HSZ
354 */
355 HSZ WDML_MakeHszFromAtom(const WDML_INSTANCE* pInstance, ATOM atom)
356 {
357 WCHAR nameBuffer[MAX_BUFFER_LEN];
358
359 if (!atom) return NULL;
360
361 if (GlobalGetAtomNameW(atom, nameBuffer, MAX_BUFFER_LEN))
362 {
363 TRACE("%x => %s\n", atom, debugstr_w(nameBuffer));
364 return DdeCreateStringHandleW(pInstance->instanceID, nameBuffer, CP_WINUNICODE);
365 }
366 WARN("ATOM 0x%x not found\n", atom);
367 return 0;
368 }
369
370 /******************************************************************
371 * WDML_IncHSZ
372 *
373 *
374 */
375 BOOL WDML_IncHSZ(WDML_INSTANCE* pInstance, HSZ hsz)
376 {
377 HSZNode* pNode;
378
379 pNode = WDML_FindNode(pInstance, hsz);
380 if (!pNode) return FALSE;
381
382 pNode->refCount++;
383 return TRUE;
384 }
385
386 /******************************************************************************
387 * WDML_DecHSZ (INTERNAL)
388 *
389 * Decrease the ref count of an HSZ. If it reaches 0, the node is removed from the list
390 * of HSZ nodes
391 * Returns -1 is the HSZ isn't found, otherwise it's the current (after --) of the ref count
392 */
393 BOOL WDML_DecHSZ(WDML_INSTANCE* pInstance, HSZ hsz)
394 {
395 HSZNode* pPrev = NULL;
396 HSZNode* pCurrent;
397
398 for (pCurrent = pInstance->nodeList; pCurrent != NULL; pCurrent = (pPrev = pCurrent)->next)
399 {
400 /* If we found the node we were looking for and its ref count is one,
401 * we can remove it
402 */
403 if (pCurrent->hsz == hsz)
404 {
405 if (--pCurrent->refCount == 0)
406 {
407 if (pCurrent == pInstance->nodeList)
408 {
409 pInstance->nodeList = pCurrent->next;
410 }
411 else
412 {
413 pPrev->next = pCurrent->next;
414 }
415 HeapFree(GetProcessHeap(), 0, pCurrent);
416 DeleteAtom(HSZ2ATOM(hsz));
417 }
418 return TRUE;
419 }
420 }
421 WARN("HSZ %p not found\n", hsz);
422
423 return FALSE;
424 }
425
426 /******************************************************************************
427 * WDML_FreeAllHSZ (INTERNAL)
428 *
429 * Frees up all the strings still allocated in the list and
430 * remove all the nodes from the list of HSZ nodes.
431 */
432 static void WDML_FreeAllHSZ(WDML_INSTANCE* pInstance)
433 {
434 /* Free any strings created in this instance.
435 */
436 while (pInstance->nodeList != NULL)
437 {
438 DdeFreeStringHandle(pInstance->instanceID, pInstance->nodeList->hsz);
439 }
440 }
441
442 /******************************************************************************
443 * InsertHSZNode (INTERNAL)
444 *
445 * Insert a node to the head of the list.
446 */
447 static void WDML_InsertHSZNode(WDML_INSTANCE* pInstance, HSZ hsz)
448 {
449 if (hsz != 0)
450 {
451 HSZNode* pNew = NULL;
452 /* Create a new node for this HSZ.
453 */
454 pNew = HeapAlloc(GetProcessHeap(), 0, sizeof(HSZNode));
455 if (pNew != NULL)
456 {
457 pNew->hsz = hsz;
458 pNew->next = pInstance->nodeList;
459 pNew->refCount = 1;
460 pInstance->nodeList = pNew;
461 }
462 else
463 {
464 ERR("Primary HSZ Node allocation failed - out of memory\n");
465 }
466 }
467 }
468
469 /******************************************************************
470 * WDML_QueryString
471 *
472 *
473 */
474 static int WDML_QueryString(WDML_INSTANCE* pInstance, HSZ hsz, LPVOID ptr, DWORD cchMax,
475 int codepage)
476 {
477 WCHAR pString[MAX_BUFFER_LEN];
478 int ret;
479 /* If psz is null, we have to return only the length
480 * of the string.
481 */
482 if (ptr == NULL)
483 {
484 ptr = pString;
485 cchMax = MAX_BUFFER_LEN;
486 }
487
488 /* if there is no input windows returns a NULL string */
489 if (hsz == NULL)
490 {
491 CHAR *t_ptr = ptr;
492 *t_ptr = '\0';
493 return 1;
494 }
495
496 switch (codepage)
497 {
498 case CP_WINANSI:
499 ret = GetAtomNameA(HSZ2ATOM(hsz), ptr, cchMax);
500 break;
501 case CP_WINUNICODE:
502 ret = GetAtomNameW(HSZ2ATOM(hsz), ptr, cchMax);
503 break;
504 default:
505 ERR("Unknown code page %d\n", codepage);
506 ret = 0;
507 }
508 return ret;
509 }
510
511 /*****************************************************************
512 * DdeQueryStringA [USER32.@]
513 */
514 DWORD WINAPI DdeQueryStringA(DWORD idInst, HSZ hsz, LPSTR psz, DWORD cchMax, INT iCodePage)
515 {
516 DWORD ret = 0;
517 WDML_INSTANCE* pInstance;
518
519 TRACE("(%d, %p, %p, %d, %d)\n", idInst, hsz, psz, cchMax, iCodePage);
520
521 /* First check instance
522 */
523 pInstance = WDML_GetInstance(idInst);
524 if (pInstance != NULL)
525 {
526 if (iCodePage == 0) iCodePage = CP_WINANSI;
527 ret = WDML_QueryString(pInstance, hsz, psz, cchMax, iCodePage);
528 }
529
530 TRACE("returning %d (%s)\n", ret, debugstr_a(psz));
531 return ret;
532 }
533
534 /*****************************************************************
535 * DdeQueryStringW [USER32.@]
536 */
537
538 DWORD WINAPI DdeQueryStringW(DWORD idInst, HSZ hsz, LPWSTR psz, DWORD cchMax, INT iCodePage)
539 {
540 DWORD ret = 0;
541 WDML_INSTANCE* pInstance;
542
543 TRACE("(%d, %p, %p, %d, %d)\n", idInst, hsz, psz, cchMax, iCodePage);
544
545 /* First check instance
546 */
547 pInstance = WDML_GetInstance(idInst);
548 if (pInstance != NULL)
549 {
550 if (iCodePage == 0) iCodePage = CP_WINUNICODE;
551 ret = WDML_QueryString(pInstance, hsz, psz, cchMax, iCodePage);
552 }
553
554 TRACE("returning %d (%s)\n", ret, debugstr_w(psz));
555 return ret;
556 }
557
558 /******************************************************************
559 * DML_CreateString
560 *
561 *
562 */
563 static HSZ WDML_CreateString(WDML_INSTANCE* pInstance, LPCVOID ptr, int codepage)
564 {
565 HSZ hsz;
566
567 switch (codepage)
568 {
569 case CP_WINANSI:
570 hsz = ATOM2HSZ(AddAtomA(ptr));
571 TRACE("added atom %s with HSZ %p,\n", debugstr_a(ptr), hsz);
572 break;
573 case CP_WINUNICODE:
574 hsz = ATOM2HSZ(AddAtomW(ptr));
575 TRACE("added atom %s with HSZ %p,\n", debugstr_w(ptr), hsz);
576 break;
577 default:
578 ERR("Unknown code page %d\n", codepage);
579 return 0;
580 }
581 WDML_InsertHSZNode(pInstance, hsz);
582 return hsz;
583 }
584
585 /*****************************************************************
586 * DdeCreateStringHandleA [USER32.@]
587 *
588 * See DdeCreateStringHandleW.
589 */
590 HSZ WINAPI DdeCreateStringHandleA(DWORD idInst, LPCSTR psz, INT codepage)
591 {
592 HSZ hsz = 0;
593 WDML_INSTANCE* pInstance;
594
595 TRACE("(%d,%s,%d)\n", idInst, debugstr_a(psz), codepage);
596
597 pInstance = WDML_GetInstance(idInst);
598 if (pInstance == NULL)
599 WDML_SetAllLastError(DMLERR_INVALIDPARAMETER);
600 else
601 {
602 if (codepage == 0) codepage = CP_WINANSI;
603 hsz = WDML_CreateString(pInstance, psz, codepage);
604 }
605
606 return hsz;
607 }
608
609
610 /******************************************************************************
611 * DdeCreateStringHandleW [USER32.@] Creates handle to identify string
612 *
613 * PARAMS
614 * idInst [I] Instance identifier
615 * psz [I] Pointer to string
616 * codepage [I] Code page identifier
617 * RETURNS
618 * Success: String handle
619 * Failure: 0
620 */
621 HSZ WINAPI DdeCreateStringHandleW(DWORD idInst, LPCWSTR psz, INT codepage)
622 {
623 WDML_INSTANCE* pInstance;
624 HSZ hsz = 0;
625
626 pInstance = WDML_GetInstance(idInst);
627 if (pInstance == NULL)
628 WDML_SetAllLastError(DMLERR_INVALIDPARAMETER);
629 else
630 {
631 if (codepage == 0) codepage = CP_WINUNICODE;
632 hsz = WDML_CreateString(pInstance, psz, codepage);
633 }
634
635 return hsz;
636 }
637
638 /*****************************************************************
639 * DdeFreeStringHandle (USER32.@)
640 * RETURNS
641 * success: nonzero
642 * fail: zero
643 */
644 BOOL WINAPI DdeFreeStringHandle(DWORD idInst, HSZ hsz)
645 {
646 WDML_INSTANCE* pInstance;
647 BOOL ret = FALSE;
648
649 TRACE("(%d,%p):\n", idInst, hsz);
650
651 /* First check instance
652 */
653 pInstance = WDML_GetInstance(idInst);
654 if (pInstance)
655 ret = WDML_DecHSZ(pInstance, hsz);
656
657 return ret;
658 }
659
660 /*****************************************************************
661 * DdeKeepStringHandle (USER32.@)
662 *
663 * RETURNS
664 * success: nonzero
665 * fail: zero
666 */
667 BOOL WINAPI DdeKeepStringHandle(DWORD idInst, HSZ hsz)
668 {
669 WDML_INSTANCE* pInstance;
670 BOOL ret = FALSE;
671
672 TRACE("(%d,%p):\n", idInst, hsz);
673
674 /* First check instance
675 */
676 pInstance = WDML_GetInstance(idInst);
677 if (pInstance)
678 ret = WDML_IncHSZ(pInstance, hsz);
679
680 return ret;
681 }
682
683 /*****************************************************************
684 * DdeCmpStringHandles (USER32.@)
685 *
686 * Compares the value of two string handles. This comparison is
687 * not case sensitive.
688 *
689 * PARAMS
690 * hsz1 [I] Handle to the first string
691 * hsz2 [I] Handle to the second string
692 *
693 * RETURNS
694 * -1 The value of hsz1 is zero or less than hsz2
695 * 0 The values of hsz 1 and 2 are the same or both zero.
696 * 1 The value of hsz2 is zero of less than hsz1
697 */
698 INT WINAPI DdeCmpStringHandles(HSZ hsz1, HSZ hsz2)
699 {
700 WCHAR psz1[MAX_BUFFER_LEN];
701 WCHAR psz2[MAX_BUFFER_LEN];
702 int ret = 0;
703 int ret1, ret2;
704
705 ret1 = GetAtomNameW(HSZ2ATOM(hsz1), psz1, MAX_BUFFER_LEN);
706 ret2 = GetAtomNameW(HSZ2ATOM(hsz2), psz2, MAX_BUFFER_LEN);
707
708 TRACE("(%p<%s> %p<%s>);\n", hsz1, debugstr_w(psz1), hsz2, debugstr_w(psz2));
709
710 /* Make sure we found both strings. */
711 if (ret1 == 0 && ret2 == 0)
712 {
713 /* If both are not found, return both "zero strings". */
714 ret = 0;
715 }
716 else if (ret1 == 0)
717 {
718 /* If hsz1 is a not found, return hsz1 is "zero string". */
719 ret = -1;
720 }
721 else if (ret2 == 0)
722 {
723 /* If hsz2 is a not found, return hsz2 is "zero string". */
724 ret = 1;
725 }
726 else
727 {
728 /* Compare the two strings we got (case insensitive). */
729 ret = lstrcmpiW(psz1, psz2);
730 /* Since strcmp returns any number smaller than
731 * 0 when the first string is found to be less than
732 * the second one we must make sure we are returning
733 * the proper values.
734 */
735 if (ret < 0)
736 {
737 ret = -1;
738 }
739 else if (ret > 0)
740 {
741 ret = 1;
742 }
743 }
744
745 return ret;
746 }
747
748 /* ================================================================
749 *
750 * Instance management
751 *
752 * ================================================================ */
753
754 /******************************************************************************
755 * IncrementInstanceId
756 *
757 * generic routine to increment the max instance Id and allocate a new application instance
758 */
759 static void WDML_IncrementInstanceId(WDML_INSTANCE* pInstance)
760 {
761 DWORD id = InterlockedIncrement(&WDML_MaxInstanceID);
762
763 pInstance->instanceID = id;
764 TRACE("New instance id %d allocated\n", id);
765 }
766
767 /******************************************************************
768 * WDML_EventProc
769 *
770 *
771 */
772 static LRESULT CALLBACK WDML_EventProc(HWND hwndEvent, UINT uMsg, WPARAM wParam, LPARAM lParam)
773 {
774 WDML_INSTANCE* pInstance;
775 HSZ hsz1, hsz2;
776
777 switch (uMsg)
778 {
779 case WM_WDML_REGISTER:
780 pInstance = WDML_GetInstanceFromWnd(hwndEvent);
781 /* try calling the Callback */
782 if (pInstance && !(pInstance->CBFflags & CBF_SKIP_REGISTRATIONS))
783 {
784 hsz1 = WDML_MakeHszFromAtom(pInstance, wParam);
785 hsz2 = WDML_MakeHszFromAtom(pInstance, lParam);
786 WDML_InvokeCallback(pInstance, XTYP_REGISTER, 0, 0, hsz1, hsz2, 0, 0, 0);
787 WDML_DecHSZ(pInstance, hsz1);
788 WDML_DecHSZ(pInstance, hsz2);
789 }
790 break;
791
792 case WM_WDML_UNREGISTER:
793 pInstance = WDML_GetInstanceFromWnd(hwndEvent);
794 if (pInstance && !(pInstance->CBFflags & CBF_SKIP_UNREGISTRATIONS))
795 {
796 hsz1 = WDML_MakeHszFromAtom(pInstance, wParam);
797 hsz2 = WDML_MakeHszFromAtom(pInstance, lParam);
798 WDML_InvokeCallback(pInstance, XTYP_UNREGISTER, 0, 0, hsz1, hsz2, 0, 0, 0);
799 WDML_DecHSZ(pInstance, hsz1);
800 WDML_DecHSZ(pInstance, hsz2);
801 }
802 break;
803
804 case WM_WDML_CONNECT_CONFIRM:
805 pInstance = WDML_GetInstanceFromWnd(hwndEvent);
806 if (pInstance && !(pInstance->CBFflags & CBF_SKIP_CONNECT_CONFIRMS))
807 {
808 WDML_CONV* pConv;
809 /* confirm connection...
810 * lookup for this conv handle
811 */
812 HWND client = WIN_GetFullHandle( (HWND)wParam );
813 HWND server = WIN_GetFullHandle( (HWND)lParam );
814 for (pConv = pInstance->convs[WDML_SERVER_SIDE]; pConv != NULL; pConv = pConv->next)
815 {
816 if (pConv->hwndClient == client && pConv->hwndServer == server)
817 break;
818 }
819 if (pConv)
820 {
821 pConv->wStatus |= ST_ISLOCAL;
822
823 WDML_InvokeCallback(pInstance, XTYP_CONNECT_CONFIRM, 0, (HCONV)pConv,
824 pConv->hszTopic, pConv->hszService, 0, 0,
825 (pConv->wStatus & ST_ISSELF) ? 1 : 0);
826 }
827 }
828 break;
829 default:
830 return DefWindowProcW(hwndEvent, uMsg, wParam, lParam);
831 }
832 return 0;
833 }
834
835 /******************************************************************
836 * WDML_Initialize
837 *
838 *
839 */
840 static UINT WDML_Initialize(LPDWORD pidInst, PFNCALLBACK pfnCallback,
841 DWORD afCmd, DWORD ulRes, BOOL bUnicode)
842 {
843 WDML_INSTANCE* pInstance;
844 WDML_INSTANCE* reference_inst;
845 UINT ret;
846 WNDCLASSEXW wndclass;
847
848 TRACE("(%p,%p,0x%x,%d,0x%x)\n",
849 pidInst, pfnCallback, afCmd, ulRes, bUnicode);
850
851 if (ulRes)
852 {
853 ERR("Reserved value not zero? What does this mean?\n");
854 /* trap this and no more until we know more */
855 return DMLERR_NO_ERROR;
856 }
857
858 /* grab enough heap for one control struct - not really necessary for re-initialise
859 * but allows us to use same validation routines */
860 pInstance = HeapAlloc(GetProcessHeap(), 0, sizeof(WDML_INSTANCE));
861 if (pInstance == NULL)
862 {
863 /* catastrophe !! warn user & abort */
864 ERR("Instance create failed - out of memory\n");
865 return DMLERR_SYS_ERROR;
866 }
867 pInstance->next = NULL;
868 pInstance->monitor = (afCmd | APPCLASS_MONITOR);
869
870 /* messy bit, spec implies that 'Client Only' can be set in 2 different ways, catch 1 here */
871
872 pInstance->clientOnly = afCmd & APPCMD_CLIENTONLY;
873 pInstance->instanceID = *pidInst; /* May need to add calling proc Id */
874 pInstance->threadID = GetCurrentThreadId();
875 pInstance->callback = *pfnCallback;
876 pInstance->unicode = bUnicode;
877 pInstance->nodeList = NULL; /* node will be added later */
878 pInstance->monitorFlags = afCmd & MF_MASK;
879 pInstance->wStatus = 0;
880 pInstance->lastError = DMLERR_NO_ERROR;
881 pInstance->servers = NULL;
882 pInstance->convs[0] = NULL;
883 pInstance->convs[1] = NULL;
884 pInstance->links[0] = NULL;
885 pInstance->links[1] = NULL;
886
887 /* isolate CBF flags in one go, expect this will go the way of all attempts to be clever !! */
888
889 pInstance->CBFflags = afCmd^((afCmd&MF_MASK)|((afCmd&APPCMD_MASK)|(afCmd&APPCLASS_MASK)));
890
891 if (!pInstance->clientOnly)
892 {
893 /* Check for other way of setting Client-only !! */
894 pInstance->clientOnly =
895 (pInstance->CBFflags & CBF_FAIL_ALLSVRXACTIONS) == CBF_FAIL_ALLSVRXACTIONS;
896 }
897
898 TRACE("instance created - checking validity\n");
899
900 if (*pidInst == 0)
901 {
902 /* Initialisation of new Instance Identifier */
903 TRACE("new instance, callback %p flags %X\n",pfnCallback,afCmd);
904
905 EnterCriticalSection(&WDML_CritSect);
906
907 if (WDML_InstanceList == NULL)
908 {
909 /* can't be another instance in this case, assign to the base pointer */
910 WDML_InstanceList = pInstance;
911
912 /* since first must force filter of XTYP_CONNECT and XTYP_WILDCONNECT for
913 * present
914 * ------------------------------- NOTE NOTE NOTE --------------------------
915 *
916 * the manual is not clear if this condition
917 * applies to the first call to DdeInitialize from an application, or the
918 * first call for a given callback !!!
919 */
920
921 pInstance->CBFflags = pInstance->CBFflags|APPCMD_FILTERINITS;
922 TRACE("First application instance detected OK\n");
923 /* allocate new instance ID */
924 WDML_IncrementInstanceId(pInstance);
925 }
926 else
927 {
928 /* really need to chain the new one in to the latest here, but after checking conditions
929 * such as trying to start a conversation from an application trying to monitor */
930 reference_inst = WDML_InstanceList;
931 TRACE("Subsequent application instance - starting checks\n");
932 while (reference_inst->next != NULL)
933 {
934 /*
935 * This set of tests will work if application uses same instance Id
936 * at application level once allocated - which is what manual implies
937 * should happen. If someone tries to be
938 * clever (lazy ?) it will fail to pick up that later calls are for
939 * the same application - should we trust them ?
940 */
941 if (pInstance->instanceID == reference_inst->instanceID)
942 {
943 /* Check 1 - must be same Client-only state */
944
945 if (pInstance->clientOnly != reference_inst->clientOnly)
946 {
947 ret = DMLERR_DLL_USAGE;
948 goto theError;
949 }
950
951 /* Check 2 - cannot use 'Monitor' with any non-monitor modes */
952
953 if (pInstance->monitor != reference_inst->monitor)
954 {
955 ret = DMLERR_INVALIDPARAMETER;
956 goto theError;
957 }
958
959 /* Check 3 - must supply different callback address */
960
961 if (pInstance->callback == reference_inst->callback)
962 {
963 ret = DMLERR_DLL_USAGE;
964 goto theError;
965 }
966 }
967 reference_inst = reference_inst->next;
968 }
969 /* All cleared, add to chain */
970
971 TRACE("Application Instance checks finished\n");
972 WDML_IncrementInstanceId(pInstance);
973 reference_inst->next = pInstance;
974 }
975 LeaveCriticalSection(&WDML_CritSect);
976
977 *pidInst = pInstance->instanceID;
978
979 /* for deadlock issues, windows must always be created when outside the critical section */
980 wndclass.cbSize = sizeof(wndclass);
981 wndclass.style = 0;
982 wndclass.lpfnWndProc = WDML_EventProc;
983 wndclass.cbClsExtra = 0;
984 wndclass.cbWndExtra = sizeof(ULONG_PTR);
985 wndclass.hInstance = 0;
986 wndclass.hIcon = 0;
987 wndclass.hCursor = 0;
988 wndclass.hbrBackground = 0;
989 wndclass.lpszMenuName = NULL;
990 wndclass.lpszClassName = WDML_szEventClass;
991 wndclass.hIconSm = 0;
992
993 RegisterClassExW(&wndclass);
994
995 pInstance->hwndEvent = CreateWindowW(WDML_szEventClass, NULL,
996 WS_POPUP, 0, 0, 0, 0,
997 0, 0, 0, 0);
998
999 SetWindowLongPtrW(pInstance->hwndEvent, GWL_WDML_INSTANCE, (ULONG_PTR)pInstance);
1000
1001 TRACE("New application instance processing finished OK\n");
1002 }
1003 else
1004 {
1005 /* Reinitialisation situation --- FIX */
1006 TRACE("reinitialisation of (%p,%p,0x%x,%d): stub\n", pidInst, pfnCallback, afCmd, ulRes);
1007
1008 EnterCriticalSection(&WDML_CritSect);
1009
1010 if (WDML_InstanceList == NULL)
1011 {
1012 ret = DMLERR_INVALIDPARAMETER;
1013 goto theError;
1014 }
1015 /* can't reinitialise if we have initialised nothing !! */
1016 reference_inst = WDML_InstanceList;
1017 /* must first check if we have been given a valid instance to re-initialise !! how do we do that ? */
1018 /*
1019 * MS allows initialisation without specifying a callback, should we allow addition of the
1020 * callback by a later call to initialise ? - if so this lot will have to change
1021 */
1022 while (reference_inst->next != NULL)
1023 {
1024 if (*pidInst == reference_inst->instanceID && pfnCallback == reference_inst->callback)
1025 {
1026 /* Check 1 - cannot change client-only mode if set via APPCMD_CLIENTONLY */
1027
1028 if (reference_inst->clientOnly)
1029 {
1030 if ((reference_inst->CBFflags & CBF_FAIL_ALLSVRXACTIONS) != CBF_FAIL_ALLSVRXACTIONS)
1031 {
1032 /* i.e. Was set to Client-only and through APPCMD_CLIENTONLY */
1033
1034 if (!(afCmd & APPCMD_CLIENTONLY))
1035 {
1036 ret = DMLERR_INVALIDPARAMETER;
1037 goto theError;
1038 }
1039 }
1040 }
1041 /* Check 2 - cannot change monitor modes */
1042
1043 if (pInstance->monitor != reference_inst->monitor)
1044 {
1045 ret = DMLERR_INVALIDPARAMETER;
1046 goto theError;
1047 }
1048
1049 /* Check 3 - trying to set Client-only via APPCMD when not set so previously */
1050
1051 if ((afCmd&APPCMD_CLIENTONLY) && !reference_inst->clientOnly)
1052 {
1053 ret = DMLERR_INVALIDPARAMETER;
1054 goto theError;
1055 }
1056 break;
1057 }
1058 reference_inst = reference_inst->next;
1059 }
1060 if (reference_inst->next == NULL)
1061 {
1062 ret = DMLERR_INVALIDPARAMETER;
1063 goto theError;
1064 }
1065 /* All checked - change relevant flags */
1066
1067 reference_inst->CBFflags = pInstance->CBFflags;
1068 reference_inst->clientOnly = pInstance->clientOnly;
1069 reference_inst->monitorFlags = pInstance->monitorFlags;
1070
1071 HeapFree(GetProcessHeap(), 0, pInstance); /* finished - release heap space used as work store */
1072
1073 LeaveCriticalSection(&WDML_CritSect);
1074 }
1075
1076 return DMLERR_NO_ERROR;
1077 theError:
1078 HeapFree(GetProcessHeap(), 0, pInstance);
1079 LeaveCriticalSection(&WDML_CritSect);
1080 return ret;
1081 }
1082
1083 /******************************************************************************
1084 * DdeInitializeA (USER32.@)
1085 *
1086 * See DdeInitializeW.
1087 */
1088 UINT WINAPI DdeInitializeA(LPDWORD pidInst, PFNCALLBACK pfnCallback,
1089 DWORD afCmd, DWORD ulRes)
1090 {
1091 return WDML_Initialize(pidInst, pfnCallback, afCmd, ulRes, FALSE);
1092 }
1093
1094 /******************************************************************************
1095 * DdeInitializeW [USER32.@]
1096 * Registers an application with the DDEML
1097 *
1098 * PARAMS
1099 * pidInst [I] Pointer to instance identifier
1100 * pfnCallback [I] Pointer to callback function
1101 * afCmd [I] Set of command and filter flags
1102 * ulRes [I] Reserved
1103 *
1104 * RETURNS
1105 * Success: DMLERR_NO_ERROR
1106 * Failure: DMLERR_DLL_USAGE, DMLERR_INVALIDPARAMETER, DMLERR_SYS_ERROR
1107 */
1108 UINT WINAPI DdeInitializeW(LPDWORD pidInst, PFNCALLBACK pfnCallback,
1109 DWORD afCmd, DWORD ulRes)
1110 {
1111 return WDML_Initialize(pidInst, pfnCallback, afCmd, ulRes, TRUE);
1112 }
1113
1114 /*****************************************************************
1115 * DdeUninitialize [USER32.@] Frees DDEML resources
1116 *
1117 * PARAMS
1118 * idInst [I] Instance identifier
1119 *
1120 * RETURNS
1121 * Success: TRUE
1122 * Failure: FALSE
1123 */
1124
1125 BOOL WINAPI DdeUninitialize(DWORD idInst)
1126 {
1127 /* Stage one - check if we have a handle for this instance
1128 */
1129 WDML_INSTANCE* pInstance;
1130 WDML_CONV* pConv;
1131 WDML_CONV* pConvNext;
1132
1133 TRACE("(%d)\n", idInst);
1134
1135 /* First check instance
1136 */
1137 pInstance = WDML_GetInstance(idInst);
1138 if (pInstance == NULL)
1139 {
1140 /*
1141 * Needs something here to record NOT_INITIALIZED ready for DdeGetLastError
1142 */
1143 return FALSE;
1144 }
1145
1146 /* first terminate all conversations client side
1147 * this shall close existing links...
1148 */
1149 for (pConv = pInstance->convs[WDML_CLIENT_SIDE]; pConv != NULL; pConv = pConvNext)
1150 {
1151 pConvNext = pConv->next;
1152 DdeDisconnect((HCONV)pConv);
1153 }
1154 if (pInstance->convs[WDML_CLIENT_SIDE])
1155 FIXME("still pending conversations\n");
1156
1157 /* then unregister all known service names */
1158 DdeNameService(idInst, 0, 0, DNS_UNREGISTER);
1159
1160 /* Free the nodes that were not freed by this instance
1161 * and remove the nodes from the list of HSZ nodes.
1162 */
1163 WDML_FreeAllHSZ(pInstance);
1164
1165 DestroyWindow(pInstance->hwndEvent);
1166
1167 /* OK now delete the instance handle itself */
1168
1169 if (WDML_InstanceList == pInstance)
1170 {
1171 /* special case - the first/only entry */
1172 WDML_InstanceList = pInstance->next;
1173 }
1174 else
1175 {
1176 /* general case, remove entry */
1177 WDML_INSTANCE* inst;
1178
1179 for (inst = WDML_InstanceList; inst->next != pInstance; inst = inst->next);
1180 inst->next = pInstance->next;
1181 }
1182 /* release the heap entry
1183 */
1184 HeapFree(GetProcessHeap(), 0, pInstance);
1185
1186 return TRUE;
1187 }
1188
1189 /******************************************************************
1190 * WDML_NotifyThreadExit
1191 *
1192 *
1193 */
1194 void WDML_NotifyThreadDetach(void)
1195 {
1196 WDML_INSTANCE* pInstance;
1197 WDML_INSTANCE* next;
1198 DWORD tid = GetCurrentThreadId();
1199
1200 EnterCriticalSection(&WDML_CritSect);
1201 for (pInstance = WDML_InstanceList; pInstance != NULL; pInstance = next)
1202 {
1203 next = pInstance->next;
1204 if (pInstance->threadID == tid)
1205 {
1206 LeaveCriticalSection(&WDML_CritSect);
1207 DdeUninitialize(pInstance->instanceID);
1208 EnterCriticalSection(&WDML_CritSect);
1209 }
1210 }
1211 LeaveCriticalSection(&WDML_CritSect);
1212 }
1213
1214 /******************************************************************
1215 * WDML_InvokeCallback
1216 *
1217 *
1218 */
1219 HDDEDATA WDML_InvokeCallback(WDML_INSTANCE* pInstance, UINT uType, UINT uFmt, HCONV hConv,
1220 HSZ hsz1, HSZ hsz2, HDDEDATA hdata,
1221 ULONG_PTR dwData1, ULONG_PTR dwData2)
1222 {
1223 HDDEDATA ret;
1224
1225 if (pInstance == NULL)
1226 return NULL;
1227
1228 TRACE("invoking CB[%p] (%x %x %p %p %p %p %lx %lx)\n",
1229 pInstance->callback, uType, uFmt,
1230 hConv, hsz1, hsz2, hdata, dwData1, dwData2);
1231 ret = pInstance->callback(uType, uFmt, hConv, hsz1, hsz2, hdata, dwData1, dwData2);
1232 TRACE("done => %p\n", ret);
1233 return ret;
1234 }
1235
1236 /*****************************************************************************
1237 * WDML_GetInstance
1238 *
1239 * generic routine to return a pointer to the relevant DDE_HANDLE_ENTRY
1240 * for an instance Id, or NULL if the entry does not exist
1241 *
1242 */
1243 WDML_INSTANCE* WDML_GetInstance(DWORD instId)
1244 {
1245 WDML_INSTANCE* pInstance;
1246
1247 EnterCriticalSection(&WDML_CritSect);
1248
1249 for (pInstance = WDML_InstanceList; pInstance != NULL; pInstance = pInstance->next)
1250 {
1251 if (pInstance->instanceID == instId)
1252 {
1253 if (GetCurrentThreadId() != pInstance->threadID)
1254 {
1255 FIXME("Tried to get instance from wrong thread\n");
1256 continue;
1257 }
1258 break;
1259 }
1260 }
1261
1262 LeaveCriticalSection(&WDML_CritSect);
1263
1264 if (!pInstance)
1265 WARN("Instance entry missing for id %04x\n", instId);
1266 return pInstance;
1267 }
1268
1269 /******************************************************************
1270 * WDML_GetInstanceFromWnd
1271 *
1272 *
1273 */
1274 WDML_INSTANCE* WDML_GetInstanceFromWnd(HWND hWnd)
1275 {
1276 return (WDML_INSTANCE*)GetWindowLongPtrW(hWnd, GWL_WDML_INSTANCE);
1277 }
1278
1279 /* ================================================================
1280 *
1281 * Data handle management
1282 *
1283 * ================================================================ */
1284
1285 /*****************************************************************
1286 * DdeCreateDataHandle (USER32.@)
1287 */
1288 HDDEDATA WINAPI DdeCreateDataHandle(DWORD idInst, LPBYTE pSrc, DWORD cb, DWORD cbOff,
1289 HSZ hszItem, UINT wFmt, UINT afCmd)
1290 {
1291
1292 /* Other than check for validity we will ignore for now idInst, hszItem.
1293 * The purpose of these arguments still need to be investigated.
1294 */
1295
1296 WDML_INSTANCE* pInstance;
1297 HGLOBAL hMem;
1298 LPBYTE pByte;
1299 DDE_DATAHANDLE_HEAD* pDdh;
1300 WCHAR psz[MAX_BUFFER_LEN];
1301
1302 pInstance = WDML_GetInstance(idInst);
1303 if (pInstance == NULL)
1304 {
1305 WDML_SetAllLastError(DMLERR_INVALIDPARAMETER);
1306 return NULL;
1307 }
1308
1309 if (!GetAtomNameW(HSZ2ATOM(hszItem), psz, MAX_BUFFER_LEN))
1310 {
1311 psz[0] = HSZ2ATOM(hszItem);
1312 psz[1] = 0;
1313 }
1314
1315 TRACE("(%d,%p,cb %d, cbOff %d,%p <%s>,fmt %04x,%x)\n",
1316 idInst, pSrc, cb, cbOff, hszItem, debugstr_w(psz), wFmt, afCmd);
1317
1318 if (afCmd != 0 && afCmd != HDATA_APPOWNED)
1319 return 0;
1320
1321 /* we use the first 4 bytes to store the size */
1322 if (!(hMem = GlobalAlloc(GMEM_MOVEABLE | GMEM_DDESHARE, cb + cbOff + sizeof(DDE_DATAHANDLE_HEAD))))
1323 {
1324 ERR("GlobalAlloc failed\n");
1325 return 0;
1326 }
1327
1328 pDdh = GlobalLock(hMem);
1329 if (!pDdh)
1330 {
1331 GlobalFree(hMem);
1332 return 0;
1333 }
1334
1335 pDdh->cfFormat = wFmt;
1336 pDdh->bAppOwned = (afCmd == HDATA_APPOWNED);
1337
1338 pByte = (LPBYTE)(pDdh + 1);
1339 if (pSrc)
1340 {
1341 memcpy(pByte, pSrc + cbOff, cb);
1342 }
1343 GlobalUnlock(hMem);
1344
1345 TRACE("=> %p\n", hMem);
1346 return hMem;
1347 }
1348
1349 /*****************************************************************
1350 *
1351 * DdeAddData (USER32.@)
1352 */
1353 HDDEDATA WINAPI DdeAddData(HDDEDATA hData, LPBYTE pSrc, DWORD cb, DWORD cbOff)
1354 {
1355 DWORD old_sz, new_sz;
1356 LPBYTE pDst;
1357
1358 TRACE("(%p,%p,cb %d, cbOff %d)\n", hData, pSrc, cb, cbOff);
1359
1360 pDst = DdeAccessData(hData, &old_sz);
1361 if (!pDst) return 0;
1362
1363 new_sz = cb + cbOff;
1364 if (new_sz > old_sz)
1365 {
1366 DdeUnaccessData(hData);
1367 hData = GlobalReAlloc(hData, new_sz + sizeof(DDE_DATAHANDLE_HEAD),
1368 GMEM_MOVEABLE | GMEM_DDESHARE);
1369 pDst = DdeAccessData(hData, &old_sz);
1370 }
1371
1372 if (!pDst) return 0;
1373
1374 memcpy(pDst + cbOff, pSrc, cb);
1375 DdeUnaccessData(hData);
1376 return hData;
1377 }
1378
1379 /******************************************************************************
1380 * DdeGetData [USER32.@] Copies data from DDE object to local buffer
1381 *
1382 *
1383 * PARAMS
1384 * hData [I] Handle to DDE object
1385 * pDst [I] Pointer to destination buffer
1386 * cbMax [I] Amount of data to copy
1387 * cbOff [I] Offset to beginning of data
1388 *
1389 * RETURNS
1390 * Size of memory object associated with handle
1391 */
1392 DWORD WINAPI DdeGetData(HDDEDATA hData, LPBYTE pDst, DWORD cbMax, DWORD cbOff)
1393 {
1394 DWORD dwSize, dwRet;
1395 LPBYTE pByte;
1396
1397 TRACE("(%p,%p,%d,%d)\n", hData, pDst, cbMax, cbOff);
1398
1399 pByte = DdeAccessData(hData, &dwSize);
1400
1401 if (pByte)
1402 {
1403 if (!pDst)
1404 {
1405 dwRet = dwSize;
1406 }
1407 else if (cbOff + cbMax < dwSize)
1408 {
1409 dwRet = cbMax;
1410 }
1411 else if (cbOff < dwSize)
1412 {
1413 dwRet = dwSize - cbOff;
1414 }
1415 else
1416 {
1417 dwRet = 0;
1418 }
1419 if (pDst && dwRet != 0)
1420 {
1421 memcpy(pDst, pByte + cbOff, dwRet);
1422 }
1423 DdeUnaccessData(hData);
1424 }
1425 else
1426 {
1427 dwRet = 0;
1428 }
1429 return dwRet;
1430 }
1431
1432 /*****************************************************************
1433 * DdeAccessData (USER32.@)
1434 */
1435 LPBYTE WINAPI DdeAccessData(HDDEDATA hData, LPDWORD pcbDataSize)
1436 {
1437 HGLOBAL hMem = hData;
1438 DDE_DATAHANDLE_HEAD* pDdh;
1439
1440 TRACE("(%p,%p)\n", hData, pcbDataSize);
1441
1442 pDdh = GlobalLock(hMem);
1443 if (pDdh == NULL)
1444 {
1445 ERR("Failed on GlobalLock(%p)\n", hMem);
1446 return 0;
1447 }
1448
1449 if (pcbDataSize != NULL)
1450 {
1451 *pcbDataSize = GlobalSize(hMem) - sizeof(DDE_DATAHANDLE_HEAD);
1452 }
1453 TRACE("=> %p (%lu) fmt %04x\n", pDdh + 1, GlobalSize(hMem) - sizeof(DDE_DATAHANDLE_HEAD), pDdh->cfFormat);
1454 return (LPBYTE)(pDdh + 1);
1455 }
1456
1457 /*****************************************************************
1458 * DdeUnaccessData (USER32.@)
1459 */
1460 BOOL WINAPI DdeUnaccessData(HDDEDATA hData)
1461 {
1462 HGLOBAL hMem = hData;
1463
1464 TRACE("(%p)\n", hData);
1465
1466 GlobalUnlock(hMem);
1467
1468 return TRUE;
1469 }
1470
1471 /*****************************************************************
1472 * DdeFreeDataHandle (USER32.@)
1473 */
1474 BOOL WINAPI DdeFreeDataHandle(HDDEDATA hData)
1475 {
1476 TRACE("(%p)\n", hData);
1477
1478 /* 1 is the handle value returned by an asynchronous operation. */
1479 if (hData == (HDDEDATA)1)
1480 return TRUE;
1481
1482 return GlobalFree(hData) == 0;
1483 }
1484
1485 /******************************************************************
1486 * WDML_IsAppOwned
1487 *
1488 *
1489 */
1490 BOOL WDML_IsAppOwned(HDDEDATA hData)
1491 {
1492 DDE_DATAHANDLE_HEAD* pDdh;
1493 BOOL ret = FALSE;
1494
1495 pDdh = GlobalLock(hData);
1496 if (pDdh != NULL)
1497 {
1498 ret = pDdh->bAppOwned;
1499 GlobalUnlock(hData);
1500 }
1501 return ret;
1502 }
1503
1504 /* ================================================================
1505 *
1506 * Global <=> Data handle management
1507 *
1508 * ================================================================ */
1509
1510 /* Note: we use a DDEDATA, but layout of DDEDATA, DDEADVISE and DDEPOKE structures is similar:
1511 * offset size
1512 * (bytes) (bits) comment
1513 * 0 16 bit fields for options (release, ackreq, response...)
1514 * 2 16 clipboard format
1515 * 4 ? data to be used
1516 */
1517 HDDEDATA WDML_Global2DataHandle(WDML_CONV* pConv, HGLOBAL hMem, WINE_DDEHEAD* p)
1518 {
1519 DDEDATA* pDd;
1520 HDDEDATA ret = 0;
1521 DWORD size;
1522
1523 if (hMem)
1524 {
1525 pDd = GlobalLock(hMem);
1526 size = GlobalSize(hMem) - sizeof(WINE_DDEHEAD);
1527 if (pDd)
1528 {
1529 if (p) memcpy(p, pDd, sizeof(WINE_DDEHEAD));
1530 switch (pDd->cfFormat)
1531 {
1532 default:
1533 FIXME("Unsupported format (%04x) for data %p, passing raw information\n",
1534 pDd->cfFormat, hMem);
1535 /* fall through */
1536 case 0:
1537 case CF_TEXT:
1538 ret = DdeCreateDataHandle(pConv->instance->instanceID, pDd->Value, size, 0, 0, pDd->cfFormat, 0);
1539 break;
1540 case CF_BITMAP:
1541 if (size >= sizeof(BITMAP))
1542 {
1543 BITMAP* bmp = (BITMAP*)pDd->Value;
1544 int count = bmp->bmWidthBytes * bmp->bmHeight * bmp->bmPlanes;
1545 if (size >= sizeof(BITMAP) + count)
1546 {
1547 HBITMAP hbmp;
1548
1549 if ((hbmp = CreateBitmap(bmp->bmWidth, bmp->bmHeight,
1550 bmp->bmPlanes, bmp->bmBitsPixel,
1551 pDd->Value + sizeof(BITMAP))))
1552 {
1553 ret = DdeCreateDataHandle(pConv->instance->instanceID, (LPBYTE)&hbmp, sizeof(hbmp),
1554 0, 0, CF_BITMAP, 0);
1555 }
1556 else ERR("Can't create bmp\n");
1557 }
1558 else
1559 {
1560 ERR("Wrong count: %u / %d\n", size, count);
1561 }
1562 } else ERR("No bitmap header\n");
1563 break;
1564 }
1565 GlobalUnlock(hMem);
1566 }
1567 }
1568 return ret;
1569 }
1570
1571 /******************************************************************
1572 * WDML_DataHandle2Global
1573 *
1574 *
1575 */
1576 HGLOBAL WDML_DataHandle2Global(HDDEDATA hDdeData, BOOL fResponse, BOOL fRelease,
1577 BOOL fDeferUpd, BOOL fAckReq)
1578 {
1579 DDE_DATAHANDLE_HEAD* pDdh;
1580 DWORD dwSize;
1581 HGLOBAL hMem = 0;
1582
1583 dwSize = GlobalSize(hDdeData) - sizeof(DDE_DATAHANDLE_HEAD);
1584 pDdh = GlobalLock(hDdeData);
1585 if (dwSize && pDdh)
1586 {
1587 WINE_DDEHEAD* wdh = NULL;
1588
1589 switch (pDdh->cfFormat)
1590 {
1591 default:
1592 FIXME("Unsupported format (%04x) for data %p, passing raw information\n",
1593 pDdh->cfFormat, hDdeData);
1594 /* fall through */
1595 case 0:
1596 case CF_TEXT:
1597 hMem = GlobalAlloc(GMEM_MOVEABLE | GMEM_DDESHARE, sizeof(WINE_DDEHEAD) + dwSize);
1598 if (hMem && (wdh = GlobalLock(hMem)))
1599 {
1600 memcpy(wdh + 1, pDdh + 1, dwSize);
1601 }
1602 break;
1603 case CF_BITMAP:
1604 if (dwSize >= sizeof(HBITMAP))
1605 {
1606 BITMAP bmp;
1607 DWORD count;
1608 HBITMAP hbmp = *(HBITMAP*)(pDdh + 1);
1609
1610 if (GetObjectW(hbmp, sizeof(bmp), &bmp))
1611 {
1612 count = bmp.bmWidthBytes * bmp.bmHeight;
1613 hMem = GlobalAlloc(GMEM_MOVEABLE | GMEM_DDESHARE,
1614 sizeof(WINE_DDEHEAD) + sizeof(bmp) + count);
1615 if (hMem && (wdh = GlobalLock(hMem)))
1616 {
1617 memcpy(wdh + 1, &bmp, sizeof(bmp));
1618 GetBitmapBits(hbmp, count, ((char*)(wdh + 1)) + sizeof(bmp));
1619 }
1620 }
1621 }
1622 break;
1623 }
1624 if (wdh)
1625 {
1626 wdh->unused = 0;
1627 wdh->fResponse = fResponse;
1628 wdh->fRelease = fRelease;
1629 wdh->fDeferUpd = fDeferUpd;
1630 wdh->fAckReq = fAckReq;
1631 wdh->cfFormat = pDdh->cfFormat;
1632 GlobalUnlock(hMem);
1633 }
1634 GlobalUnlock(hDdeData);
1635 }
1636
1637 return hMem;
1638 }
1639
1640 /* ================================================================
1641 *
1642 * Server management
1643 *
1644 * ================================================================ */
1645
1646 /******************************************************************
1647 * WDML_AddServer
1648 *
1649 *
1650 */
1651 WDML_SERVER* WDML_AddServer(WDML_INSTANCE* pInstance, HSZ hszService, HSZ hszTopic)
1652 {
1653 static const WCHAR fmtW[] = {'%','s','(','0','x','%','*','x',')',0};
1654 WDML_SERVER* pServer;
1655 WCHAR buf1[256];
1656 WCHAR buf2[256];
1657
1658 pServer = HeapAlloc(GetProcessHeap(), 0, sizeof(WDML_SERVER));
1659 if (pServer == NULL) return NULL;
1660
1661 pServer->hszService = hszService;
1662 WDML_IncHSZ(pInstance, hszService);
1663
1664 DdeQueryStringW(pInstance->instanceID, hszService, buf1, 256, CP_WINUNICODE);
1665 snprintfW(buf2, 256, fmtW, buf1, 2*sizeof(ULONG_PTR), GetCurrentProcessId());
1666 pServer->hszServiceSpec = DdeCreateStringHandleW(pInstance->instanceID, buf2, CP_WINUNICODE);
1667
1668 pServer->atomService = WDML_MakeAtomFromHsz(pServer->hszService);
1669 pServer->atomServiceSpec = WDML_MakeAtomFromHsz(pServer->hszServiceSpec);
1670
1671 pServer->filterOn = TRUE;
1672
1673 pServer->next = pInstance->servers;
1674 pInstance->servers = pServer;
1675 return pServer;
1676 }
1677
1678 /******************************************************************
1679 * WDML_RemoveServer
1680 *
1681 *
1682 */
1683 void WDML_RemoveServer(WDML_INSTANCE* pInstance, HSZ hszService, HSZ hszTopic)
1684 {
1685 WDML_SERVER* pPrev = NULL;
1686 WDML_SERVER* pServer = NULL;
1687 WDML_CONV* pConv;
1688 WDML_CONV* pConvNext;
1689
1690 pServer = pInstance->servers;
1691
1692 while (pServer != NULL)
1693 {
1694 if (DdeCmpStringHandles(pServer->hszService, hszService) == 0)
1695 {
1696 WDML_BroadcastDDEWindows(WDML_szEventClass, WM_WDML_UNREGISTER,
1697 pServer->atomService, pServer->atomServiceSpec);
1698 /* terminate all conversations for given topic */
1699 for (pConv = pInstance->convs[WDML_SERVER_SIDE]; pConv != NULL; pConv = pConvNext)
1700 {
1701 pConvNext = pConv->next;
1702 if (DdeCmpStringHandles(pConv->hszService, hszService) == 0)
1703 {
1704 HWND client = pConv->hwndClient, server = pConv->hwndServer;
1705 WDML_RemoveConv(pConv, WDML_SERVER_SIDE);
1706 /* don't care about return code (whether client window is present or not) */
1707 PostMessageW(client, WM_DDE_TERMINATE, (WPARAM)server, 0);
1708 }
1709 }
1710 if (pServer == pInstance->servers)
1711 {
1712 pInstance->servers = pServer->next;
1713 }
1714 else
1715 {
1716 pPrev->next = pServer->next;
1717 }
1718
1719 DestroyWindow(pServer->hwndServer);
1720 WDML_DecHSZ(pInstance, pServer->hszServiceSpec);
1721 WDML_DecHSZ(pInstance, pServer->hszService);
1722
1723 GlobalDeleteAtom(pServer->atomService);
1724 GlobalDeleteAtom(pServer->atomServiceSpec);
1725
1726 HeapFree(GetProcessHeap(), 0, pServer);
1727 break;
1728 }
1729
1730 pPrev = pServer;
1731 pServer = pServer->next;
1732 }
1733 }
1734
1735 /*****************************************************************************
1736 * WDML_FindServer
1737 *
1738 * generic routine to return a pointer to the relevant ServiceNode
1739 * for a given service name, or NULL if the entry does not exist
1740 *
1741 */
1742 WDML_SERVER* WDML_FindServer(WDML_INSTANCE* pInstance, HSZ hszService, HSZ hszTopic)
1743 {
1744 WDML_SERVER* pServer;
1745
1746 for (pServer = pInstance->servers; pServer != NULL; pServer = pServer->next)
1747 {
1748 if (hszService == pServer->hszService)
1749 {
1750 return pServer;
1751 }
1752 }
1753 TRACE("Service name missing\n");
1754 return NULL;
1755 }
1756
1757 /* ================================================================
1758 *
1759 * Link (hot & warm) management
1760 *
1761 * ================================================================ */
1762
1763 /******************************************************************
1764 * WDML_AddLink
1765 *
1766 *
1767 */
1768 void WDML_AddLink(WDML_INSTANCE* pInstance, HCONV hConv, WDML_SIDE side,
1769 UINT wType, HSZ hszItem, UINT wFmt)
1770 {
1771 WDML_LINK* pLink;
1772
1773 pLink = HeapAlloc(GetProcessHeap(), 0, sizeof(WDML_LINK));
1774 if (pLink == NULL)
1775 {
1776 ERR("OOM\n");
1777 return;
1778 }
1779
1780 pLink->hConv = hConv;
1781 pLink->transactionType = wType;
1782 WDML_IncHSZ(pInstance, pLink->hszItem = hszItem);
1783 pLink->uFmt = wFmt;
1784 pLink->next = pInstance->links[side];
1785 pInstance->links[side] = pLink;
1786 }
1787
1788 /******************************************************************
1789 * WDML_RemoveLink
1790 *
1791 *
1792 */
1793 void WDML_RemoveLink(WDML_INSTANCE* pInstance, HCONV hConv, WDML_SIDE side,
1794 HSZ hszItem, UINT uFmt)
1795 {
1796 WDML_LINK* pPrev = NULL;
1797 WDML_LINK* pCurrent = NULL;
1798
1799 pCurrent = pInstance->links[side];
1800
1801 while (pCurrent != NULL)
1802 {
1803 if (pCurrent->hConv == hConv &&
1804 DdeCmpStringHandles(pCurrent->hszItem, hszItem) == 0 &&
1805 pCurrent->uFmt == uFmt)
1806 {
1807 if (pCurrent == pInstance->links[side])
1808 {
1809 pInstance->links[side] = pCurrent->next;
1810 }
1811 else
1812 {
1813 pPrev->next = pCurrent->next;
1814 }
1815
1816 WDML_DecHSZ(pInstance, pCurrent->hszItem);
1817 HeapFree(GetProcessHeap(), 0, pCurrent);
1818 break;
1819 }
1820
1821 pPrev = pCurrent;
1822 pCurrent = pCurrent->next;
1823 }
1824 }
1825
1826 /* this function is called to remove all links related to the conv.
1827 It should be called from both client and server when terminating
1828 the conversation.
1829 */
1830 /******************************************************************
1831 * WDML_RemoveAllLinks
1832 *
1833 *
1834 */
1835 static void WDML_RemoveAllLinks(WDML_INSTANCE* pInstance, WDML_CONV* pConv, WDML_SIDE side)
1836 {
1837 WDML_LINK* pPrev = NULL;
1838 WDML_LINK* pCurrent = NULL;
1839 WDML_LINK* pNext = NULL;
1840
1841 pCurrent = pInstance->links[side];
1842
1843 while (pCurrent != NULL)
1844 {
1845 if (pCurrent->hConv == (HCONV)pConv)
1846 {
1847 if (pCurrent == pInstance->links[side])
1848 {
1849 pInstance->links[side] = pCurrent->next;
1850 pNext = pCurrent->next;
1851 }
1852 else
1853 {
1854 pPrev->next = pCurrent->next;
1855 pNext = pCurrent->next;
1856 }
1857
1858 WDML_DecHSZ(pInstance, pCurrent->hszItem);
1859
1860 HeapFree(GetProcessHeap(), 0, pCurrent);
1861 pCurrent = NULL;
1862 }
1863
1864 if (pCurrent)
1865 {
1866 pPrev = pCurrent;
1867 pCurrent = pCurrent->next;
1868 }
1869 else
1870 {
1871 pCurrent = pNext;
1872 }
1873 }
1874 }
1875
1876 /******************************************************************
1877 * WDML_FindLink
1878 *
1879 *
1880 */
1881 WDML_LINK* WDML_FindLink(WDML_INSTANCE* pInstance, HCONV hConv, WDML_SIDE side,
1882 HSZ hszItem, BOOL use_fmt, UINT uFmt)
1883 {
1884 WDML_LINK* pCurrent;
1885
1886 for (pCurrent = pInstance->links[side]; pCurrent != NULL; pCurrent = pCurrent->next)
1887 {
1888 /* we don't need to check for transaction type as it can be altered */
1889
1890 if (pCurrent->hConv == hConv &&
1891 DdeCmpStringHandles(pCurrent->hszItem, hszItem) == 0 &&
1892 (!use_fmt || pCurrent->uFmt == uFmt))
1893 {
1894 break;
1895 }
1896
1897 }
1898
1899 return pCurrent;
1900 }
1901
1902 /* ================================================================
1903 *
1904 * Transaction management
1905 *
1906 * ================================================================ */
1907
1908 /******************************************************************
1909 * WDML_AllocTransaction
1910 *
1911 * Alloc a transaction structure for handling the message ddeMsg
1912 */
1913 WDML_XACT* WDML_AllocTransaction(WDML_INSTANCE* pInstance, UINT ddeMsg,
1914 UINT wFmt, HSZ hszItem)
1915 {
1916 WDML_XACT* pXAct;
1917 static WORD tid = 1; /* FIXME: wrap around */
1918
1919 pXAct = HeapAlloc(GetProcessHeap(), 0, sizeof(WDML_XACT));
1920 if (!pXAct)
1921 {
1922 pInstance->lastError = DMLERR_MEMORY_ERROR;
1923 return NULL;
1924 }
1925
1926 pXAct->xActID = tid++;
1927 pXAct->ddeMsg = ddeMsg;
1928 pXAct->hDdeData = 0;
1929 pXAct->hUser = 0;
1930 pXAct->next = NULL;
1931 pXAct->wType = 0;
1932 pXAct->wFmt = wFmt;
1933 if ((pXAct->hszItem = hszItem)) WDML_IncHSZ(pInstance, pXAct->hszItem);
1934 pXAct->atom = 0;
1935 pXAct->hMem = 0;
1936 pXAct->lParam = 0;
1937
1938 return pXAct;
1939 }
1940
1941 /******************************************************************
1942 * WDML_QueueTransaction
1943 *
1944 * Adds a transaction to the list of transaction
1945 */
1946 void WDML_QueueTransaction(WDML_CONV* pConv, WDML_XACT* pXAct)
1947 {
1948 WDML_XACT** pt;
1949
1950 /* advance to last in queue */
1951 for (pt = &pConv->transactions; *pt != NULL; pt = &(*pt)->next);
1952 *pt = pXAct;
1953 }
1954
1955 /******************************************************************
1956 * WDML_UnQueueTransaction
1957 *
1958 *
1959 */
1960 BOOL WDML_UnQueueTransaction(WDML_CONV* pConv, WDML_XACT* pXAct)
1961 {
1962 WDML_XACT** pt;
1963
1964 for (pt = &pConv->transactions; *pt; pt = &(*pt)->next)
1965 {
1966 if (*pt == pXAct)
1967 {
1968 *pt = pXAct->next;
1969 return TRUE;
1970 }
1971 }
1972 return FALSE;
1973 }
1974
1975 /******************************************************************
1976 * WDML_FreeTransaction
1977 *
1978 *
1979 */
1980 void WDML_FreeTransaction(WDML_INSTANCE* pInstance, WDML_XACT* pXAct, BOOL doFreePmt)
1981 {
1982 /* free pmt(s) in pXAct too. check against one for not deleting TRUE return values */
1983 if (doFreePmt && (ULONG_PTR)pXAct->hMem > 1)
1984 {
1985 GlobalFree(pXAct->hMem);
1986 }
1987 if (pXAct->hszItem) WDML_DecHSZ(pInstance, pXAct->hszItem);
1988
1989 HeapFree(GetProcessHeap(), 0, pXAct);
1990 }
1991
1992 /******************************************************************
1993 * WDML_FindTransaction
1994 *
1995 *
1996 */
1997 static WDML_XACT* WDML_FindTransaction(WDML_CONV* pConv, DWORD tid)
1998 {
1999 WDML_XACT* pXAct;
2000
2001 tid = HIWORD(tid);
2002 for (pXAct = pConv->transactions; pXAct; pXAct = pXAct->next)
2003 {
2004 if (pXAct->xActID == tid)
2005 break;
2006 }
2007 return pXAct;
2008 }
2009
2010 /* ================================================================
2011 *
2012 * Conversation management
2013 *
2014 * ================================================================ */
2015
2016 /******************************************************************
2017 * WDML_AddConv
2018 *
2019 *
2020 */
2021 WDML_CONV* WDML_AddConv(WDML_INSTANCE* pInstance, WDML_SIDE side,
2022 HSZ hszService, HSZ hszTopic, HWND hwndClient, HWND hwndServer)
2023 {
2024 WDML_CONV* pConv;
2025
2026 /* no conversation yet, add it */
2027 pConv = HeapAlloc(GetProcessHeap(), 0, sizeof(WDML_CONV));
2028 if (!pConv) return NULL;
2029
2030 pConv->instance = pInstance;
2031 WDML_IncHSZ(pInstance, pConv->hszService = hszService);
2032 WDML_IncHSZ(pInstance, pConv->hszTopic = hszTopic);
2033 pConv->magic = WDML_CONV_MAGIC;
2034 pConv->hwndServer = hwndServer;
2035 pConv->hwndClient = hwndClient;
2036 pConv->transactions = NULL;
2037 pConv->hUser = 0;
2038 pConv->wStatus = (side == WDML_CLIENT_SIDE) ? ST_CLIENT : 0L;
2039 pConv->wStatus |= pInstance->wStatus;
2040 /* check if both side of the conversation are of the same instance */
2041 if (GetWindowThreadProcessId(hwndClient, NULL) == GetWindowThreadProcessId(hwndServer, NULL) &&
2042 WDML_GetInstanceFromWnd(hwndClient) == WDML_GetInstanceFromWnd(hwndServer))
2043 {
2044 pConv->wStatus |= ST_ISSELF;
2045 }
2046 pConv->wConvst = XST_NULL;
2047
2048 pConv->next = pInstance->convs[side];
2049 pInstance->convs[side] = pConv;
2050
2051 TRACE("pConv->wStatus %04x pInstance(%p)\n", pConv->wStatus, pInstance);
2052
2053 return pConv;
2054 }
2055
2056 /******************************************************************
2057 * WDML_FindConv
2058 *
2059 *
2060 */
2061 WDML_CONV* WDML_FindConv(WDML_INSTANCE* pInstance, WDML_SIDE side,
2062 HSZ hszService, HSZ hszTopic)
2063 {
2064 WDML_CONV* pCurrent;
2065
2066 for (pCurrent = pInstance->convs[side]; pCurrent != NULL; pCurrent = pCurrent->next)
2067 {
2068 if (DdeCmpStringHandles(pCurrent->hszService, hszService) == 0 &&
2069 DdeCmpStringHandles(pCurrent->hszTopic, hszTopic) == 0)
2070 {
2071 return pCurrent;
2072 }
2073
2074 }
2075 return NULL;
2076 }
2077
2078 /******************************************************************
2079 * WDML_RemoveConv
2080 *
2081 *
2082 */
2083 void WDML_RemoveConv(WDML_CONV* pRef, WDML_SIDE side)
2084 {
2085 WDML_CONV* pPrev = NULL;
2086 WDML_CONV* pCurrent;
2087 WDML_XACT* pXAct;
2088 WDML_XACT* pXActNext;
2089 HWND hWnd;
2090
2091 if (!pRef)
2092 return;
2093
2094 /* remove any pending transaction */
2095 for (pXAct = pRef->transactions; pXAct != NULL; pXAct = pXActNext)
2096 {
2097 pXActNext = pXAct->next;
2098 WDML_FreeTransaction(pRef->instance, pXAct, TRUE);
2099 }
2100
2101 WDML_RemoveAllLinks(pRef->instance, pRef, side);
2102
2103 /* FIXME: should we keep the window around ? it seems so (at least on client side
2104 * to let QueryConvInfo work after conv termination, but also to implement
2105 * DdeReconnect...
2106 */
2107 /* destroy conversation window, but first remove pConv from hWnd.
2108 * this would help the wndProc do appropriate handling upon a WM_DESTROY message
2109 */
2110 hWnd = (side == WDML_CLIENT_SIDE) ? pRef->hwndClient : pRef->hwndServer;
2111 SetWindowLongPtrW(hWnd, GWL_WDML_CONVERSATION, 0);
2112
2113 DestroyWindow((side == WDML_CLIENT_SIDE) ? pRef->hwndClient : pRef->hwndServer);
2114
2115 WDML_DecHSZ(pRef->instance, pRef->hszService);
2116 WDML_DecHSZ(pRef->instance, pRef->hszTopic);
2117
2118 for (pCurrent = pRef->instance->convs[side]; pCurrent != NULL; pCurrent = (pPrev = pCurrent)->next)
2119 {
2120 if (pCurrent == pRef)
2121 {
2122 if (pCurrent == pRef->instance->convs[side])
2123 {
2124 pRef->instance->convs[side] = pCurrent->next;
2125 }
2126 else
2127 {
2128 pPrev->next = pCurrent->next;
2129 }
2130 pCurrent->magic = 0;
2131 HeapFree(GetProcessHeap(), 0, pCurrent);
2132 break;
2133 }
2134 }
2135 }
2136
2137 /******************************************************************
2138 * WDML_EnableCallback
2139 */
2140 static BOOL WDML_EnableCallback(WDML_CONV *pConv, UINT wCmd)
2141 {
2142 if (wCmd == EC_DISABLE)
2143 {
2144 pConv->wStatus |= ST_BLOCKED;
2145 TRACE("EC_DISABLE: conv %p status flags %04x\n", pConv, pConv->wStatus);
2146 return TRUE;
2147 }
2148
2149 if (wCmd == EC_QUERYWAITING)
2150 return pConv->transactions != NULL;
2151
2152 if (wCmd != EC_ENABLEALL && wCmd != EC_ENABLEONE)
2153 {
2154 FIXME("Unknown command code %04x\n", wCmd);
2155 return FALSE;
2156 }
2157
2158 if (wCmd == EC_ENABLEALL)
2159 {
2160 pConv->wStatus &= ~ST_BLOCKED;
2161 TRACE("EC_ENABLEALL: conv %p status flags %04x\n", pConv, pConv->wStatus);
2162 }
2163
2164 while (pConv->transactions)
2165 {
2166 WDML_XACT *pXAct = pConv->transactions;
2167
2168 if (pConv->wStatus & ST_CLIENT)
2169 {
2170 /* transaction should be in the queue until handled */
2171 WDML_ClientHandle(pConv, pXAct, 0, NULL);
2172 WDML_UnQueueTransaction(pConv, pXAct);
2173 }
2174 else
2175 {
2176 /* transaction should be removed from the queue before handling */
2177 WDML_UnQueueTransaction(pConv, pXAct);
2178 WDML_ServerHandle(pConv, pXAct);
2179 }
2180
2181 WDML_FreeTransaction(pConv->instance, pXAct, TRUE);
2182
2183 if (wCmd == EC_ENABLEONE) break;
2184 }
2185 return TRUE;
2186 }
2187
2188 /*****************************************************************
2189 * DdeEnableCallback (USER32.@)
2190 */
2191 BOOL WINAPI DdeEnableCallback(DWORD idInst, HCONV hConv, UINT wCmd)
2192 {
2193 BOOL ret = FALSE;
2194 WDML_CONV *pConv;
2195
2196 TRACE("(%d, %p, %04x)\n", idInst, hConv, wCmd);
2197
2198 if (hConv)
2199 {
2200 pConv = WDML_GetConv(hConv, TRUE);
2201
2202 if (pConv && pConv->instance->instanceID == idInst)
2203 ret = WDML_EnableCallback(pConv, wCmd);
2204 }
2205 else
2206 {
2207 WDML_INSTANCE *pInstance = WDML_GetInstance(idInst);
2208
2209 if (!pInstance)
2210 return FALSE;
2211
2212 TRACE("adding flags %04x to instance %p\n", wCmd, pInstance);
2213 pInstance->wStatus |= wCmd;
2214
2215 if (wCmd == EC_DISABLE)
2216 {
2217 pInstance->wStatus |= ST_BLOCKED;
2218 TRACE("EC_DISABLE: inst %p status flags %04x\n", pInstance, pInstance->wStatus);
2219 }
2220 else if (wCmd == EC_ENABLEALL)
2221 {
2222 pInstance->wStatus &= ~ST_BLOCKED;
2223 TRACE("EC_ENABLEALL: inst %p status flags %04x\n", pInstance, pInstance->wStatus);
2224 }
2225
2226 ret = TRUE;
2227
2228 for (pConv = pInstance->convs[WDML_CLIENT_SIDE]; pConv != NULL; pConv = pConv->next)
2229 {
2230 ret = WDML_EnableCallback(pConv, wCmd);
2231 if (ret && wCmd == EC_QUERYWAITING) break;
2232 }
2233 }
2234
2235 return ret;
2236 }
2237
2238 /******************************************************************
2239 * WDML_GetConv
2240 *
2241 *
2242 */
2243 WDML_CONV* WDML_GetConv(HCONV hConv, BOOL checkConnected)
2244 {
2245 WDML_CONV* pConv = (WDML_CONV*)hConv;
2246
2247 /* FIXME: should do better checking */
2248 if (pConv == NULL || pConv->magic != WDML_CONV_MAGIC) return NULL;
2249
2250 if (!pConv->instance)
2251 {
2252 WARN("wrong thread ID, no instance\n");
2253 return NULL;
2254 }
2255
2256 if (pConv->instance->threadID != GetCurrentThreadId())
2257 {
2258 WARN("wrong thread ID\n");
2259 pConv->instance->lastError = DMLERR_INVALIDPARAMETER; /* FIXME: check */
2260 return NULL;
2261 }
2262
2263 if (checkConnected && !(pConv->wStatus & ST_CONNECTED))
2264 {
2265 WARN("found conv but ain't connected\n");
2266 pConv->instance->lastError = DMLERR_NO_CONV_ESTABLISHED;
2267 return NULL;
2268 }
2269
2270 return pConv;
2271 }
2272
2273 /******************************************************************
2274 * WDML_GetConvFromWnd
2275 *
2276 *
2277 */
2278 WDML_CONV* WDML_GetConvFromWnd(HWND hWnd)
2279 {
2280 return (WDML_CONV*)GetWindowLongPtrW(hWnd, GWL_WDML_CONVERSATION);
2281 }
2282
2283 /******************************************************************
2284 * WDML_PostAck
2285 *
2286 *
2287 */
2288 BOOL WDML_PostAck(WDML_CONV* pConv, WDML_SIDE side, WORD appRetCode,
2289 BOOL fBusy, BOOL fAck, UINT_PTR pmt, LPARAM lParam, UINT oldMsg)
2290 {
2291 DDEACK ddeAck;
2292 HWND from, to;
2293
2294 if (side == WDML_SERVER_SIDE)
2295 {
2296 from = pConv->hwndServer;
2297 to = pConv->hwndClient;
2298 }
2299 else
2300 {
2301 to = pConv->hwndServer;
2302 from = pConv->hwndClient;
2303 }
2304
2305 ddeAck.bAppReturnCode = appRetCode;
2306 ddeAck.reserved = 0;
2307 ddeAck.fBusy = fBusy;
2308 ddeAck.fAck = fAck;
2309
2310 TRACE("Posting a %s ack\n", ddeAck.fAck ? "positive" : "negative");
2311
2312 lParam = (lParam) ? ReuseDDElParam(lParam, oldMsg, WM_DDE_ACK, *(WORD*)&ddeAck, pmt) :
2313 PackDDElParam(WM_DDE_ACK, *(WORD*)&ddeAck, pmt);
2314 if (!PostMessageW(to, WM_DDE_ACK, (WPARAM)from, lParam))
2315 {
2316 pConv->wStatus &= ~ST_CONNECTED;
2317 pConv->instance->lastError = DMLERR_POSTMSG_FAILED;
2318 FreeDDElParam(WM_DDE_ACK, lParam);
2319 return FALSE;
2320 }
2321 return TRUE;
2322 }
2323
2324 /*****************************************************************
2325 * DdeSetUserHandle (USER32.@)
2326 */
2327 BOOL WINAPI DdeSetUserHandle(HCONV hConv, DWORD id, DWORD hUser)
2328 {
2329 WDML_CONV* pConv;
2330
2331 pConv = WDML_GetConv(hConv, FALSE);
2332 if (pConv == NULL)
2333 return FALSE;
2334
2335 if (id == QID_SYNC)
2336 {
2337 pConv->hUser = hUser;
2338 }
2339 else
2340 {
2341 WDML_XACT* pXAct;
2342
2343 pXAct = WDML_FindTransaction(pConv, id);
2344 if (pXAct)
2345 {
2346 pXAct->hUser = hUser;
2347 }
2348 else
2349 {
2350 pConv->instance->lastError = DMLERR_UNFOUND_QUEUE_ID;
2351 return FALSE;
2352 }
2353 }
2354 return TRUE;
2355 }
2356
2357 /******************************************************************
2358 * WDML_GetLocalConvInfo
2359 *
2360 *
2361 */
2362 static BOOL WDML_GetLocalConvInfo(WDML_CONV* pConv, CONVINFO* ci, DWORD id)
2363 {
2364 BOOL ret = TRUE;
2365 WDML_LINK* pLink;
2366 WDML_SIDE side;
2367
2368 ci->hConvPartner = (pConv->wStatus & ST_ISLOCAL) ? (HCONV)((ULONG_PTR)pConv | 1) : 0;
2369 ci->hszSvcPartner = pConv->hszService;
2370 ci->hszServiceReq = pConv->hszService; /* FIXME: they shouldn't be the same, should they ? */
2371 ci->hszTopic = pConv->hszTopic;
2372 ci->wStatus = pConv->wStatus;
2373
2374 side = (pConv->wStatus & ST_CLIENT) ? WDML_CLIENT_SIDE : WDML_SERVER_SIDE;
2375
2376 for (pLink = pConv->instance->links[side]; pLink != NULL; pLink = pLink->next)
2377 {
2378 if (pLink->hConv == (HCONV)pConv)
2379 {
2380 ci->wStatus |= ST_ADVISE;
2381 break;
2382 }
2383 }
2384
2385 /* FIXME: non handled status flags:
2386 ST_BLOCKED
2387 ST_BLOCKNEXT
2388 ST_INLIST
2389 */
2390
2391 ci->wConvst = pConv->wConvst; /* FIXME */
2392
2393 ci->wLastError = 0; /* FIXME: note it's not the instance last error */
2394 ci->hConvList = 0;
2395 ci->ConvCtxt = pConv->convContext;
2396 if (ci->wStatus & ST_CLIENT)
2397 {
2398 ci->hwnd = pConv->hwndClient;
2399 ci->hwndPartner = pConv->hwndServer;
2400 }
2401 else
2402 {
2403 ci->hwnd = pConv->hwndServer;
2404 ci->hwndPartner = pConv->hwndClient;
2405 }
2406 if (id == QID_SYNC)
2407 {
2408 ci->hUser = pConv->hUser;
2409 ci->hszItem = 0;
2410 ci->wFmt = 0;
2411 ci->wType = 0;
2412 }
2413 else
2414 {
2415 WDML_XACT* pXAct;
2416
2417 pXAct = WDML_FindTransaction(pConv, id);
2418 if (pXAct)
2419 {
2420 ci->hUser = pXAct->hUser;
2421 ci->hszItem = pXAct->hszItem;
2422 ci->wFmt = pXAct->wFmt;
2423 ci->wType = pXAct->wType;
2424 }
2425 else
2426 {
2427 ret = 0;
2428 pConv->instance->lastError = DMLERR_UNFOUND_QUEUE_ID;
2429 }
2430 }
2431 return ret;
2432 }
2433
2434 /******************************************************************
2435 * DdeQueryConvInfo (USER32.@)
2436 *
2437 * FIXME: Set last DDE error on failure.
2438 */
2439 UINT WINAPI DdeQueryConvInfo(HCONV hConv, DWORD id, PCONVINFO lpConvInfo)
2440 {
2441 UINT ret = lpConvInfo->cb;
2442 CONVINFO ci;
2443 WDML_CONV* pConv;
2444
2445 TRACE("(%p,%x,%p)\n", hConv, id, lpConvInfo);
2446
2447 if (!hConv)
2448 {
2449 FIXME("hConv is NULL\n");
2450 return 0;
2451 }
2452
2453 pConv = WDML_GetConv(hConv, FALSE);
2454 if (pConv != NULL)
2455 {
2456 if (!WDML_GetLocalConvInfo(pConv, &ci, id))
2457 ret = 0;
2458 }
2459 else
2460 {
2461 if ((ULONG_PTR)hConv & 1)
2462 {
2463 pConv = WDML_GetConv((HCONV)((ULONG_PTR)hConv & ~1), FALSE);
2464 if (pConv != NULL)
2465 FIXME("Request on remote conversation information is not implemented yet\n");
2466 }
2467 ret = 0;
2468 }
2469
2470 if (ret != 0)
2471 {
2472 ci.cb = lpConvInfo->cb;
2473 memcpy(lpConvInfo, &ci, min((size_t)lpConvInfo->cb, sizeof(ci)));
2474 }
2475 return ret;
2476 }
2477
2478 /* ================================================================
2479 *
2480 * Information broadcast across DDEML implementations
2481 *
2482 * ================================================================ */
2483
2484 struct tagWDML_BroadcastPmt
2485 {
2486 LPCWSTR clsName;
2487 UINT uMsg;
2488 WPARAM wParam;
2489 LPARAM lParam;
2490 };
2491
2492 /******************************************************************
2493 * WDML_BroadcastEnumProc
2494 *
2495 *
2496 */
2497 static BOOL CALLBACK WDML_BroadcastEnumProc(HWND hWnd, LPARAM lParam)
2498 {
2499 struct tagWDML_BroadcastPmt* s = (struct tagWDML_BroadcastPmt*)lParam;
2500 WCHAR buffer[128];
2501
2502 if (GetClassNameW(hWnd, buffer, 128) > 0 &&
2503 lstrcmpiW(buffer, s->clsName) == 0)
2504 {
2505 PostMessageW(hWnd, s->uMsg, s->wParam, s->lParam);
2506 }
2507 return TRUE;
2508 }
2509
2510 /******************************************************************
2511 * WDML_BroadcastDDEWindows
2512 *
2513 *
2514 */
2515 void WDML_BroadcastDDEWindows(LPCWSTR clsName, UINT uMsg, WPARAM wParam, LPARAM lParam)
2516 {
2517 struct tagWDML_BroadcastPmt s;
2518
2519 s.clsName = clsName;
2520 s.uMsg = uMsg;
2521 s.wParam = wParam;
2522 s.lParam = lParam;
2523 EnumWindows(WDML_BroadcastEnumProc, (LPARAM)&s);
2524 }
Windows API implementation