windowscodecs: Create Graphic Control Extension metadata block for a GIF frame.
[wine] / dlls / urlmon / urlmon_main.c
1 /*
2  * UrlMon
3  *
4  * Copyright (c) 2000 Patrik Stridvall
5  *
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.
10  *
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.
15  *
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
19  */
20
21 #include <stdarg.h>
22
23 #include "urlmon_main.h"
24
25 #include "winreg.h"
26
27 #define NO_SHLWAPI_REG
28 #include "shlwapi.h"
29 #include "advpub.h"
30 #include "initguid.h"
31
32 #include "wine/debug.h"
33
34 #include "urlmon.h"
35
36 WINE_DEFAULT_DEBUG_CHANNEL(urlmon);
37
38 DEFINE_GUID(CLSID_CUri, 0xDF2FCE13, 0x25EC, 0x45BB, 0x9D,0x4C, 0xCE,0xCD,0x47,0xC2,0x43,0x0C);
39
40 LONG URLMON_refCount = 0;
41
42 static HMODULE hCabinet = NULL;
43 static DWORD urlmon_tls = TLS_OUT_OF_INDEXES;
44
45 static void init_session(void);
46
47 static struct list tls_list = LIST_INIT(tls_list);
48
49 static CRITICAL_SECTION tls_cs;
50 static CRITICAL_SECTION_DEBUG tls_cs_dbg =
51 {
52     0, 0, &tls_cs,
53     { &tls_cs_dbg.ProcessLocksList, &tls_cs_dbg.ProcessLocksList },
54       0, 0, { (DWORD_PTR)(__FILE__ ": tls") }
55 };
56
57 static CRITICAL_SECTION tls_cs = { &tls_cs_dbg, -1, 0, 0, 0, 0 };
58
59 tls_data_t *get_tls_data(void)
60 {
61     tls_data_t *data;
62
63     if(urlmon_tls == TLS_OUT_OF_INDEXES) {
64         DWORD tls = TlsAlloc();
65         if(tls == TLS_OUT_OF_INDEXES)
66             return NULL;
67
68         tls = InterlockedCompareExchange((LONG*)&urlmon_tls, tls, TLS_OUT_OF_INDEXES);
69         if(tls != urlmon_tls)
70             TlsFree(tls);
71     }
72
73     data = TlsGetValue(urlmon_tls);
74     if(!data) {
75         data = heap_alloc_zero(sizeof(tls_data_t));
76         if(!data)
77             return NULL;
78
79         EnterCriticalSection(&tls_cs);
80         list_add_tail(&tls_list, &data->entry);
81         LeaveCriticalSection(&tls_cs);
82
83         TlsSetValue(urlmon_tls, data);
84     }
85
86     return data;
87 }
88
89 static void free_tls_list(void)
90 {
91     tls_data_t *data;
92
93     if(urlmon_tls == TLS_OUT_OF_INDEXES)
94         return;
95
96     while(!list_empty(&tls_list)) {
97         data = LIST_ENTRY(list_head(&tls_list), tls_data_t, entry);
98         list_remove(&data->entry);
99         heap_free(data);
100     }
101
102     TlsFree(urlmon_tls);
103 }
104
105 static void detach_thread(void)
106 {
107     tls_data_t *data;
108
109     if(urlmon_tls == TLS_OUT_OF_INDEXES)
110         return;
111
112     data = TlsGetValue(urlmon_tls);
113     if(!data)
114         return;
115
116     EnterCriticalSection(&tls_cs);
117     list_remove(&data->entry);
118     LeaveCriticalSection(&tls_cs);
119
120     if(data->notif_hwnd) {
121         WARN("notif_hwnd not destroyed\n");
122         DestroyWindow(data->notif_hwnd);
123     }
124
125     heap_free(data);
126 }
127
128 static void process_detach(void)
129 {
130     HINTERNET internet_session;
131
132     internet_session = get_internet_session(NULL);
133     if(internet_session)
134         InternetCloseHandle(internet_session);
135
136     if (hCabinet)
137         FreeLibrary(hCabinet);
138
139     free_session();
140     free_tls_list();
141 }
142
143 /***********************************************************************
144  *              DllMain (URLMON.init)
145  */
146 BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID fImpLoad)
147 {
148     TRACE("%p 0x%x %p\n", hinstDLL, fdwReason, fImpLoad);
149
150     URLMON_DllMain( hinstDLL, fdwReason, fImpLoad );
151
152     switch(fdwReason) {
153     case DLL_PROCESS_ATTACH:
154         init_session();
155         break;
156
157     case DLL_PROCESS_DETACH:
158         process_detach();
159         DeleteCriticalSection(&tls_cs);
160         break;
161
162     case DLL_THREAD_DETACH:
163         detach_thread();
164         break;
165     }
166     return TRUE;
167 }
168
169 const char *debugstr_bindstatus(ULONG status)
170 {
171     switch(status) {
172 #define X(x) case x: return #x; break
173     X(BINDSTATUS_FINDINGRESOURCE);
174     X(BINDSTATUS_CONNECTING);
175     X(BINDSTATUS_REDIRECTING);
176     X(BINDSTATUS_BEGINDOWNLOADDATA);
177     X(BINDSTATUS_DOWNLOADINGDATA);
178     X(BINDSTATUS_ENDDOWNLOADDATA);
179     X(BINDSTATUS_BEGINDOWNLOADCOMPONENTS);
180     X(BINDSTATUS_INSTALLINGCOMPONENTS);
181     X(BINDSTATUS_ENDDOWNLOADCOMPONENTS);
182     X(BINDSTATUS_USINGCACHEDCOPY);
183     X(BINDSTATUS_SENDINGREQUEST);
184     X(BINDSTATUS_CLASSIDAVAILABLE);
185     X(BINDSTATUS_MIMETYPEAVAILABLE);
186     X(BINDSTATUS_CACHEFILENAMEAVAILABLE);
187     X(BINDSTATUS_BEGINSYNCOPERATION);
188     X(BINDSTATUS_ENDSYNCOPERATION);
189     X(BINDSTATUS_BEGINUPLOADDATA);
190     X(BINDSTATUS_UPLOADINGDATA);
191     X(BINDSTATUS_ENDUPLOADINGDATA);
192     X(BINDSTATUS_PROTOCOLCLASSID);
193     X(BINDSTATUS_ENCODING);
194     X(BINDSTATUS_VERIFIEDMIMETYPEAVAILABLE);
195     X(BINDSTATUS_CLASSINSTALLLOCATION);
196     X(BINDSTATUS_DECODING);
197     X(BINDSTATUS_LOADINGMIMEHANDLER);
198     X(BINDSTATUS_CONTENTDISPOSITIONATTACH);
199     X(BINDSTATUS_FILTERREPORTMIMETYPE);
200     X(BINDSTATUS_CLSIDCANINSTANTIATE);
201     X(BINDSTATUS_IUNKNOWNAVAILABLE);
202     X(BINDSTATUS_DIRECTBIND);
203     X(BINDSTATUS_RAWMIMETYPE);
204     X(BINDSTATUS_PROXYDETECTING);
205     X(BINDSTATUS_ACCEPTRANGES);
206     X(BINDSTATUS_COOKIE_SENT);
207     X(BINDSTATUS_COMPACT_POLICY_RECEIVED);
208     X(BINDSTATUS_COOKIE_SUPPRESSED);
209     X(BINDSTATUS_COOKIE_STATE_UNKNOWN);
210     X(BINDSTATUS_COOKIE_STATE_ACCEPT);
211     X(BINDSTATUS_COOKIE_STATE_REJECT);
212     X(BINDSTATUS_COOKIE_STATE_PROMPT);
213     X(BINDSTATUS_COOKIE_STATE_LEASH);
214     X(BINDSTATUS_COOKIE_STATE_DOWNGRADE);
215     X(BINDSTATUS_POLICY_HREF);
216     X(BINDSTATUS_P3P_HEADER);
217     X(BINDSTATUS_SESSION_COOKIE_RECEIVED);
218     X(BINDSTATUS_PERSISTENT_COOKIE_RECEIVED);
219     X(BINDSTATUS_SESSION_COOKIES_ALLOWED);
220     X(BINDSTATUS_CACHECONTROL);
221     X(BINDSTATUS_CONTENTDISPOSITIONFILENAME);
222     X(BINDSTATUS_MIMETEXTPLAINMISMATCH);
223     X(BINDSTATUS_PUBLISHERAVAILABLE);
224     X(BINDSTATUS_DISPLAYNAMEAVAILABLE);
225 #undef X
226     default:
227         return wine_dbg_sprintf("(invalid status %u)", status);
228     }
229 }
230
231 /***********************************************************************
232  *              DllInstall (URLMON.@)
233  */
234 HRESULT WINAPI DllInstall(BOOL bInstall, LPCWSTR cmdline)
235 {
236   FIXME("(%s, %s): stub\n", bInstall?"TRUE":"FALSE",
237         debugstr_w(cmdline));
238
239   return S_OK;
240 }
241
242 /***********************************************************************
243  *              DllCanUnloadNow (URLMON.@)
244  */
245 HRESULT WINAPI DllCanUnloadNow(void)
246 {
247     return URLMON_refCount != 0 ? S_FALSE : S_OK;
248 }
249
250
251
252 /******************************************************************************
253  * Urlmon ClassFactory
254  */
255 typedef struct {
256     IClassFactory IClassFactory_iface;
257
258     HRESULT (*pfnCreateInstance)(IUnknown *pUnkOuter, LPVOID *ppObj);
259 } ClassFactory;
260
261 static inline ClassFactory *impl_from_IClassFactory(IClassFactory *iface)
262 {
263     return CONTAINING_RECORD(iface, ClassFactory, IClassFactory_iface);
264 }
265
266 static HRESULT WINAPI CF_QueryInterface(IClassFactory *iface, REFIID riid, LPVOID *ppv)
267 {
268     *ppv = NULL;
269
270     if(IsEqualGUID(riid, &IID_IUnknown)) {
271         TRACE("(%p)->(IID_IUnknown %p)\n", iface, ppv);
272         *ppv = iface;
273     }else if(IsEqualGUID(riid, &IID_IClassFactory)) {
274         TRACE("(%p)->(IID_IClassFactory %p)\n", iface, ppv);
275         *ppv = iface;
276     }
277
278     if(*ppv) {
279         IUnknown_AddRef((IUnknown*)*ppv);
280         return S_OK;
281     }
282
283     WARN("(%p)->(%s,%p),not found\n", iface, debugstr_guid(riid), ppv);
284     return E_NOINTERFACE;
285 }
286
287 static ULONG WINAPI CF_AddRef(IClassFactory *iface)
288 {
289     URLMON_LockModule();
290     return 2;
291 }
292
293 static ULONG WINAPI CF_Release(IClassFactory *iface)
294 {
295     URLMON_UnlockModule();
296     return 1;
297 }
298
299
300 static HRESULT WINAPI CF_CreateInstance(IClassFactory *iface, IUnknown *pOuter,
301                                         REFIID riid, LPVOID *ppobj)
302 {
303     ClassFactory *This = impl_from_IClassFactory(iface);
304     HRESULT hres;
305     LPUNKNOWN punk;
306     
307     TRACE("(%p)->(%p,%s,%p)\n",This,pOuter,debugstr_guid(riid),ppobj);
308
309     *ppobj = NULL;
310     if(SUCCEEDED(hres = This->pfnCreateInstance(pOuter, (LPVOID *) &punk))) {
311         hres = IUnknown_QueryInterface(punk, riid, ppobj);
312         IUnknown_Release(punk);
313     }
314     return hres;
315 }
316
317 static HRESULT WINAPI CF_LockServer(LPCLASSFACTORY iface,BOOL dolock)
318 {
319     TRACE("(%d)\n", dolock);
320
321     if (dolock)
322            URLMON_LockModule();
323     else
324            URLMON_UnlockModule();
325
326     return S_OK;
327 }
328
329 static const IClassFactoryVtbl ClassFactoryVtbl =
330 {
331     CF_QueryInterface,
332     CF_AddRef,
333     CF_Release,
334     CF_CreateInstance,
335     CF_LockServer
336 };
337
338 static ClassFactory FileProtocolCF =
339     { { &ClassFactoryVtbl }, FileProtocol_Construct};
340 static ClassFactory FtpProtocolCF =
341     { { &ClassFactoryVtbl }, FtpProtocol_Construct};
342 static ClassFactory GopherProtocolCF =
343     { { &ClassFactoryVtbl }, GopherProtocol_Construct};
344 static ClassFactory HttpProtocolCF =
345     { { &ClassFactoryVtbl }, HttpProtocol_Construct};
346 static ClassFactory HttpSProtocolCF =
347     { { &ClassFactoryVtbl }, HttpSProtocol_Construct};
348 static ClassFactory MkProtocolCF =
349     { { &ClassFactoryVtbl }, MkProtocol_Construct};
350 static ClassFactory SecurityManagerCF =
351     { { &ClassFactoryVtbl }, SecManagerImpl_Construct};
352 static ClassFactory ZoneManagerCF =
353     { { &ClassFactoryVtbl }, ZoneMgrImpl_Construct};
354 static ClassFactory StdURLMonikerCF =
355     { { &ClassFactoryVtbl }, StdURLMoniker_Construct};
356 static ClassFactory MimeFilterCF =
357     { { &ClassFactoryVtbl }, MimeFilter_Construct};
358 static ClassFactory CUriCF =
359     { { &ClassFactoryVtbl }, Uri_Construct};
360
361 struct object_creation_info
362 {
363     const CLSID *clsid;
364     IClassFactory *cf;
365     LPCWSTR protocol;
366 };
367
368 static const WCHAR wszFile[] = {'f','i','l','e',0};
369 static const WCHAR wszFtp[]  = {'f','t','p',0};
370 static const WCHAR wszGopher[]  = {'g','o','p','h','e','r',0};
371 static const WCHAR wszHttp[] = {'h','t','t','p',0};
372 static const WCHAR wszHttps[] = {'h','t','t','p','s',0};
373 static const WCHAR wszMk[]   = {'m','k',0};
374
375 static const struct object_creation_info object_creation[] =
376 {
377     { &CLSID_FileProtocol,            &FileProtocolCF.IClassFactory_iface,    wszFile },
378     { &CLSID_FtpProtocol,             &FtpProtocolCF.IClassFactory_iface,     wszFtp  },
379     { &CLSID_GopherProtocol,          &GopherProtocolCF.IClassFactory_iface,  wszGopher },
380     { &CLSID_HttpProtocol,            &HttpProtocolCF.IClassFactory_iface,    wszHttp },
381     { &CLSID_HttpSProtocol,           &HttpSProtocolCF.IClassFactory_iface,   wszHttps },
382     { &CLSID_MkProtocol,              &MkProtocolCF.IClassFactory_iface,      wszMk },
383     { &CLSID_InternetSecurityManager, &SecurityManagerCF.IClassFactory_iface, NULL    },
384     { &CLSID_InternetZoneManager,     &ZoneManagerCF.IClassFactory_iface,     NULL    },
385     { &CLSID_StdURLMoniker,           &StdURLMonikerCF.IClassFactory_iface,   NULL    },
386     { &CLSID_DeCompMimeFilter,        &MimeFilterCF.IClassFactory_iface,      NULL    },
387     { &CLSID_CUri,                    &CUriCF.IClassFactory_iface,            NULL    }
388 };
389
390 static void init_session(void)
391 {
392     unsigned int i;
393
394     for(i=0; i < sizeof(object_creation)/sizeof(object_creation[0]); i++) {
395         if(object_creation[i].protocol)
396             register_namespace(object_creation[i].cf, object_creation[i].clsid,
397                                       object_creation[i].protocol, TRUE);
398     }
399 }
400
401 /*******************************************************************************
402  * DllGetClassObject [URLMON.@]
403  * Retrieves class object from a DLL object
404  *
405  * NOTES
406  *    Docs say returns STDAPI
407  *
408  * PARAMS
409  *    rclsid [I] CLSID for the class object
410  *    riid   [I] Reference to identifier of interface for class object
411  *    ppv    [O] Address of variable to receive interface pointer for riid
412  *
413  * RETURNS
414  *    Success: S_OK
415  *    Failure: CLASS_E_CLASSNOTAVAILABLE, E_OUTOFMEMORY, E_INVALIDARG,
416  *             E_UNEXPECTED
417  */
418
419 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID *ppv)
420 {
421     unsigned int i;
422     HRESULT hr;
423     
424     TRACE("(%s,%s,%p)\n", debugstr_guid(rclsid), debugstr_guid(riid), ppv);
425     
426     for (i=0; i < sizeof(object_creation)/sizeof(object_creation[0]); i++)
427     {
428         if (IsEqualGUID(object_creation[i].clsid, rclsid))
429             return IClassFactory_QueryInterface(object_creation[i].cf, riid, ppv);
430     }
431
432     hr = URLMON_DllGetClassObject(rclsid, riid, ppv);
433     if(SUCCEEDED(hr))
434         return hr;
435
436     FIXME("%s: no class found.\n", debugstr_guid(rclsid));
437     return CLASS_E_CLASSNOTAVAILABLE;
438 }
439
440 static HRESULT register_inf(BOOL doregister)
441 {
442     HRESULT (WINAPI *pRegInstall)(HMODULE hm, LPCSTR pszSection, const STRTABLEA* pstTable);
443     HMODULE hAdvpack;
444
445     static const WCHAR wszAdvpack[] = {'a','d','v','p','a','c','k','.','d','l','l',0};
446
447     hAdvpack = LoadLibraryW(wszAdvpack);
448     pRegInstall = (void *)GetProcAddress(hAdvpack, "RegInstall");
449
450     return pRegInstall(hProxyDll, doregister ? "RegisterDll" : "UnregisterDll", NULL);
451 }
452
453 /***********************************************************************
454  *              DllRegisterServer (URLMON.@)
455  */
456 HRESULT WINAPI DllRegisterServer(void)
457 {
458     HRESULT hr;
459
460     TRACE("\n");
461
462     hr = URLMON_DllRegisterServer();
463     return SUCCEEDED(hr) ? register_inf(TRUE) : hr;
464 }
465
466 /***********************************************************************
467  *              DllUnregisterServer (URLMON.@)
468  */
469 HRESULT WINAPI DllUnregisterServer(void)
470 {
471     HRESULT hr;
472
473     TRACE("\n");
474
475     hr = URLMON_DllUnregisterServer();
476     return SUCCEEDED(hr) ? register_inf(FALSE) : hr;
477 }
478
479 /***********************************************************************
480  *              DllRegisterServerEx (URLMON.@)
481  */
482 HRESULT WINAPI DllRegisterServerEx(void)
483 {
484     FIXME("(void): stub\n");
485
486     return E_FAIL;
487 }
488
489 /**************************************************************************
490  *                 IsValidURL (URLMON.@)
491  * 
492  * Determines if a specified string is a valid URL.
493  *
494  * PARAMS
495  *  pBC        [I] ignored, should be NULL.
496  *  szURL      [I] string that represents the URL in question.
497  *  dwReserved [I] reserved and must be zero.
498  *
499  * RETURNS
500  *  Success: S_OK.
501  *  Failure: S_FALSE.
502  *  returns E_INVALIDARG if one or more of the args is invalid.
503  *
504  * TODO:
505  *  test functionality against windows to see what a valid URL is.
506  */
507 HRESULT WINAPI IsValidURL(LPBC pBC, LPCWSTR szURL, DWORD dwReserved)
508 {
509     FIXME("(%p, %s, %d): stub\n", pBC, debugstr_w(szURL), dwReserved);
510
511     if (dwReserved || !szURL)
512         return E_INVALIDARG;
513
514     return S_OK;
515 }
516
517 /**************************************************************************
518  *                 FaultInIEFeature (URLMON.@)
519  *
520  *  Undocumented.  Appears to be used by native shdocvw.dll.
521  */
522 HRESULT WINAPI FaultInIEFeature( HWND hwnd, uCLSSPEC * pClassSpec,
523                                  QUERYCONTEXT *pQuery, DWORD flags )
524 {
525     FIXME("%p %p %p %08x\n", hwnd, pClassSpec, pQuery, flags);
526     return E_NOTIMPL;
527 }
528
529 /**************************************************************************
530  *                 CoGetClassObjectFromURL (URLMON.@)
531  */
532 HRESULT WINAPI CoGetClassObjectFromURL( REFCLSID rclsid, LPCWSTR szCodeURL, DWORD dwFileVersionMS,
533                                         DWORD dwFileVersionLS, LPCWSTR szContentType,
534                                         LPBINDCTX pBindCtx, DWORD dwClsContext, LPVOID pvReserved,
535                                         REFIID riid, LPVOID *ppv )
536 {
537     FIXME("(%s %s %d %d %s %p %d %p %s %p) Stub!\n", debugstr_guid(rclsid), debugstr_w(szCodeURL),
538         dwFileVersionMS, dwFileVersionLS, debugstr_w(szContentType), pBindCtx, dwClsContext, pvReserved,
539         debugstr_guid(riid), ppv);
540     return E_NOINTERFACE;
541 }
542
543 /***********************************************************************
544  *           ReleaseBindInfo (URLMON.@)
545  *
546  * Release the resources used by the specified BINDINFO structure.
547  *
548  * PARAMS
549  *  pbindinfo [I] BINDINFO to release.
550  *
551  * RETURNS
552  *  Nothing.
553  */
554 void WINAPI ReleaseBindInfo(BINDINFO* pbindinfo)
555 {
556     DWORD size;
557
558     TRACE("(%p)\n", pbindinfo);
559
560     if(!pbindinfo || !(size = pbindinfo->cbSize))
561         return;
562
563     CoTaskMemFree(pbindinfo->szExtraInfo);
564     ReleaseStgMedium(&pbindinfo->stgmedData);
565
566     if(offsetof(BINDINFO, szExtraInfo) < size)
567         CoTaskMemFree(pbindinfo->szCustomVerb);
568
569     if(pbindinfo->pUnk && offsetof(BINDINFO, pUnk) < size)
570         IUnknown_Release(pbindinfo->pUnk);
571
572     memset(pbindinfo, 0, size);
573     pbindinfo->cbSize = size;
574 }
575
576 /***********************************************************************
577  *           CopyStgMedium (URLMON.@)
578  */
579 HRESULT WINAPI CopyStgMedium(const STGMEDIUM *src, STGMEDIUM *dst)
580 {
581     TRACE("(%p %p)\n", src, dst);
582
583     if(!src || !dst)
584         return E_POINTER;
585
586     *dst = *src;
587
588     switch(dst->tymed) {
589     case TYMED_NULL:
590         break;
591     case TYMED_FILE:
592         if(src->u.lpszFileName && !src->pUnkForRelease) {
593             DWORD size = (strlenW(src->u.lpszFileName)+1)*sizeof(WCHAR);
594             dst->u.lpszFileName = CoTaskMemAlloc(size);
595             if(!dst->u.lpszFileName)
596                 return E_OUTOFMEMORY;
597             memcpy(dst->u.lpszFileName, src->u.lpszFileName, size);
598         }
599         break;
600     case TYMED_ISTREAM:
601         if(dst->u.pstm)
602             IStream_AddRef(dst->u.pstm);
603         break;
604     case TYMED_ISTORAGE:
605         if(dst->u.pstg)
606             IStorage_AddRef(dst->u.pstg);
607         break;
608     case TYMED_HGLOBAL:
609         if(dst->u.hGlobal) {
610             SIZE_T size = GlobalSize(src->u.hGlobal);
611             char *src_ptr, *dst_ptr;
612
613             dst->u.hGlobal = GlobalAlloc(GMEM_FIXED, size);
614             if(!dst->u.hGlobal)
615                 return E_OUTOFMEMORY;
616             dst_ptr = GlobalLock(dst->u.hGlobal);
617             src_ptr = GlobalLock(src->u.hGlobal);
618             memcpy(dst_ptr, src_ptr, size);
619             GlobalUnlock(src_ptr);
620             GlobalUnlock(dst_ptr);
621         }
622         break;
623     default:
624         FIXME("Unimplemented tymed %d\n", src->tymed);
625     }
626
627     if(dst->pUnkForRelease)
628         IUnknown_AddRef(dst->pUnkForRelease);
629
630     return S_OK;
631 }
632
633 /***********************************************************************
634  *           CopyBindInfo (URLMON.@)
635  */
636 HRESULT WINAPI CopyBindInfo(const BINDINFO *pcbiSrc, BINDINFO *pcbiDest)
637 {
638     DWORD size;
639     HRESULT hres;
640
641     TRACE("(%p %p)\n", pcbiSrc, pcbiDest);
642
643     if(!pcbiSrc || !pcbiDest)
644         return E_POINTER;
645     if(!pcbiSrc->cbSize || !pcbiDest->cbSize)
646         return E_INVALIDARG;
647
648     size = pcbiDest->cbSize;
649     if(size > pcbiSrc->cbSize) {
650         memcpy(pcbiDest, pcbiSrc, pcbiSrc->cbSize);
651         memset((char*)pcbiDest+pcbiSrc->cbSize, 0, size-pcbiSrc->cbSize);
652     } else {
653         memcpy(pcbiDest, pcbiSrc, size);
654     }
655     pcbiDest->cbSize = size;
656
657     size = FIELD_OFFSET(BINDINFO, szExtraInfo)+sizeof(void*);
658     if(pcbiSrc->cbSize>=size && pcbiDest->cbSize>=size && pcbiSrc->szExtraInfo) {
659         size = (strlenW(pcbiSrc->szExtraInfo)+1)*sizeof(WCHAR);
660         pcbiDest->szExtraInfo = CoTaskMemAlloc(size);
661         if(!pcbiDest->szExtraInfo)
662             return E_OUTOFMEMORY;
663         memcpy(pcbiDest->szExtraInfo, pcbiSrc->szExtraInfo, size);
664     }
665
666     size = FIELD_OFFSET(BINDINFO, stgmedData)+sizeof(STGMEDIUM);
667     if(pcbiSrc->cbSize>=size && pcbiDest->cbSize>=size) {
668         hres = CopyStgMedium(&pcbiSrc->stgmedData, &pcbiDest->stgmedData);
669         if(FAILED(hres)) {
670             CoTaskMemFree(pcbiDest->szExtraInfo);
671             return hres;
672         }
673     }
674
675     size = FIELD_OFFSET(BINDINFO, szCustomVerb)+sizeof(void*);
676     if(pcbiSrc->cbSize>=size && pcbiDest->cbSize>=size && pcbiSrc->szCustomVerb) {
677         size = (strlenW(pcbiSrc->szCustomVerb)+1)*sizeof(WCHAR);
678         pcbiDest->szCustomVerb = CoTaskMemAlloc(size);
679         if(!pcbiDest->szCustomVerb) {
680             CoTaskMemFree(pcbiDest->szExtraInfo);
681             ReleaseStgMedium(&pcbiDest->stgmedData);
682             return E_OUTOFMEMORY;
683         }
684         memcpy(pcbiDest->szCustomVerb, pcbiSrc->szCustomVerb, size);
685     }
686
687     size = FIELD_OFFSET(BINDINFO, securityAttributes)+sizeof(SECURITY_ATTRIBUTES);
688     if(pcbiDest->cbSize >= size)
689         memset(&pcbiDest->securityAttributes, 0, sizeof(SECURITY_ATTRIBUTES));
690
691     if(pcbiSrc->pUnk)
692         IUnknown_AddRef(pcbiDest->pUnk);
693
694     return S_OK;
695 }
696
697 static BOOL text_richtext_filter(const BYTE *b, DWORD size)
698 {
699     return size > 5 && !memcmp(b, "{\\rtf", 5);
700 }
701
702 static BOOL text_html_filter(const BYTE *b, DWORD size)
703 {
704     if(size < 6)
705         return FALSE;
706
707     if((b[0] == '<'
708                 && (b[1] == 'h' || b[1] == 'H')
709                 && (b[2] == 't' || b[2] == 'T')
710                 && (b[3] == 'm' || b[3] == 'M')
711                 && (b[4] == 'l' || b[4] == 'L'))
712             || (b[0] == '<'
713                 && (b[1] == 'h' || b[1] == 'H')
714                 && (b[2] == 'e' || b[2] == 'E')
715                 && (b[3] == 'a' || b[3] == 'A')
716                 && (b[4] == 'd' || b[4] == 'D'))) return TRUE;
717
718     return FALSE;
719 }
720
721 static BOOL text_xml_filter(const BYTE *b, DWORD size)
722 {
723     if(size < 7)
724         return FALSE;
725
726     if(b[0] == '<' && b[1] == '?'
727             && (b[2] == 'x' || b[2] == 'X')
728             && (b[3] == 'm' || b[3] == 'M')
729             && (b[4] == 'l' || b[4] == 'L')
730             && b[5] == ' ') return TRUE;
731
732     return FALSE;
733 }
734
735 static BOOL audio_basic_filter(const BYTE *b, DWORD size)
736 {
737     return size > 4
738         && b[0] == '.' && b[1] == 's' && b[2] == 'n' && b[3] == 'd';
739 }
740
741 static BOOL audio_wav_filter(const BYTE *b, DWORD size)
742 {
743     return size > 12
744         && b[0] == 'R' && b[1] == 'I' && b[2] == 'F' && b[3] == 'F'
745         && b[8] == 'W' && b[9] == 'A' && b[10] == 'V' && b[11] == 'E';
746 }
747
748 static BOOL image_gif_filter(const BYTE *b, DWORD size)
749 {
750     return size >= 6
751         && (b[0] == 'G' || b[0] == 'g')
752         && (b[1] == 'I' || b[1] == 'i')
753         && (b[2] == 'F' || b[2] == 'f')
754         &&  b[3] == '8'
755         && (b[4] == '7' || b[4] == '9')
756         && (b[5] == 'A' || b[5] == 'a');
757 }
758
759 static BOOL image_pjpeg_filter(const BYTE *b, DWORD size)
760 {
761     return size > 2 && b[0] == 0xff && b[1] == 0xd8;
762 }
763
764 static BOOL image_tiff_filter(const BYTE *b, DWORD size)
765 {
766     static const BYTE magic1[] = {0x4d,0x4d,0x00,0x2a};
767     static const BYTE magic2[] = {0x49,0x49,0x2a,0xff};
768
769     return size >= 4 && (!memcmp(b, magic1, 4) || !memcmp(b, magic2, 4));
770 }
771
772 static BOOL image_xpng_filter(const BYTE *b, DWORD size)
773 {
774     static const BYTE xpng_header[] = {0x89,'P','N','G',0x0d,0x0a,0x1a,0x0a};
775     return size > sizeof(xpng_header) && !memcmp(b, xpng_header, sizeof(xpng_header));
776 }
777
778 static BOOL image_bmp_filter(const BYTE *b, DWORD size)
779 {
780     return size >= 14
781         && b[0] == 0x42 && b[1] == 0x4d
782         && *(const DWORD *)(b+6) == 0;
783 }
784
785 static BOOL video_avi_filter(const BYTE *b, DWORD size)
786 {
787     return size > 12
788         && b[0] == 'R' && b[1] == 'I' && b[2] == 'F' && b[3] == 'F'
789         && b[8] == 'A' && b[9] == 'V' && b[10] == 'I' && b[11] == 0x20;
790 }
791
792 static BOOL video_mpeg_filter(const BYTE *b, DWORD size)
793 {
794     return size > 4
795         && !b[0] && !b[1] && b[2] == 0x01
796         && (b[3] == 0xb3 || b[3] == 0xba);
797 }
798
799 static BOOL application_postscript_filter(const BYTE *b, DWORD size)
800 {
801     return size > 2 && b[0] == '%' && b[1] == '!';
802 }
803
804 static BOOL application_pdf_filter(const BYTE *b, DWORD size)
805 {
806     return size > 4 && b[0] == 0x25 && b[1] == 0x50 && b[2] == 0x44 && b[3] == 0x46;
807 }
808
809 static BOOL application_xzip_filter(const BYTE *b, DWORD size)
810 {
811     return size > 2 && b[0] == 0x50 && b[1] == 0x4b;
812 }
813
814 static BOOL application_xgzip_filter(const BYTE *b, DWORD size)
815 {
816     return size > 2 && b[0] == 0x1f && b[1] == 0x8b;
817 }
818
819 static BOOL application_java_filter(const BYTE *b, DWORD size)
820 {
821     return size > 4 && b[0] == 0xca && b[1] == 0xfe && b[2] == 0xba && b[3] == 0xbe;
822 }
823
824 static BOOL application_xmsdownload(const BYTE *b, DWORD size)
825 {
826     return size > 2 && b[0] == 'M' && b[1] == 'Z';
827 }
828
829 static inline BOOL is_text_plain_char(BYTE b)
830 {
831     if(b < 0x20 && b != '\n' && b != '\r' && b != '\t')
832         return FALSE;
833     return TRUE;
834 }
835
836 static BOOL text_plain_filter(const BYTE *b, DWORD size)
837 {
838     const BYTE *ptr;
839
840     for(ptr = b; ptr < b+size-1; ptr++) {
841         if(!is_text_plain_char(*ptr))
842             return FALSE;
843     }
844
845     return TRUE;
846 }
847
848 static BOOL application_octet_stream_filter(const BYTE *b, DWORD size)
849 {
850     return TRUE;
851 }
852
853 static HRESULT find_mime_from_buffer(const BYTE *buf, DWORD size, const WCHAR *proposed_mime, WCHAR **ret_mime)
854 {
855     LPCWSTR ret = NULL;
856     int len, i, any_pos_mime = -1;
857
858     static const WCHAR text_htmlW[] = {'t','e','x','t','/','h','t','m','l',0};
859     static const WCHAR text_richtextW[] = {'t','e','x','t','/','r','i','c','h','t','e','x','t',0};
860     static const WCHAR text_xmlW[] = {'t','e','x','t','/','x','m','l',0};
861     static const WCHAR audio_basicW[] = {'a','u','d','i','o','/','b','a','s','i','c',0};
862     static const WCHAR audio_wavW[] = {'a','u','d','i','o','/','w','a','v',0};
863     static const WCHAR image_gifW[] = {'i','m','a','g','e','/','g','i','f',0};
864     static const WCHAR image_pjpegW[] = {'i','m','a','g','e','/','p','j','p','e','g',0};
865     static const WCHAR image_tiffW[] = {'i','m','a','g','e','/','t','i','f','f',0};
866     static const WCHAR image_xpngW[] = {'i','m','a','g','e','/','x','-','p','n','g',0};
867     static const WCHAR image_bmpW[] = {'i','m','a','g','e','/','b','m','p',0};
868     static const WCHAR video_aviW[] = {'v','i','d','e','o','/','a','v','i',0};
869     static const WCHAR video_mpegW[] = {'v','i','d','e','o','/','m','p','e','g',0};
870     static const WCHAR app_postscriptW[] =
871         {'a','p','p','l','i','c','a','t','i','o','n','/','p','o','s','t','s','c','r','i','p','t',0};
872     static const WCHAR app_pdfW[] = {'a','p','p','l','i','c','a','t','i','o','n','/','p','d','f',0};
873     static const WCHAR app_xzipW[] = {'a','p','p','l','i','c','a','t','i','o','n','/',
874         'x','-','z','i','p','-','c','o','m','p','r','e','s','s','e','d',0};
875     static const WCHAR app_xgzipW[] = {'a','p','p','l','i','c','a','t','i','o','n','/',
876         'x','-','g','z','i','p','-','c','o','m','p','r','e','s','s','e','d',0};
877     static const WCHAR app_javaW[] = {'a','p','p','l','i','c','a','t','i','o','n','/',
878         'j','a','v','a',0};
879     static const WCHAR app_xmsdownloadW[] = {'a','p','p','l','i','c','a','t','i','o','n','/',
880         'x','-','m','s','d','o','w','n','l','o','a','d',0};
881     static const WCHAR text_plainW[] = {'t','e','x','t','/','p','l','a','i','n','\0'};
882     static const WCHAR app_octetstreamW[] = {'a','p','p','l','i','c','a','t','i','o','n','/',
883         'o','c','t','e','t','-','s','t','r','e','a','m','\0'};
884
885     static const struct {
886         LPCWSTR mime;
887         BOOL (*filter)(const BYTE *,DWORD);
888     } mime_filters_any_pos[] = {
889         {text_htmlW,       text_html_filter},
890         {text_xmlW,        text_xml_filter}
891     }, mime_filters[] = {
892         {text_richtextW,   text_richtext_filter},
893      /* {audio_xaiffW,     audio_xaiff_filter}, */
894         {audio_basicW,     audio_basic_filter},
895         {audio_wavW,       audio_wav_filter},
896         {image_gifW,       image_gif_filter},
897         {image_pjpegW,     image_pjpeg_filter},
898         {image_tiffW,      image_tiff_filter},
899         {image_xpngW,      image_xpng_filter},
900      /* {image_xbitmapW,   image_xbitmap_filter}, */
901         {image_bmpW,       image_bmp_filter},
902      /* {image_xjgW,       image_xjg_filter}, */
903      /* {image_xemfW,      image_xemf_filter}, */
904      /* {image_xwmfW,      image_xwmf_filter}, */
905         {video_aviW,       video_avi_filter},
906         {video_mpegW,      video_mpeg_filter},
907         {app_postscriptW,  application_postscript_filter},
908      /* {app_base64W,      application_base64_filter}, */
909      /* {app_macbinhex40W, application_macbinhex40_filter}, */
910         {app_pdfW,         application_pdf_filter},
911      /* {app_zcompressedW, application_xcompressed_filter}, */
912         {app_xzipW,        application_xzip_filter},
913         {app_xgzipW,       application_xgzip_filter},
914         {app_javaW,        application_java_filter},
915         {app_xmsdownloadW, application_xmsdownload},
916         {text_plainW,      text_plain_filter},
917         {app_octetstreamW, application_octet_stream_filter}
918     };
919
920     if(!buf || !size) {
921         if(!proposed_mime)
922             return E_FAIL;
923
924         len = strlenW(proposed_mime)+1;
925         *ret_mime = CoTaskMemAlloc(len*sizeof(WCHAR));
926         if(!*ret_mime)
927             return E_OUTOFMEMORY;
928
929         memcpy(*ret_mime, proposed_mime, len*sizeof(WCHAR));
930         return S_OK;
931     }
932
933     if(proposed_mime && (!strcmpW(proposed_mime, app_octetstreamW)
934                 || !strcmpW(proposed_mime, text_plainW)))
935         proposed_mime = NULL;
936
937     if(proposed_mime) {
938         ret = proposed_mime;
939
940         for(i=0; i < sizeof(mime_filters_any_pos)/sizeof(*mime_filters_any_pos); i++) {
941             if(!strcmpW(proposed_mime, mime_filters_any_pos[i].mime)) {
942                 any_pos_mime = i;
943                 for(len=size; len>0; len--) {
944                     if(mime_filters_any_pos[i].filter(buf+size-len, len))
945                         break;
946                 }
947                 if(!len)
948                     ret = NULL;
949                 break;
950             }
951         }
952
953         if(i == sizeof(mime_filters_any_pos)/sizeof(*mime_filters_any_pos)) {
954             for(i=0; i < sizeof(mime_filters)/sizeof(*mime_filters); i++) {
955                 if(!strcmpW(proposed_mime, mime_filters[i].mime)) {
956                     if(!mime_filters[i].filter(buf, size))
957                         ret = NULL;
958                     break;
959                 }
960             }
961         }
962     }
963
964     /* Looks like a bug in native implementation, html and xml mimes
965      * are not looked for if none of them was proposed */
966     if(!proposed_mime || any_pos_mime!=-1) {
967         for(len=size; !ret && len>0; len--) {
968             for(i=0; i<sizeof(mime_filters_any_pos)/sizeof(*mime_filters_any_pos); i++) {
969                 if(mime_filters_any_pos[i].filter(buf+size-len, len)) {
970                     ret = mime_filters_any_pos[i].mime;
971                     break;
972                 }
973             }
974         }
975     }
976
977     i=0;
978     while(!ret) {
979         if(mime_filters[i].filter(buf, size))
980             ret = mime_filters[i].mime;
981         i++;
982     }
983
984     if(any_pos_mime!=-1 && ret==text_plainW)
985         ret = mime_filters_any_pos[any_pos_mime].mime;
986     else if(proposed_mime && ret==app_octetstreamW) {
987         for(len=size; ret==app_octetstreamW && len>0; len--) {
988             if(!is_text_plain_char(buf[size-len]))
989                 break;
990             for(i=0; i<sizeof(mime_filters_any_pos)/sizeof(*mime_filters_any_pos); i++) {
991                 if(mime_filters_any_pos[i].filter(buf+size-len, len)) {
992                     ret = text_plainW;
993                     break;
994                 }
995             }
996         }
997
998         if(ret == app_octetstreamW)
999             ret = proposed_mime;
1000     }
1001     TRACE("found %s for %s\n", debugstr_w(ret), debugstr_an((const char*)buf, min(32, size)));
1002
1003     len = strlenW(ret)+1;
1004     *ret_mime = CoTaskMemAlloc(len*sizeof(WCHAR));
1005     if(!*ret_mime)
1006         return E_OUTOFMEMORY;
1007
1008     memcpy(*ret_mime, ret, len*sizeof(WCHAR));
1009     return S_OK;
1010 }
1011
1012 /***********************************************************************
1013  *           FindMimeFromData (URLMON.@)
1014  *
1015  * Determines the Multipurpose Internet Mail Extensions (MIME) type from the data provided.
1016  */
1017 HRESULT WINAPI FindMimeFromData(LPBC pBC, LPCWSTR pwzUrl, LPVOID pBuffer,
1018         DWORD cbSize, LPCWSTR pwzMimeProposed, DWORD dwMimeFlags,
1019         LPWSTR* ppwzMimeOut, DWORD dwReserved)
1020 {
1021     TRACE("(%p,%s,%p,%d,%s,0x%x,%p,0x%x)\n", pBC, debugstr_w(pwzUrl), pBuffer, cbSize,
1022             debugstr_w(pwzMimeProposed), dwMimeFlags, ppwzMimeOut, dwReserved);
1023
1024     if(dwMimeFlags)
1025         WARN("dwMimeFlags=%08x\n", dwMimeFlags);
1026     if(dwReserved)
1027         WARN("dwReserved=%d\n", dwReserved);
1028
1029     /* pBC seams to not be used */
1030
1031     if(!ppwzMimeOut || (!pwzUrl && !pBuffer))
1032         return E_INVALIDARG;
1033
1034     if(pwzMimeProposed || pBuffer)
1035         return find_mime_from_buffer(pBuffer, cbSize, pwzMimeProposed, ppwzMimeOut);
1036
1037     if(pwzUrl) {
1038         HKEY hkey;
1039         DWORD res, size;
1040         LPCWSTR ptr;
1041         WCHAR mime[64];
1042
1043         static const WCHAR wszContentType[] =
1044                 {'C','o','n','t','e','n','t',' ','T','y','p','e','\0'};
1045
1046         ptr = strrchrW(pwzUrl, '.');
1047         if(!ptr)
1048             return E_FAIL;
1049
1050         res = RegOpenKeyW(HKEY_CLASSES_ROOT, ptr, &hkey);
1051         if(res != ERROR_SUCCESS)
1052             return HRESULT_FROM_WIN32(res);
1053
1054         size = sizeof(mime);
1055         res = RegQueryValueExW(hkey, wszContentType, NULL, NULL, (LPBYTE)mime, &size);
1056         RegCloseKey(hkey);
1057         if(res != ERROR_SUCCESS)
1058             return HRESULT_FROM_WIN32(res);
1059
1060         *ppwzMimeOut = CoTaskMemAlloc(size);
1061         memcpy(*ppwzMimeOut, mime, size);
1062         return S_OK;
1063     }
1064
1065     return E_FAIL;
1066 }
1067
1068 /***********************************************************************
1069  *           GetClassFileOrMime (URLMON.@)
1070  *
1071  * Determines the class ID from the bind context, file name or MIME type.
1072  */
1073 HRESULT WINAPI GetClassFileOrMime(LPBC pBC, LPCWSTR pszFilename,
1074         LPVOID pBuffer, DWORD cbBuffer, LPCWSTR pszMimeType, DWORD dwReserved,
1075         CLSID *pclsid)
1076 {
1077     FIXME("(%p, %s, %p, %d, %s, 0x%08x, %p): stub\n", pBC, debugstr_w(pszFilename), pBuffer,
1078             cbBuffer, debugstr_w(pszMimeType), dwReserved, pclsid);
1079     return E_NOTIMPL;
1080 }
1081
1082 /***********************************************************************
1083  * Extract (URLMON.@)
1084  */
1085 HRESULT WINAPI Extract(void *dest, LPCSTR szCabName)
1086 {
1087     HRESULT (WINAPI *pExtract)(void *, LPCSTR);
1088
1089     if (!hCabinet)
1090         hCabinet = LoadLibraryA("cabinet.dll");
1091
1092     if (!hCabinet) return HRESULT_FROM_WIN32(GetLastError());
1093     pExtract = (void *)GetProcAddress(hCabinet, "Extract");
1094     if (!pExtract) return HRESULT_FROM_WIN32(GetLastError());
1095
1096     return pExtract(dest, szCabName);
1097 }
1098
1099 /***********************************************************************
1100  *           IsLoggingEnabledA (URLMON.@)
1101  */
1102 BOOL WINAPI IsLoggingEnabledA(LPCSTR url)
1103 {
1104     FIXME("(%s)\n", debugstr_a(url));
1105     return FALSE;
1106 }
1107
1108 /***********************************************************************
1109  *           IsLoggingEnabledW (URLMON.@)
1110  */
1111 BOOL WINAPI IsLoggingEnabledW(LPCWSTR url)
1112 {
1113     FIXME("(%s)\n", debugstr_w(url));
1114     return FALSE;
1115 }
1116
1117 /***********************************************************************
1118  *           IsProtectedModeURL (URLMON.111)
1119  *    Undocumented, added in IE7
1120  */
1121 BOOL WINAPI IsProtectedModeURL(const WCHAR *url)
1122 {
1123     FIXME("stub: %s\n", debugstr_w(url));
1124     return TRUE;
1125 }
1126
1127 /***********************************************************************
1128  *           LogSqmBits (URLMON.410)
1129  *    Undocumented, added in IE8
1130  */
1131 int WINAPI LogSqmBits(DWORD unk1, DWORD unk2)
1132 {
1133     FIXME("stub: %d %d\n", unk1, unk2);
1134     return 0;
1135 }
1136
1137 /***********************************************************************
1138  *           LogSqmUXCommandOffsetInternal (URLMON.423)
1139  *    Undocumented, added in IE8
1140  */
1141 void WINAPI LogSqmUXCommandOffsetInternal(DWORD unk1, DWORD unk2, DWORD unk3, DWORD unk4)
1142 {
1143     FIXME("stub: %d %d %d %d\n", unk1, unk2, unk3, unk4);
1144 }
1145
1146 /***********************************************************************
1147  *           MapUriToBrowserEmulationState (URLMON.444)
1148  *    Undocumented, added in IE8
1149  */
1150 int WINAPI MapUriToBrowserEmulationState(DWORD unk1, DWORD unk2, DWORD unk3)
1151 {
1152     FIXME("stub: %d %d %d\n", unk1, unk2, unk3);
1153     return 0;
1154 }
1155
1156 /***********************************************************************
1157  *           MapBrowserEmulationModeToUserAgent (URLMON.445)
1158  *    Undocumented, added in IE8
1159  */
1160 int WINAPI MapBrowserEmulationModeToUserAgent(DWORD unk1, DWORD unk2)
1161 {
1162     FIXME("stub: %d %d\n", unk1, unk2);
1163     return 0;
1164 }
1165
1166 /***********************************************************************
1167  *            RegisterMediaTypes
1168  *    Added in IE3, registers known MIME-type strings.
1169  */
1170 HRESULT WINAPI RegisterMediaTypes(UINT types, LPCSTR *szTypes, CLIPFORMAT *cfTypes)
1171 {
1172    FIXME("stub: %u %p %p\n", types, szTypes, cfTypes);
1173    return E_INVALIDARG;
1174 }