Em 19/05/2010 18:02, Petr Chornyj escreveu:
Itamar Lins-2 wrote:
Hi!
Function TestLoadLib
Local hDll := hb_LibLoad("rmchart.dll")
MsgInfo(ValType(hDll))
/*
The return is 0 if run ok file "rmchart.dll" exist and 'U' if file does
not exist.
Is this correct?
*/
Best regards,
Itamar M. Lins Jr.
Yes, because rmchart.dll no p-code dll. You can use the function hb_libLoad
and Co only with p-code dll.
Regards,
Petr
Thanks for response, but this is function "hb_LibLoad" works fine with
my programs. Only its return is strange for me.
See, hb_LibLoad works fine with MingW, and function DllCall() not work
more, I change and now use hb_LibLoad() function.
Function Chart(hDll,oMainWindow,sTemp)
Local nRetVal:=0
nRetVal := HB_DYNCALL( {"RMC_CREATECHARTFROMFILE", hDll,
HB_DYN_CALLCONV_STDCALL },oMainWindow:handle,ID_JANELA,10,10,0,sTemp)
nRetVal := HB_DYNCALL( {"RMC_DRAW", hDll, HB_DYN_CALLCONV_STDCALL
},ID_JANELA)
//nRetVal :=
DllCall(hDll,DLL_OSAPI,"RMC_CREATECHARTFROMFILE",oMainWindow:Handle,1001,10,10,0,sTemp)
//nRetVal := DllCall(hDll,DLL_OSAPI,"RMC_DRAW",1001)
return nil
Best regards,
Itamar M. Lins Hr.
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
