FiveTech Software tech support forums

Hi Rossine,

IMHO the best is translate FWH TActiveX to support new Harbour functions. After this we can go ahead and test real apps.

Lets wait Antonio input about this.

Regards,

Toninho.

Are ActiveX events working on the Harbour new build ? Hi Antonio. Yes it have, and I confirm it with Mindaugas, pleaser look:   #include "winapi.ch"    local oWindow, oActiveX    DEFINE WINDOW oWindow FROM 0,0 to 400,300 TITLE "Google"    WIN_AxInit()    oActiveX = WIN_AxGetCont...

Hi Rossine.

Now that all is working, Antonio need to change FWH TActiveX class to support new Harbour ActiveX/Ole functions, to provide backward compatibility.

Regards,

Toninho.

This works:                _hInstance, Toninho. You are lost "_hInstance" same as Harbour-mail-list. :?: No, it is a "working in progress", now Harbour have fully support for it and the GPF was fixed. This is a working sample:   #include "winapi.ch"    local oWindow, o...

Hi Rossine,

I´m discussing the GPF problem in Habrour dev list now.

I don´t know why it gpf...


Regards,

Toninho.

Hi friends, This works:   #include "winapi.ch"    local oWindow, oActiveX    DEFINE WINDOW oWindow FROM 0,0 to 400,300 TITLE "Flash Player"    WIN_AxInit()    oActiveX = WIN_AxGetControl( CreatePtrActiveX( 0, "AtlAxWin", "ShockwaveFlash.ShockwaveFlash.1", nOR(...

Hi Uwe,

Very nice job,

Thanks !

Hi Stefan,

Thanks, the second link is great.

Toninho.

Hi friends,

I'm trying to draw a PNG file in this same way. Anybody knows where I can find information about PNG file format please ?

Regards,

Toninho.

Hi,

Yes, in Harbour, please see \harbour\contrib\hbcrypt\sha1.c

Regards,

Toninho.

This code can be useful to draw a bitmap with alphablend directly from a stream. Sample code, 7777 is my alphabitmap resource. This code can be optimized by calling cResToStr() directly from StreamAlphaBlend():   local hDC := oDlg:GetDC()    StreamAlphaBlend( hDC, 7777, 0, 0, 255, cResToStr( 7777, 2...

Hi ppl, Now we can load PNG files from resource and display it using freeimg: in your rc file, do this to load a png: #define RT_RCDATA 10 7778 RT_RCDATA NONDISCARDABLE "trash.png" Test: local cLoad := cResToStr( 7778 ) local hDC := oDlg:GetDC() local hBmp := MemoryPngToBitmap( hDC, cLoad ...

Hi Antonio, This is the right code: HB_FUNC( CRESTOSTR ) {    HMODULE hMod = GetResources();    HRSRC hRes = FindResource( hMod, MAKEINTRESOURCE( hb_parni( 1 ) ), "PNG" );  // need change to get param 2    LONG size = SizeofResource( hMod, hRes );    HANDLE pt = LoadResource( hMod, hRes );...

Toninho, Have you tried SizeofResource() instead of GlobalSize() ? Yes, and no works... :? My intention in load a png file from resource. Now, I´m trying with BITMAP because is easy, if works with bitmap, I´ll load png. I´d tried native FWH crestostr() and no works too. TIA and best regards, Toninho.

Toninho, You are not using SizeofResource() which it is needed. Also you are not checking for wrong returned values! You are assuming that everything will be found, which can not be the case. Hi Antonio and Vailton, It is intentional, only to simplify my code, but lets go, here is the full code, th...