typelib: Implement LoadTypeLib16

[Alexandre Julliard]

Detlef Riekenberg <wine.dev at web.de> writes:

> +HRESULT WINAPI LoadTypeLib16(LPSTR szFile, ITypeLib** pptLib)
>  {
> -    FIXME("(%s,%p): stub\n",debugstr_a(szFile),pptLib);
> +    LPWSTR nameW = NULL;
> +    HRESULT hr;
> +    DWORD len;
>  
> -    if (pptLib!=0)
> -      *pptLib=0;
> +    TRACE("(%s, %p)\n", debugstr_a(szFile), pptLib);
> +
> +    if (szFile) {
> +        len = MultiByteToWideChar(CP_ACP, 0, szFile, -1, NULL, 0);
> +        nameW = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
> +        MultiByteToWideChar(CP_ACP, 0, szFile, -1, nameW, len);
> +    }
>  
> -    return E_FAIL;
> +    hr = LoadTypeLib(nameW, pptLib);
> +    HeapFree(GetProcessHeap(), 0, nameW);
> +    return hr;

Most likely you need to return a 16-bit interface here.

-- 
Alexandre Julliard
julliard at winehq.org