static HRESULT WINAPI HTMLLocation_get_protocol(IHTMLLocation *iface, BSTR *p) { HTMLLocation *This = impl_from_IHTMLLocation(iface); URL_COMPONENTSW url = {sizeof(URL_COMPONENTSW)}; HRESULT hres; TRACE("(%p)->(%p)\n", This, p); if(!p) return E_POINTER; url.dwSchemeLength = 1; hres = get_url_components(This, &url); if(FAILED(hres)) return hres; if(!url.dwSchemeLength) { FIXME("Unexpected blank protocol\n"); return E_NOTIMPL; }else { WCHAR *buf; buf = *p = SysAllocStringLen(NULL, url.dwSchemeLength + 1); memcpy(buf, url.lpszScheme, url.dwSchemeLength * sizeof(WCHAR)); buf[url.dwSchemeLength] = ':'; } if(!*p) return E_OUTOFMEMORY; return S_OK; }
static HRESULT WINAPI HTMLLocation_get_pathname(IHTMLLocation *iface, BSTR *p) { HTMLLocation *This = impl_from_IHTMLLocation(iface); URL_COMPONENTSW url = {sizeof(URL_COMPONENTSW)}; HRESULT hres; TRACE("(%p)->(%p)\n", This, p); if(!p) return E_POINTER; url.dwUrlPathLength = 1; url.dwExtraInfoLength = 1; hres = get_url_components(This, &url); if(FAILED(hres)) return hres; if(url.dwUrlPathLength && url.lpszUrlPath[0] == '/') *p = SysAllocStringLen(url.lpszUrlPath + 1, url.dwUrlPathLength - 1); else *p = SysAllocStringLen(url.lpszUrlPath, url.dwUrlPathLength); if(!*p) return E_OUTOFMEMORY; return S_OK; }
static HRESULT WINAPI HTMLLocation_get_hash(IHTMLLocation *iface, BSTR *p) { HTMLLocation *This = impl_from_IHTMLLocation(iface); URL_COMPONENTSW url = {sizeof(URL_COMPONENTSW)}; const WCHAR hash[] = {'#',0}; DWORD hash_pos = 0; HRESULT hres; TRACE("(%p)->(%p)\n", This, p); if(!p) return E_POINTER; url.dwExtraInfoLength = 1; hres = get_url_components(This, &url); if(FAILED(hres)) return hres; if(!url.dwExtraInfoLength){ *p = NULL; return S_OK; } hash_pos = strcspnW(url.lpszExtraInfo, hash); url.dwExtraInfoLength -= hash_pos; *p = SysAllocStringLen(url.lpszExtraInfo + hash_pos, url.dwExtraInfoLength); if(!*p) return E_OUTOFMEMORY; return S_OK; }
static HRESULT WINAPI HTMLLocation_get_hash(IHTMLLocation *iface, BSTR *p) { HTMLLocation *This = impl_from_IHTMLLocation(iface); BSTR hash; IUri *uri; HRESULT hres; TRACE("(%p)->(%p)\n", This, p); if(!p) return E_POINTER; if(!(uri = get_uri(This))) { FIXME("No current URI\n"); return E_NOTIMPL; } hres = IUri_GetFragment(uri, &hash); if(hres == S_OK) { *p = hash; }else if(hres == S_FALSE) { SysFreeString(hash); *p = NULL; }else { return hres; } return S_OK; }
static HRESULT WINAPI HTMLLocation_get_port(IHTMLLocation *iface, BSTR *p) { HTMLLocation *This = impl_from_IHTMLLocation(iface); URL_COMPONENTSW url = {sizeof(URL_COMPONENTSW)}; HRESULT hres; TRACE("(%p)->(%p)\n", This, p); if(!p) return E_POINTER; hres = get_url_components(This, &url); if(FAILED(hres)) return hres; if(url.nPort) { const WCHAR format[] = {'%','u',0}; WCHAR buf[6]; snprintfW(buf, 6, format, url.nPort); *p = SysAllocString(buf); }else { const WCHAR empty[] = {0}; *p = SysAllocString(empty); } if(!*p) return E_OUTOFMEMORY; return S_OK; }
static HRESULT WINAPI HTMLLocation_get_hostname(IHTMLLocation *iface, BSTR *p) { HTMLLocation *This = impl_from_IHTMLLocation(iface); BSTR hostname; HRESULT hres; TRACE("(%p)->(%p)\n", This, p); if(!p) return E_POINTER; if(!This->window || !This->window->uri) { FIXME("No current URI\n"); return E_NOTIMPL; } hres = IUri_GetHost(This->window->uri, &hostname); if(hres == S_OK) { *p = hostname; }else if(hres == S_FALSE) { SysFreeString(hostname); *p = NULL; }else { return hres; } return S_OK; }
static HRESULT WINAPI HTMLLocation_get_port(IHTMLLocation *iface, BSTR *p) { HTMLLocation *This = impl_from_IHTMLLocation(iface); DWORD port; IUri *uri; HRESULT hres; TRACE("(%p)->(%p)\n", This, p); if(!p) return E_POINTER; if(!(uri = get_uri(This))) { FIXME("No current URI\n"); return E_NOTIMPL; } hres = IUri_GetPort(uri, &port); if(FAILED(hres)) return hres; if(hres == S_OK) { static const WCHAR formatW[] = {'%','u',0}; WCHAR buf[12]; sprintfW(buf, formatW, port); *p = SysAllocString(buf); }else { *p = SysAllocStringLen(NULL, 0); } if(!*p) return E_OUTOFMEMORY; return S_OK; }
static HRESULT WINAPI HTMLLocation_get_hostname(IHTMLLocation *iface, BSTR *p) { HTMLLocation *This = impl_from_IHTMLLocation(iface); URL_COMPONENTSW url = {sizeof(URL_COMPONENTSW)}; HRESULT hres; TRACE("(%p)->(%p)\n", This, p); if(!p) return E_POINTER; url.dwHostNameLength = 1; hres = get_url_components(This, &url); if(FAILED(hres)) return hres; if(!url.dwHostNameLength){ *p = NULL; return S_OK; } *p = SysAllocStringLen(url.lpszHostName, url.dwHostNameLength); if(!*p) return E_OUTOFMEMORY; return S_OK; }
static HRESULT WINAPI HTMLLocation_Invoke(IHTMLLocation *iface, DISPID dispIdMember, REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr) { HTMLLocation *This = impl_from_IHTMLLocation(iface); return IDispatchEx_Invoke(&This->dispex.IDispatchEx_iface, dispIdMember, riid, lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr); }
static HRESULT WINAPI HTMLLocation_GetIDsOfNames(IHTMLLocation *iface, REFIID riid, LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId) { HTMLLocation *This = impl_from_IHTMLLocation(iface); return IDispatchEx_GetIDsOfNames(&This->dispex.IDispatchEx_iface, riid, rgszNames, cNames, lcid, rgDispId); }
static HRESULT WINAPI HTMLLocation_toString(IHTMLLocation *iface, BSTR *String) { HTMLLocation *This = impl_from_IHTMLLocation(iface); TRACE("(%p)->(%p)\n", This, String); return IHTMLLocation_get_href(&This->IHTMLLocation_iface, String); }
static ULONG WINAPI HTMLLocation_AddRef(IHTMLLocation *iface) { HTMLLocation *This = impl_from_IHTMLLocation(iface); LONG ref = InterlockedIncrement(&This->ref); TRACE("(%p) ref=%d\n", This, ref); return ref; }
static HRESULT WINAPI HTMLLocation_put_href(IHTMLLocation *iface, BSTR v) { HTMLLocation *This = impl_from_IHTMLLocation(iface); TRACE("(%p)->(%s)\n", This, debugstr_w(v)); if(!This->window || !This->window->base.outer_window) { FIXME("No window available\n"); return E_FAIL; } return navigate_url(This->window->base.outer_window, v, This->window->base.outer_window->uri, BINDING_NAVIGATED); }
static HRESULT WINAPI HTMLLocation_replace(IHTMLLocation *iface, BSTR bstr) { HTMLLocation *This = impl_from_IHTMLLocation(iface); TRACE("(%p)->(%s)\n", This, debugstr_w(bstr)); if(!This->window) { FIXME("No window available\n"); return E_FAIL; } return navigate_url(This->window, bstr, This->window->url); }
static ULONG WINAPI HTMLLocation_Release(IHTMLLocation *iface) { HTMLLocation *This = impl_from_IHTMLLocation(iface); LONG ref = InterlockedDecrement(&This->ref); TRACE("(%p) ref=%d\n", This, ref); if(!ref) { if(This->window) This->window->location = NULL; release_dispex(&This->dispex); heap_free(This); } return ref; }
static HRESULT WINAPI HTMLLocation_QueryInterface(IHTMLLocation *iface, REFIID riid, void **ppv) { HTMLLocation *This = impl_from_IHTMLLocation(iface); TRACE("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv); if(IsEqualGUID(&IID_IUnknown, riid)) { *ppv = &This->IHTMLLocation_iface; }else if(IsEqualGUID(&IID_IHTMLLocation, riid)) { *ppv = &This->IHTMLLocation_iface; }else if(dispex_query_interface(&This->dispex, riid, ppv)) { return *ppv ? S_OK : E_NOINTERFACE; }else { *ppv = NULL; WARN("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv); return E_NOINTERFACE; } IUnknown_AddRef((IUnknown*)*ppv); return S_OK; }
static HRESULT WINAPI HTMLLocation_get_host(IHTMLLocation *iface, BSTR *p) { HTMLLocation *This = impl_from_IHTMLLocation(iface); URL_COMPONENTSW url = {sizeof(URL_COMPONENTSW)}; HRESULT hres; TRACE("(%p)->(%p)\n", This, p); if(!p) return E_POINTER; url.dwHostNameLength = 1; hres = get_url_components(This, &url); if(FAILED(hres)) return hres; if(!url.dwHostNameLength){ *p = NULL; return S_OK; } if(url.nPort) { /* <hostname>:<port> */ const WCHAR format[] = {'%','u',0}; DWORD len = url.dwHostNameLength + 1 + 5; WCHAR *buf; buf = *p = SysAllocStringLen(NULL, len); memcpy(buf, url.lpszHostName, url.dwHostNameLength * sizeof(WCHAR)); buf[url.dwHostNameLength] = ':'; snprintfW(buf + url.dwHostNameLength + 1, 6, format, url.nPort); }else *p = SysAllocStringLen(url.lpszHostName, url.dwHostNameLength); if(!*p) return E_OUTOFMEMORY; return S_OK; }
static HRESULT WINAPI HTMLLocation_get_protocol(IHTMLLocation *iface, BSTR *p) { HTMLLocation *This = impl_from_IHTMLLocation(iface); BSTR protocol, ret; unsigned len; IUri *uri; HRESULT hres; TRACE("(%p)->(%p)\n", This, p); if(!p) return E_POINTER; if(!(uri = get_uri(This))) { FIXME("No current URI\n"); return E_NOTIMPL; } hres = IUri_GetSchemeName(uri, &protocol); if(FAILED(hres)) return hres; if(hres == S_FALSE) { SysFreeString(protocol); *p = NULL; return S_OK; } len = SysStringLen(protocol); ret = SysAllocStringLen(protocol, len+1); SysFreeString(protocol); if(!ret) return E_OUTOFMEMORY; ret[len] = ':'; *p = ret; return S_OK; }
static HRESULT WINAPI HTMLLocation_get_href(IHTMLLocation *iface, BSTR *p) { HTMLLocation *This = impl_from_IHTMLLocation(iface); URL_COMPONENTSW url = {sizeof(URL_COMPONENTSW)}; WCHAR *buf = NULL, *url_path = NULL; HRESULT hres, ret; DWORD len = 0; int i; TRACE("(%p)->(%p)\n", This, p); if(!p) return E_POINTER; url.dwSchemeLength = 1; url.dwHostNameLength = 1; url.dwUrlPathLength = 1; url.dwExtraInfoLength = 1; hres = get_url_components(This, &url); if(FAILED(hres)) return hres; switch(url.nScheme) { case INTERNET_SCHEME_FILE: { /* prepend a slash */ url_path = HeapAlloc(GetProcessHeap(), 0, (url.dwUrlPathLength + 1) * sizeof(WCHAR)); if(!url_path) return E_OUTOFMEMORY; url_path[0] = '/'; memcpy(url_path + 1, url.lpszUrlPath, url.dwUrlPathLength * sizeof(WCHAR)); url.lpszUrlPath = url_path; url.dwUrlPathLength = url.dwUrlPathLength + 1; } break; case INTERNET_SCHEME_HTTP: case INTERNET_SCHEME_HTTPS: case INTERNET_SCHEME_FTP: if(!url.dwUrlPathLength) { /* add a slash if it's blank */ url_path = url.lpszUrlPath = HeapAlloc(GetProcessHeap(), 0, 1 * sizeof(WCHAR)); if(!url.lpszUrlPath) return E_OUTOFMEMORY; url.lpszUrlPath[0] = '/'; url.dwUrlPathLength = 1; } break; default: break; } /* replace \ with / */ for(i = 0; i < url.dwUrlPathLength; ++i) if(url.lpszUrlPath[i] == '\\') url.lpszUrlPath[i] = '/'; if(InternetCreateUrlW(&url, ICU_ESCAPE, NULL, &len)) { FIXME("InternetCreateUrl succeeded with NULL buffer?\n"); ret = E_FAIL; goto cleanup; } if(GetLastError() != ERROR_INSUFFICIENT_BUFFER) { FIXME("InternetCreateUrl failed with error: %08x\n", GetLastError()); SetLastError(0); ret = E_FAIL; goto cleanup; } SetLastError(0); buf = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR)); if(!buf) { ret = E_OUTOFMEMORY; goto cleanup; } if(!InternetCreateUrlW(&url, ICU_ESCAPE, buf, &len)) { FIXME("InternetCreateUrl failed with error: %08x\n", GetLastError()); SetLastError(0); ret = E_FAIL; goto cleanup; } *p = SysAllocStringLen(buf, len); if(!*p) { ret = E_OUTOFMEMORY; goto cleanup; } ret = S_OK; cleanup: HeapFree(GetProcessHeap(), 0, buf); HeapFree(GetProcessHeap(), 0, url_path); return ret; }
static HRESULT WINAPI HTMLLocation_assign(IHTMLLocation *iface, BSTR bstr) { HTMLLocation *This = impl_from_IHTMLLocation(iface); FIXME("(%p)->(%s)\n", This, debugstr_w(bstr)); return E_NOTIMPL; }
static HRESULT WINAPI HTMLLocation_toString(IHTMLLocation *iface, BSTR *String) { HTMLLocation *This = impl_from_IHTMLLocation(iface); FIXME("(%p)->(%p)\n", This, String); return E_NOTIMPL; }
static HRESULT WINAPI HTMLLocation_assign(IHTMLLocation *iface, BSTR bstr) { HTMLLocation *This = impl_from_IHTMLLocation(iface); TRACE("(%p)->(%s)\n", This, debugstr_w(bstr)); return IHTMLLocation_put_href(iface, bstr); }
static HRESULT WINAPI HTMLLocation_reload(IHTMLLocation *iface, VARIANT_BOOL flag) { HTMLLocation *This = impl_from_IHTMLLocation(iface); FIXME("(%p)->(%x)\n", This, flag); return E_NOTIMPL; }
static HRESULT WINAPI HTMLLocation_GetTypeInfoCount(IHTMLLocation *iface, UINT *pctinfo) { HTMLLocation *This = impl_from_IHTMLLocation(iface); return IDispatchEx_GetTypeInfoCount(&This->dispex.IDispatchEx_iface, pctinfo); }
static HRESULT WINAPI HTMLLocation_put_hash(IHTMLLocation *iface, BSTR v) { HTMLLocation *This = impl_from_IHTMLLocation(iface); FIXME("(%p)->(%s)\n", This, debugstr_w(v)); return E_NOTIMPL; }
static HRESULT WINAPI HTMLLocation_GetTypeInfo(IHTMLLocation *iface, UINT iTInfo, LCID lcid, ITypeInfo **ppTInfo) { HTMLLocation *This = impl_from_IHTMLLocation(iface); return IDispatchEx_GetTypeInfo(&This->dispex.IDispatchEx_iface, iTInfo, lcid, ppTInfo); }