2 * MIME OLE International interface
4 * Copyright 2008 Huw Davies for CodeWeavers
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
21 #include "inetcomm_private.h"
25 #include <wine/unicode.h>
35 IMimeInternational IMimeInternational_iface
;
40 LONG next_charset_handle
;
41 HCHARSET default_charset
;
44 static inline internat_impl
*impl_from_IMimeInternational(IMimeInternational
*iface
)
46 return CONTAINING_RECORD(iface
, internat_impl
, IMimeInternational_iface
);
49 static inline HRESULT
get_mlang(IMultiLanguage
**ml
)
51 return CoCreateInstance(&CLSID_CMultiLanguage
, NULL
, CLSCTX_INPROC_SERVER
| CLSCTX_INPROC_HANDLER
,
52 &IID_IMultiLanguage
, (void **)ml
);
55 static HRESULT WINAPI
MimeInternat_QueryInterface( IMimeInternational
*iface
, REFIID riid
, LPVOID
*ppobj
)
57 if (IsEqualGUID(riid
, &IID_IUnknown
) ||
58 IsEqualGUID(riid
, &IID_IMimeInternational
))
60 IMimeInternational_AddRef( iface
);
65 FIXME("interface %s not implemented\n", debugstr_guid(riid
));
69 static ULONG WINAPI
MimeInternat_AddRef( IMimeInternational
*iface
)
71 internat_impl
*This
= impl_from_IMimeInternational( iface
);
72 return InterlockedIncrement(&This
->refs
);
75 static ULONG WINAPI
MimeInternat_Release( IMimeInternational
*iface
)
77 internat_impl
*This
= impl_from_IMimeInternational( iface
);
80 refs
= InterlockedDecrement(&This
->refs
);
83 charset_entry
*charset
, *cursor2
;
85 LIST_FOR_EACH_ENTRY_SAFE(charset
, cursor2
, &This
->charsets
, charset_entry
, entry
)
87 list_remove(&charset
->entry
);
88 HeapFree(GetProcessHeap(), 0, charset
);
90 This
->cs
.DebugInfo
->Spare
[0] = 0;
91 DeleteCriticalSection(&This
->cs
);
92 HeapFree(GetProcessHeap(), 0, This
);
98 static HRESULT WINAPI
MimeInternat_SetDefaultCharset(IMimeInternational
*iface
, HCHARSET hCharset
)
100 internat_impl
*This
= impl_from_IMimeInternational( iface
);
102 TRACE("(%p)->(%p)\n", iface
, hCharset
);
104 if(hCharset
== NULL
) return E_INVALIDARG
;
105 /* FIXME check hCharset is valid */
107 InterlockedExchangePointer(&This
->default_charset
, hCharset
);
112 static HRESULT WINAPI
MimeInternat_GetDefaultCharset(IMimeInternational
*iface
, LPHCHARSET phCharset
)
114 internat_impl
*This
= impl_from_IMimeInternational( iface
);
117 TRACE("(%p)->(%p)\n", iface
, phCharset
);
119 if(This
->default_charset
== NULL
)
122 hr
= IMimeInternational_GetCodePageCharset(iface
, GetACP(), CHARSET_BODY
, &hcs
);
124 InterlockedCompareExchangePointer(&This
->default_charset
, hcs
, NULL
);
126 *phCharset
= This
->default_charset
;
131 static HRESULT
mlang_getcodepageinfo(UINT cp
, MIMECPINFO
*mlang_cp_info
)
140 hr
= IMultiLanguage_GetCodePageInfo(ml
, cp
, mlang_cp_info
);
141 IMultiLanguage_Release(ml
);
146 static HRESULT WINAPI
MimeInternat_GetCodePageCharset(IMimeInternational
*iface
, CODEPAGEID cpiCodePage
,
147 CHARSETTYPE ctCsetType
,
148 LPHCHARSET phCharset
)
151 MIMECPINFO mlang_cp_info
;
153 TRACE("(%p)->(%d, %d, %p)\n", iface
, cpiCodePage
, ctCsetType
, phCharset
);
157 hr
= mlang_getcodepageinfo(cpiCodePage
, &mlang_cp_info
);
160 const WCHAR
*charset_nameW
= NULL
;
167 charset_nameW
= mlang_cp_info
.wszBodyCharset
;
170 charset_nameW
= mlang_cp_info
.wszHeaderCharset
;
173 charset_nameW
= mlang_cp_info
.wszWebCharset
;
176 return MIME_E_INVALID_CHARSET_TYPE
;
178 len
= WideCharToMultiByte(CP_ACP
, 0, charset_nameW
, -1, NULL
, 0, NULL
, NULL
);
179 charset_name
= HeapAlloc(GetProcessHeap(), 0, len
);
180 WideCharToMultiByte(CP_ACP
, 0, charset_nameW
, -1, charset_name
, len
, NULL
, NULL
);
181 hr
= IMimeInternational_FindCharset(iface
, charset_name
, phCharset
);
182 HeapFree(GetProcessHeap(), 0, charset_name
);
187 static HRESULT
mlang_getcsetinfo(const char *charset
, MIMECSETINFO
*mlang_info
)
189 DWORD len
= MultiByteToWideChar(CP_ACP
, 0, charset
, -1, NULL
, 0);
190 BSTR bstr
= SysAllocStringLen(NULL
, len
- 1);
194 MultiByteToWideChar(CP_ACP
, 0, charset
, -1, bstr
, len
);
200 hr
= IMultiLanguage_GetCharsetInfo(ml
, bstr
, mlang_info
);
201 IMultiLanguage_Release(ml
);
204 if(FAILED(hr
)) hr
= MIME_E_NOT_FOUND
;
208 static HCHARSET
add_charset(struct list
*list
, MIMECSETINFO
*mlang_info
, HCHARSET handle
)
210 charset_entry
*charset
= HeapAlloc(GetProcessHeap(), 0, sizeof(*charset
));
212 WideCharToMultiByte(CP_ACP
, 0, mlang_info
->wszCharset
, -1,
213 charset
->cs_info
.szName
, sizeof(charset
->cs_info
.szName
), NULL
, NULL
);
214 charset
->cs_info
.cpiWindows
= mlang_info
->uiCodePage
;
215 charset
->cs_info
.cpiInternet
= mlang_info
->uiInternetEncoding
;
216 charset
->cs_info
.hCharset
= handle
;
217 charset
->cs_info
.dwReserved1
= 0;
218 list_add_head(list
, &charset
->entry
);
220 return charset
->cs_info
.hCharset
;
223 static HRESULT WINAPI
MimeInternat_FindCharset(IMimeInternational
*iface
, LPCSTR pszCharset
,
224 LPHCHARSET phCharset
)
226 internat_impl
*This
= impl_from_IMimeInternational( iface
);
227 HRESULT hr
= MIME_E_NOT_FOUND
;
228 charset_entry
*charset
;
230 TRACE("(%p)->(%s, %p)\n", iface
, debugstr_a(pszCharset
), phCharset
);
234 EnterCriticalSection(&This
->cs
);
236 LIST_FOR_EACH_ENTRY(charset
, &This
->charsets
, charset_entry
, entry
)
238 if(!lstrcmpiA(charset
->cs_info
.szName
, pszCharset
))
240 *phCharset
= charset
->cs_info
.hCharset
;
246 if(hr
== MIME_E_NOT_FOUND
)
248 MIMECSETINFO mlang_info
;
250 LeaveCriticalSection(&This
->cs
);
251 hr
= mlang_getcsetinfo(pszCharset
, &mlang_info
);
252 EnterCriticalSection(&This
->cs
);
255 *phCharset
= add_charset(&This
->charsets
, &mlang_info
,
256 UlongToHandle(InterlockedIncrement(&This
->next_charset_handle
)));
259 LeaveCriticalSection(&This
->cs
);
263 static HRESULT WINAPI
MimeInternat_GetCharsetInfo(IMimeInternational
*iface
, HCHARSET hCharset
,
264 LPINETCSETINFO pCsetInfo
)
266 internat_impl
*This
= impl_from_IMimeInternational( iface
);
267 HRESULT hr
= MIME_E_INVALID_HANDLE
;
268 charset_entry
*charset
;
270 TRACE("(%p)->(%p, %p)\n", iface
, hCharset
, pCsetInfo
);
272 EnterCriticalSection(&This
->cs
);
274 LIST_FOR_EACH_ENTRY(charset
, &This
->charsets
, charset_entry
, entry
)
276 if(charset
->cs_info
.hCharset
== hCharset
)
278 *pCsetInfo
= charset
->cs_info
;
284 LeaveCriticalSection(&This
->cs
);
289 static HRESULT WINAPI
MimeInternat_GetCodePageInfo(IMimeInternational
*iface
, CODEPAGEID cpiCodePage
,
290 LPCODEPAGEINFO pCodePageInfo
)
296 static HRESULT WINAPI
MimeInternat_CanConvertCodePages(IMimeInternational
*iface
, CODEPAGEID cpiSource
,
302 TRACE("(%p)->(%d, %d)\n", iface
, cpiSource
, cpiDest
);
304 /* Could call mlang.IsConvertINetStringAvailable() to avoid the COM overhead if need be. */
309 hr
= IMultiLanguage_IsConvertible(ml
, cpiSource
, cpiDest
);
310 IMultiLanguage_Release(ml
);
316 static HRESULT WINAPI
MimeInternat_DecodeHeader(IMimeInternational
*iface
, HCHARSET hCharset
,
318 LPPROPVARIANT pDecoded
,
319 LPRFC1522INFO pRfc1522Info
)
325 static HRESULT WINAPI
MimeInternat_EncodeHeader(IMimeInternational
*iface
, HCHARSET hCharset
,
328 LPRFC1522INFO pRfc1522Info
)
334 static HRESULT WINAPI
MimeInternat_ConvertBuffer(IMimeInternational
*iface
, CODEPAGEID cpiSource
,
335 CODEPAGEID cpiDest
, LPBLOB pIn
, LPBLOB pOut
,
341 TRACE("(%p)->(%d, %d, %p, %p, %p)\n", iface
, cpiSource
, cpiDest
, pIn
, pOut
, pcbRead
);
346 /* Could call mlang.ConvertINetString() to avoid the COM overhead if need be. */
352 UINT in_size
= pIn
->cbSize
, out_size
;
354 hr
= IMultiLanguage_ConvertString(ml
, &mode
, cpiSource
, cpiDest
, pIn
->pBlobData
, &in_size
,
356 if(hr
== S_OK
) /* S_FALSE means the conversion could not be performed */
358 pOut
->pBlobData
= CoTaskMemAlloc(out_size
);
364 in_size
= pIn
->cbSize
;
365 hr
= IMultiLanguage_ConvertString(ml
, &mode
, cpiSource
, cpiDest
, pIn
->pBlobData
, &in_size
,
366 pOut
->pBlobData
, &out_size
);
371 pOut
->cbSize
= out_size
;
374 CoTaskMemFree(pOut
->pBlobData
);
377 IMultiLanguage_Release(ml
);
383 static HRESULT WINAPI
MimeInternat_ConvertString(IMimeInternational
*iface
, CODEPAGEID cpiSource
,
384 CODEPAGEID cpiDest
, LPPROPVARIANT pIn
,
391 TRACE("(%p)->(%d, %d, %p %p)\n", iface
, cpiSource
, cpiDest
, pIn
, pOut
);
396 if(cpiSource
== CP_UNICODE
) cpiSource
= GetACP();
397 src_len
= strlen(pIn
->u
.pszVal
);
400 cpiSource
= CP_UNICODE
;
401 src_len
= strlenW(pIn
->u
.pwszVal
) * sizeof(WCHAR
);
411 UINT in_size
= src_len
, out_size
;
413 hr
= IMultiLanguage_ConvertString(ml
, &mode
, cpiSource
, cpiDest
, (BYTE
*)pIn
->u
.pszVal
, &in_size
,
415 if(hr
== S_OK
) /* S_FALSE means the conversion could not be performed */
417 out_size
+= (cpiDest
== CP_UNICODE
) ? sizeof(WCHAR
) : sizeof(char);
419 pOut
->u
.pszVal
= CoTaskMemAlloc(out_size
);
426 hr
= IMultiLanguage_ConvertString(ml
, &mode
, cpiSource
, cpiDest
, (BYTE
*)pIn
->u
.pszVal
, &in_size
,
427 (BYTE
*)pOut
->u
.pszVal
, &out_size
);
431 if(cpiDest
== CP_UNICODE
)
433 pOut
->u
.pwszVal
[out_size
/ sizeof(WCHAR
)] = 0;
434 pOut
->vt
= VT_LPWSTR
;
438 pOut
->u
.pszVal
[out_size
] = '\0';
443 CoTaskMemFree(pOut
->u
.pszVal
);
446 IMultiLanguage_Release(ml
);
451 static HRESULT WINAPI
MimeInternat_MLANG_ConvertInetReset(IMimeInternational
*iface
)
457 static HRESULT WINAPI
MimeInternat_MLANG_ConvertInetString(IMimeInternational
*iface
, CODEPAGEID cpiSource
,
468 static HRESULT WINAPI
MimeInternat_Rfc1522Decode(IMimeInternational
*iface
, LPCSTR pszValue
,
477 static HRESULT WINAPI
MimeInternat_Rfc1522Encode(IMimeInternational
*iface
, LPCSTR pszValue
,
485 static IMimeInternationalVtbl mime_internat_vtbl
=
487 MimeInternat_QueryInterface
,
489 MimeInternat_Release
,
490 MimeInternat_SetDefaultCharset
,
491 MimeInternat_GetDefaultCharset
,
492 MimeInternat_GetCodePageCharset
,
493 MimeInternat_FindCharset
,
494 MimeInternat_GetCharsetInfo
,
495 MimeInternat_GetCodePageInfo
,
496 MimeInternat_CanConvertCodePages
,
497 MimeInternat_DecodeHeader
,
498 MimeInternat_EncodeHeader
,
499 MimeInternat_ConvertBuffer
,
500 MimeInternat_ConvertString
,
501 MimeInternat_MLANG_ConvertInetReset
,
502 MimeInternat_MLANG_ConvertInetString
,
503 MimeInternat_Rfc1522Decode
,
504 MimeInternat_Rfc1522Encode
507 static internat_impl
*global_internat
;
509 HRESULT
MimeInternational_Construct(IMimeInternational
**internat
)
511 global_internat
= HeapAlloc(GetProcessHeap(), 0, sizeof(*global_internat
));
512 global_internat
->IMimeInternational_iface
.lpVtbl
= &mime_internat_vtbl
;
513 global_internat
->refs
= 0;
514 InitializeCriticalSection(&global_internat
->cs
);
515 global_internat
->cs
.DebugInfo
->Spare
[0] = (DWORD_PTR
)(__FILE__
": global_internat.cs");
517 list_init(&global_internat
->charsets
);
518 global_internat
->next_charset_handle
= 0;
519 global_internat
->default_charset
= NULL
;
521 *internat
= &global_internat
->IMimeInternational_iface
;
523 IMimeInternational_AddRef(*internat
);
527 HRESULT WINAPI
MimeOleGetInternat(IMimeInternational
**internat
)
529 TRACE("(%p)\n", internat
);
531 *internat
= &global_internat
->IMimeInternational_iface
;
532 IMimeInternational_AddRef(*internat
);
536 HRESULT WINAPI
MimeOleFindCharset(LPCSTR name
, LPHCHARSET charset
)
538 IMimeInternational
*internat
;
541 TRACE("(%s, %p)\n", debugstr_a(name
), charset
);
543 hr
= MimeOleGetInternat(&internat
);
546 hr
= IMimeInternational_FindCharset(internat
, name
, charset
);
547 IMimeInternational_Release(internat
);
552 HRESULT WINAPI
MimeOleGetCharsetInfo(HCHARSET hCharset
, LPINETCSETINFO pCsetInfo
)
554 IMimeInternational
*internat
;
557 TRACE("(%p, %p)\n", hCharset
, pCsetInfo
);
559 hr
= MimeOleGetInternat(&internat
);
562 hr
= IMimeInternational_GetCharsetInfo(internat
, hCharset
, pCsetInfo
);
563 IMimeInternational_Release(internat
);
568 HRESULT WINAPI
MimeOleGetDefaultCharset(LPHCHARSET charset
)
570 IMimeInternational
*internat
;
573 TRACE("(%p)\n", charset
);
575 hr
= MimeOleGetInternat(&internat
);
578 hr
= IMimeInternational_GetDefaultCharset(internat
, charset
);
579 IMimeInternational_Release(internat
);