FiveTech Software tech support forums

... sola instancia. Esto es útil cuando solo necesitas un único objeto para gestionar un recurso global. CLASS Singleton CLASSDATA oInstance METHOD getInstance() ENDCLASS METHOD getInstance() CLASS Singleton IF ::oInstance == NIL ::oInstance := Singleton():New() ENDIF RETURN ::oInstance Este ejemplo ...

...   quitendif  Si, yo también uso esta manera. Pero incluso evito que modifiquen el fichero .EXE así: If IsExeRunning(cFileName(GetModuleFileName(GetInstance()))) // cFileName(HB_ARGV(0)) ... Muchas gracias,

no salia con los archivos cambiando de .a a .lib Proyecto: formatos, Entorno: fwh2404.64bcc77: [1]:harbour.Exe Source\menu.prg /m /n0 /gc1 /es2 /a /iE:\Tools64\Bcc7.7\include;E:\Tools64\Fwh2404\include;E:\Tools64\xharbour_bcc77\include /iE:\Tools64\xharbour_bcc77\Include /iE:\Tools64\Fwh2404\include...

... and generate the code for it: simply rename your RC file as rctoprg.rc and build rctoprg.prg If you keep your dialogs inside a DLL then replace GetInstance() for LoadLibrary( "yourdll.dll" ) This example and the new C code listed at the bottom will be included in next FWH build. rctoprg.prg ...

hi,

thx for Answer

the Link point to

How to keep a appl. on top of the dlg on resize ? (solved)

---

i got 2 Solution
1.) GetModuleFileName( GetInstance() )
2.) GetAppName()
where 2nd point to 1St

All, I just purchased a renew and received my copy of FiveWin 20.02 for Harbour. I am using Borland C++ 7.0. I tried using my mak file and got errors, I modified it based on build.bat and got errors. I replaced it with build.bat and got the following: Borland Resource Compiler Version 5.40 Copyright...

... is tricky and rarely necessary. From this I concluded that the classic way of using singleton technology, cannot be achieved by a direct call to GetInstance. The idea is to add a method, which I will call, internally raising the singleton instance. I made a test program with c #: class1.cs using ...

> oPOS := CREATEOBJECT("BluetoothConnector.GetInstance('TestConnectionDLL()' ) or something ?

o2 should be the oPOS you were looking for

... o1 := CreateObject( "PaymentService.BluetoothConnector" ) o2 := TOleAuto():New( o1:Invoke( "GetInstance" ) ) MsgInfo( ValType( o1 ) ) // -> "O" MsgInfo( ValType( o2 ) ) // -> "O" ////////////////////////////////////////////

Please try this:

local o1 := CreateObject( "PaymentService.BluetoothConnector" )
local o2 := TOleAuto():New( o1:Invoke( "GetInstance" ) )

... := CREATEOBJECT("PaymentService.BluetoothConnector") // ok MsgInfo( ValType( o1 ) ) // -> "O" local22 := o1:Invoke( "GetInstance" ) MsgInfo( ValType( local22 ) ) // N MsgInfo( str( local22 ) ) // 244252684 o2 := o1:GetInstance() // error MsgInfo( ValType( o2 ) ...

... o1 := CREATEOBJECT("PaymentService.BluetoothConnector") // ok MsgInfo( ValType( o1 ) ) // -> "O" o2 := o1:GetInstance() // error MsgInfo( ValType( o2 ) ) //////////////////////////////////////////// error.log Application =========== Path and name: G:\FWH_PRG\MetroTRG\metrotrg.exe ...

Also please try:

local o2 := o1:Invoke( "GetInstance" )

Please try this:

local o1 := CreateObject( "PaymentService.BuetoothConnector" )
local o2 := o1:GetInstance()

MsgInfo( ValType( o1 ) )
MsgInfo( ValType( o2 ) )

... they use a singleton pattern to manage and control instances of Bluetooth connections and suggest that I use the factory method BluetoothConnector.GetInstance (string serviceGuid) [ Mail ] Greeting, I am sending a reworked dll, it should work now. The problem was probably that COM registration ...