Xbase++ to harbour / HMG Question
Moderator: Rathinagiri
Re: Xbase++ to harbour / HMG Question
You a wrongly asuming Harbour uses only 1 core on Mt.
Angel Pais
Web Apps consultant/architect/developer.
Web Apps consultant/architect/developer.
- AUGE_OHR
- Posts: 2061
- Joined: Sun Aug 25, 2019 3:12 pm
- DBs Used: DBF, PostgreSQL, MySQL, SQLite
- Location: Hamburg, Germany
Re: Xbase++ to harbour / HMG Question
i recognize it when work with harbour / HMG and mt=yes that not only 1 Core is work like in Xbase++
is mt=yes "safe" ?
---
under Xbase++ every Thread use same CPU Core and have a own Workspace. how about harbour / HMG
have fun
Jimmy
Jimmy
Re: Xbase++ to harbour / HMG Question
Harbour manages it by iself. It also has it's own workspace.
I myself helped Przemek ( harbour core developper ) to do cross tests against xbase++ and it also went fine.
I myself helped Przemek ( harbour core developper ) to do cross tests against xbase++ and it also went fine.
Angel Pais
Web Apps consultant/architect/developer.
Web Apps consultant/architect/developer.
Re: Xbase++ to harbour / HMG Question
The only thing harbour doesn't have are sync methods (mutually exclusive among instances).
Angel Pais
Web Apps consultant/architect/developer.
Web Apps consultant/architect/developer.
- AUGE_OHR
- Posts: 2061
- Joined: Sun Aug 25, 2019 3:12 pm
- DBs Used: DBF, PostgreSQL, MySQL, SQLite
- Location: Hamburg, Germany
Re: Xbase++ to harbour / HMG Question
Ah ... thx for Information
so you are Xbase++ User ?apais wrote:I myself helped Przemek ( harbour core developper ) to do cross tests against xbase++ and it also went fine.
have fun
Jimmy
Jimmy
Re: Xbase++ to harbour / HMG Question
Yes I was.
Angel Pais
Web Apps consultant/architect/developer.
Web Apps consultant/architect/developer.
- AUGE_OHR
- Posts: 2061
- Joined: Sun Aug 25, 2019 3:12 pm
- DBs Used: DBF, PostgreSQL, MySQL, SQLite
- Location: Hamburg, Germany
Re: Xbase++ to harbour / HMG Question
CLASS Object as Parameter
hi,
i use own CLASS Object as Parameter but under harbour in Function CreatePGTable( oServer, ... ) VALTYPE() is NIL
Result Output
now have use PRIVATE and not as Parameter and it work
is this "by harbour Design" with CLASS Object ... or is it my Xbase++ CLASS Style ...
hi,
i use own CLASS Object as Parameter but under harbour in Function CreatePGTable( oServer, ... ) VALTYPE() is NIL
Code: Select all
Function Main(...)
Local oServer
oServer := PGSql():new()
IF oServer:connect( cConnect )
? "Main ", VALTYPE(oServer)
? "connect to "+cServer+" Port: "+cPort+" DB: "+cDataBase+" User "+cUser
CreatePGTable( oServer, ... )
FUNCTION CreatePGTable( oServer, ... )
? "CreatePGTable ", VALTYPE(oServer) // -> NIL ?
---Main O
connect to 'localhost' Port: 5432 DB: mdidemo User postgres
CreatePGTable U
now have use PRIVATE and not as Parameter and it work
is this "by harbour Design" with CLASS Object ... or is it my Xbase++ CLASS Style ...
Code: Select all
#include "hbclass.ch"
oServer := PGSql():new()
IF oServer:connect( cConnect )
...
CLASS PGSql
EXPORTED:
VAR connID READONLY
...
METHOD init
METHOD connect
...
ENDCLASS
METHOD PGSql:init()
::connID := 0
::lError := .F.
::cError := ""
::Schema := "public"
return self
METHOD PGSql:connect( cConnString )
local lOk
::connID := PQconnectdb(cConnString)
if !( lOk := (PQstatus(::connID) == 0) )
::connID := 0
endif
return lOk
...
have fun
Jimmy
Jimmy
- AUGE_OHR
- Posts: 2061
- Joined: Sun Aug 25, 2019 3:12 pm
- DBs Used: DBF, PostgreSQL, MySQL, SQLite
- Location: Hamburg, Germany
Re: Xbase++ to harbour / HMG Question
hi,
i'm search for a Function like PeekStr() by ot4xb***
***LIB for Xbase++ by Pablo Botella Navarro https://www.xbwin.com/
i'm search for a Function like PeekStr() by ot4xb***
***LIB for Xbase++ by Pablo Botella Navarro https://www.xbwin.com/
Retrieve one or more substrings from the memory buffer pointed by <pMem> starting at position <nShift>.
Syntax:
Parameters:Code: Select all
PeekStr(<pMem>,[[@]<nShift>],<nSize>) -> <cStr> PeekStr(<pMem>,[[@]<nShift>],-1) -> <cStr> PeekStr(<pMem>,[[@]<nShift>],@<cStr>) -> <nSize> PeekStr(<pMem>,[[@]<nShift>],[@]<aSizes>) -> <aStr>
<pMem>
Base pointer to the memory buffer.
<nShift>
Zero based starting position within <pMem>. If this parameter is passed by reference will be increased with the number of bytes retrieved, to reuse it in subsequent calls of Peek...() functions.
<nSize>
Number of bytes to retrieve. If <nSize> == -1 a NULL terminated string is assumed and PeekStr() will retrieve the bytes up to the first NULL character.
Note: Using the -1 param with non NULL terminated string can result in a internal exception.
<cStr>
Character variable to fill with Len(<cStr>) bytes if provided by reference.
<aSizes>
Array with the number of bytes to retrieve per element. If an element of <aSizes> contains a character value will be take the size of the provided string element.
have fun
Jimmy
Jimmy
- AUGE_OHR
- Posts: 2061
- Joined: Sun Aug 25, 2019 3:12 pm
- DBs Used: DBF, PostgreSQL, MySQL, SQLite
- Location: Hamburg, Germany
Re: Xbase++ to harbour / HMG Question
here Solution it detect if DLL / EXE is for 32 Bit or 64 Bit
have fun
Jimmy
Jimmy