Latest HMG in 64 Bits
Moderator: Rathinagiri
-
- Posts: 273
- Joined: Sat May 18, 2019 2:11 pm
- DBs Used: Visual FoxPro, FoxPro
- Location: United States of America
Re: Latest HMG in 64 Bits
I really hope that this initiative comes to fruition!
-
- Posts: 174
- Joined: Mon May 19, 2014 7:43 pm
- DBs Used: DBF, SQLite, MS-SQL, ACCESS, MariaDB (en proceso)
- Location: Morelia, Mich. México
- Contact:
Re: Latest HMG in 64 Bits
Estoy de acuerdo y ansioso de esa liberacion de 64b
Cordialmente
POSADAS SOFTWARE
Jorge Posadas Ch.
Programador independiente
Morelia, Mich.
M é x i c o .
Movil +52 44 3734 1858
SKYPE: jorge.posadasch
Email: posoft@gmx.com
POSADAS SOFTWARE
Jorge Posadas Ch.
Programador independiente
Morelia, Mich.
M é x i c o .
Movil +52 44 3734 1858
SKYPE: jorge.posadasch
Email: posoft@gmx.com
- miszler.zoltan
- Posts: 22
- Joined: Sun May 26, 2013 12:37 pm
- Location: Hungary
- Contact:
Re: Latest HMG in 64 Bits
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
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
-
- Posts: 45
- Joined: Tue Dec 08, 2020 11:37 am
- DBs Used: DBF,MySQL,PostgreSQL
- Location: Brasil
- Contact:
Re: Latest HMG in 64 Bits
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.
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.
-
- Posts: 45
- Joined: Tue Dec 08, 2020 11:37 am
- DBs Used: DBF,MySQL,PostgreSQL
- Location: Brasil
- Contact:
Re: Latest HMG in 64 Bits
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.
Re: Latest HMG in 64 Bits
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
- Attachments
-
- MyDemo.zip
- Demo application
- (991.58 KiB) Downloaded 124 times
Kind Regards,
Grigory Filatov
"Everything should be made as simple as possible, but no simpler." Albert Einstein
Grigory Filatov
"Everything should be made as simple as possible, but no simpler." Albert Einstein