dlls/urlmon/bindprot.c

   1 /*
   2  * Copyright 2007-2009 Jacek Caban for CodeWeavers
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #include "urlmon_main.h"
  20 #include "wine/debug.h"
  21
  22 WINE_DEFAULT_DEBUG_CHANNEL(urlmon);
  23
  24 typedef struct BindProtocol BindProtocol;
  25
  26 struct _task_header_t;
  27
  28 typedef void (*task_proc_t)(BindProtocol*,struct _task_header_t*);
  29
  30 typedef struct _task_header_t {
  31     task_proc_t proc;
  32     struct _task_header_t *next;
  33 } task_header_t;
  34
  35 struct BindProtocol {
  36     const IInternetProtocolVtbl      *lpIInternetProtocolVtbl;
  37     const IInternetBindInfoVtbl      *lpInternetBindInfoVtbl;
  38     const IInternetPriorityVtbl      *lpInternetPriorityVtbl;
  39     const IServiceProviderVtbl       *lpServiceProviderVtbl;
  40     const IInternetProtocolSinkVtbl  *lpIInternetProtocolSinkVtbl;
  41     const IWinInetHttpInfoVtbl       *lpIWinInetHttpInfoVtbl;
  42
  43     const IInternetProtocolVtbl *lpIInternetProtocolHandlerVtbl;
  44
  45     LONG ref;
  46
  47     IInternetProtocol *protocol;
  48     IInternetProtocol *protocol_handler;
  49     IInternetBindInfo *bind_info;
  50     IInternetProtocolSink *protocol_sink;
  51     IServiceProvider *service_provider;
  52     IWinInetInfo *wininet_info;
  53
  54     LONG priority;
  55
  56     BOOL reported_result;
  57     BOOL reported_mime;
  58     BOOL from_urlmon;
  59     DWORD pi;
  60
  61     DWORD apartment_thread;
  62     HWND notif_hwnd;
  63     DWORD continue_call;
  64
  65     CRITICAL_SECTION section;
  66     task_header_t *task_queue_head, *task_queue_tail;
  67
  68     BYTE *buf;
  69     DWORD buf_size;
  70     LPWSTR mime;
  71     LPWSTR url;
  72     ProtocolProxy *filter_proxy;
  73 };
  74
  75 #define BINDINFO(x)  ((IInternetBindInfo*) &(x)->lpInternetBindInfoVtbl)
  76 #define PRIORITY(x)  ((IInternetPriority*) &(x)->lpInternetPriorityVtbl)
  77 #define HTTPINFO(x)  ((IWinInetHttpInfo*)  &(x)->lpIWinInetHttpInfoVtbl)
  78 #define SERVPROV(x)  ((IServiceProvider*)  &(x)->lpServiceProviderVtbl)
  79
  80 #define PROTOCOLHANDLER(x)  ((IInternetProtocol*)  &(x)->lpIInternetProtocolHandlerVtbl)
  81
  82 #define BUFFER_SIZE     2048
  83 #define MIME_TEST_SIZE  255
  84
  85 #define WM_MK_CONTINUE   (WM_USER+101)
  86 #define WM_MK_RELEASE    (WM_USER+102)
  87
  88 static LRESULT WINAPI notif_wnd_proc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
  89 {
  90     switch(msg) {
  91     case WM_MK_CONTINUE: {
  92         BindProtocol *This = (BindProtocol*)lParam;
  93         task_header_t *task;
  94
  95         while(1) {
  96             EnterCriticalSection(&This->section);
  97
  98             task = This->task_queue_head;
  99             if(task) {
 100                 This->task_queue_head = task->next;
 101                 if(!This->task_queue_head)
 102                     This->task_queue_tail = NULL;
 103             }
 104
 105             LeaveCriticalSection(&This->section);
 106
 107             if(!task)
 108                 break;
 109
 110             This->continue_call++;
 111             task->proc(This, task);
 112             This->continue_call--;
 113         }
 114
 115         IInternetProtocol_Release(PROTOCOL(This));
 116         return 0;
 117     }
 118     case WM_MK_RELEASE: {
 119         tls_data_t *data = get_tls_data();
 120
 121         if(!--data->notif_hwnd_cnt) {
 122             DestroyWindow(hwnd);
 123             data->notif_hwnd = NULL;
 124         }
 125     }
 126     }
 127
 128     return DefWindowProcW(hwnd, msg, wParam, lParam);
 129 }
 130
 131 HWND get_notif_hwnd(void)
 132 {
 133     static ATOM wnd_class = 0;
 134     tls_data_t *tls_data;
 135
 136     static const WCHAR wszURLMonikerNotificationWindow[] =
 137         {'U','R','L',' ','M','o','n','i','k','e','r',' ',
 138          'N','o','t','i','f','i','c','a','t','i','o','n',' ','W','i','n','d','o','w',0};
 139
 140     tls_data = get_tls_data();
 141     if(!tls_data)
 142         return NULL;
 143
 144     if(tls_data->notif_hwnd_cnt) {
 145         tls_data->notif_hwnd_cnt++;
 146         return tls_data->notif_hwnd;
 147     }
 148
 149     if(!wnd_class) {
 150         static WNDCLASSEXW wndclass = {
 151             sizeof(wndclass), 0,
 152             notif_wnd_proc, 0, 0,
 153             NULL, NULL, NULL, NULL, NULL,
 154             wszURLMonikerNotificationWindow,
 155             NULL
 156         };
 157
 158         wndclass.hInstance = URLMON_hInstance;
 159
 160         wnd_class = RegisterClassExW(&wndclass);
 161         if (!wnd_class && GetLastError() == ERROR_CLASS_ALREADY_EXISTS)
 162             wnd_class = 1;
 163     }
 164
 165     tls_data->notif_hwnd = CreateWindowExW(0, wszURLMonikerNotificationWindow,
 166             wszURLMonikerNotificationWindow, 0, 0, 0, 0, 0, HWND_MESSAGE,
 167             NULL, URLMON_hInstance, NULL);
 168     if(tls_data->notif_hwnd)
 169         tls_data->notif_hwnd_cnt++;
 170
 171     TRACE("hwnd = %p\n", tls_data->notif_hwnd);
 172
 173     return tls_data->notif_hwnd;
 174 }
 175
 176 void release_notif_hwnd(HWND hwnd)
 177 {
 178     tls_data_t *data = get_tls_data();
 179
 180     if(!data)
 181         return;
 182
 183     if(data->notif_hwnd != hwnd) {
 184         PostMessageW(data->notif_hwnd, WM_MK_RELEASE, 0, 0);
 185         return;
 186     }
 187
 188     if(!--data->notif_hwnd_cnt) {
 189         DestroyWindow(data->notif_hwnd);
 190         data->notif_hwnd = NULL;
 191     }
 192 }
 193
 194 static void push_task(BindProtocol *This, task_header_t *task, task_proc_t proc)
 195 {
 196     BOOL do_post = FALSE;
 197
 198     task->proc = proc;
 199     task->next = NULL;
 200
 201     EnterCriticalSection(&This->section);
 202
 203     if(This->task_queue_tail) {
 204         This->task_queue_tail->next = task;
 205         This->task_queue_tail = task;
 206     }else {
 207         This->task_queue_tail = This->task_queue_head = task;
 208         do_post = !This->continue_call;
 209     }
 210
 211     LeaveCriticalSection(&This->section);
 212
 213     if(do_post) {
 214         IInternetProtocol_AddRef(PROTOCOL(This));
 215         PostMessageW(This->notif_hwnd, WM_MK_CONTINUE, 0, (LPARAM)This);
 216     }
 217 }
 218
 219 static inline BOOL do_direct_notif(BindProtocol *This)
 220 {
 221     return !(This->pi & PI_APARTMENTTHREADED) || (This->apartment_thread == GetCurrentThreadId() && !This->continue_call);
 222 }
 223
 224 static HRESULT handle_mime_filter(BindProtocol *This, IInternetProtocol *mime_filter, LPCWSTR mime)
 225 {
 226     PROTOCOLFILTERDATA filter_data = { sizeof(PROTOCOLFILTERDATA), NULL, NULL, NULL, 0 };
 227     IInternetProtocolSink *protocol_sink, *old_sink;
 228     ProtocolProxy *filter_proxy;
 229     HRESULT hres;
 230
 231     hres = IInternetProtocol_QueryInterface(mime_filter, &IID_IInternetProtocolSink, (void**)&protocol_sink);
 232     if(FAILED(hres))
 233         return hres;
 234
 235     hres = create_protocol_proxy(PROTOCOLHANDLER(This), This->protocol_sink, &filter_proxy);
 236     if(FAILED(hres)) {
 237         IInternetProtocolSink_Release(protocol_sink);
 238         return hres;
 239     }
 240
 241     old_sink = This->protocol_sink;
 242     This->protocol_sink = protocol_sink;
 243     This->filter_proxy = filter_proxy;
 244
 245     IInternetProtocol_AddRef(mime_filter);
 246     This->protocol_handler = mime_filter;
 247
 248     filter_data.pProtocol = PROTOCOL(filter_proxy);
 249     hres = IInternetProtocol_Start(mime_filter, mime, PROTSINK(filter_proxy), BINDINFO(This),
 250             PI_FILTER_MODE|PI_FORCE_ASYNC, (HANDLE_PTR)&filter_data);
 251     if(FAILED(hres)) {
 252         IInternetProtocolSink_Release(old_sink);
 253         return hres;
 254     }
 255
 256     IInternetProtocolSink_ReportProgress(old_sink, BINDSTATUS_LOADINGMIMEHANDLER, NULL);
 257     IInternetProtocolSink_Release(old_sink);
 258
 259     This->pi &= ~PI_MIMEVERIFICATION; /* FIXME: more tests */
 260     return S_OK;
 261 }
 262
 263 static void mime_available(BindProtocol *This, LPCWSTR mime, BOOL verified)
 264 {
 265     IInternetProtocol *mime_filter;
 266     HRESULT hres;
 267
 268     heap_free(This->mime);
 269     This->mime = NULL;
 270
 271     mime_filter = get_mime_filter(mime);
 272     if(mime_filter) {
 273         TRACE("Got mime filter for %s\n", debugstr_w(mime));
 274
 275         hres = handle_mime_filter(This, mime_filter, mime);
 276         IInternetProtocol_Release(mime_filter);
 277         if(FAILED(hres))
 278             FIXME("MIME filter failed: %08x\n", hres);
 279     }else {
 280         This->mime = heap_strdupW(mime);
 281
 282         if(verified || !(This->pi & PI_MIMEVERIFICATION)) {
 283             This->reported_mime = TRUE;
 284
 285             if(This->protocol_sink)
 286                 IInternetProtocolSink_ReportProgress(This->protocol_sink, BINDSTATUS_MIMETYPEAVAILABLE, mime);
 287         }
 288     }
 289 }
 290
 291 #define PROTOCOL_THIS(iface) DEFINE_THIS(BindProtocol, IInternetProtocol, iface)
 292
 293 static HRESULT WINAPI BindProtocol_QueryInterface(IInternetProtocol *iface, REFIID riid, void **ppv)
 294 {
 295     BindProtocol *This = PROTOCOL_THIS(iface);
 296
 297     *ppv = NULL;
 298     if(IsEqualGUID(&IID_IUnknown, riid)) {
 299         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
 300         *ppv = PROTOCOL(This);
 301     }else if(IsEqualGUID(&IID_IInternetProtocolRoot, riid)) {
 302         TRACE("(%p)->(IID_IInternetProtocolRoot %p)\n", This, ppv);
 303         *ppv = PROTOCOL(This);
 304     }else if(IsEqualGUID(&IID_IInternetProtocol, riid)) {
 305         TRACE("(%p)->(IID_IInternetProtocol %p)\n", This, ppv);
 306         *ppv = PROTOCOL(This);
 307     }else if(IsEqualGUID(&IID_IInternetBindInfo, riid)) {
 308         TRACE("(%p)->(IID_IInternetBindInfo %p)\n", This, ppv);
 309         *ppv = BINDINFO(This);
 310     }else if(IsEqualGUID(&IID_IInternetPriority, riid)) {
 311         TRACE("(%p)->(IID_IInternetPriority %p)\n", This, ppv);
 312         *ppv = PRIORITY(This);
 313     }else if(IsEqualGUID(&IID_IAuthenticate, riid)) {
 314         FIXME("(%p)->(IID_IAuthenticate %p)\n", This, ppv);
 315     }else if(IsEqualGUID(&IID_IServiceProvider, riid)) {
 316         TRACE("(%p)->(IID_IServiceProvider %p)\n", This, ppv);
 317         *ppv = SERVPROV(This);
 318     }else if(IsEqualGUID(&IID_IInternetProtocolSink, riid)) {
 319         TRACE("(%p)->(IID_IInternetProtocolSink %p)\n", This, ppv);
 320         *ppv = PROTSINK(This);
 321     }else if(IsEqualGUID(&IID_IWinInetInfo, riid)) {
 322         TRACE("(%p)->(IID_IWinInetInfo %p)\n", This, ppv);
 323
 324         if(This->protocol) {
 325             IWinInetInfo *inet_info;
 326             HRESULT hres;
 327
 328             hres = IInternetProtocol_QueryInterface(This->protocol, &IID_IWinInetInfo, (void**)&inet_info);
 329             if(SUCCEEDED(hres)) {
 330                 *ppv = HTTPINFO(This);
 331                 IWinInetInfo_Release(inet_info);
 332             }
 333         }
 334     }else if(IsEqualGUID(&IID_IWinInetHttpInfo, riid)) {
 335         TRACE("(%p)->(IID_IWinInetHttpInfo %p)\n", This, ppv);
 336
 337         if(This->protocol) {
 338             IWinInetHttpInfo *http_info;
 339             HRESULT hres;
 340
 341             hres = IInternetProtocol_QueryInterface(This->protocol, &IID_IWinInetHttpInfo, (void**)&http_info);
 342             if(SUCCEEDED(hres)) {
 343                 *ppv = HTTPINFO(This);
 344                 IWinInetHttpInfo_Release(http_info);
 345             }
 346         }
 347     }else {
 348         WARN("not supported interface %s\n", debugstr_guid(riid));
 349     }
 350
 351     if(!*ppv)
 352         return E_NOINTERFACE;
 353
 354     IUnknown_AddRef((IUnknown*)*ppv);
 355     return S_OK;
 356 }
 357
 358 static ULONG WINAPI BindProtocol_AddRef(IInternetProtocol *iface)
 359 {
 360     BindProtocol *This = PROTOCOL_THIS(iface);
 361     LONG ref = InterlockedIncrement(&This->ref);
 362     TRACE("(%p) ref=%d\n", This, ref);
 363     return ref;
 364 }
 365
 366 static ULONG WINAPI BindProtocol_Release(IInternetProtocol *iface)
 367 {
 368     BindProtocol *This = PROTOCOL_THIS(iface);
 369     LONG ref = InterlockedDecrement(&This->ref);
 370
 371     TRACE("(%p) ref=%d\n", This, ref);
 372
 373     if(!ref) {
 374         if(This->wininet_info)
 375             IWinInetInfo_Release(This->wininet_info);
 376         if(This->protocol)
 377             IInternetProtocol_Release(This->protocol);
 378         if(This->bind_info)
 379             IInternetBindInfo_Release(This->bind_info);
 380         if(This->protocol_handler && This->protocol_handler != PROTOCOLHANDLER(This))
 381             IInternetProtocol_Release(This->protocol_handler);
 382         if(This->filter_proxy)
 383             IInternetProtocol_Release(PROTOCOL(This->filter_proxy));
 384
 385         set_binding_sink(PROTOCOL(This), NULL);
 386
 387         if(This->notif_hwnd)
 388             release_notif_hwnd(This->notif_hwnd);
 389         DeleteCriticalSection(&This->section);
 390
 391         heap_free(This->mime);
 392         heap_free(This->url);
 393         heap_free(This);
 394
 395         URLMON_UnlockModule();
 396     }
 397
 398     return ref;
 399 }
 400
 401 static HRESULT WINAPI BindProtocol_Start(IInternetProtocol *iface, LPCWSTR szUrl,
 402         IInternetProtocolSink *pOIProtSink, IInternetBindInfo *pOIBindInfo,
 403         DWORD grfPI, HANDLE_PTR dwReserved)
 404 {
 405     BindProtocol *This = PROTOCOL_THIS(iface);
 406
 407     TRACE("(%p)->(%s %p %p %08x %lx)\n", This, debugstr_w(szUrl), pOIProtSink,
 408             pOIBindInfo, grfPI, dwReserved);
 409
 410     return IInternetProtocol_Start(This->protocol_handler, szUrl, pOIProtSink, pOIBindInfo, grfPI, dwReserved);
 411 }
 412
 413 static HRESULT WINAPI BindProtocol_Continue(IInternetProtocol *iface, PROTOCOLDATA *pProtocolData)
 414 {
 415     BindProtocol *This = PROTOCOL_THIS(iface);
 416
 417     TRACE("(%p)->(%p)\n", This, pProtocolData);
 418
 419     return IInternetProtocol_Continue(This->protocol_handler, pProtocolData);
 420 }
 421
 422 static HRESULT WINAPI BindProtocol_Abort(IInternetProtocol *iface, HRESULT hrReason,
 423         DWORD dwOptions)
 424 {
 425     BindProtocol *This = PROTOCOL_THIS(iface);
 426     FIXME("(%p)->(%08x %08x)\n", This, hrReason, dwOptions);
 427     return E_NOTIMPL;
 428 }
 429
 430 static HRESULT WINAPI BindProtocol_Terminate(IInternetProtocol *iface, DWORD dwOptions)
 431 {
 432     BindProtocol *This = PROTOCOL_THIS(iface);
 433
 434     TRACE("(%p)->(%08x)\n", This, dwOptions);
 435
 436     return IInternetProtocol_Terminate(This->protocol_handler, dwOptions);
 437 }
 438
 439 static HRESULT WINAPI BindProtocol_Suspend(IInternetProtocol *iface)
 440 {
 441     BindProtocol *This = PROTOCOL_THIS(iface);
 442     FIXME("(%p)\n", This);
 443     return E_NOTIMPL;
 444 }
 445
 446 static HRESULT WINAPI BindProtocol_Resume(IInternetProtocol *iface)
 447 {
 448     BindProtocol *This = PROTOCOL_THIS(iface);
 449     FIXME("(%p)\n", This);
 450     return E_NOTIMPL;
 451 }
 452
 453 static HRESULT WINAPI BindProtocol_Read(IInternetProtocol *iface, void *pv,
 454         ULONG cb, ULONG *pcbRead)
 455 {
 456     BindProtocol *This = PROTOCOL_THIS(iface);
 457
 458     TRACE("(%p)->(%p %u %p)\n", This, pv, cb, pcbRead);
 459
 460     if(pcbRead)
 461         *pcbRead = 0;
 462     return IInternetProtocol_Read(This->protocol_handler, pv, cb, pcbRead);
 463 }
 464
 465 static HRESULT WINAPI BindProtocol_Seek(IInternetProtocol *iface, LARGE_INTEGER dlibMove,
 466         DWORD dwOrigin, ULARGE_INTEGER *plibNewPosition)
 467 {
 468     BindProtocol *This = PROTOCOL_THIS(iface);
 469     FIXME("(%p)->(%d %d %p)\n", This, dlibMove.u.LowPart, dwOrigin, plibNewPosition);
 470     return E_NOTIMPL;
 471 }
 472
 473 static HRESULT WINAPI BindProtocol_LockRequest(IInternetProtocol *iface, DWORD dwOptions)
 474 {
 475     BindProtocol *This = PROTOCOL_THIS(iface);
 476
 477     TRACE("(%p)->(%08x)\n", This, dwOptions);
 478
 479     return IInternetProtocol_LockRequest(This->protocol_handler, dwOptions);
 480 }
 481
 482 static HRESULT WINAPI BindProtocol_UnlockRequest(IInternetProtocol *iface)
 483 {
 484     BindProtocol *This = PROTOCOL_THIS(iface);
 485
 486     TRACE("(%p)\n", This);
 487
 488     return IInternetProtocol_UnlockRequest(This->protocol_handler);
 489 }
 490
 491 void set_binding_sink(IInternetProtocol *bind_protocol, IInternetProtocolSink *sink)
 492 {
 493     BindProtocol *This = PROTOCOL_THIS(bind_protocol);
 494     IInternetProtocolSink *prev_sink;
 495     IServiceProvider *service_provider = NULL;
 496
 497     if(sink)
 498         IInternetProtocolSink_AddRef(sink);
 499     prev_sink = InterlockedExchangePointer((void**)&This->protocol_sink, sink);
 500     if(prev_sink)
 501         IInternetProtocolSink_Release(prev_sink);
 502
 503     if(sink)
 504         IInternetProtocolSink_QueryInterface(sink, &IID_IServiceProvider, (void**)&service_provider);
 505     service_provider = InterlockedExchangePointer((void**)&This->service_provider, service_provider);
 506     if(service_provider)
 507         IServiceProvider_Release(service_provider);
 508 }
 509
 510 IWinInetInfo *get_wininet_info(IInternetProtocol *bind_protocol)
 511 {
 512     BindProtocol *This = PROTOCOL_THIS(bind_protocol);
 513
 514     return This->wininet_info;
 515 }
 516
 517 #undef PROTOCOL_THIS
 518
 519 static const IInternetProtocolVtbl BindProtocolVtbl = {
 520     BindProtocol_QueryInterface,
 521     BindProtocol_AddRef,
 522     BindProtocol_Release,
 523     BindProtocol_Start,
 524     BindProtocol_Continue,
 525     BindProtocol_Abort,
 526     BindProtocol_Terminate,
 527     BindProtocol_Suspend,
 528     BindProtocol_Resume,
 529     BindProtocol_Read,
 530     BindProtocol_Seek,
 531     BindProtocol_LockRequest,
 532     BindProtocol_UnlockRequest
 533 };
 534
 535 #define PROTOCOLHANDLER_THIS(iface) DEFINE_THIS(BindProtocol, IInternetProtocolHandler, iface)
 536
 537 static HRESULT WINAPI ProtocolHandler_QueryInterface(IInternetProtocol *iface, REFIID riid, void **ppv)
 538 {
 539     ERR("should not be called\n");
 540     return E_NOINTERFACE;
 541 }
 542
 543 static ULONG WINAPI ProtocolHandler_AddRef(IInternetProtocol *iface)
 544 {
 545     BindProtocol *This = PROTOCOLHANDLER_THIS(iface);
 546     return IInternetProtocol_AddRef(PROTOCOL(This));
 547 }
 548
 549 static ULONG WINAPI ProtocolHandler_Release(IInternetProtocol *iface)
 550 {
 551     BindProtocol *This = PROTOCOLHANDLER_THIS(iface);
 552     return IInternetProtocol_Release(PROTOCOL(This));
 553 }
 554
 555 static HRESULT WINAPI ProtocolHandler_Start(IInternetProtocol *iface, LPCWSTR szUrl,
 556         IInternetProtocolSink *pOIProtSink, IInternetBindInfo *pOIBindInfo,
 557         DWORD grfPI, HANDLE_PTR dwReserved)
 558 {
 559     BindProtocol *This = PROTOCOLHANDLER_THIS(iface);
 560     IInternetProtocol *protocol = NULL;
 561     IInternetPriority *priority;
 562     IServiceProvider *service_provider;
 563     BOOL urlmon_protocol = FALSE;
 564     CLSID clsid = IID_NULL;
 565     LPOLESTR clsid_str;
 566     HRESULT hres;
 567
 568     TRACE("(%p)->(%s %p %p %08x %lx)\n", This, debugstr_w(szUrl), pOIProtSink,
 569             pOIBindInfo, grfPI, dwReserved);
 570
 571     if(!szUrl || !pOIProtSink || !pOIBindInfo)
 572         return E_INVALIDARG;
 573
 574     This->pi = grfPI;
 575     This->url = heap_strdupW(szUrl);
 576
 577     hres = IInternetProtocolSink_QueryInterface(pOIProtSink, &IID_IServiceProvider,
 578                                                 (void**)&service_provider);
 579     if(SUCCEEDED(hres)) {
 580         /* FIXME: What's protocol CLSID here? */
 581         IServiceProvider_QueryService(service_provider, &IID_IInternetProtocol,
 582                                       &IID_IInternetProtocol, (void**)&protocol);
 583         IServiceProvider_Release(service_provider);
 584     }
 585
 586     if(!protocol) {
 587         IClassFactory *cf;
 588         IUnknown *unk;
 589
 590         hres = get_protocol_handler(szUrl, &clsid, &urlmon_protocol, &cf);
 591         if(FAILED(hres))
 592             return hres;
 593
 594         if(This->from_urlmon) {
 595             hres = IClassFactory_CreateInstance(cf, NULL, &IID_IInternetProtocol, (void**)&protocol);
 596             IClassFactory_Release(cf);
 597             if(FAILED(hres))
 598                 return hres;
 599         }else {
 600             hres = IClassFactory_CreateInstance(cf, (IUnknown*)BINDINFO(This),
 601                     &IID_IUnknown, (void**)&unk);
 602             IClassFactory_Release(cf);
 603             if(FAILED(hres))
 604                 return hres;
 605
 606             hres = IUnknown_QueryInterface(unk, &IID_IInternetProtocol, (void**)&protocol);
 607             IUnknown_Release(unk);
 608             if(FAILED(hres))
 609                 return hres;
 610         }
 611     }
 612
 613     StringFromCLSID(&clsid, &clsid_str);
 614     IInternetProtocolSink_ReportProgress(pOIProtSink, BINDSTATUS_PROTOCOLCLASSID, clsid_str);
 615     CoTaskMemFree(clsid_str);
 616
 617     This->protocol = protocol;
 618
 619     if(urlmon_protocol)
 620         IInternetProtocol_QueryInterface(protocol, &IID_IWinInetInfo, (void**)&This->wininet_info);
 621
 622     IInternetBindInfo_AddRef(pOIBindInfo);
 623     This->bind_info = pOIBindInfo;
 624
 625     set_binding_sink(PROTOCOL(This), pOIProtSink);
 626
 627     hres = IInternetProtocol_QueryInterface(protocol, &IID_IInternetPriority, (void**)&priority);
 628     if(SUCCEEDED(hres)) {
 629         IInternetPriority_SetPriority(priority, This->priority);
 630         IInternetPriority_Release(priority);
 631     }
 632
 633     return IInternetProtocol_Start(protocol, szUrl, PROTSINK(This), BINDINFO(This), 0, 0);
 634 }
 635
 636 static HRESULT WINAPI ProtocolHandler_Continue(IInternetProtocol *iface, PROTOCOLDATA *pProtocolData)
 637 {
 638     BindProtocol *This = PROTOCOLHANDLER_THIS(iface);
 639     HRESULT hres;
 640
 641     TRACE("(%p)->(%p)\n", This, pProtocolData);
 642
 643     hres = IInternetProtocol_Continue(This->protocol, pProtocolData);
 644
 645     heap_free(pProtocolData);
 646     return hres;
 647 }
 648
 649 static HRESULT WINAPI ProtocolHandler_Abort(IInternetProtocol *iface, HRESULT hrReason,
 650         DWORD dwOptions)
 651 {
 652     BindProtocol *This = PROTOCOLHANDLER_THIS(iface);
 653     FIXME("(%p)->(%08x %08x)\n", This, hrReason, dwOptions);
 654     return E_NOTIMPL;
 655 }
 656
 657 static HRESULT WINAPI ProtocolHandler_Terminate(IInternetProtocol *iface, DWORD dwOptions)
 658 {
 659     BindProtocol *This = PROTOCOLHANDLER_THIS(iface);
 660
 661     TRACE("(%p)->(%08x)\n", This, dwOptions);
 662
 663     if(!This->reported_result)
 664         return E_FAIL;
 665
 666     IInternetProtocol_Terminate(This->protocol, 0);
 667
 668     if(This->filter_proxy) {
 669         IInternetProtocol_Release(PROTOCOL(This->filter_proxy));
 670         This->filter_proxy = NULL;
 671     }
 672
 673     set_binding_sink(PROTOCOL(This), NULL);
 674
 675     if(This->bind_info) {
 676         IInternetBindInfo_Release(This->bind_info);
 677         This->bind_info = NULL;
 678     }
 679
 680     return S_OK;
 681 }
 682
 683 static HRESULT WINAPI ProtocolHandler_Suspend(IInternetProtocol *iface)
 684 {
 685     BindProtocol *This = PROTOCOLHANDLER_THIS(iface);
 686     FIXME("(%p)\n", This);
 687     return E_NOTIMPL;
 688 }
 689
 690 static HRESULT WINAPI ProtocolHandler_Resume(IInternetProtocol *iface)
 691 {
 692     BindProtocol *This = PROTOCOLHANDLER_THIS(iface);
 693     FIXME("(%p)\n", This);
 694     return E_NOTIMPL;
 695 }
 696
 697 static HRESULT WINAPI ProtocolHandler_Read(IInternetProtocol *iface, void *pv,
 698         ULONG cb, ULONG *pcbRead)
 699 {
 700     BindProtocol *This = PROTOCOLHANDLER_THIS(iface);
 701     ULONG read = 0;
 702     HRESULT hres = S_OK;
 703
 704     TRACE("(%p)->(%p %u %p)\n", This, pv, cb, pcbRead);
 705
 706     if(This->buf_size) {
 707         read = min(cb, This->buf_size);
 708         memcpy(pv, This->buf, read);
 709
 710         if(read == This->buf_size) {
 711             heap_free(This->buf);
 712             This->buf = NULL;
 713         }else {
 714             memmove(This->buf, This->buf+cb, This->buf_size-cb);
 715         }
 716
 717         This->buf_size -= read;
 718     }
 719
 720     if(read < cb) {
 721         ULONG cread = 0;
 722
 723         hres = IInternetProtocol_Read(This->protocol, (BYTE*)pv+read, cb-read, &cread);
 724         read += cread;
 725     }
 726
 727     *pcbRead = read;
 728     return hres;
 729 }
 730
 731 static HRESULT WINAPI ProtocolHandler_Seek(IInternetProtocol *iface, LARGE_INTEGER dlibMove,
 732         DWORD dwOrigin, ULARGE_INTEGER *plibNewPosition)
 733 {
 734     BindProtocol *This = PROTOCOLHANDLER_THIS(iface);
 735     FIXME("(%p)->(%d %d %p)\n", This, dlibMove.u.LowPart, dwOrigin, plibNewPosition);
 736     return E_NOTIMPL;
 737 }
 738
 739 static HRESULT WINAPI ProtocolHandler_LockRequest(IInternetProtocol *iface, DWORD dwOptions)
 740 {
 741     BindProtocol *This = PROTOCOLHANDLER_THIS(iface);
 742
 743     TRACE("(%p)->(%08x)\n", This, dwOptions);
 744
 745     return IInternetProtocol_LockRequest(This->protocol, dwOptions);
 746 }
 747
 748 static HRESULT WINAPI ProtocolHandler_UnlockRequest(IInternetProtocol *iface)
 749 {
 750     BindProtocol *This = PROTOCOLHANDLER_THIS(iface);
 751
 752     TRACE("(%p)\n", This);
 753
 754     return IInternetProtocol_UnlockRequest(This->protocol);
 755 }
 756
 757 #undef PROTOCOL_THIS
 758
 759 static const IInternetProtocolVtbl InternetProtocolHandlerVtbl = {
 760     ProtocolHandler_QueryInterface,
 761     ProtocolHandler_AddRef,
 762     ProtocolHandler_Release,
 763     ProtocolHandler_Start,
 764     ProtocolHandler_Continue,
 765     ProtocolHandler_Abort,
 766     ProtocolHandler_Terminate,
 767     ProtocolHandler_Suspend,
 768     ProtocolHandler_Resume,
 769     ProtocolHandler_Read,
 770     ProtocolHandler_Seek,
 771     ProtocolHandler_LockRequest,
 772     ProtocolHandler_UnlockRequest
 773 };
 774
 775 #define BINDINFO_THIS(iface) DEFINE_THIS(BindProtocol, InternetBindInfo, iface)
 776
 777 static HRESULT WINAPI BindInfo_QueryInterface(IInternetBindInfo *iface,
 778         REFIID riid, void **ppv)
 779 {
 780     BindProtocol *This = BINDINFO_THIS(iface);
 781     return IInternetProtocol_QueryInterface(PROTOCOL(This), riid, ppv);
 782 }
 783
 784 static ULONG WINAPI BindInfo_AddRef(IInternetBindInfo *iface)
 785 {
 786     BindProtocol *This = BINDINFO_THIS(iface);
 787     return IBinding_AddRef(PROTOCOL(This));
 788 }
 789
 790 static ULONG WINAPI BindInfo_Release(IInternetBindInfo *iface)
 791 {
 792     BindProtocol *This = BINDINFO_THIS(iface);
 793     return IBinding_Release(PROTOCOL(This));
 794 }
 795
 796 static HRESULT WINAPI BindInfo_GetBindInfo(IInternetBindInfo *iface,
 797         DWORD *grfBINDF, BINDINFO *pbindinfo)
 798 {
 799     BindProtocol *This = BINDINFO_THIS(iface);
 800     HRESULT hres;
 801
 802     TRACE("(%p)->(%p %p)\n", This, grfBINDF, pbindinfo);
 803
 804     hres = IInternetBindInfo_GetBindInfo(This->bind_info, grfBINDF, pbindinfo);
 805     if(FAILED(hres)) {
 806         WARN("GetBindInfo failed: %08x\n", hres);
 807         return hres;
 808     }
 809
 810     *grfBINDF |= BINDF_FROMURLMON;
 811     return hres;
 812 }
 813
 814 static HRESULT WINAPI BindInfo_GetBindString(IInternetBindInfo *iface,
 815         ULONG ulStringType, LPOLESTR *ppwzStr, ULONG cEl, ULONG *pcElFetched)
 816 {
 817     BindProtocol *This = BINDINFO_THIS(iface);
 818
 819     TRACE("(%p)->(%d %p %d %p)\n", This, ulStringType, ppwzStr, cEl, pcElFetched);
 820
 821     return IInternetBindInfo_GetBindString(This->bind_info, ulStringType, ppwzStr, cEl, pcElFetched);
 822 }
 823
 824 #undef BINDFO_THIS
 825
 826 static const IInternetBindInfoVtbl InternetBindInfoVtbl = {
 827     BindInfo_QueryInterface,
 828     BindInfo_AddRef,
 829     BindInfo_Release,
 830     BindInfo_GetBindInfo,
 831     BindInfo_GetBindString
 832 };
 833
 834 #define PRIORITY_THIS(iface) DEFINE_THIS(BindProtocol, InternetPriority, iface)
 835
 836 static HRESULT WINAPI InternetPriority_QueryInterface(IInternetPriority *iface,
 837         REFIID riid, void **ppv)
 838 {
 839     BindProtocol *This = PRIORITY_THIS(iface);
 840     return IInternetProtocol_QueryInterface(PROTOCOL(This), riid, ppv);
 841 }
 842
 843 static ULONG WINAPI InternetPriority_AddRef(IInternetPriority *iface)
 844 {
 845     BindProtocol *This = PRIORITY_THIS(iface);
 846     return IInternetProtocol_AddRef(PROTOCOL(This));
 847 }
 848
 849 static ULONG WINAPI InternetPriority_Release(IInternetPriority *iface)
 850 {
 851     BindProtocol *This = PRIORITY_THIS(iface);
 852     return IInternetProtocol_Release(PROTOCOL(This));
 853 }
 854
 855 static HRESULT WINAPI InternetPriority_SetPriority(IInternetPriority *iface, LONG nPriority)
 856 {
 857     BindProtocol *This = PRIORITY_THIS(iface);
 858
 859     TRACE("(%p)->(%d)\n", This, nPriority);
 860
 861     This->priority = nPriority;
 862     return S_OK;
 863 }
 864
 865 static HRESULT WINAPI InternetPriority_GetPriority(IInternetPriority *iface, LONG *pnPriority)
 866 {
 867     BindProtocol *This = PRIORITY_THIS(iface);
 868
 869     TRACE("(%p)->(%p)\n", This, pnPriority);
 870
 871     *pnPriority = This->priority;
 872     return S_OK;
 873 }
 874
 875 #undef PRIORITY_THIS
 876
 877 static const IInternetPriorityVtbl InternetPriorityVtbl = {
 878     InternetPriority_QueryInterface,
 879     InternetPriority_AddRef,
 880     InternetPriority_Release,
 881     InternetPriority_SetPriority,
 882     InternetPriority_GetPriority
 883
 884 };
 885
 886 #define PROTSINK_THIS(iface) DEFINE_THIS(BindProtocol, IInternetProtocolSink, iface)
 887
 888 static HRESULT WINAPI BPInternetProtocolSink_QueryInterface(IInternetProtocolSink *iface,
 889         REFIID riid, void **ppv)
 890 {
 891     BindProtocol *This = PROTSINK_THIS(iface);
 892     return IInternetProtocol_QueryInterface(PROTOCOL(This), riid, ppv);
 893 }
 894
 895 static ULONG WINAPI BPInternetProtocolSink_AddRef(IInternetProtocolSink *iface)
 896 {
 897     BindProtocol *This = PROTSINK_THIS(iface);
 898     return IInternetProtocol_AddRef(PROTOCOL(This));
 899 }
 900
 901 static ULONG WINAPI BPInternetProtocolSink_Release(IInternetProtocolSink *iface)
 902 {
 903     BindProtocol *This = PROTSINK_THIS(iface);
 904     return IInternetProtocol_Release(PROTOCOL(This));
 905 }
 906
 907 typedef struct {
 908     task_header_t header;
 909     PROTOCOLDATA *data;
 910 } switch_task_t;
 911
 912 static void switch_proc(BindProtocol *bind, task_header_t *t)
 913 {
 914     switch_task_t *task = (switch_task_t*)t;
 915
 916     IInternetProtocol_Continue(bind->protocol_handler, task->data);
 917
 918     heap_free(task);
 919 }
 920
 921 static HRESULT WINAPI BPInternetProtocolSink_Switch(IInternetProtocolSink *iface,
 922         PROTOCOLDATA *pProtocolData)
 923 {
 924     BindProtocol *This = PROTSINK_THIS(iface);
 925     PROTOCOLDATA *data;
 926
 927     TRACE("(%p)->(%p)\n", This, pProtocolData);
 928
 929     TRACE("flags %x state %x data %p cb %u\n", pProtocolData->grfFlags, pProtocolData->dwState,
 930           pProtocolData->pData, pProtocolData->cbData);
 931
 932     data = heap_alloc(sizeof(PROTOCOLDATA));
 933     if(!data)
 934         return E_OUTOFMEMORY;
 935     memcpy(data, pProtocolData, sizeof(PROTOCOLDATA));
 936
 937     if(!do_direct_notif(This)) {
 938         switch_task_t *task;
 939
 940         task = heap_alloc(sizeof(switch_task_t));
 941         if(!task)
 942             return E_OUTOFMEMORY;
 943
 944         task->data = data;
 945
 946         push_task(This, &task->header, switch_proc);
 947         return S_OK;
 948     }
 949
 950     if(!This->protocol_sink) {
 951         IInternetProtocol_Continue(This->protocol_handler, data);
 952         return S_OK;
 953     }
 954
 955     return IInternetProtocolSink_Switch(This->protocol_sink, data);
 956 }
 957
 958 static void report_progress(BindProtocol *This, ULONG status_code, LPCWSTR status_text)
 959 {
 960     switch(status_code) {
 961     case BINDSTATUS_FINDINGRESOURCE:
 962     case BINDSTATUS_CONNECTING:
 963     case BINDSTATUS_REDIRECTING:
 964     case BINDSTATUS_BEGINDOWNLOADDATA:
 965     case BINDSTATUS_SENDINGREQUEST:
 966     case BINDSTATUS_CACHEFILENAMEAVAILABLE:
 967     case BINDSTATUS_DIRECTBIND:
 968     case BINDSTATUS_ACCEPTRANGES:
 969         if(This->protocol_sink)
 970             IInternetProtocolSink_ReportProgress(This->protocol_sink, status_code, status_text);
 971         break;
 972
 973     case BINDSTATUS_MIMETYPEAVAILABLE:
 974         mime_available(This, status_text, FALSE);
 975         break;
 976
 977     case BINDSTATUS_VERIFIEDMIMETYPEAVAILABLE:
 978         mime_available(This, status_text, TRUE);
 979         break;
 980
 981     default:
 982         FIXME("unsupported ulStatusCode %u\n", status_code);
 983     }
 984 }
 985
 986 typedef struct {
 987     task_header_t header;
 988
 989     ULONG status_code;
 990     LPWSTR status_text;
 991 } on_progress_task_t;
 992
 993 static void on_progress_proc(BindProtocol *This, task_header_t *t)
 994 {
 995     on_progress_task_t *task = (on_progress_task_t*)t;
 996
 997     report_progress(This, task->status_code, task->status_text);
 998
 999     heap_free(task->status_text);
1000     heap_free(task);
1001 }
1002
1003 static HRESULT WINAPI BPInternetProtocolSink_ReportProgress(IInternetProtocolSink *iface,
1004         ULONG ulStatusCode, LPCWSTR szStatusText)
1005 {
1006     BindProtocol *This = PROTSINK_THIS(iface);
1007
1008     TRACE("(%p)->(%u %s)\n", This, ulStatusCode, debugstr_w(szStatusText));
1009
1010     if(do_direct_notif(This)) {
1011         report_progress(This, ulStatusCode, szStatusText);
1012     }else {
1013         on_progress_task_t *task;
1014
1015         task = heap_alloc(sizeof(on_progress_task_t));
1016
1017         task->status_code = ulStatusCode;
1018         task->status_text = heap_strdupW(szStatusText);
1019
1020         push_task(This, &task->header, on_progress_proc);
1021     }
1022
1023     return S_OK;
1024 }
1025
1026 static HRESULT report_data(BindProtocol *This, DWORD bscf, ULONG progress, ULONG progress_max)
1027 {
1028     if(!This->protocol_sink)
1029         return S_OK;
1030
1031     if((This->pi & PI_MIMEVERIFICATION) && !This->reported_mime) {
1032         BYTE buf[BUFFER_SIZE];
1033         DWORD read = 0;
1034         LPWSTR mime;
1035         HRESULT hres;
1036
1037         do {
1038             read = 0;
1039             hres = IInternetProtocol_Read(This->protocol, buf,
1040                     sizeof(buf)-This->buf_size, &read);
1041             if(FAILED(hres) && hres != E_PENDING)
1042                 return hres;
1043
1044             if(!This->buf) {
1045                 This->buf = heap_alloc(BUFFER_SIZE);
1046                 if(!This->buf)
1047                     return E_OUTOFMEMORY;
1048             }else if(read + This->buf_size > BUFFER_SIZE) {
1049                 BYTE *tmp;
1050
1051                 tmp = heap_realloc(This->buf, read+This->buf_size);
1052                 if(!tmp)
1053                     return E_OUTOFMEMORY;
1054                 This->buf = tmp;
1055             }
1056
1057             memcpy(This->buf+This->buf_size, buf, read);
1058             This->buf_size += read;
1059         }while(This->buf_size < MIME_TEST_SIZE && hres == S_OK);
1060
1061         if(This->buf_size < MIME_TEST_SIZE && hres != S_FALSE)
1062             return S_OK;
1063
1064         bscf = BSCF_FIRSTDATANOTIFICATION;
1065         if(hres == S_FALSE)
1066             bscf |= BSCF_LASTDATANOTIFICATION|BSCF_DATAFULLYAVAILABLE;
1067
1068         if(!This->reported_mime) {
1069             hres = FindMimeFromData(NULL, This->url, This->buf, min(This->buf_size, MIME_TEST_SIZE),
1070                     This->mime, 0, &mime, 0);
1071             if(FAILED(hres))
1072                 return hres;
1073
1074             mime_available(This, mime, TRUE);
1075             CoTaskMemFree(mime);
1076         }
1077     }
1078
1079     if(!This->protocol_sink)
1080         return S_OK;
1081
1082     return IInternetProtocolSink_ReportData(This->protocol_sink, bscf, progress, progress_max);
1083 }
1084
1085 typedef struct {
1086     task_header_t header;
1087     DWORD bscf;
1088     ULONG progress;
1089     ULONG progress_max;
1090 } report_data_task_t;
1091
1092 static void report_data_proc(BindProtocol *This, task_header_t *t)
1093 {
1094     report_data_task_t *task = (report_data_task_t*)t;
1095
1096     report_data(This, task->bscf, task->progress, task->progress_max);
1097     heap_free(task);
1098 }
1099
1100 static HRESULT WINAPI BPInternetProtocolSink_ReportData(IInternetProtocolSink *iface,
1101         DWORD grfBSCF, ULONG ulProgress, ULONG ulProgressMax)
1102 {
1103     BindProtocol *This = PROTSINK_THIS(iface);
1104
1105     TRACE("(%p)->(%d %u %u)\n", This, grfBSCF, ulProgress, ulProgressMax);
1106
1107     if(!This->protocol_sink)
1108         return S_OK;
1109
1110     if(!do_direct_notif(This)) {
1111         report_data_task_t *task;
1112
1113         task = heap_alloc(sizeof(report_data_task_t));
1114         if(!task)
1115             return E_OUTOFMEMORY;
1116
1117         task->bscf = grfBSCF;
1118         task->progress = ulProgress;
1119         task->progress_max = ulProgressMax;
1120
1121         push_task(This, &task->header, report_data_proc);
1122         return S_OK;
1123     }
1124
1125     return report_data(This, grfBSCF, ulProgress, ulProgressMax);
1126 }
1127
1128 typedef struct {
1129     task_header_t header;
1130
1131     HRESULT hres;
1132     DWORD err;
1133     LPWSTR str;
1134 } report_result_task_t;
1135
1136 static void report_result_proc(BindProtocol *This, task_header_t *t)
1137 {
1138     report_result_task_t *task = (report_result_task_t*)t;
1139
1140     if(This->protocol_sink)
1141         IInternetProtocolSink_ReportResult(This->protocol_sink, task->hres, task->err, task->str);
1142
1143     heap_free(task->str);
1144     heap_free(task);
1145 }
1146
1147 static HRESULT WINAPI BPInternetProtocolSink_ReportResult(IInternetProtocolSink *iface,
1148         HRESULT hrResult, DWORD dwError, LPCWSTR szResult)
1149 {
1150     BindProtocol *This = PROTSINK_THIS(iface);
1151
1152     TRACE("(%p)->(%08x %d %s)\n", This, hrResult, dwError, debugstr_w(szResult));
1153
1154     if(!This->protocol_sink)
1155         return E_FAIL;
1156
1157     This->reported_result = TRUE;
1158
1159     if(!do_direct_notif(This)) {
1160         report_result_task_t *task;
1161
1162         task = heap_alloc(sizeof(report_result_task_t));
1163         if(!task)
1164             return E_OUTOFMEMORY;
1165
1166         task->hres = hrResult;
1167         task->err = dwError;
1168         task->str = heap_strdupW(szResult);
1169
1170         push_task(This, &task->header, report_result_proc);
1171         return S_OK;
1172     }
1173
1174     return IInternetProtocolSink_ReportResult(This->protocol_sink, hrResult, dwError, szResult);
1175 }
1176
1177 #undef PROTSINK_THIS
1178
1179 static const IInternetProtocolSinkVtbl InternetProtocolSinkVtbl = {
1180     BPInternetProtocolSink_QueryInterface,
1181     BPInternetProtocolSink_AddRef,
1182     BPInternetProtocolSink_Release,
1183     BPInternetProtocolSink_Switch,
1184     BPInternetProtocolSink_ReportProgress,
1185     BPInternetProtocolSink_ReportData,
1186     BPInternetProtocolSink_ReportResult
1187 };
1188
1189 #define INETINFO_THIS(iface) DEFINE_THIS(BindProtocol, IWinInetHttpInfo, iface)
1190
1191 static HRESULT WINAPI WinInetHttpInfo_QueryInterface(IWinInetHttpInfo *iface, REFIID riid, void **ppv)
1192 {
1193     BindProtocol *This = INETINFO_THIS(iface);
1194     return IInternetProtocol_QueryInterface(PROTOCOL(This), riid, ppv);
1195 }
1196
1197 static ULONG WINAPI WinInetHttpInfo_AddRef(IWinInetHttpInfo *iface)
1198 {
1199     BindProtocol *This = INETINFO_THIS(iface);
1200     return IInternetProtocol_AddRef(PROTOCOL(This));
1201 }
1202
1203 static ULONG WINAPI WinInetHttpInfo_Release(IWinInetHttpInfo *iface)
1204 {
1205     BindProtocol *This = INETINFO_THIS(iface);
1206     return IInternetProtocol_Release(PROTOCOL(This));
1207 }
1208
1209 static HRESULT WINAPI WinInetHttpInfo_QueryOption(IWinInetHttpInfo *iface, DWORD dwOption,
1210         void *pBuffer, DWORD *pcbBuffer)
1211 {
1212     BindProtocol *This = INETINFO_THIS(iface);
1213     FIXME("(%p)->(%x %p %p)\n", This, dwOption, pBuffer, pcbBuffer);
1214     return E_NOTIMPL;
1215 }
1216
1217 static HRESULT WINAPI WinInetHttpInfo_QueryInfo(IWinInetHttpInfo *iface, DWORD dwOption,
1218         void *pBuffer, DWORD *pcbBuffer, DWORD *pdwFlags, DWORD *pdwReserved)
1219 {
1220     BindProtocol *This = INETINFO_THIS(iface);
1221     FIXME("(%p)->(%x %p %p %p %p)\n", This, dwOption, pBuffer, pcbBuffer, pdwFlags, pdwReserved);
1222     return E_NOTIMPL;
1223 }
1224
1225 #undef INETINFO_THIS
1226
1227 static const IWinInetHttpInfoVtbl WinInetHttpInfoVtbl = {
1228     WinInetHttpInfo_QueryInterface,
1229     WinInetHttpInfo_AddRef,
1230     WinInetHttpInfo_Release,
1231     WinInetHttpInfo_QueryOption,
1232     WinInetHttpInfo_QueryInfo
1233 };
1234
1235 #define SERVPROV_THIS(iface) DEFINE_THIS(BindProtocol, ServiceProvider, iface)
1236
1237 static HRESULT WINAPI BPServiceProvider_QueryInterface(IServiceProvider *iface,
1238         REFIID riid, void **ppv)
1239 {
1240     BindProtocol *This = SERVPROV_THIS(iface);
1241     return IInternetProtocol_QueryInterface(PROTOCOL(This), riid, ppv);
1242 }
1243
1244 static ULONG WINAPI BPServiceProvider_AddRef(IServiceProvider *iface)
1245 {
1246     BindProtocol *This = SERVPROV_THIS(iface);
1247     return IInternetProtocol_AddRef(PROTOCOL(This));
1248 }
1249
1250 static ULONG WINAPI BPServiceProvider_Release(IServiceProvider *iface)
1251 {
1252     BindProtocol *This = SERVPROV_THIS(iface);
1253     return IInternetProtocol_Release(PROTOCOL(This));
1254 }
1255
1256 static HRESULT WINAPI BPServiceProvider_QueryService(IServiceProvider *iface,
1257         REFGUID guidService, REFIID riid, void **ppv)
1258 {
1259     BindProtocol *This = SERVPROV_THIS(iface);
1260
1261     TRACE("(%p)->(%s %s %p)\n", This, debugstr_guid(guidService), debugstr_guid(riid), ppv);
1262
1263     if(!This->service_provider)
1264         return E_NOINTERFACE;
1265
1266     return IServiceProvider_QueryService(This->service_provider, guidService, riid, ppv);
1267 }
1268
1269 #undef SERVPROV_THIS
1270
1271 static const IServiceProviderVtbl ServiceProviderVtbl = {
1272     BPServiceProvider_QueryInterface,
1273     BPServiceProvider_AddRef,
1274     BPServiceProvider_Release,
1275     BPServiceProvider_QueryService
1276 };
1277
1278 HRESULT create_binding_protocol(LPCWSTR url, BOOL from_urlmon, IInternetProtocol **protocol)
1279 {
1280     BindProtocol *ret = heap_alloc_zero(sizeof(BindProtocol));
1281
1282     ret->lpIInternetProtocolVtbl        = &BindProtocolVtbl;
1283     ret->lpInternetBindInfoVtbl         = &InternetBindInfoVtbl;
1284     ret->lpInternetPriorityVtbl         = &InternetPriorityVtbl;
1285     ret->lpServiceProviderVtbl          = &ServiceProviderVtbl;
1286     ret->lpIInternetProtocolSinkVtbl    = &InternetProtocolSinkVtbl;
1287     ret->lpIInternetProtocolHandlerVtbl = &InternetProtocolHandlerVtbl;
1288     ret->lpIWinInetHttpInfoVtbl         = &WinInetHttpInfoVtbl;
1289
1290     ret->ref = 1;
1291     ret->from_urlmon = from_urlmon;
1292     ret->apartment_thread = GetCurrentThreadId();
1293     ret->notif_hwnd = get_notif_hwnd();
1294     ret->protocol_handler = PROTOCOLHANDLER(ret);
1295     InitializeCriticalSection(&ret->section);
1296
1297     URLMON_LockModule();
1298
1299     *protocol = PROTOCOL(ret);
1300     return S_OK;
1301 }