Latest HMG in 64 Bits

[Red2]

I really hope that this initiative comes to fruition!

[franco]

Sound good !

[jorge.posadas]

Estoy de acuerdo y ansioso de esa liberacion de 64b

[huiyi_ch]

I really hope that this initiative comes to fruition!

希望尽快实现！

[miszler.zoltan]

Hello Gentlemen!
Does anyone have a 64 bit solution for handling mysql with libmysql.dll. The translation has the following error message:
Harbor 3.2.0dev (r2304211101)
Copyright (c) 1999-2023, https://harbour.github.io/
C:/hmg.3.6/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/13.1.0/../../../../x86_64-w64-mingw32/bin/ld. exe: C:/Users/Zoli/AppData/Local/Temp/hbmk_x828sy.dir/sqlfunc.o:sqlfunc.c:(.data+0x90): undefined reference to `HB_FUN_TMYSQLSERVER'
collect2.exe: error: ld returned 1 exit status

hbmk2: Error: Referenced, missing, but unknown function(s): TMYSQLSERVER()

Thanks: Zoltán

[gisjr134]

Hello EveryOne ,

You Will have to link HbMysql.Hbc into Your Project.
Build64 /n YourProject.Hbp YourProject.Hbc hbmySql.Hbc
hbmySql.Hbc l is located at the Folder \Harbour64\contrib\hbmysql.

[gisjr134]

Does Anyone know how To read or Get Resoources from a Dll File in Hmg ? Until now i only got the resource embebed in the Exe File.

[gfilatov]

Does Anyone know how To read or Get Resoources from a Dll File in Hmg ? Until now i only got the resource embebed in the Exe File.

Hello,

You cannot do it in HMG because there isn't the appropriate command SET RESOURCE TO <DLLname>.

Please try the attached demo app with use external resource DLL in your environment.

The full source code of this example is below:

Code: Select all

/*
 * MINIGUI - Harbour Win32 GUI library Demo
 *
 * Copyright 2017 Grigory Filatov <gfilatov@inbox.ru>
 * Copyright 2017 Verchenko Andrey <verchenkoag@gmail.com> Dmitrov, Moscow region
 *
 * Loading resources from mydemo.dll
*/

ANNOUNCE RDDSYS

#include "minigui.ch"

Static nStaticNum := 0

////////////////////////////////////////////////////////////////////////////
Function MAIN
   Local nI, nRow, nWidth, aIcoExit, aPrgBar, aRes, aBackColorAvi, aSWH
   Local cPathMyDll := GetStartUpFolder() + "\mydemo.dll"

   If !File( cPathMyDll )  
      MsgStop("There is no resource file for the program!" + CRLF + cPathMyDll )
      Quit
   Endif

   aIcoExit := { "Exit48x1" , "Exit48x2" }  // two icons for exit
   // list of icons for snake 
   aPrgBar  := {}
   For nI := 1 TO 8
      Aadd( aPrgBar, "ZMK" + strzero(nI,2) )
   Next

   SET RESOURCES TO ( cPathMyDll )

   DEFINE WINDOW Form_1               ;
   	AT 0,0 WIDTH 700 HEIGHT 550   ;
   	TITLE "Displaying resources from the MyDemo.Dll" ;
        ICON "1MAIN_ICO"              ;
        MAIN                          ;
        FONT 'Tahoma' SIZE 14         ;
        BACKCOLOR WHITE        

        nWidth  := This.ClientWidth

         @ 20, 0 LABEL Label_Vers VALUE MiniGUIVersion() WIDTH nWidth HEIGHT 42 ;
            TRANSPARENT FONTCOLOR BLACK SIZE 12 BOLD CENTERALIGN
         @ 45, 0 LABEL Label_Compil VALUE hb_compiler() WIDTH nWidth HEIGHT 42 ;
            TRANSPARENT FONTCOLOR BLACK SIZE 12 BOLD CENTERALIGN
         @ 70, 0 LABEL Label_Info VALUE Version() WIDTH nWidth HEIGHT 42 ;
            TRANSPARENT FONTCOLOR BLACK SIZE 12 BOLD CENTERALIGN

         DRAW ICON IN WINDOW Form_1 AT 5, 5 PICTURE "1MAIN_ICO" WIDTH 128 HEIGHT 128 TRANSPARENT

         @ 12,Form_1.Width-122 IMAGE Image_1 PICTURE "LOGO128" WIDTH 96 HEIGHT 96 STRETCH 

         @ 128+5*2, 0 IMAGE Image_2 PICTURE "Harbour" WIDTH Form_1.Width HEIGHT 156 STRETCH 

         nRow := 128+5*2 + 156
         @ nRow, 0 LABEL Label_Full VALUE '' WIDTH nWidth+10 HEIGHT 50 

         aSWH := GetAviResSize("ZIPAVI")
         nCol := (nWidth-aSWH[1])/2
         @ nRow,nCol ANIMATEBOX Avi_1 WIDTH aSWH[1] HEIGHT aSWH[2] File "ZIPAVI" AUTOPLAY TRANSPARENT NOBORDER

         aBackColorAvi := nRGB2Arr( GetSysColor( 4 ) )  // 4-COLOR_MENU из i_winuser.ch
         Form_1.Label_Full.BackColor := aBackColorAvi   // fix the background like the system color

         @ 390, 50 LABEL Label_AniIco VALUE 'Animation from Icons' Autosize FONTCOLOR MAROON TRANSPARENT
         DRAW ICON IN WINDOW Form_1 AT 420, 100 PICTURE aPrgBar[1] WIDTH 64 HEIGHT 64 TRANSPARENT

         @ 380, 270 BUTTONEX Button_Dbf CAPTION "Run DBF" + CRLF + "from Resource" ;
           ICON "DBase48" WIDTH 120 HEIGHT 124            ;
           NOXPSTYLE HANDCURSOR NOTABSTOP VERTICAL        ;
           FONTCOLOR WHITE BACKCOLOR SILVER SIZE 10 BOLD  ;
           ACTION {|| RunDBF() }

         @ 380, 410 BUTTONEX Button_Play CAPTION "Play Wave" + CRLF + "from Resource" ;
           PICTURE "Sound48" WIDTH 120 HEIGHT 124         ;
           NOXPSTYLE HANDCURSOR NOTABSTOP VERTICAL        ;
           FONTCOLOR WHITE BACKCOLOR SILVER SIZE 10 BOLD  ;
           ACTION {|| PlayWave("QUARTER",.T.,.F.,.F.,.F.,.F.) }

         @ 380 , 550  BUTTONEX Button_Exit WIDTH 120 HEIGHT 124   ;
           CAPTION "Exiting" + CRLF + "the program" ICON aIcoExit[1] ; 
           FONTCOLOR WHITE BACKCOLOR MAROON SIZE 10 BOLD       ;
           NOXPSTYLE HANDCURSOR NOTABSTOP VERTICAL             ;
           ON MOUSEHOVER ( SetProperty(ThisWindow.Name, This.Name, "ICON", aIcoExit[2] ) ,;
                             SetProperty(ThisWindow.Name, This.Name, "fontcolor", BLACK  ) ) ;
           ON MOUSELEAVE ( SetProperty(ThisWindow.Name, This.Name, "ICON", aIcoExit[1] ) ,;
                                 SetProperty(ThisWindow.Name, This.Name, "fontcolor", WHITE ) ) ;
           ACTION {|| ThisWindow.Release }

         DEFINE TIMER Timer_1 INTERVAL 100 ACTION MyAnimationIcons(420, 100, aPrgBar,64)

   END WINDOW
   Form_1.Sizable   := .F.  // NOSIZE
   Form_1.MaxButton := .F.  // NOMAXIMIZE
   Form_1.Center
   Form_1.Activate

Return Nil

/////////////////////////////////////////////////////////////////////////////////
Static Function MyAnimationIcons(nRow, nCol, aPrgBar, nWH)

   nStaticNum++

   nStaticNum := IIF( nStaticNum > LEN(aPrgBar), 1, nStaticNum )
   DRAW ICON IN WINDOW Form_1 AT nRow, nCol PICTURE aPrgBar[nStaticNum] WIDTH nWH HEIGHT nWH TRANSPARENT

Return Nil

////////////////////////////////////////////////////////////////////////////
Function RunDBF() 
   Local cPath := GetStartupFolder() + "\"
   Local cFile := "test.dbf"

   IF RCDataToFile( "test_dbf", cPath + cFile, "CUSTOM" ) > 0
      // run the file from the disk 
      ShellExecute( 0, "open", "test.dbf", cPath, , 1 )
   ENDIF

Return Nil

This is the power of MiniguiEx.