February 2007 - Wine-commits

Andrew Talbot : shell32: Declare some functions static.
by Alexandre Julliard 07 Feb '07

07 Feb '07

Module: wine Branch: master Commit: 0b1fb44aaf4173636fc3f31c658653e5ce45c3ce URL: http://source.winehq.org/git/wine.git/?a=commit;h=0b1fb44aaf4173636fc3f31c6… Author: Andrew Talbot <Andrew.Talbot(a)talbotville.com> Date: Tue Feb 6 22:06:26 2007 +0000 shell32: Declare some functions static. --- dlls/shell32/trash.c | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/dlls/shell32/trash.c b/dlls/shell32/trash.c index ccd347f..8a6de4c 100644 --- a/dlls/shell32/trash.c +++ b/dlls/shell32/trash.c @@ -254,7 +254,7 @@ static char *create_trashinfo(const char return NULL; } -void remove_trashinfo_file(const char *info_dir, const char *base_name) +static void remove_trashinfo_file(const char *info_dir, const char *base_name) { char *filename_buffer; @@ -386,7 +386,7 @@ void TRASH_DisposeElement(TRASH_ELEMENT SHFree(element->filename); } -HRESULT TRASH_GetDetails(const TRASH_ELEMENT *element, WIN32_FIND_DATAW *data) +static HRESULT TRASH_GetDetails(const TRASH_ELEMENT *element, WIN32_FIND_DATAW *data) { LPSTR path = NULL; XDG_PARSED_FILE *parsed = NULL; @@ -480,7 +480,7 @@ failed: return ret; } -INT CALLBACK free_item_callback(void *item, void *lParam) +static INT CALLBACK free_item_callback(void *item, void *lParam) { SHFree(item); return TRUE;

1 0

Felix Nawothnig : comctl32: Remove unnecessary and misused mask member from TAB_ITEM.
by Alexandre Julliard 07 Feb '07

07 Feb '07

Module: wine Branch: master Commit: 79e265accd5c2a35b6070baa737a21b74a06bbb0 URL: http://source.winehq.org/git/wine.git/?a=commit;h=79e265accd5c2a35b6070baa7… Author: Felix Nawothnig <flexo(a)holycrap.org> Date: Tue Feb 6 22:10:05 2007 +0100 comctl32: Remove unnecessary and misused mask member from TAB_ITEM. --- dlls/comctl32/tab.c | 11 ++++------- 1 files changed, 4 insertions(+), 7 deletions(-) diff --git a/dlls/comctl32/tab.c b/dlls/comctl32/tab.c index d17f6a7..7ecd977 100644 --- a/dlls/comctl32/tab.c +++ b/dlls/comctl32/tab.c @@ -82,7 +82,6 @@ WINE_DEFAULT_DEBUG_CHANNEL(tab); typedef struct { - UINT mask; DWORD dwState; LPWSTR pszText; INT iImage; @@ -217,9 +216,8 @@ TAB_DumpItemInternal(TAB_INFO *infoPtr, TAB_ITEM *ti; ti = TAB_GetItem(infoPtr, iItem); - TRACE("tab %d, mask=0x%08x, dwState=0x%08x, pszText=%s, iImage=%d\n", - iItem, ti->mask, ti->dwState, debugstr_w(ti->pszText), - ti->iImage); + TRACE("tab %d, dwState=0x%08x, pszText=%s, iImage=%d\n", + iItem, ti->dwState, debugstr_w(ti->pszText), ti->iImage); TRACE("tab %d, rect.left=%d, rect.top(row)=%d\n", iItem, ti->rect.left, ti->rect.top); } @@ -1737,7 +1735,7 @@ TAB_DrawItemInterior * * Draw the icon. */ - if (infoPtr->himl && (item->mask & TCIF_IMAGE)) + if (infoPtr->himl && item->iImage != -1) { INT cx; INT cy; @@ -2639,7 +2637,6 @@ TAB_InsertItemT (TAB_INFO *infoPtr, WPAR item = TAB_GetItem(infoPtr, iItem); - item->mask = pti->mask; item->pszText = NULL; if (pti->mask & TCIF_TEXT) @@ -2846,7 +2843,7 @@ static LRESULT TAB_DeleteItem (TAB_INFO TAB_InvalidateTabArea(infoPtr); - if ((item->mask & TCIF_TEXT) && item->pszText) + if (item->pszText) Free(item->pszText); infoPtr->uNumItem--;

1 0

Jacek Caban : urlmon: Fix zone tests.
by Alexandre Julliard 06 Feb '07

06 Feb '07

Module: wine Branch: master Commit: e39a96c5fbebea61f663c7c35715f63523718a86 URL: http://source.winehq.org/git/wine.git/?a=commit;h=e39a96c5fbebea61f663c7c35… Author: Jacek Caban <jacek(a)codeweavers.com> Date: Tue Feb 6 20:48:19 2007 +0100 urlmon: Fix zone tests. --- dlls/urlmon/sec_mgr.c | 2 ++ dlls/urlmon/tests/misc.c | 10 +++++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/dlls/urlmon/sec_mgr.c b/dlls/urlmon/sec_mgr.c index ad423de..609ca4f 100644 --- a/dlls/urlmon/sec_mgr.c +++ b/dlls/urlmon/sec_mgr.c @@ -68,6 +68,8 @@ static HRESULT map_url_to_zone(LPCWSTR u 'P','r','o','t','o','c','o','l','D','e','f','a','u','l','t','s',0}; static const WCHAR wszFile[] = {'f','i','l','e',0}; + *zone = -1; + hres = CoInternetParseUrl(url, PARSE_SCHEMA, 0, schema, sizeof(schema)/sizeof(WCHAR), &size, 0); if(FAILED(hres)) return hres; diff --git a/dlls/urlmon/tests/misc.c b/dlls/urlmon/tests/misc.c index fedd15d..8774410 100644 --- a/dlls/urlmon/tests/misc.c +++ b/dlls/urlmon/tests/misc.c @@ -539,7 +539,7 @@ static void test_FindMimeFromData(void) ok(!lstrcmpW(mime, mime_tests[i].mime), "[%d] wrong mime\n", i); CoTaskMemFree(mime); }else { - ok(hres == E_FAIL, "FindMimeFromData failed: %08x, expected E_FAIL\n", hres); + ok(hres == E_FAIL, "[%d] FindMimeFromData failed: %08x, expected E_FAIL\n", i, hres); ok(mime == (LPWSTR)0xf0f0f0f0, "[%d] mime != 0xf0f0f0f0\n", i); } @@ -664,8 +664,11 @@ static void test_SecurityManager(void) ok(hres == secmgr_tests[i].zone_hres, "[%d] MapUrlToZone failed: %08x, expected %08x\n", i, hres, secmgr_tests[i].zone_hres); - ok(zone == secmgr_tests[i].zone, "[%d] zone=%d, expected %d\n", i, zone, - secmgr_tests[i].zone); + if(SUCCEEDED(hres)) + ok(zone == secmgr_tests[i].zone, "[%d] zone=%d, expected %d\n", i, zone, + secmgr_tests[i].zone); + else + ok(zone == secmgr_tests[i].zone || zone == -1, "[%d] zone=%d\n", i, zone); size = sizeof(buf); memset(buf, 0xf0, sizeof(buf)); @@ -684,6 +687,7 @@ static void test_SecurityManager(void) zone = 100; hres = IInternetSecurityManager_MapUrlToZone(secmgr, NULL, &zone, 0); ok(hres == E_INVALIDARG, "MapUrlToZone failed: %08x, expected E_INVALIDARG\n", hres); + ok(zone == 100, "zone=%d\n", zone); size = sizeof(buf); hres = IInternetSecurityManager_GetSecurityId(secmgr, NULL, buf, &size, 0);

1 0

Jacek Caban : itss: Allow reading from ReportData call.
by Alexandre Julliard 06 Feb '07

06 Feb '07

Module: wine Branch: master Commit: 42dda83b3fd6adb34da9760eac45872adc9e4122 URL: http://source.winehq.org/git/wine.git/?a=commit;h=42dda83b3fd6adb34da9760ea… Author: Jacek Caban <jacek(a)codeweavers.com> Date: Tue Feb 6 20:49:02 2007 +0100 itss: Allow reading from ReportData call. --- dlls/itss/protocol.c | 8 ++++---- dlls/itss/tests/protocol.c | 26 ++++++++++++++++++++++++-- 2 files changed, 28 insertions(+), 6 deletions(-) diff --git a/dlls/itss/protocol.c b/dlls/itss/protocol.c index 51fad3c..2d7cd98 100644 --- a/dlls/itss/protocol.c +++ b/dlls/itss/protocol.c @@ -195,6 +195,10 @@ static HRESULT WINAPI ITSProtocol_Start( CoTaskMemFree(mime); } + release_chm(This); /* Native leaks handle here */ + This->chm_file = chm_file; + memcpy(&This->chm_object, &chm_object, sizeof(chm_object)); + hres = IInternetProtocolSink_ReportData(pOIProtSink, BSCF_FIRSTDATANOTIFICATION|BSCF_DATAFULLYAVAILABLE, chm_object.length, chm_object.length); @@ -206,10 +210,6 @@ static HRESULT WINAPI ITSProtocol_Start( hres = IInternetProtocolSink_ReportProgress(pOIProtSink, BINDSTATUS_BEGINDOWNLOADDATA, NULL); - release_chm(This); /* Native leaks handle here */ - This->chm_file = chm_file; - memcpy(&This->chm_object, &chm_object, sizeof(chm_object)); - return report_result(pOIProtSink, hres); } diff --git a/dlls/itss/tests/protocol.c b/dlls/itss/tests/protocol.c index 4b594b2..70f22b9 100644 --- a/dlls/itss/tests/protocol.c +++ b/dlls/itss/tests/protocol.c @@ -66,6 +66,7 @@ DEFINE_EXPECT(ReportData); DEFINE_EXPECT(ReportResult); static HRESULT expect_hrResult; +static IInternetProtocol *read_protocol = NULL; static enum { ITS_PROTOCOL, @@ -148,11 +149,22 @@ static HRESULT WINAPI ProtocolSink_Repor else ok(grfBSCF == (BSCF_FIRSTDATANOTIFICATION | BSCF_LASTDATANOTIFICATION), "grcf = %08x\n", grfBSCF); + if(read_protocol) { + BYTE buf[100]; + DWORD cb = 0xdeadbeef; + HRESULT hres; + + hres = IInternetProtocol_Read(read_protocol, buf, sizeof(buf), &cb); + ok(hres == S_OK, "Read failed: %08x\n", hres); + ok(cb == 13, "cb=%u expected 13\n", cb); + ok(!memcmp(buf, "<html></html>", 13), "unexpected data\n"); + } + return S_OK; } -static HRESULT WINAPI ProtocolSink_ReportResult(IInternetProtocolSink *iface, HRESULT hrResult, DWORD dwError, - LPCWSTR szResult) +static HRESULT WINAPI ProtocolSink_ReportResult(IInternetProtocolSink *iface, HRESULT hrResult, + DWORD dwError, LPCWSTR szResult) { CHECK_EXPECT(ReportResult); @@ -365,6 +377,16 @@ static void test_protocol_url(IClassFact ok(cb == 2, "cb=%u expected 2\n", cb); ref = IInternetProtocol_Release(protocol); ok(!ref, "protocol ref=%d\n", ref); + + hres = IClassFactory_CreateInstance(factory, NULL, &IID_IInternetProtocol, (void**)&read_protocol); + ok(hres == S_OK, "Could not get IInternetProtocol: %08x\n", hres); + if(FAILED(hres)) + return; + + protocol_start(read_protocol, url); + ref = IInternetProtocol_Release(read_protocol); + ok(!ref, "protocol ref=%d\n", ref); + read_protocol = NULL; } static void test_its_protocol(void)

1 0

Jacek Caban : hhctrl.ocx: Use mk as default protocol and code clean up.
by Alexandre Julliard 06 Feb '07

06 Feb '07

Module: wine Branch: master Commit: 719bfaf4b0dca36cb959189f765d87445d9d14e0 URL: http://source.winehq.org/git/wine.git/?a=commit;h=719bfaf4b0dca36cb959189f7… Author: Jacek Caban <jacek(a)codeweavers.com> Date: Tue Feb 6 20:47:29 2007 +0100 hhctrl.ocx: Use mk as default protocol and code clean up. --- dlls/hhctrl.ocx/chm.c | 10 ------- dlls/hhctrl.ocx/chm.h | 1 - dlls/hhctrl.ocx/help.c | 54 +++++++++++++++++++++++++++++------------ dlls/hhctrl.ocx/webbrowser.c | 17 ------------- dlls/hhctrl.ocx/webbrowser.h | 1 - 5 files changed, 38 insertions(+), 45 deletions(-) diff --git a/dlls/hhctrl.ocx/chm.c b/dlls/hhctrl.ocx/chm.c index 44438d6..2c2f8e7 100644 --- a/dlls/hhctrl.ocx/chm.c +++ b/dlls/hhctrl.ocx/chm.c @@ -174,13 +174,3 @@ void CHM_CloseCHM(CHMInfo *pCHMInfo) IITStorage_Release(pCHMInfo->pITStorage); IStorage_Release(pCHMInfo->pStorage); } - -/* Creates a Url of a CHM file that can be used with WB_Navigate */ -void CHM_CreateITSUrl(CHMInfo *pChmInfo, LPCWSTR szIndex, LPWSTR szUrl) -{ - static const WCHAR formatW[] = { - 'i','t','s',':','%','s',':',':','%','s',0 - }; - - wsprintfW(szUrl, formatW, pChmInfo->szFile, szIndex); -} diff --git a/dlls/hhctrl.ocx/chm.h b/dlls/hhctrl.ocx/chm.h index 4112ba5..72f7e81 100644 --- a/dlls/hhctrl.ocx/chm.h +++ b/dlls/hhctrl.ocx/chm.h @@ -33,6 +33,5 @@ typedef struct CHMInfo BOOL CHM_OpenCHM(CHMInfo *pCHMInfo, LPCWSTR szFile); BOOL CHM_LoadWinTypeFromCHM(CHMInfo *pCHMInfo, HH_WINTYPEW *pHHWinType); void CHM_CloseCHM(CHMInfo *pCHMInfo); -void CHM_CreateITSUrl(CHMInfo *pCHMInfo, LPCWSTR szIndex, LPWSTR szUrl); #endif diff --git a/dlls/hhctrl.ocx/help.c b/dlls/hhctrl.ocx/help.c index 426996d..15b023d 100644 --- a/dlls/hhctrl.ocx/help.c +++ b/dlls/hhctrl.ocx/help.c @@ -20,6 +20,8 @@ #include <stdarg.h> +#define COBJMACROS + #include "windef.h" #include "winbase.h" #include "wingdi.h" @@ -28,12 +30,18 @@ #include "commctrl.h" #include "htmlhelp.h" #include "ole2.h" +#include "exdisp.h" +#include "wininet.h" + #include "wine/unicode.h" +#include "wine/debug.h" #include "resource.h" #include "chm.h" #include "webbrowser.h" +WINE_DEFAULT_DEBUG_CHANNEL(htmlhelp); + static void Help_OnSize(HWND hWnd); /* Window type defaults */ @@ -87,6 +95,34 @@ static LPWSTR HH_LoadString(DWORD dwID) return string; } +static BOOL NavigateToChm(WBInfo *pWBInfo, LPCWSTR file, LPCWSTR index) +{ + WCHAR buf[INTERNET_MAX_URL_LENGTH]; + WCHAR full_path[MAX_PATH]; + VARIANT url; + + static const WCHAR url_format[] = + {'m','k',':','@','M','S','I','T','S','t','o','r','e',':','%','s',':',':','/','%','s',0}; + + if (!pWBInfo->pWebBrowser2) + return FALSE; + + if(!GetFullPathNameW(file, sizeof(full_path), full_path, NULL)) { + WARN("GetFullPathName failed: %u\n", GetLastError()); + return FALSE; + } + + wsprintfW(buf, url_format, full_path, index); + + V_VT(&url) = VT_BSTR; + V_BSTR(&url) = SysAllocString(buf); + + IWebBrowser2_Navigate2(pWBInfo->pWebBrowser2, &url, 0, 0, 0, 0); + VariantClear(&url); + + return TRUE; +} + /* Size Bar */ #define SIZEBAR_WIDTH 4 @@ -321,13 +357,8 @@ static void TB_OnClick(HWND hWnd, DWORD WB_DoPageAction(pHHInfo->pWBInfo, WB_GOBACK); break; case IDTB_HOME: - { - WCHAR szUrl[MAX_PATH]; - - CHM_CreateITSUrl(pHHInfo->pCHMInfo, pHHInfo->pHHWinType->pszHome, szUrl); - WB_Navigate(pHHInfo->pWBInfo, szUrl); + NavigateToChm(pHHInfo->pWBInfo, pHHInfo->pCHMInfo->szFile, pHHInfo->pHHWinType->pszHome); break; - } case IDTB_FORWARD: WB_DoPageAction(pHHInfo->pWBInfo, WB_GOFORWARD); break; @@ -821,15 +852,6 @@ static void HH_Close(HHInfo *pHHInfo) } } -static void HH_OpenDefaultTopic(HHInfo *pHHInfo) -{ - WCHAR url[MAX_PATH]; - LPCWSTR defTopic = pHHInfo->pHHWinType->pszFile; - - CHM_CreateITSUrl(pHHInfo->pCHMInfo, defTopic, url); - WB_Navigate(pHHInfo->pWBInfo, url); -} - static BOOL HH_OpenCHM(HHInfo *pHHInfo) { if (!CHM_OpenCHM(pHHInfo->pCHMInfo, pHHInfo->szCmdLine)) @@ -857,7 +879,7 @@ int WINAPI doWinMain(HINSTANCE hInstance return -1; } - HH_OpenDefaultTopic(pHHInfo); + NavigateToChm(pHHInfo->pWBInfo, pHHInfo->pCHMInfo->szFile, pHHInfo->pHHWinType->pszFile); while (GetMessageW(&msg, 0, 0, 0)) { diff --git a/dlls/hhctrl.ocx/webbrowser.c b/dlls/hhctrl.ocx/webbrowser.c index d7c5d4e..20572de 100644 --- a/dlls/hhctrl.ocx/webbrowser.c +++ b/dlls/hhctrl.ocx/webbrowser.c @@ -668,23 +668,6 @@ void WB_UnEmbedBrowser(WBInfo *pWBInfo) } } -BOOL WB_Navigate(WBInfo *pWBInfo, LPCWSTR szUrl) -{ - IWebBrowser2 *pWebBrowser2 = pWBInfo->pWebBrowser2; - VARIANT myURL; - - if (!pWebBrowser2) - return FALSE; - - V_VT(&myURL) = VT_BSTR; - V_BSTR(&myURL) = SysAllocString(szUrl); - - IWebBrowser2_Navigate2(pWebBrowser2, &myURL, 0, 0, 0, 0); - VariantClear(&myURL); - - return TRUE; -} - void WB_ResizeBrowser(WBInfo *pWBInfo, DWORD dwWidth, DWORD dwHeight) { IWebBrowser2 *pWebBrowser2 = pWBInfo->pWebBrowser2; diff --git a/dlls/hhctrl.ocx/webbrowser.h b/dlls/hhctrl.ocx/webbrowser.h index eaa2218..c17274f 100644 --- a/dlls/hhctrl.ocx/webbrowser.h +++ b/dlls/hhctrl.ocx/webbrowser.h @@ -42,7 +42,6 @@ typedef struct WBInfo BOOL WB_EmbedBrowser(WBInfo *pWBInfo, HWND hwndParent); void WB_UnEmbedBrowser(WBInfo *pWBInfo); -BOOL WB_Navigate(WBInfo *pWBInfo, LPCWSTR szUrl); void WB_ResizeBrowser(WBInfo *pWBInfo, DWORD dwWidth, DWORD dwHeight); void WB_DoPageAction(WBInfo *pWBInfo, DWORD dwAction);

1 0

Jacek Caban : hhctrl.ocx: Remove useless SetHostNames call.
by Alexandre Julliard 06 Feb '07

06 Feb '07

Module: wine Branch: master Commit: 8baee578cc9357a9efdf29e1b309e030a96f3813 URL: http://source.winehq.org/git/wine.git/?a=commit;h=8baee578cc9357a9efdf29e1b… Author: Jacek Caban <jacek(a)codeweavers.com> Date: Tue Feb 6 20:45:26 2007 +0100 hhctrl.ocx: Remove useless SetHostNames call. --- dlls/hhctrl.ocx/webbrowser.c | 3 --- 1 files changed, 0 insertions(+), 3 deletions(-) diff --git a/dlls/hhctrl.ocx/webbrowser.c b/dlls/hhctrl.ocx/webbrowser.c index b1cb1c9..154db88 100644 --- a/dlls/hhctrl.ocx/webbrowser.c +++ b/dlls/hhctrl.ocx/webbrowser.c @@ -585,8 +585,6 @@ BOOL WB_EmbedBrowser(WBInfo *pWBInfo, HW HRESULT hr; RECT rc; - static const WCHAR hostNameW[] = {'H','o','s','t',' ','N','a','m','e',0}; - /* clear out struct to keep from accessing invalid ptrs */ ZeroMemory(pWBInfo, sizeof(WBInfo)); @@ -613,7 +611,6 @@ BOOL WB_EmbedBrowser(WBInfo *pWBInfo, HW /* make the browser object accessible to the IOleClientSite implementation */ iOleClientSiteImpl->pBrowserObject = browserObject; - IOleObject_SetHostNames(browserObject, hostNameW, 0); GetClientRect(hwndParent, &rc);

1 0

Jacek Caban : hhctrl.ocx: Use SetWindowRects to set WebBrowser's size.
by Alexandre Julliard 06 Feb '07

06 Feb '07

Module: wine Branch: master Commit: f9a7886121ca25694294295245fbd76aad2d42e5 URL: http://source.winehq.org/git/wine.git/?a=commit;h=f9a7886121ca2569429429524… Author: Jacek Caban <jacek(a)codeweavers.com> Date: Tue Feb 6 20:46:21 2007 +0100 hhctrl.ocx: Use SetWindowRects to set WebBrowser's size. --- dlls/hhctrl.ocx/webbrowser.c | 11 ++++++----- 1 files changed, 6 insertions(+), 5 deletions(-) diff --git a/dlls/hhctrl.ocx/webbrowser.c b/dlls/hhctrl.ocx/webbrowser.c index 154db88..d7c5d4e 100644 --- a/dlls/hhctrl.ocx/webbrowser.c +++ b/dlls/hhctrl.ocx/webbrowser.c @@ -580,6 +580,7 @@ static IStorage MyIStorage = { &MyIStora BOOL WB_EmbedBrowser(WBInfo *pWBInfo, HWND hwndParent) { IOleClientSiteImpl *iOleClientSiteImpl; + IOleInPlaceObject *inplace; IOleObject *browserObject; IWebBrowser2 *webBrowser2; HRESULT hr; @@ -622,16 +623,16 @@ BOOL WB_EmbedBrowser(WBInfo *pWBInfo, HW -1, hwndParent, &rc); if (FAILED(hr)) goto error; + hr = IOleObject_QueryInterface(browserObject, &IID_IOleInPlaceObject, (void**)&inplace); + if (FAILED(hr)) goto error; + + IOleInPlaceObject_SetObjectRects(inplace, &rc, &rc); + IOleInPlaceObject_Release(inplace); hr = IOleObject_QueryInterface(browserObject, &IID_IWebBrowser2, (void **)&webBrowser2); if (SUCCEEDED(hr)) { - IWebBrowser2_put_Left(webBrowser2, 0); - IWebBrowser2_put_Top(webBrowser2, 0); - IWebBrowser2_put_Width(webBrowser2, rc.right); - IWebBrowser2_put_Height(webBrowser2, rc.bottom); - pWBInfo->pWebBrowser2 = webBrowser2; pWBInfo->hwndParent = hwndParent;

1 0

Rob Shearman : oleaut32: Fix the missing argument handling for non-byref variant arguments.
by Alexandre Julliard 06 Feb '07

06 Feb '07

Module: wine Branch: master Commit: 8f38cd8c8c2c5a7e0a6eb7cac0c0952dabf8ba4f URL: http://source.winehq.org/git/wine.git/?a=commit;h=8f38cd8c8c2c5a7e0a6eb7cac… Author: Rob Shearman <rob(a)codeweavers.com> Date: Tue Feb 6 19:24:12 2007 +0000 oleaut32: Fix the missing argument handling for non-byref variant arguments. --- dlls/oleaut32/typelib.c | 19 ++++++++++++++----- 1 files changed, 14 insertions(+), 5 deletions(-) diff --git a/dlls/oleaut32/typelib.c b/dlls/oleaut32/typelib.c index 47f721b..8cd4a79 100644 --- a/dlls/oleaut32/typelib.c +++ b/dlls/oleaut32/typelib.c @@ -5569,11 +5569,20 @@ static HRESULT WINAPI ITypeInfo_fnInvoke } else { - VARIANTARG *missing_arg = INVBUF_GET_MISSING_ARG_ARRAY(buffer, func_desc->cParams); - V_VT(arg) = VT_VARIANT | VT_BYREF; - V_VARIANTREF(arg) = &missing_arg[i]; - V_VT(V_VARIANTREF(arg)) = VT_ERROR; - V_ERROR(V_VARIANTREF(arg)) = DISP_E_PARAMNOTFOUND; + VARIANTARG *missing_arg; + /* if the function wants a pointer to a variant then + * set that up, otherwise just pass the VT_ERROR in + * the argument by value */ + if (rgvt[i] & VT_BYREF) + { + missing_arg = INVBUF_GET_MISSING_ARG_ARRAY(buffer, func_desc->cParams) + i; + V_VT(arg) = VT_VARIANT | VT_BYREF; + V_VARIANTREF(arg) = missing_arg; + } + else + missing_arg = arg; + V_VT(missing_arg) = VT_ERROR; + V_ERROR(missing_arg) = DISP_E_PARAMNOTFOUND; } } else

1 0

Rob Shearman : oleaut32: Copy the value directly returned from the called function
by Alexandre Julliard 06 Feb '07

06 Feb '07

Module: wine Branch: master Commit: 702e2c6dc2cb597c2d5263eec3ac021029d27074 URL: http://source.winehq.org/git/wine.git/?a=commit;h=702e2c6dc2cb597c2d5263eec… Author: Rob Shearman <rob(a)codeweavers.com> Date: Tue Feb 6 19:24:51 2007 +0000 oleaut32: Copy the value directly returned from the called function if it is not an HRESULT value, instead of getting it from a [retval] attribute. --- dlls/oleaut32/tests/tmarshal.c | 5 +---- dlls/oleaut32/typelib.c | 13 +++++++++++++ 2 files changed, 14 insertions(+), 4 deletions(-) diff --git a/dlls/oleaut32/tests/tmarshal.c b/dlls/oleaut32/tests/tmarshal.c index 933dd6b..833c9dd 100644 --- a/dlls/oleaut32/tests/tmarshal.c +++ b/dlls/oleaut32/tests/tmarshal.c @@ -998,10 +998,7 @@ static void test_typelibmarshal(void) VariantInit(&varresult); hr = ITypeInfo_Invoke(pTypeInfo, &NonOleAutomation, DISPID_NOA_BSTRRET, DISPATCH_METHOD, &dispparams, &varresult, &excepinfo, NULL); ok_ole_success(hr, ITypeInfo_Invoke); - todo_wine - { - ok(V_VT(&varresult) == VT_BSTR, "V_VT(&varresult) should be VT_BSTR instead of %d\n", V_VT(&varresult)); - } + ok(V_VT(&varresult) == VT_BSTR, "V_VT(&varresult) should be VT_BSTR instead of %d\n", V_VT(&varresult)); ok(V_BSTR(&varresult) != NULL, "V_BSTR(&varresult) should not be NULL\n"); VariantClear(&varresult); diff --git a/dlls/oleaut32/typelib.c b/dlls/oleaut32/typelib.c index 8cd4a79..f61f460 100644 --- a/dlls/oleaut32/typelib.c +++ b/dlls/oleaut32/typelib.c @@ -5689,6 +5689,19 @@ static HRESULT WINAPI ITypeInfo_fnInvoke } } } + if (V_VT(&varresult) != VT_ERROR) + { + TRACE("varresult value: "); + dump_Variant(&varresult); + + if (pVarResult) + { + VariantClear(pVarResult); + *pVarResult = varresult; + } + else + VariantClear(&varresult); + } func_fail: HeapFree(GetProcessHeap(), 0, buffer);

1 0

Rob Shearman : oleaut32: Add support for named arguments in ITypeInfo:: Invoke.
by Alexandre Julliard 06 Feb '07

06 Feb '07

Module: wine Branch: master Commit: 21140a9a53a6cd025f1c83bbfd388a4632a28de6 URL: http://source.winehq.org/git/wine.git/?a=commit;h=21140a9a53a6cd025f1c83bbf… Author: Rob Shearman <rob(a)codeweavers.com> Date: Tue Feb 6 19:25:27 2007 +0000 oleaut32: Add support for named arguments in ITypeInfo::Invoke. --- dlls/oleaut32/typelib.c | 26 ++++++++++++++++++++++++-- 1 files changed, 24 insertions(+), 2 deletions(-) diff --git a/dlls/oleaut32/typelib.c b/dlls/oleaut32/typelib.c index f61f460..508bb89 100644 --- a/dlls/oleaut32/typelib.c +++ b/dlls/oleaut32/typelib.c @@ -5485,6 +5485,29 @@ static HRESULT WINAPI ITypeInfo_fnInvoke for (i = 0; i < func_desc->cParams; i++) { USHORT wParamFlags = func_desc->lprgelemdescParam[i].u.paramdesc.wParamFlags; + VARIANTARG *src_arg; + + if (pDispParams->cNamedArgs) + { + USHORT j; + src_arg = NULL; + for (j = 0; j < pDispParams->cNamedArgs; j++) + { + if ((func_desc->invkind & INVOKE_PROPERTYPUT) && + (pDispParams->rgdispidNamedArgs[j] == DISPID_PROPERTYPUT)) + { + src_arg = &pDispParams->rgvarg[0]; + break; + } + if (pDispParams->rgdispidNamedArgs[j] == i) + { + src_arg = &pDispParams->rgvarg[j]; + break; + } + } + } + else + src_arg = i < pDispParams->cArgs ? &pDispParams->rgvarg[pDispParams->cArgs - 1 - i] : NULL; if (wParamFlags & PARAMFLAG_FRETVAL) { @@ -5507,9 +5530,8 @@ static HRESULT WINAPI ITypeInfo_fnInvoke break; } } - else if (i < pDispParams->cArgs) + else if (src_arg) { - VARIANTARG *src_arg = &pDispParams->rgvarg[pDispParams->cArgs - 1 - i]; dump_Variant(src_arg); if (rgvt[i] == VT_VARIANT)

1 0