2 * Copyright 2005 Jacek Caban
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.
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.
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
31 #include "wine/debug.h"
32 #include "wine/unicode.h"
34 #include "mshtml_private.h"
36 WINE_DEFAULT_DEBUG_CHANNEL(mshtml
);
38 /********************************************************************
39 * common ProtocolFactory implementation
42 #define PROTOCOLINFO(x) ((IInternetProtocolInfo*) &(x)->lpInternetProtocolInfoVtbl)
43 #define CLASSFACTORY(x) ((IClassFactory*) &(x)->lpClassFactoryVtbl)
44 #define PROTOCOL(x) ((IInternetProtocol*) &(x)->lpInternetProtocolVtbl)
47 const IInternetProtocolInfoVtbl
*lpInternetProtocolInfoVtbl
;
48 const IClassFactoryVtbl
*lpClassFactoryVtbl
;
51 #define PROTOCOLINFO_THIS(iface) DEFINE_THIS(ProtocolFactory, InternetProtocolInfo, iface)
53 static HRESULT WINAPI
InternetProtocolInfo_QueryInterface(IInternetProtocolInfo
*iface
, REFIID riid
, void **ppv
)
55 ProtocolFactory
*This
= PROTOCOLINFO_THIS(iface
);
58 if(IsEqualGUID(&IID_IUnknown
, riid
)) {
59 TRACE("(%p)->(IID_IUnknown %p)\n", This
, ppv
);
60 *ppv
= PROTOCOLINFO(This
);
61 }else if(IsEqualGUID(&IID_IInternetProtocolInfo
, riid
)) {
62 TRACE("(%p)->(IID_IInternetProtocolInfo %p)\n", This
, ppv
);
63 *ppv
= PROTOCOLINFO(This
);
64 }else if(IsEqualGUID(&IID_IClassFactory
, riid
)) {
65 TRACE("(%p)->(IID_IClassFactory %p)\n", This
, ppv
);
66 *ppv
= CLASSFACTORY(This
);
70 WARN("unknown interface %s\n", debugstr_guid(riid
));
74 IInternetProtocolInfo_AddRef(iface
);
78 static ULONG WINAPI
InternetProtocolInfo_AddRef(IInternetProtocolInfo
*iface
)
80 ProtocolFactory
*This
= PROTOCOLINFO_THIS(iface
);
81 TRACE("(%p)\n", This
);
86 static ULONG WINAPI
InternetProtocolInfo_Release(IInternetProtocolInfo
*iface
)
88 ProtocolFactory
*This
= PROTOCOLINFO_THIS(iface
);
89 TRACE("(%p)\n", This
);
94 static HRESULT WINAPI
InternetProtocolInfo_CombineUrl(IInternetProtocolInfo
*iface
,
95 LPCWSTR pwzBaseUrl
, LPCWSTR pwzRelativeUrl
, DWORD dwCombineFlags
, LPWSTR pwzResult
,
96 DWORD cchResult
, DWORD
* pcchResult
, DWORD dwReserved
)
98 TRACE("%p)->(%s %s %08x %p %d %p %d)\n", iface
, debugstr_w(pwzBaseUrl
),
99 debugstr_w(pwzRelativeUrl
), dwCombineFlags
, pwzResult
, cchResult
,
100 pcchResult
, dwReserved
);
102 return INET_E_USE_DEFAULT_PROTOCOLHANDLER
;
105 static HRESULT WINAPI
InternetProtocolInfo_CompareUrl(IInternetProtocolInfo
*iface
, LPCWSTR pwzUrl1
,
106 LPCWSTR pwzUrl2
, DWORD dwCompareFlags
)
108 TRACE("%p)->(%s %s %08x)\n", iface
, debugstr_w(pwzUrl1
), debugstr_w(pwzUrl2
), dwCompareFlags
);
112 #undef PROTOCOLINFO_THIS
114 #define CLASSFACTORY_THIS(iface) DEFINE_THIS(ProtocolFactory, ClassFactory, iface)
116 static HRESULT WINAPI
ClassFactory_QueryInterface(IClassFactory
*iface
, REFIID riid
, void **ppv
)
118 ProtocolFactory
*This
= CLASSFACTORY_THIS(iface
);
119 return IInternetProtocolInfo_QueryInterface(PROTOCOLINFO(This
), riid
, ppv
);
122 static ULONG WINAPI
ClassFactory_AddRef(IClassFactory
*iface
)
124 ProtocolFactory
*This
= CLASSFACTORY_THIS(iface
);
125 return IInternetProtocolInfo_AddRef(PROTOCOLINFO(This
));
128 static ULONG WINAPI
ClassFactory_Release(IClassFactory
*iface
)
130 ProtocolFactory
*This
= CLASSFACTORY_THIS(iface
);
131 return IInternetProtocolInfo_Release(PROTOCOLINFO(This
));
134 static HRESULT WINAPI
ClassFactory_LockServer(IClassFactory
*iface
, BOOL dolock
)
136 ProtocolFactory
*This
= CLASSFACTORY_THIS(iface
);
138 TRACE("(%p)->(%x)\n", This
, dolock
);
148 #undef CLASSFACTORY_THIS
150 /********************************************************************
151 * AboutProtocol implementation
155 const IInternetProtocolVtbl
*lpInternetProtocolVtbl
;
166 #define PROTOCOL_THIS(iface) DEFINE_THIS(AboutProtocol, InternetProtocol, iface)
168 static HRESULT WINAPI
AboutProtocol_QueryInterface(IInternetProtocol
*iface
, REFIID riid
, void **ppv
)
170 AboutProtocol
*This
= PROTOCOL_THIS(iface
);
174 if(IsEqualGUID(&IID_IUnknown
, riid
)) {
175 TRACE("(%p)->(IID_IUnknown %p)\n", iface
, ppv
);
177 return IUnknown_QueryInterface(This
->pUnkOuter
, riid
, ppv
);
178 *ppv
= PROTOCOL(This
);
179 }else if(IsEqualGUID(&IID_IInternetProtocolRoot
, riid
)) {
180 TRACE("(%p)->(IID_IInternetProtocolRoot %p)\n", iface
, ppv
);
181 *ppv
= PROTOCOL(This
);
182 }else if(IsEqualGUID(&IID_IInternetProtocol
, riid
)) {
183 TRACE("(%p)->(IID_IInternetProtocol %p)\n", iface
, ppv
);
184 *ppv
= PROTOCOL(This
);
185 }else if(IsEqualGUID(&IID_IServiceProvider
, riid
)) {
186 FIXME("IServiceProvider is not implemented\n");
187 return E_NOINTERFACE
;
191 TRACE("unknown interface %s\n", debugstr_guid(riid
));
192 return E_NOINTERFACE
;
195 IInternetProtocol_AddRef(iface
);
199 static ULONG WINAPI
AboutProtocol_AddRef(IInternetProtocol
*iface
)
201 AboutProtocol
*This
= PROTOCOL_THIS(iface
);
202 ULONG ref
= InterlockedIncrement(&This
->ref
);
203 TRACE("(%p) ref=%d\n", iface
, ref
);
204 return This
->pUnkOuter
? IUnknown_AddRef(This
->pUnkOuter
) : ref
;
207 static ULONG WINAPI
AboutProtocol_Release(IInternetProtocol
*iface
)
209 AboutProtocol
*This
= PROTOCOL_THIS(iface
);
210 IUnknown
*pUnkOuter
= This
->pUnkOuter
;
211 ULONG ref
= InterlockedDecrement(&This
->ref
);
213 TRACE("(%p) ref=%x\n", iface
, ref
);
216 heap_free(This
->data
);
221 return pUnkOuter
? IUnknown_Release(pUnkOuter
) : ref
;
224 static HRESULT WINAPI
AboutProtocol_Start(IInternetProtocol
*iface
, LPCWSTR szUrl
,
225 IInternetProtocolSink
* pOIProtSink
, IInternetBindInfo
* pOIBindInfo
,
226 DWORD grfPI
, DWORD dwReserved
)
228 AboutProtocol
*This
= PROTOCOL_THIS(iface
);
233 static const WCHAR html_begin
[] = {0xfeff,'<','H','T','M','L','>',0};
234 static const WCHAR html_end
[] = {'<','/','H','T','M','L','>',0};
235 static const WCHAR wszBlank
[] = {'b','l','a','n','k',0};
236 static const WCHAR wszAbout
[] = {'a','b','o','u','t',':'};
237 static const WCHAR wszTextHtml
[] = {'t','e','x','t','/','h','t','m','l',0};
240 * the about protocol seems not to work as I would expect. It creates html document
241 * for a given url, eg. about:some_text -> <HTML>some_text</HTML> except for the case when
242 * some_text = "blank", when document is blank (<HTML></HMTL>). The same happens
243 * when the url does not have "about:" in the beginning.
246 TRACE("(%p)->(%s %p %p %08x %d)\n", This
, debugstr_w(szUrl
), pOIProtSink
,
247 pOIBindInfo
, grfPI
, dwReserved
);
249 memset(&bindinfo
, 0, sizeof(bindinfo
));
250 bindinfo
.cbSize
= sizeof(BINDINFO
);
251 IInternetBindInfo_GetBindInfo(pOIBindInfo
, &grfBINDF
, &bindinfo
);
252 ReleaseBindInfo(&bindinfo
);
254 TRACE("bindf %x\n", grfBINDF
);
256 if(strlenW(szUrl
)>=sizeof(wszAbout
)/sizeof(WCHAR
) && !memcmp(wszAbout
, szUrl
, sizeof(wszAbout
))) {
257 text
= szUrl
+ sizeof(wszAbout
)/sizeof(WCHAR
);
258 if(!strcmpW(wszBlank
, text
))
262 This
->data_len
= sizeof(html_begin
)+sizeof(html_end
)-sizeof(WCHAR
)
263 + (text
? strlenW(text
)*sizeof(WCHAR
) : 0);
264 This
->data
= heap_alloc(This
->data_len
);
266 memcpy(This
->data
, html_begin
, sizeof(html_begin
));
268 strcatW((LPWSTR
)This
->data
, text
);
269 strcatW((LPWSTR
)This
->data
, html_end
);
273 IInternetProtocolSink_ReportProgress(pOIProtSink
, BINDSTATUS_MIMETYPEAVAILABLE
, wszTextHtml
);
275 IInternetProtocolSink_ReportData(pOIProtSink
,
276 BSCF_FIRSTDATANOTIFICATION
| BSCF_LASTDATANOTIFICATION
| BSCF_DATAFULLYAVAILABLE
,
277 This
->data_len
, This
->data_len
);
279 IInternetProtocolSink_ReportResult(pOIProtSink
, S_OK
, 0, NULL
);
284 static HRESULT WINAPI
AboutProtocol_Continue(IInternetProtocol
*iface
, PROTOCOLDATA
* pProtocolData
)
286 AboutProtocol
*This
= PROTOCOL_THIS(iface
);
287 FIXME("(%p)->(%p)\n", This
, pProtocolData
);
291 static HRESULT WINAPI
AboutProtocol_Abort(IInternetProtocol
*iface
, HRESULT hrReason
,
294 AboutProtocol
*This
= PROTOCOL_THIS(iface
);
295 FIXME("(%p)->(%08x %08x)\n", This
, hrReason
, dwOptions
);
299 static HRESULT WINAPI
AboutProtocol_Terminate(IInternetProtocol
*iface
, DWORD dwOptions
)
301 AboutProtocol
*This
= PROTOCOL_THIS(iface
);
302 TRACE("(%p)->(%08x)\n", This
, dwOptions
);
306 static HRESULT WINAPI
AboutProtocol_Suspend(IInternetProtocol
*iface
)
308 AboutProtocol
*This
= PROTOCOL_THIS(iface
);
309 FIXME("(%p)\n", This
);
313 static HRESULT WINAPI
AboutProtocol_Resume(IInternetProtocol
*iface
)
315 AboutProtocol
*This
= PROTOCOL_THIS(iface
);
316 FIXME("(%p)\n", This
);
320 static HRESULT WINAPI
AboutProtocol_Read(IInternetProtocol
*iface
, void* pv
, ULONG cb
, ULONG
* pcbRead
)
322 AboutProtocol
*This
= PROTOCOL_THIS(iface
);
324 TRACE("(%p)->(%p %u %p)\n", This
, pv
, cb
, pcbRead
);
329 *pcbRead
= (cb
> This
->data_len
-This
->cur
? This
->data_len
-This
->cur
: cb
);
334 memcpy(pv
, This
->data
+This
->cur
, *pcbRead
);
335 This
->cur
+= *pcbRead
;
340 static HRESULT WINAPI
AboutProtocol_Seek(IInternetProtocol
*iface
, LARGE_INTEGER dlibMove
,
341 DWORD dwOrigin
, ULARGE_INTEGER
* plibNewPosition
)
343 AboutProtocol
*This
= PROTOCOL_THIS(iface
);
344 FIXME("(%p)->(%d %d %p)\n", This
, dlibMove
.u
.LowPart
, dwOrigin
, plibNewPosition
);
348 static HRESULT WINAPI
AboutProtocol_LockRequest(IInternetProtocol
*iface
, DWORD dwOptions
)
350 AboutProtocol
*This
= PROTOCOL_THIS(iface
);
352 TRACE("(%p)->(%d)\n", This
, dwOptions
);
357 static HRESULT WINAPI
AboutProtocol_UnlockRequest(IInternetProtocol
*iface
)
359 AboutProtocol
*This
= PROTOCOL_THIS(iface
);
361 TRACE("(%p)\n", This
);
368 static const IInternetProtocolVtbl AboutProtocolVtbl
= {
369 AboutProtocol_QueryInterface
,
370 AboutProtocol_AddRef
,
371 AboutProtocol_Release
,
373 AboutProtocol_Continue
,
375 AboutProtocol_Terminate
,
376 AboutProtocol_Suspend
,
377 AboutProtocol_Resume
,
380 AboutProtocol_LockRequest
,
381 AboutProtocol_UnlockRequest
384 static HRESULT WINAPI
AboutProtocolFactory_CreateInstance(IClassFactory
*iface
, IUnknown
*pUnkOuter
,
385 REFIID riid
, void **ppv
)
390 TRACE("(%p)->(%p %s %p)\n", iface
, pUnkOuter
, debugstr_guid(riid
), ppv
);
392 ret
= heap_alloc(sizeof(AboutProtocol
));
393 ret
->lpInternetProtocolVtbl
= &AboutProtocolVtbl
;
399 ret
->pUnkOuter
= pUnkOuter
;
403 if(IsEqualGUID(&IID_IUnknown
, riid
))
404 *ppv
= PROTOCOL(ret
);
408 hres
= IInternetProtocol_QueryInterface(PROTOCOL(ret
), riid
, ppv
);
419 static HRESULT WINAPI
AboutProtocolInfo_ParseUrl(IInternetProtocolInfo
*iface
, LPCWSTR pwzUrl
,
420 PARSEACTION ParseAction
, DWORD dwParseFlags
, LPWSTR pwzResult
, DWORD cchResult
,
421 DWORD
* pcchResult
, DWORD dwReserved
)
423 TRACE("%p)->(%s %08x %08x %p %d %p %d)\n", iface
, debugstr_w(pwzUrl
), ParseAction
,
424 dwParseFlags
, pwzResult
, cchResult
, pcchResult
, dwReserved
);
426 if(ParseAction
== PARSE_SECURITY_URL
) {
427 int len
= lstrlenW(pwzUrl
);
432 memcpy(pwzResult
, pwzUrl
, (len
+1)*sizeof(WCHAR
));
436 if(ParseAction
== PARSE_DOMAIN
) {
441 *pcchResult
= strlenW(pwzUrl
)+1;
447 return INET_E_DEFAULT_ACTION
;
450 static HRESULT WINAPI
AboutProtocolInfo_QueryInfo(IInternetProtocolInfo
*iface
, LPCWSTR pwzUrl
,
451 QUERYOPTION QueryOption
, DWORD dwQueryFlags
, LPVOID pBuffer
, DWORD cbBuffer
, DWORD
* pcbBuf
,
454 TRACE("%p)->(%s %08x %08x %p %d %p %d)\n", iface
, debugstr_w(pwzUrl
), QueryOption
, dwQueryFlags
, pBuffer
,
455 cbBuffer
, pcbBuf
, dwReserved
);
457 switch(QueryOption
) {
458 case QUERY_CAN_NAVIGATE
:
459 return INET_E_USE_DEFAULT_PROTOCOLHANDLER
;
461 case QUERY_USES_NETWORK
:
462 if(!pBuffer
|| cbBuffer
< sizeof(DWORD
))
465 *(DWORD
*)pBuffer
= 0;
467 *pcbBuf
= sizeof(DWORD
);
471 case QUERY_IS_CACHED
:
472 FIXME("Unsupported option QUERY_IS_CACHED\n");
474 case QUERY_IS_INSTALLEDENTRY
:
475 FIXME("Unsupported option QUERY_IS_INSTALLEDENTRY\n");
477 case QUERY_IS_CACHED_OR_MAPPED
:
478 FIXME("Unsupported option QUERY_IS_CACHED_OR_MAPPED\n");
480 case QUERY_IS_SECURE
:
481 FIXME("Unsupported option QUERY_IS_SECURE\n");
484 FIXME("Unsupported option QUERY_IS_SAFE\n");
486 case QUERY_USES_HISTORYFOLDER
:
487 FIXME("Unsupported option QUERY_USES_HISTORYFOLDER\n");
496 static const IInternetProtocolInfoVtbl AboutProtocolInfoVtbl
= {
497 InternetProtocolInfo_QueryInterface
,
498 InternetProtocolInfo_AddRef
,
499 InternetProtocolInfo_Release
,
500 AboutProtocolInfo_ParseUrl
,
501 InternetProtocolInfo_CombineUrl
,
502 InternetProtocolInfo_CompareUrl
,
503 AboutProtocolInfo_QueryInfo
506 static const IClassFactoryVtbl AboutProtocolFactoryVtbl
= {
507 ClassFactory_QueryInterface
,
509 ClassFactory_Release
,
510 AboutProtocolFactory_CreateInstance
,
511 ClassFactory_LockServer
514 static ProtocolFactory AboutProtocolFactory
= {
515 &AboutProtocolInfoVtbl
,
516 &AboutProtocolFactoryVtbl
519 /********************************************************************
520 * ResProtocol implementation
524 const IInternetProtocolVtbl
*lpInternetProtocolVtbl
;
534 #define PROTOCOL_THIS(iface) DEFINE_THIS(ResProtocol, InternetProtocol, iface)
536 static HRESULT WINAPI
ResProtocol_QueryInterface(IInternetProtocol
*iface
, REFIID riid
, void **ppv
)
538 ResProtocol
*This
= PROTOCOL_THIS(iface
);
542 if(IsEqualGUID(&IID_IUnknown
, riid
)) {
543 TRACE("(%p)->(IID_IUnknown %p)\n", iface
, ppv
);
545 return IUnknown_QueryInterface(This
->pUnkOuter
, &IID_IUnknown
, ppv
);
546 *ppv
= PROTOCOL(This
);
547 }else if(IsEqualGUID(&IID_IInternetProtocolRoot
, riid
)) {
548 TRACE("(%p)->(IID_IInternetProtocolRoot %p)\n", iface
, ppv
);
549 *ppv
= PROTOCOL(This
);
550 }else if(IsEqualGUID(&IID_IInternetProtocol
, riid
)) {
551 TRACE("(%p)->(IID_IInternetProtocol %p)\n", iface
, ppv
);
552 *ppv
= PROTOCOL(This
);
553 }else if(IsEqualGUID(&IID_IServiceProvider
, riid
)) {
554 FIXME("IServiceProvider is not implemented\n");
555 return E_NOINTERFACE
;
559 TRACE("unknown interface %s\n", debugstr_guid(riid
));
560 return E_NOINTERFACE
;
563 IInternetProtocol_AddRef(iface
);
567 static ULONG WINAPI
ResProtocol_AddRef(IInternetProtocol
*iface
)
569 ResProtocol
*This
= PROTOCOL_THIS(iface
);
570 ULONG ref
= InterlockedIncrement(&This
->ref
);
571 TRACE("(%p) ref=%d\n", iface
, ref
);
572 return This
->pUnkOuter
? IUnknown_AddRef(This
->pUnkOuter
) : ref
;
575 static ULONG WINAPI
ResProtocol_Release(IInternetProtocol
*iface
)
577 ResProtocol
*This
= (ResProtocol
*)iface
;
578 IUnknown
*pUnkOuter
= This
->pUnkOuter
;
579 ULONG ref
= InterlockedDecrement(&This
->ref
);
581 TRACE("(%p) ref=%x\n", iface
, ref
);
584 heap_free(This
->data
);
589 return pUnkOuter
? IUnknown_Release(pUnkOuter
) : ref
;
592 static HRESULT WINAPI
ResProtocol_Start(IInternetProtocol
*iface
, LPCWSTR szUrl
,
593 IInternetProtocolSink
* pOIProtSink
, IInternetBindInfo
* pOIBindInfo
,
594 DWORD grfPI
, DWORD dwReserved
)
596 ResProtocol
*This
= PROTOCOL_THIS(iface
);
597 DWORD grfBINDF
= 0, len
;
599 LPWSTR url_dll
, url_file
, url
, mime
, res_type
= (LPWSTR
)RT_HTML
;
604 static const WCHAR wszRes
[] = {'r','e','s',':','/','/'};
606 TRACE("(%p)->(%s %p %p %08x %d)\n", This
, debugstr_w(szUrl
), pOIProtSink
,
607 pOIBindInfo
, grfPI
, dwReserved
);
609 memset(&bindinfo
, 0, sizeof(bindinfo
));
610 bindinfo
.cbSize
= sizeof(BINDINFO
);
611 IInternetBindInfo_GetBindInfo(pOIBindInfo
, &grfBINDF
, &bindinfo
);
612 ReleaseBindInfo(&bindinfo
);
614 len
= strlenW(szUrl
)+16;
615 url
= heap_alloc(len
*sizeof(WCHAR
));
616 hres
= CoInternetParseUrl(szUrl
, PARSE_ENCODE
, 0, url
, len
, &len
, 0);
618 WARN("CoInternetParseUrl failed: %08x\n", hres
);
620 IInternetProtocolSink_ReportResult(pOIProtSink
, hres
, 0, NULL
);
624 if(len
< sizeof(wszRes
)/sizeof(wszRes
[0]) || memcmp(url
, wszRes
, sizeof(wszRes
))) {
625 WARN("Wrong protocol of url: %s\n", debugstr_w(url
));
626 IInternetProtocolSink_ReportResult(pOIProtSink
, E_INVALIDARG
, 0, NULL
);
631 url_dll
= url
+ sizeof(wszRes
)/sizeof(wszRes
[0]);
632 if(!(url_file
= strrchrW(url_dll
, '/'))) {
633 WARN("wrong url: %s\n", debugstr_w(url
));
634 IInternetProtocolSink_ReportResult(pOIProtSink
, MK_E_SYNTAX
, 0, NULL
);
640 hdll
= LoadLibraryExW(url_dll
, NULL
, LOAD_LIBRARY_AS_DATAFILE
);
642 if (!(res_type
= strrchrW(url_dll
, '/'))) {
643 WARN("Could not open dll: %s\n", debugstr_w(url_dll
));
644 IInternetProtocolSink_ReportResult(pOIProtSink
, HRESULT_FROM_WIN32(GetLastError()), 0, NULL
);
646 return HRESULT_FROM_WIN32(GetLastError());
650 hdll
= LoadLibraryExW(url_dll
, NULL
, LOAD_LIBRARY_AS_DATAFILE
);
652 WARN("Could not open dll: %s\n", debugstr_w(url_dll
));
653 IInternetProtocolSink_ReportResult(pOIProtSink
, HRESULT_FROM_WIN32(GetLastError()), 0, NULL
);
655 return HRESULT_FROM_WIN32(GetLastError());
659 TRACE("trying to find resource type %s, name %s\n", debugstr_w(res_type
), debugstr_w(url_file
));
661 src
= FindResourceW(hdll
, url_file
, res_type
);
663 LPWSTR endpoint
= NULL
;
664 DWORD file_id
= strtolW(url_file
, &endpoint
, 10);
665 if(endpoint
== url_file
+strlenW(url_file
))
666 src
= FindResourceW(hdll
, (LPCWSTR
)file_id
, (LPCWSTR
)RT_HTML
);
669 WARN("Could not find resource\n");
670 IInternetProtocolSink_ReportResult(pOIProtSink
,
671 HRESULT_FROM_WIN32(GetLastError()), 0, NULL
);
673 return HRESULT_FROM_WIN32(GetLastError());
678 WARN("data already loaded\n");
679 heap_free(This
->data
);
682 This
->data_len
= SizeofResource(hdll
, src
);
683 This
->data
= heap_alloc(This
->data_len
);
684 memcpy(This
->data
, LoadResource(hdll
, src
), This
->data_len
);
689 hres
= FindMimeFromData(NULL
, url_file
, NULL
, 0, NULL
, 0, &mime
, 0);
691 if(SUCCEEDED(hres
)) {
692 IInternetProtocolSink_ReportProgress(pOIProtSink
, BINDSTATUS_MIMETYPEAVAILABLE
, mime
);
696 IInternetProtocolSink_ReportData(pOIProtSink
,
697 BSCF_FIRSTDATANOTIFICATION
| BSCF_LASTDATANOTIFICATION
| BSCF_DATAFULLYAVAILABLE
,
698 This
->data_len
, This
->data_len
);
700 IInternetProtocolSink_ReportResult(pOIProtSink
, S_OK
, 0, NULL
);
705 static HRESULT WINAPI
ResProtocol_Continue(IInternetProtocol
*iface
, PROTOCOLDATA
* pProtocolData
)
707 ResProtocol
*This
= PROTOCOL_THIS(iface
);
708 FIXME("(%p)->(%p)\n", This
, pProtocolData
);
712 static HRESULT WINAPI
ResProtocol_Abort(IInternetProtocol
*iface
, HRESULT hrReason
,
715 ResProtocol
*This
= PROTOCOL_THIS(iface
);
716 FIXME("(%p)->(%08x %08x)\n", This
, hrReason
, dwOptions
);
720 static HRESULT WINAPI
ResProtocol_Terminate(IInternetProtocol
*iface
, DWORD dwOptions
)
722 ResProtocol
*This
= PROTOCOL_THIS(iface
);
724 TRACE("(%p)->(%08x)\n", This
, dwOptions
);
726 /* test show that we don't have to do anything here */
730 static HRESULT WINAPI
ResProtocol_Suspend(IInternetProtocol
*iface
)
732 ResProtocol
*This
= PROTOCOL_THIS(iface
);
733 FIXME("(%p)\n", This
);
737 static HRESULT WINAPI
ResProtocol_Resume(IInternetProtocol
*iface
)
739 ResProtocol
*This
= PROTOCOL_THIS(iface
);
740 FIXME("(%p)\n", This
);
744 static HRESULT WINAPI
ResProtocol_Read(IInternetProtocol
*iface
, void* pv
, ULONG cb
, ULONG
* pcbRead
)
746 ResProtocol
*This
= PROTOCOL_THIS(iface
);
748 TRACE("(%p)->(%p %u %p)\n", This
, pv
, cb
, pcbRead
);
753 *pcbRead
= (cb
> This
->data_len
-This
->cur
? This
->data_len
-This
->cur
: cb
);
758 memcpy(pv
, This
->data
+This
->cur
, *pcbRead
);
759 This
->cur
+= *pcbRead
;
764 static HRESULT WINAPI
ResProtocol_Seek(IInternetProtocol
*iface
, LARGE_INTEGER dlibMove
,
765 DWORD dwOrigin
, ULARGE_INTEGER
* plibNewPosition
)
767 ResProtocol
*This
= PROTOCOL_THIS(iface
);
768 FIXME("(%p)->(%d %d %p)\n", This
, dlibMove
.u
.LowPart
, dwOrigin
, plibNewPosition
);
772 static HRESULT WINAPI
ResProtocol_LockRequest(IInternetProtocol
*iface
, DWORD dwOptions
)
774 ResProtocol
*This
= PROTOCOL_THIS(iface
);
776 TRACE("(%p)->(%d)\n", This
, dwOptions
);
778 /* test show that we don't have to do anything here */
782 static HRESULT WINAPI
ResProtocol_UnlockRequest(IInternetProtocol
*iface
)
784 ResProtocol
*This
= PROTOCOL_THIS(iface
);
786 TRACE("(%p)\n", This
);
788 /* test show that we don't have to do anything here */
794 static const IInternetProtocolVtbl ResProtocolVtbl
= {
795 ResProtocol_QueryInterface
,
799 ResProtocol_Continue
,
801 ResProtocol_Terminate
,
806 ResProtocol_LockRequest
,
807 ResProtocol_UnlockRequest
810 static HRESULT WINAPI
ResProtocolFactory_CreateInstance(IClassFactory
*iface
, IUnknown
*pUnkOuter
,
811 REFIID riid
, void **ppv
)
816 TRACE("(%p)->(%p %s %p)\n", iface
, pUnkOuter
, debugstr_guid(riid
), ppv
);
818 ret
= heap_alloc(sizeof(ResProtocol
));
819 ret
->lpInternetProtocolVtbl
= &ResProtocolVtbl
;
824 ret
->pUnkOuter
= pUnkOuter
;
828 if(IsEqualGUID(&IID_IUnknown
, riid
))
829 *ppv
= PROTOCOL(ret
);
833 hres
= IInternetProtocol_QueryInterface(PROTOCOL(ret
), riid
, ppv
);
844 static HRESULT WINAPI
ResProtocolInfo_ParseUrl(IInternetProtocolInfo
*iface
, LPCWSTR pwzUrl
,
845 PARSEACTION ParseAction
, DWORD dwParseFlags
, LPWSTR pwzResult
, DWORD cchResult
,
846 DWORD
* pcchResult
, DWORD dwReserved
)
848 TRACE("%p)->(%s %d %x %p %d %p %d)\n", iface
, debugstr_w(pwzUrl
), ParseAction
,
849 dwParseFlags
, pwzResult
, cchResult
, pcchResult
, dwReserved
);
851 if(ParseAction
== PARSE_SECURITY_URL
) {
852 WCHAR file_part
[MAX_PATH
], full_path
[MAX_PATH
];
856 static const WCHAR wszFile
[] = {'f','i','l','e',':','/','/'};
857 static const WCHAR wszRes
[] = {'r','e','s',':','/','/'};
859 if(strlenW(pwzUrl
) <= sizeof(wszRes
)/sizeof(WCHAR
) || memcmp(pwzUrl
, wszRes
, sizeof(wszRes
)))
862 ptr
= strchrW(pwzUrl
+ sizeof(wszRes
)/sizeof(WCHAR
), '/');
866 len
= ptr
- (pwzUrl
+ sizeof(wszRes
)/sizeof(WCHAR
));
867 if(len
>= sizeof(file_part
)/sizeof(WCHAR
)) {
868 FIXME("Too long URL\n");
872 memcpy(file_part
, pwzUrl
+ sizeof(wszRes
)/sizeof(WCHAR
), len
*sizeof(WCHAR
));
875 len
= SearchPathW(NULL
, file_part
, NULL
, sizeof(full_path
)/sizeof(WCHAR
), full_path
, NULL
);
877 WARN("Could not find file %s\n", debugstr_w(file_part
));
881 size
= sizeof(wszFile
)/sizeof(WCHAR
) + len
+ 1;
884 if(size
>= cchResult
)
887 memcpy(pwzResult
, wszFile
, sizeof(wszFile
));
888 memcpy(pwzResult
+ sizeof(wszFile
)/sizeof(WCHAR
), full_path
, (len
+1)*sizeof(WCHAR
));
892 if(ParseAction
== PARSE_DOMAIN
) {
897 *pcchResult
= strlenW(pwzUrl
)+1;
903 return INET_E_DEFAULT_ACTION
;
906 static HRESULT WINAPI
ResProtocolInfo_QueryInfo(IInternetProtocolInfo
*iface
, LPCWSTR pwzUrl
,
907 QUERYOPTION QueryOption
, DWORD dwQueryFlags
, LPVOID pBuffer
, DWORD cbBuffer
, DWORD
* pcbBuf
,
910 TRACE("%p)->(%s %08x %08x %p %d %p %d)\n", iface
, debugstr_w(pwzUrl
), QueryOption
, dwQueryFlags
, pBuffer
,
911 cbBuffer
, pcbBuf
, dwReserved
);
913 switch(QueryOption
) {
914 case QUERY_USES_NETWORK
:
915 if(!pBuffer
|| cbBuffer
< sizeof(DWORD
))
918 *(DWORD
*)pBuffer
= 0;
920 *pcbBuf
= sizeof(DWORD
);
923 case QUERY_IS_SECURE
:
924 FIXME("not supporte QUERY_IS_SECURE\n");
927 FIXME("not supporte QUERY_IS_SAFE\n");
930 return INET_E_USE_DEFAULT_PROTOCOLHANDLER
;
936 static const IInternetProtocolInfoVtbl ResProtocolInfoVtbl
= {
937 InternetProtocolInfo_QueryInterface
,
938 InternetProtocolInfo_AddRef
,
939 InternetProtocolInfo_Release
,
940 ResProtocolInfo_ParseUrl
,
941 InternetProtocolInfo_CombineUrl
,
942 InternetProtocolInfo_CompareUrl
,
943 ResProtocolInfo_QueryInfo
946 static const IClassFactoryVtbl ResProtocolFactoryVtbl
= {
947 ClassFactory_QueryInterface
,
949 ClassFactory_Release
,
950 ResProtocolFactory_CreateInstance
,
951 ClassFactory_LockServer
954 static ProtocolFactory ResProtocolFactory
= {
955 &ResProtocolInfoVtbl
,
956 &ResProtocolFactoryVtbl
959 HRESULT
ProtocolFactory_Create(REFCLSID rclsid
, REFIID riid
, void **ppv
)
961 ProtocolFactory
*cf
= NULL
;
963 if(IsEqualGUID(&CLSID_AboutProtocol
, rclsid
))
964 cf
= &AboutProtocolFactory
;
965 else if(IsEqualGUID(&CLSID_ResProtocol
, rclsid
))
966 cf
= &ResProtocolFactory
;
969 FIXME("not implemented protocol %s\n", debugstr_guid(rclsid
));
970 return CLASS_E_CLASSNOTAVAILABLE
;
973 return IUnknown_QueryInterface((IUnknown
*)cf
, riid
, ppv
);