Implemented oleaut32.VarBstrCat.

This commit is contained in:
Mike McCormack 2001-08-18 16:06:30 +00:00 committed by Alexandre Julliard
parent e08a1b5396
commit 8fef006fd2
2 changed files with 21 additions and 1 deletions

View File

@ -317,7 +317,7 @@ debug_channels (ole typelib)
436 stub VarAbs # stdcall (ptr ptr)
437 stub VarAdd # stdcall (ptr ptr ptr)
438 stub VarAnd # stdcall (ptr ptr ptr)
439 stub VarBstrCat # stdcall (ptr ptr ptr)
439 stdcall VarBstrCat(ptr ptr ptr) VarBstrCat
440 stdcall VarBstrCmp(ptr ptr long long) VarBstrCmp
441 stub VarCat # stdcall (ptr ptr ptr)
442 stub VarCmp # stdcall (ptr ptr long long)

View File

@ -4672,3 +4672,23 @@ HRESULT WINAPI VarBstrCmp(BSTR left, BSTR right, LCID lcid, DWORD flags)
return VARCMP_EQ;
}
/**********************************************************************
* VarBstrCat [OLEAUT32.439]
*/
HRESULT WINAPI VarBstrCat(BSTR left, BSTR right, BSTR *out)
{
BSTR result;
TRACE("( %s %s %p )\n", debugstr_w(left), debugstr_w(right), out);
if( (!left) || (!right) || (!out) )
return 0;
result = SysAllocStringLen(left, lstrlenW(left)+lstrlenW(right));
lstrcatW(result,right);
*out = result;
return 1;
}