FiveTech Software tech support forums

... void Invoke( [in] int, [in] PTR, [in] unsigned long, [in] unsigned short, [in] PTR, [out] PTR, [out] PTR, [out] PTR ) STDCALL dispatch PROPERTYGET BSTR src() STDCALL dispatch PROPERTYPUT void src( [in] BSTR ) STDCALL dispatch FUNC VARIANT_BOOL LoadFile( [in] BSTR ) STDCALL dispatch FUNC void setShowToolbar( ...

Antonio, he conseguido que funcionen las funcionres SetCommPassword( [in] int ) Connect_Net( [in] BSTR, [in] int ) que es el proceso de conexión Luego para conseguir la información se utiliza esta función GetAllUserInfo( [in] int, [out] PTR, [out] PTR, [out] PTR, [out] PTR, ...

... [in] PTR ) STDCALL dispatch FUNC VARIANT_BOOL Connect_Com( [in] int, [in] int, [in] int ) STDCALL dispatch FUNC VARIANT_BOOL Connect_Net( [in] BSTR, [in] int ) STDCALL dispatch FUNC void Disconnect() STDCALL dispatch FUNC VARIANT_BOOL SetUserInfo( [in] int, [in] int, [in] BSTR, [in] BSTR, [in] ...

... ultima consulta, como puedo recuperar los datos de una función como esta: VARIANT_BOOL GetAllUserInfo(LONG dwMachineNumber, LONG* dwEnrollNumber, BSTR* Name, BSTR* Password, LONG* Privilege, VARIANT_BOOL* Enabled) supongo que los parametros con "*" son por referencia, pero no logro recuperar ...

... PROPERTYGET PTR GetPDFCreatorPrinters() STDCALL dispatch PROPERTYGET VARIANT_BOOL IsInstanceRunning() STDCALL dispatch FUNC void PrintFile( [in] BSTR ) STDCALL dispatch FUNC void AddFileToQueue( [in] BSTR ) STDCALL dispatch FUNC void PrintFileSwitchingPrinters( [in] BSTR, [in] VARIANT_BOOL ) ...

... ) ----> Argument error RETU .T. Descripcion de la funcion en el OCX void ImprimirTextoFiscal( [in, out] AtributosDeTexto* Atributos, [in] BSTR Texto, [in, optional, defaultvalue(48)] ModosDeDisplay ModoDisplay); ************************************************************************************************************************************************************ ...

... Param 3: N 48 Local 1: U Local 2: U La definicion del metodo es: void ImprimirTextoFiscal( [in, out] AtributosDeTexto* Atributos, [in] BSTR Texto, [in, optional, defaultvalue(48)] ModosDeDisplay ModoDisplay); Desde ya muchas gracias, Atte. Mariano

Mira lo que comenta aqui:

If you pass a simple Unicode string as an argument to a COM function that is expecting a BSTR, the COM function will fail.

Si se usa una simple cadena unicode (como hemos hecho con AnsiToWide()) la función fallará

... characters. May contain multiple embedded null characters. Terminator Two null characters. La forma recomendada de construir esas cadenas es: BSTR MyBstr = SysAllocString(L"I am a happy BSTR"); En nuestro caso sería, SysAllocString( AnsiToWide( "I am a happy BSTR" ) ) Buscando ...

José Vicente,

BSTR es una cadena unicode, y los parámetros que espera son de tipo BSTR:

https://msdn.microsoft.com/es-es/library/windows/desktop/ms221069(v=vs.85).aspx

Por eso te sugerí que probases con AnsiToWide()

... no flags */, pstr, wslen /* not necessary NULL-terminated */, &dblstr[0], len, NULL, NULL /* no default char */); return dblstr; } Y aqui de BSTR a STR, posibles 3 //---------------------- #include <comdef.h> std::string myString = _bstr_t (myBSTR); //---------------- void f(BSTR ms_str) ...

... esa función convierte de un item de OLE a cadena y no de un item de Harbour. Aqui esta todo el código de olecore.c para revisarlo pues se usan BSTR en otras partes más y asi ver cual es la forma correcta de hacer la conversión: https://github.com/harbour/core/blob/master/contrib/hbwin/olecore.c

Adolfo, Te hablo en español y abreviamos :-) Estoy revisando tu código y veo que se usa BSTR y eso no es un LPSTR. He buscado en el código de Harbour y efectivamente es una cadena "wide". En Harbour\contrib\hbwin\olecore.c encuentras este código: static BSTR ...

... of them with the same result NIL, no .T. or .F. as supposed DLL manual says the function name and paramteres are: VARIANT_BOOL Connect_NET( [in] BSTR IPAdd, [in] long Portl) Return True if connected, otherwise False.... but I get a NIL I'm out of ideas.

Taken from the dll manual. VARIANT_BOOL Conectar( [in] BSTR IPAdd, [in] long Portl) Should I DO it like this ? DLL FUNCTION Conectar( IPAdd AS LPSTR, Portl AS LONG ) AS BOOL PASCAL LIB "xxxxxx.dll" Thisis my code... PUBLIC hDLL := LoadLibrary("xxxxxx.dll") ...