4 * Copyright 2004 Raphael Junqueira
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
33 #include "wine/unicode.h"
34 #include "wine/debug.h"
37 #include "dpnet_private.h"
39 WINE_DEFAULT_DEBUG_CHANNEL(dpnet
);
42 static inline void *heap_alloc(size_t len
)
44 return HeapAlloc(GetProcessHeap(), 0, len
);
47 static inline void *heap_realloc(void *mem
, size_t len
)
49 return HeapReAlloc( GetProcessHeap(), 0, mem
, len
);
52 static inline BOOL
heap_free(void *mem
)
54 return HeapFree(GetProcessHeap(), 0, mem
);
57 static inline LPWSTR
heap_strdupW(LPCWSTR str
)
64 size
= (strlenW(str
)+1)*sizeof(WCHAR
);
65 ret
= heap_alloc(size
);
67 memcpy(ret
, str
, size
);
73 static char *heap_strdupA( const char *str
)
77 if (!str
) return NULL
;
78 if ((ret
= HeapAlloc( GetProcessHeap(), 0, strlen(str
) + 1 ))) strcpy( ret
, str
);
82 static BOOL
add_component(IDirectPlay8AddressImpl
*This
, struct component
*item
)
84 if(This
->comp_count
== This
->comp_array_size
)
86 struct component
**temp
;
88 temp
= heap_realloc(This
->components
, sizeof(*temp
) * This
->comp_array_size
* 2 );
94 This
->comp_array_size
*= 2;
95 This
->components
= temp
;
98 This
->components
[This
->comp_count
] = item
;
104 static inline IDirectPlay8AddressImpl
*impl_from_IDirectPlay8Address(IDirectPlay8Address
*iface
)
106 return CONTAINING_RECORD(iface
, IDirectPlay8AddressImpl
, IDirectPlay8Address_iface
);
109 /* IDirectPlay8Address IUnknown parts follow: */
110 static HRESULT WINAPI
IDirectPlay8AddressImpl_QueryInterface(IDirectPlay8Address
*iface
,
111 REFIID riid
, void **ppv
)
113 if (IsEqualGUID(riid
, &IID_IUnknown
) || IsEqualGUID(riid
, &IID_IDirectPlay8Address
)) {
114 IUnknown_AddRef(iface
);
119 WARN("(%p)->(%s,%p),not found\n", iface
, debugstr_guid(riid
), ppv
);
120 return E_NOINTERFACE
;
123 static ULONG WINAPI
IDirectPlay8AddressImpl_AddRef(IDirectPlay8Address
*iface
)
125 IDirectPlay8AddressImpl
*This
= impl_from_IDirectPlay8Address(iface
);
126 ULONG ref
= InterlockedIncrement(&This
->ref
);
128 TRACE("(%p) ref=%u\n", This
, ref
);
133 static ULONG WINAPI
IDirectPlay8AddressImpl_Release(IDirectPlay8Address
*iface
)
135 IDirectPlay8AddressImpl
*This
= impl_from_IDirectPlay8Address(iface
);
136 ULONG ref
= InterlockedDecrement(&This
->ref
);
138 TRACE("(%p) ref=%u\n", This
, ref
);
142 struct component
*entry
;
145 for(i
=0; i
< This
->comp_count
; i
++)
147 entry
= This
->components
[i
];
151 case DPNA_DATATYPE_STRING
:
152 heap_free(entry
->data
.string
);
154 case DPNA_DATATYPE_STRING_ANSI
:
155 heap_free(entry
->data
.ansi
);
157 case DPNA_DATATYPE_BINARY
:
158 heap_free(entry
->data
.binary
);
165 heap_free(This
->components
);
171 /* returns name of given GUID */
172 static const char *debugstr_SP(const GUID
*id
) {
173 static const guid_info guids
[] = {
176 GE(CLSID_DP8SP_TCPIP
),
177 GE(CLSID_DP8SP_SERIAL
),
178 GE(CLSID_DP8SP_MODEM
)
182 if (!id
) return "(null)";
184 for (i
= 0; i
< sizeof(guids
)/sizeof(guids
[0]); i
++) {
185 if (IsEqualGUID(id
, guids
[i
].guid
))
186 return guids
[i
].name
;
188 /* if we didn't find it, act like standard debugstr_guid */
189 return debugstr_guid(id
);
192 /* IDirectPlay8Address Interface follow: */
194 static HRESULT WINAPI
IDirectPlay8AddressImpl_BuildFromURLW(IDirectPlay8Address
*iface
,
195 WCHAR
*pwszSourceURL
)
197 IDirectPlay8AddressImpl
*This
= impl_from_IDirectPlay8Address(iface
);
198 TRACE("(%p, %s): stub\n", This
, debugstr_w(pwszSourceURL
));
202 static HRESULT WINAPI
IDirectPlay8AddressImpl_BuildFromURLA(IDirectPlay8Address
*iface
,
205 IDirectPlay8AddressImpl
*This
= impl_from_IDirectPlay8Address(iface
);
206 TRACE("(%p, %s): stub\n", This
, pszSourceURL
);
210 static HRESULT WINAPI
IDirectPlay8AddressImpl_Duplicate(IDirectPlay8Address
*iface
,
211 IDirectPlay8Address
**ppdpaNewAddress
)
213 IDirectPlay8AddressImpl
*This
= impl_from_IDirectPlay8Address(iface
);
214 IDirectPlay8Address
*dup
;
217 TRACE("(%p, %p)\n", This
, ppdpaNewAddress
);
222 hr
= DPNET_CreateDirectPlay8Address(NULL
, NULL
, &IID_IDirectPlay8Address
, (LPVOID
*)&dup
);
225 IDirectPlay8AddressImpl
*DupThis
= impl_from_IDirectPlay8Address(dup
);
228 DupThis
->SP_guid
= This
->SP_guid
;
229 DupThis
->init
= This
->init
;
231 for(i
=0; i
< This
->comp_count
; i
++)
233 struct component
*entry
= This
->components
[i
];
237 case DPNA_DATATYPE_DWORD
:
238 hr
= IDirectPlay8Address_AddComponent(dup
, entry
->name
, &entry
->data
.value
, entry
->size
, entry
->type
);
240 case DPNA_DATATYPE_GUID
:
241 hr
= IDirectPlay8Address_AddComponent(dup
, entry
->name
, &entry
->data
.guid
, entry
->size
, entry
->type
);
243 case DPNA_DATATYPE_STRING
:
244 hr
= IDirectPlay8Address_AddComponent(dup
, entry
->name
, entry
->data
.string
, entry
->size
, entry
->type
);
246 case DPNA_DATATYPE_STRING_ANSI
:
247 hr
= IDirectPlay8Address_AddComponent(dup
, entry
->name
, entry
->data
.ansi
, entry
->size
, entry
->type
);
249 case DPNA_DATATYPE_BINARY
:
250 hr
= IDirectPlay8Address_AddComponent(dup
, entry
->name
, entry
->data
.binary
, entry
->size
, entry
->type
);
256 IDirectPlay8Address_Release(dup
);
258 ERR("Failed to copy component: %s - 0x%08x\n", debugstr_w(entry
->name
), hr
);
263 *ppdpaNewAddress
= dup
;
269 static HRESULT WINAPI
IDirectPlay8AddressImpl_SetEqual(IDirectPlay8Address
*iface
,
270 IDirectPlay8Address
*pdpaAddress
)
272 IDirectPlay8AddressImpl
*This
= impl_from_IDirectPlay8Address(iface
);
273 TRACE("(%p, %p): stub\n", This
, pdpaAddress
);
277 static HRESULT WINAPI
IDirectPlay8AddressImpl_IsEqual(IDirectPlay8Address
*iface
,
278 IDirectPlay8Address
*pdpaAddress
)
280 IDirectPlay8AddressImpl
*This
= impl_from_IDirectPlay8Address(iface
);
281 TRACE("(%p, %p): stub\n", This
, pdpaAddress
);
285 static HRESULT WINAPI
IDirectPlay8AddressImpl_Clear(IDirectPlay8Address
*iface
)
287 IDirectPlay8AddressImpl
*This
= impl_from_IDirectPlay8Address(iface
);
288 TRACE("(%p): stub\n", This
);
292 static HRESULT WINAPI
IDirectPlay8AddressImpl_GetURLW(IDirectPlay8Address
*iface
, WCHAR
*pwszURL
,
295 IDirectPlay8AddressImpl
*This
= impl_from_IDirectPlay8Address(iface
);
296 TRACE("(%p): stub\n", This
);
300 static HRESULT WINAPI
IDirectPlay8AddressImpl_GetURLA(IDirectPlay8Address
*iface
, CHAR
*pszURL
,
303 IDirectPlay8AddressImpl
*This
= impl_from_IDirectPlay8Address(iface
);
304 TRACE("(%p): stub\n", This
);
308 static HRESULT WINAPI
IDirectPlay8AddressImpl_GetSP(IDirectPlay8Address
*iface
, GUID
*pguidSP
)
310 IDirectPlay8AddressImpl
*This
= impl_from_IDirectPlay8Address(iface
);
312 TRACE("(%p, %p)\n", iface
, pguidSP
);
315 return DPNERR_INVALIDPOINTER
;
318 return DPNERR_DOESNOTEXIST
;
320 *pguidSP
= This
->SP_guid
;
324 static HRESULT WINAPI
IDirectPlay8AddressImpl_GetUserData(IDirectPlay8Address
*iface
,
325 void *pvUserData
, DWORD
*pdwBufferSize
)
327 IDirectPlay8AddressImpl
*This
= impl_from_IDirectPlay8Address(iface
);
328 TRACE("(%p): stub\n", This
);
332 static HRESULT WINAPI
IDirectPlay8AddressImpl_SetSP(IDirectPlay8Address
*iface
,
333 const GUID
*const pguidSP
)
335 IDirectPlay8AddressImpl
*This
= impl_from_IDirectPlay8Address(iface
);
337 TRACE("(%p, %s)\n", iface
, debugstr_SP(pguidSP
));
340 return DPNERR_INVALIDPOINTER
;
343 This
->SP_guid
= *pguidSP
;
345 IDirectPlay8Address_AddComponent(iface
, DPNA_KEY_PROVIDER
, &This
->SP_guid
, sizeof(GUID
), DPNA_DATATYPE_GUID
);
350 static HRESULT WINAPI
IDirectPlay8AddressImpl_SetUserData(IDirectPlay8Address
*iface
,
351 const void *const pvUserData
, const DWORD dwDataSize
)
353 IDirectPlay8AddressImpl
*This
= impl_from_IDirectPlay8Address(iface
);
354 TRACE("(%p): stub\n", This
);
358 static HRESULT WINAPI
IDirectPlay8AddressImpl_GetNumComponents(IDirectPlay8Address
*iface
,
359 DWORD
*pdwNumComponents
)
361 IDirectPlay8AddressImpl
*This
= impl_from_IDirectPlay8Address(iface
);
362 TRACE("(%p): stub\n", This
);
364 if(!pdwNumComponents
)
365 return DPNERR_INVALIDPOINTER
;
367 *pdwNumComponents
= This
->comp_count
;
372 static HRESULT WINAPI
IDirectPlay8AddressImpl_GetComponentByName(IDirectPlay8Address
*iface
,
373 const WCHAR
*const pwszName
, void *pvBuffer
, DWORD
*pdwBufferSize
, DWORD
*pdwDataType
)
375 IDirectPlay8AddressImpl
*This
= impl_from_IDirectPlay8Address(iface
);
376 struct component
*entry
;
379 TRACE("(%p)->(%p %p %p %p)\n", This
, pwszName
, pvBuffer
, pdwBufferSize
, pdwDataType
);
381 if(!pwszName
|| !pdwBufferSize
|| !pdwDataType
|| (!pvBuffer
&& pdwBufferSize
))
384 for(i
=0; i
< This
->comp_count
; i
++)
386 entry
= This
->components
[i
];
388 if (lstrcmpW(pwszName
, entry
->name
) == 0)
390 TRACE("Found %s\n", debugstr_w(pwszName
));
392 if(*pdwBufferSize
< entry
->size
)
394 *pdwBufferSize
= entry
->size
;
395 return DPNERR_BUFFERTOOSMALL
;
398 *pdwBufferSize
= entry
->size
;
399 *pdwDataType
= entry
->type
;
403 case DPNA_DATATYPE_DWORD
:
404 memcpy(pvBuffer
, &entry
->data
.value
, sizeof(DWORD
));
406 case DPNA_DATATYPE_GUID
:
407 memcpy(pvBuffer
, &entry
->data
.guid
, sizeof(GUID
));
409 case DPNA_DATATYPE_STRING
:
410 memcpy(pvBuffer
, entry
->data
.string
, entry
->size
);
412 case DPNA_DATATYPE_STRING_ANSI
:
413 memcpy(pvBuffer
, entry
->data
.ansi
, entry
->size
);
415 case DPNA_DATATYPE_BINARY
:
416 memcpy(pvBuffer
, entry
->data
.binary
, entry
->size
);
424 return DPNERR_DOESNOTEXIST
;
427 static HRESULT WINAPI
IDirectPlay8AddressImpl_GetComponentByIndex(IDirectPlay8Address
*iface
,
428 const DWORD dwComponentID
, WCHAR
*pwszName
, DWORD
*pdwNameLen
, void *pvBuffer
,
429 DWORD
*pdwBufferSize
, DWORD
*pdwDataType
)
431 IDirectPlay8AddressImpl
*This
= impl_from_IDirectPlay8Address(iface
);
432 struct component
*entry
;
435 TRACE("(%p)->(%u %p %p %p %p %p)\n", This
, dwComponentID
, pwszName
, pdwNameLen
, pvBuffer
, pdwBufferSize
, pdwDataType
);
437 if(!pdwNameLen
|| !pdwBufferSize
|| !pdwDataType
)
439 WARN("Invalid buffer (%p, %p, %p)\n", pdwNameLen
, pdwBufferSize
, pdwDataType
);
440 return DPNERR_INVALIDPOINTER
;
443 if(dwComponentID
> This
->comp_count
)
445 WARN("dwComponentID out of range\n");
446 return DPNERR_DOESNOTEXIST
;
449 entry
= This
->components
[dwComponentID
];
451 namesize
= strlenW(entry
->name
);
452 if(*pdwBufferSize
< entry
->size
|| *pdwNameLen
< namesize
)
454 WARN("Buffer too small\n");
456 *pdwNameLen
= namesize
+ 1;
457 *pdwBufferSize
= entry
->size
;
458 *pdwDataType
= entry
->type
;
459 return DPNERR_BUFFERTOOSMALL
;
462 if(!pwszName
|| !pvBuffer
)
464 WARN("Invalid buffer (%p, %p)\n", pwszName
, pvBuffer
);
465 return DPNERR_INVALIDPOINTER
;
468 lstrcpyW(pwszName
, entry
->name
);
470 *pdwNameLen
= namesize
+ 1;
471 *pdwBufferSize
= entry
->size
;
472 *pdwDataType
= entry
->type
;
476 case DPNA_DATATYPE_DWORD
:
477 *(DWORD
*)pvBuffer
= entry
->data
.value
;
479 case DPNA_DATATYPE_GUID
:
480 *(GUID
*)pvBuffer
= entry
->data
.guid
;
482 case DPNA_DATATYPE_STRING
:
483 memcpy(pvBuffer
, entry
->data
.string
, entry
->size
);
485 case DPNA_DATATYPE_STRING_ANSI
:
486 memcpy(pvBuffer
, entry
->data
.ansi
, entry
->size
);
488 case DPNA_DATATYPE_BINARY
:
489 memcpy(pvBuffer
, entry
->data
.binary
, entry
->size
);
496 static HRESULT WINAPI
IDirectPlay8AddressImpl_AddComponent(IDirectPlay8Address
*iface
,
497 const WCHAR
*const pwszName
, const void* const lpvData
, const DWORD dwDataSize
,
498 const DWORD dwDataType
)
500 IDirectPlay8AddressImpl
*This
= impl_from_IDirectPlay8Address(iface
);
501 struct component
*entry
;
505 TRACE("(%p, %s, %p, %u, %x)\n", This
, debugstr_w(pwszName
), lpvData
, dwDataSize
, dwDataType
);
508 return DPNERR_INVALIDPOINTER
;
512 case DPNA_DATATYPE_DWORD
:
513 if (sizeof(DWORD
) != dwDataSize
)
515 WARN("Invalid DWORD size, returning DPNERR_INVALIDPARAM\n");
516 return DPNERR_INVALIDPARAM
;
519 case DPNA_DATATYPE_GUID
:
520 if (sizeof(GUID
) != dwDataSize
)
522 WARN("Invalid GUID size, returning DPNERR_INVALIDPARAM\n");
523 return DPNERR_INVALIDPARAM
;
526 case DPNA_DATATYPE_STRING
:
527 if (((strlenW((WCHAR
*)lpvData
)+1)*sizeof(WCHAR
)) != dwDataSize
)
529 WARN("Invalid STRING size, returning DPNERR_INVALIDPARAM\n");
530 return DPNERR_INVALIDPARAM
;
533 case DPNA_DATATYPE_STRING_ANSI
:
534 if ((strlen((const CHAR
*)lpvData
)+1) != dwDataSize
)
536 WARN("Invalid ASCII size, returning DPNERR_INVALIDPARAM\n");
537 return DPNERR_INVALIDPARAM
;
542 for(i
=0; i
< This
->comp_count
; i
++)
544 entry
= This
->components
[i
];
546 if (lstrcmpW(pwszName
, entry
->name
) == 0)
548 TRACE("Found %s\n", debugstr_w(pwszName
));
551 if(entry
->type
== DPNA_DATATYPE_STRING_ANSI
)
552 heap_free(entry
->data
.ansi
);
553 else if(entry
->type
== DPNA_DATATYPE_STRING
)
554 heap_free(entry
->data
.string
);
555 else if(entry
->type
== DPNA_DATATYPE_BINARY
)
556 heap_free(entry
->data
.binary
);
564 /* Create a new one */
565 entry
= heap_alloc(sizeof(struct component
));
567 return E_OUTOFMEMORY
;
569 entry
->name
= heap_strdupW(pwszName
);
573 return E_OUTOFMEMORY
;
576 if(!add_component(This
, entry
))
578 heap_free(entry
->name
);
580 return E_OUTOFMEMORY
;
586 case DPNA_DATATYPE_DWORD
:
587 entry
->data
.value
= *(DWORD
*)lpvData
;
588 TRACE("(%p, %u): DWORD Type -> %u\n", lpvData
, dwDataSize
, *(const DWORD
*) lpvData
);
590 case DPNA_DATATYPE_GUID
:
591 entry
->data
.guid
= *(GUID
*)lpvData
;
592 TRACE("(%p, %u): GUID Type -> %s\n", lpvData
, dwDataSize
, debugstr_guid(lpvData
));
594 case DPNA_DATATYPE_STRING
:
595 entry
->data
.string
= heap_strdupW((WCHAR
*)lpvData
);
596 TRACE("(%p, %u): STRING Type -> %s\n", lpvData
, dwDataSize
, debugstr_w((WCHAR
*)lpvData
));
598 case DPNA_DATATYPE_STRING_ANSI
:
599 entry
->data
.ansi
= heap_strdupA((CHAR
*)lpvData
);
600 TRACE("(%p, %u): ANSI STRING Type -> %s\n", lpvData
, dwDataSize
, (const CHAR
*) lpvData
);
602 case DPNA_DATATYPE_BINARY
:
603 entry
->data
.binary
= heap_alloc(dwDataSize
);
604 memcpy(entry
->data
.binary
, lpvData
, dwDataSize
);
605 TRACE("(%p, %u): BINARY Type\n", lpvData
, dwDataSize
);
609 entry
->type
= dwDataType
;
610 entry
->size
= dwDataSize
;
615 static HRESULT WINAPI
IDirectPlay8AddressImpl_GetDevice(IDirectPlay8Address
*iface
, GUID
*pDevGuid
) {
616 IDirectPlay8AddressImpl
*This
= impl_from_IDirectPlay8Address(iface
);
617 TRACE("(%p): stub\n", This
);
621 static HRESULT WINAPI
IDirectPlay8AddressImpl_SetDevice(IDirectPlay8Address
*iface
,
622 const GUID
*const devGuid
)
624 IDirectPlay8AddressImpl
*This
= impl_from_IDirectPlay8Address(iface
);
625 TRACE("(%p, %s): stub\n", This
, debugstr_guid(devGuid
));
629 static HRESULT WINAPI
IDirectPlay8AddressImpl_BuildFromDirectPlay4Address(IDirectPlay8Address
*iface
,
630 void *pvAddress
, DWORD dwDataSize
)
632 IDirectPlay8AddressImpl
*This
= impl_from_IDirectPlay8Address(iface
);
633 TRACE("(%p): stub\n", This
);
637 static const IDirectPlay8AddressVtbl DirectPlay8Address_Vtbl
=
639 IDirectPlay8AddressImpl_QueryInterface
,
640 IDirectPlay8AddressImpl_AddRef
,
641 IDirectPlay8AddressImpl_Release
,
642 IDirectPlay8AddressImpl_BuildFromURLW
,
643 IDirectPlay8AddressImpl_BuildFromURLA
,
644 IDirectPlay8AddressImpl_Duplicate
,
645 IDirectPlay8AddressImpl_SetEqual
,
646 IDirectPlay8AddressImpl_IsEqual
,
647 IDirectPlay8AddressImpl_Clear
,
648 IDirectPlay8AddressImpl_GetURLW
,
649 IDirectPlay8AddressImpl_GetURLA
,
650 IDirectPlay8AddressImpl_GetSP
,
651 IDirectPlay8AddressImpl_GetUserData
,
652 IDirectPlay8AddressImpl_SetSP
,
653 IDirectPlay8AddressImpl_SetUserData
,
654 IDirectPlay8AddressImpl_GetNumComponents
,
655 IDirectPlay8AddressImpl_GetComponentByName
,
656 IDirectPlay8AddressImpl_GetComponentByIndex
,
657 IDirectPlay8AddressImpl_AddComponent
,
658 IDirectPlay8AddressImpl_GetDevice
,
659 IDirectPlay8AddressImpl_SetDevice
,
660 IDirectPlay8AddressImpl_BuildFromDirectPlay4Address
663 HRESULT
DPNET_CreateDirectPlay8Address(IClassFactory
*iface
, IUnknown
*pUnkOuter
, REFIID riid
, LPVOID
*ppobj
)
665 IDirectPlay8AddressImpl
* client
;
668 TRACE("(%p, %s, %p)\n", pUnkOuter
, debugstr_guid(riid
), ppobj
);
672 client
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(IDirectPlay8AddressImpl
));
674 return E_OUTOFMEMORY
;
676 client
->IDirectPlay8Address_iface
.lpVtbl
= &DirectPlay8Address_Vtbl
;
678 client
->comp_array_size
= 4;
679 client
->components
= heap_alloc( sizeof(*client
->components
) * client
->comp_array_size
);
680 if(!client
->components
)
683 return E_OUTOFMEMORY
;
686 ret
= IDirectPlay8AddressImpl_QueryInterface(&client
->IDirectPlay8Address_iface
, riid
, ppobj
);
687 IDirectPlay8AddressImpl_Release(&client
->IDirectPlay8Address_iface
);