1 /*****************************************************************************
2 * utils.cpp: ActiveX control for VLC
3 *****************************************************************************
4 * Copyright (C) 2005 the VideoLAN team
6 * Authors: Damien Fouilleul <Damien.Fouilleul@laposte.net>
8 * This program is free software; you can redistribute it and/or modify
9 * it under the terms of the GNU General Public License as published by
10 * the Free Software Foundation; either version 2 of the License, or
11 * (at your option) any later version.
13 * This program is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 * GNU General Public License for more details.
18 * You should have received a copy of the GNU General Public License
19 * along with this program; if not, write to the Free Software
20 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
21 *****************************************************************************/
29 ** conversion facilities
34 char *CStrFromWSTR(UINT codePage, LPCWSTR wstr, UINT len)
38 size_t mblen = WideCharToMultiByte(codePage,
39 0, wstr, len, NULL, 0, NULL, NULL);
42 char *buffer = (char *)CoTaskMemAlloc(mblen+1);
43 ZeroMemory(buffer, mblen+1);
44 if( WideCharToMultiByte(codePage, 0, wstr, len, buffer, mblen, NULL, NULL) )
54 char *CStrFromBSTR(UINT codePage, BSTR bstr)
56 return CStrFromWSTR(codePage, bstr, SysStringLen(bstr));
59 BSTR BSTRFromCStr(UINT codePage, LPCSTR s)
61 int wideLen = MultiByteToWideChar(codePage, 0, s, -1, NULL, 0);
64 WCHAR* wideStr = (WCHAR*)CoTaskMemAlloc(wideLen*sizeof(WCHAR));
69 ZeroMemory(wideStr, wideLen*sizeof(WCHAR));
70 MultiByteToWideChar(codePage, 0, s, -1, wideStr, wideLen);
71 bstr = SysAllocStringLen(wideStr, wideLen-1);
72 CoTaskMemFree(wideStr);
80 char *CStrFromGUID(REFGUID clsid)
84 if( FAILED(StringFromIID(clsid, &oleStr)) )
88 return (LPCSTR)oleStr;
90 char *pct_CLSID = NULL;
91 size_t len = WideCharToMultiByte(CP_ACP, 0, oleStr, -1, NULL, 0, NULL, NULL);
94 pct_CLSID = (char *)CoTaskMemAlloc(len);
95 WideCharToMultiByte(CP_ACP, 0, oleStr, -1, pct_CLSID, len, NULL, NULL);
97 CoTaskMemFree(oleStr);
106 HRESULT GetObjectProperty(LPUNKNOWN object, DISPID dispID, VARIANT& v)
109 HRESULT hr = object->QueryInterface(IID_IDispatch, (LPVOID *)&pDisp);
112 DISPPARAMS dispparamsNoArgs = {NULL, NULL, 0, 0};
115 hr = pDisp->Invoke(dispID, IID_NULL, LOCALE_USER_DEFAULT,
116 DISPATCH_PROPERTYGET, &dispparamsNoArgs, &vres, NULL, NULL);
119 if( V_VT(&v) != V_VT(&vres) )
121 hr = VariantChangeType(&v, &vres, 0, V_VT(&v));
134 HDC CreateDevDC(DVTARGETDEVICE *ptd)
139 hdc = CreateDC(TEXT("DISPLAY"), NULL, NULL, NULL);
143 LPDEVNAMES lpDevNames;
145 LPTSTR lpszDriverName;
146 LPTSTR lpszDeviceName;
149 lpDevNames = (LPDEVNAMES) ptd; // offset for size field
151 if (ptd->tdExtDevmodeOffset == 0)
157 lpDevMode = (LPDEVMODE) ((LPTSTR)ptd + ptd->tdExtDevmodeOffset);
160 lpszDriverName = (LPTSTR) lpDevNames + ptd->tdDriverNameOffset;
161 lpszDeviceName = (LPTSTR) lpDevNames + ptd->tdDeviceNameOffset;
162 lpszPortName = (LPTSTR) lpDevNames + ptd->tdPortNameOffset;
164 hdc = CreateDC(lpszDriverName, lpszDeviceName, lpszPortName, lpDevMode);
169 #define HIMETRIC_PER_INCH 2540
171 void DPFromHimetric(HDC hdc, LPPOINT pt, int count)
173 LONG lpX = GetDeviceCaps(hdc, LOGPIXELSX);
174 LONG lpY = GetDeviceCaps(hdc, LOGPIXELSY);
177 pt->x = pt->x*lpX/HIMETRIC_PER_INCH;
178 pt->y = pt->y*lpY/HIMETRIC_PER_INCH;
183 void HimetricFromDP(HDC hdc, LPPOINT pt, int count)
185 LONG lpX = GetDeviceCaps(hdc, LOGPIXELSX);
186 LONG lpY = GetDeviceCaps(hdc, LOGPIXELSY);
189 pt->x = pt->x*HIMETRIC_PER_INCH/lpX;
190 pt->y = pt->y*HIMETRIC_PER_INCH/lpY;
196 LPWSTR CombineURL(LPCWSTR baseUrl, LPCWSTR url)
200 // check whether URL is already absolute
201 const wchar_t *end=wcschr(url, L':');
202 if( (NULL != end) && (end != url) )
204 // validate protocol header
205 const wchar_t *start = url;
206 while( start != end ) {
207 wchar_t c = towlower(*start);
208 if( (c < L'a') || (c > L'z') )
209 // not a valid protocol header, assume relative URL
213 /* we have a protocol header, therefore URL is absolute */
214 UINT len = wcslen(url);
215 wchar_t *href = (LPWSTR)CoTaskMemAlloc((len+1)*sizeof(wchar_t));
218 memcpy(href, url, len*sizeof(wchar_t));
228 size_t baseLen = wcslen(baseUrl);
229 wchar_t *href = (LPWSTR)CoTaskMemAlloc((baseLen+wcslen(url)+1)*sizeof(wchar_t));
232 /* prepend base URL */
233 wcscpy(href, baseUrl);
236 ** relative url could be empty,
237 ** in which case return base URL
243 ** locate pathname part of base URL
246 /* skip over protocol part */
247 wchar_t *pathstart = wcschr(href, L':');
251 if( L'/' == *(++pathstart) )
253 if( L'/' == *(++pathstart) )
258 /* skip over host part */
259 pathstart = wcschr(pathstart, L'/');
260 pathend = href+baseLen;
263 // no path, add a / past end of url (over '\0')
270 /* baseURL is just a UNIX file path */
273 /* baseURL is not an absolute path */
277 pathend = href+baseLen;
280 /* relative URL made of an absolute path ? */
283 /* replace path completely */
284 wcscpy(pathstart, url);
288 /* find last path component and replace it */
289 while( L'/' != *pathend )
293 ** if relative url path starts with one or more './' or '../',
294 ** factor them out of href so that we return a
297 while( pathend > pathstart )
299 const wchar_t *p = url;
305 /* relative url is just '.' */
311 /* relative url starts with './' */
320 /* relative url is '..' */
326 /* relative url starts with '../' */
334 while( L'/' != *pathend );
336 /* skip over '/' separator */
338 /* concatenate remaining base URL and relative URL */
339 wcscpy(pathend, url);