Re: [Harbour] SF.net SVN: harbour-project:[14631] trunk/harbour

2010-05-29 Thread Rossine

Hello Viktor,

Work´s fine now :)

Many thank´s,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/SF.net-SVN%3A-harbour-project%3A-14631--trunk-harbour-tp28709244p28716718.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] SF.net SVN: harbour-project:[14631] trunk/harbour

2010-05-28 Thread Rossine

Hello Viktor,

When compiling "harbour/contrib/hbmisc/tests/testcall.prg"  I see this
errors:

[ERROR]
L 1   C 1  A 546k c:\harbour\contrib\hbmisc\tests\comp.log
hbmk2: Processando opções do ambiente: -compiler=bcc
hbmk2: Plataforma detectada: win
hbmk2: Usando Harbour: c:\hrb_bcc\bin c:\hrb_bcc\include c:\hrb_bcc\lib
   c:\hrb_bcc\lib
hbmk2: Usando compilador C: c:\bcc582\bin\bcc32.exe
hbmk2: Processando script local: hbmk.hbm
hbmk2: Processando arquivo de configuração: c:\hrb_bcc\bin\hbmk.cfg
hbmk2: Processando: ..\hbmisc.hbc
Error BASE/1068  Argument error: array access (Quit)
<*** End of File ***>
[\ERROR]

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/SF.net-SVN%3A-harbour-project%3A-14631--trunk-harbour-tp28709244p28711515.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] SF.net SVN: harbour-project:[14631] trunk/harbour

2010-05-28 Thread Rossine

Hello Viktor,

Compiling with this release i see this errors:

[ERRORS]

Warning: 'strwild' not found in library
1 arquivo(s) copiado(s).
bcc32.exe   -I. -I../../../../../include -q -tWM -CP437 -w -Q -w-sig- -d -6
-O2
-OS -Ov -Oi -Oc -DHB_LEGACY_TYPES_OFF  -I"c:\bcc582\bin\bcc32.exe
c:\bcc582\bin\
..\Include" -DHB_GC_AUTO -DHB_FM_STATISTIC  -onortl.obj  -c ../../../nortl.c
../../../nortl.c:
tlib.exe  /P128   "..\..\..\..\..\lib\win\bcc\hbnortl.lib" -+nortl.obj
TLIB 4.5 Copyright (c) 1987, 1998 Borland International
Warning: 'nortl' not found in library
1 arquivo(s) copiado(s).
bcc32.exe   -I. -I../../../../../include -q -tWM -CP437 -w -Q -w-sig- -d -6
-O2
-OS -Ov -Oi -Oc -DHB_LEGACY_TYPES_OFF  -I"c:\bcc582\bin\bcc32.exe
c:\bcc582\bin\
..\Include" -DHB_GC_AUTO -DHB_FM_STATISTIC  -ohbpp.obj  -c ../../../hbpp.c
../../../hbpp.c:
bcc32.exe   -I. -I../../../../../include -q -tWM -CP437 -w -Q -w-sig- -d -6
-O2
-OS -Ov -Oi -Oc -DHB_LEGACY_TYPES_OFF  -I"c:\bcc582\bin\bcc32.exe
c:\bcc582\bin\
..\Include" -DHB_GC_AUTO -DHB_FM_STATISTIC  -ohbpp_dyn.obj -DHB_DYNLIB  -c
../..
/../hbpp.c
../../../hbpp.c:
ilink32.exe  -L"c:\bcc582\bin\bcc32.exe c:\bcc582\bin\..\Lib"
-L"c:\bcc582\bin\b
cc32.exe c:\bcc582\bin\..\Lib\PSDK" -L"..\..\..\..\..\lib\win\bcc" -Gn -Tpe  
c0
x32.obj hbpp.obj, "..\..\..\..\..\bin\win\bcc\hbpp.exe", nul, hbnortl
hbcommon k
ernel32 user32 ws2_32 advapi32 gdi32 cw32mt import32,,
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Fatal: Unable to open file 'KERNEL32.LIB'
mingw32-make[3]: *** [hbpp.exe] Error 2
rm hbpp.obj
mingw32-make[2]: *** [descend] Error 2
mingw32-make[1]: *** [pp.inst] Error 2
mingw32-make: *** [src.inst] Error 2
[/ERRORS]

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/SF.net-SVN%3A-harbour-project%3A-14631--trunk-harbour-tp28709244p28711390.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] SF.net SVN: harbour-project:[14621] trunk/harbour

2010-05-28 Thread Rossine
 MAIN(53) in qisystray.prg


[\GPF]

I use minigui.

Im my .hbc I define:

libs=calldll

The line that caused this was GPF is:

if CallDll32( "InternetGetConnectedState", "Wininet.dll", @nFlags, 0 ) == 1

This worked before, and I returned a numerical value.

I use Harbour 2.1.0beta1 (Rev. 14629)

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/SF.net-SVN%3A-harbour-project%3A-14621--trunk-harbour-tp28697769p28708962.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Error with bcc582

2010-05-27 Thread Rossine

Hi Viktor,

> It's pure .prg code and unlike original C++ HBCOMM lib, it won't cause HVM
> corruption.

I link "hbcomm.prg" in my project and it worked fine now :)

Thank you for your suggestion :)

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Error-with-bcc582-tp28685607p28697634.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Error with bcc582

2010-05-27 Thread Rossine

Hello Viktor,

>I suggest to use hbmk2 to build hbcomm...

OK i rebuilt harbour release 14618 the traditional way:

\harbour\bin\mingw32-make.exe clean install

> ...and also your app, and it should link properly.

OK. But the error continues.

I use for compile this command:

hbmk2 -trace -info -n -gc3 /I. -ic:\minigui\include myprog %1 myprog.hbm
myprog.hbc > comp.log

In my .hbc i have:

{bcc}libs=hbcomm

What can it be ?

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Error-with-bcc582-tp28685607p28697076.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Error with bcc582

2010-05-26 Thread Rossine

Hi Enrico,

This is my c:\bcc582\bin\bcc32.cfg 

[CFG]

-Ic:\bcc582\include;c:\bcc582\include\dinkumware;c:\harbour\include
-Lc:\bcc582\lib;c:\harbour\lib

[/CFG]

I changed this file and recompiled my application but the error continues. I
will generate binaries harbour again with these new settings to see if it
works.

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Error-with-bcc582-tp28685607p28686008.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Error with bcc582

2010-05-26 Thread Rossine

Hello,

When trying to compile my application with bcc582 me the following error
occurred:

[ERROR]

Error: Unresolved external 'std::basic_string,
std::allocator >::__nullref' referenced from
C:\HRB_BCC\LIB\HBCOMM.LIB|comm

[/ERROR]

What can it be ?

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Error-with-bcc582-tp28685607p28685607.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] OT - Sample with activex of harbour

2010-05-26 Thread Rossine

Hello,

I was using in Fivewin component codej with activex and I wonder if you can
convert the example below for use with harbour + activex. I tried but
failed: (

[CODE]
// CodeJock RibbonBar OCX support

#include "FiveWin.ch"

#define xtpControlError 0
#define xtpControlButton1
#define xtpControlPopup 2
#define xtpControlButtonPopup   3
#define xtpControlSplitButtonPopup  4
#define xtpControlComboBox  5
#define xtpControlEdit  6
#define xtpControlCustom7
#define xtpControlLabel 8
#define xtpControlCheckBox  9
#define xtpControlGallery  10
#define xtpControlRadioButton  11

#define xtpFlagRightAlign 1

#define xtpImageNormal0
#define xtpImageDisabled  1
#define xtpImageHot   2
#define xtpImageChecked   3
#define xtpImagePressed   4

#define ID_ADDTAB10
#define ID_ADDGROUP  20
#define ID_ADDBUTTON 30
#define ID_ADDEDIT   40
#define ID_ADDIMAGE  50

static oIcons, oRb 

function Main()

   local oWnd, oAct, oMenu, oTabs, oGroups, oControls, oImages

   if ! IsActiveX( "Codejock.CommandBars.v13.0.0.Demo.ocx" )
  RegisterServer( "Codejock.CommandBars.v13.0.0.Demo.ocx" )
   endif   

   DEFINE WINDOW oWnd TITLE "Visual RibbonBar"

   @ 0, 0 ACTIVEX oAct PROGID "Codejock.CommandBarsFrame.13.0.0" OF oWnd
SIZE 0, 0

   oAct:bOnEvent = { | cEvent, aParams | RibbonBarEvent( cEvent, aParams ) }

   oAct:AttachToWindow( oWnd:hWnd )

   oIcons = oAct:Icons()

   oRb = oAct:AddRibbonBar( "fwh" )

   oMenu = oRb:Controls:Add( 2, 0, "Menu" )
   oMenu:Flags = xtpFlagRightAlign

   oTabs = oMenu:CommandBar:Controls:Add( 2, 0, "Tabs" )
   oTabs:CommandBar:Controls:Add( 1, ID_ADDTAB, "Add" )

   oGroups = oMenu:CommandBar:Controls:Add( 2, 0, "Groups" )
   oGroups:CommandBar:Controls:Add( 1, ID_ADDGROUP, "Add" )

   oControls = oMenu:CommandBar:Controls:Add( 2, 0, "Controls" )
   oControls:CommandBar:Controls:Add( 1, ID_ADDBUTTON, "Add Button" )
   oControls:CommandBar:Controls:Add( 1, ID_ADDEDIT, "Add Edit" )

   oImages = oMenu:CommandBar:Controls:Add( 2, 0, "Images" )
   oImages:CommandBar:Controls:Add( 1, ID_ADDIMAGE, "Load Image" )

   ACTIVATE WINDOW oWnd

return nil

function RibbonBarEvent( cEvent, aParams )

   local oControl, oTab, oGroup, oItem, cBmpFile 

   do case
  case cEvent == "Execute"
   
   msgstop( "execute " + hb_valtostr( aParams ) ) 
   endcase
   
return nil 

[ENDCODE]

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/OT---Sample-with-activex-of-harbour-tp28682170p28682170.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Contrib´s not build with 14457

2010-05-25 Thread Rossine

Hi Viktor,


Viktor Szakáts wrote:
> 
>> Rossine,
>> 
>>   Are you using MingW or BCC?
>>   MingW (TDM) is the recomended one. BCC is not as good according to
>> tests made by the developers.
>>   Seems to me you are mixing it and you also have too many enviroment
>> variables set.
>>   As I understand the instructions in INSTALL, it should be simpler. Did
>> you read it?
>>   If you are using MingW it will not generate *.lib files but *.a files
>> instead.
>>   I recomend you to re-read the INSTALL. There you will find clear
>> instructions how to build the libs.
>>   I hope it will help you.
> 
> I can confirm that most of the envvars are not needed.
> 
> The problem here was most probably a recent typo in hbmk2, 
> although without seeing relevant part of log output (the 
> RTE should be right there!), I can only guess.
> 
> Looks like it's a cry into the void to try to make these 
> envvars dropped, but I will do this one more final time:
> 
> So that huge amount of envvars could be replaced by these 
> without losing functionality inside Harbour build:
> 
> --
> set HB_BUILD_IMPLIB=yes
> set HB_BUILD_UNICODE=no
> 
> set HB_WITH_PGSQL=C:\pgsql84\include
> set HB_WITH_ADS=C:\ads81
> set HB_WITH_QT=C:\Qt\qt\include
> set HB_WITH_FIREBIRD=C:\ARQUIV~1\Firebird\Firebird_2_1\include
> set HB_WITH_FREEIMAGE=C:\FreeImg\3131\Dist
> 
> set HB_USER_CFLAGS=-DHB_GC_AUTO -DHB_FM_STATISTIC
> 
> set HB_INSTALL_PREFIX=c:\hrb_bcc
> rem QUESTION: Is this really intended?:
> set HB_DYN_INSTALL=%HB_INSTALL_PREFIX%\dyn
> 
> set PATH=c:\bcc55;%PATH%
> 
> win-make clean install
> --
> 

OK you're right. I'll change it here. :)

Thank you for the suggestion,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Contrib%C2%B4s-not-build-with-14457-tp28527275p28669408.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Contrib´s not build with 14457

2010-05-25 Thread Rossine

Hi Qatan,


Qatan wrote:
> 
> Rossine,
> 
> Are you using MingW or BCC?
> MingW (TDM) is the recomended one. BCC is not as good according to
> tests 
> made by the developers.
> Seems to me you are mixing it and you also have too many enviroment 
> variables set.
> As I understand the instructions in INSTALL, it should be simpler. Did 
> you read it?
> If you are using MingW it will not generate *.lib files but *.a files 
> instead.
> I recomend you to re-read the INSTALL. There you will find clear 
> instructions how to build the libs.
> I hope it will help you.
> Regards
> 
> Qatan
> 

OK many thank´s for the tip. Now is ok with release 14584 :)

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Contrib%C2%B4s-not-build-with-14457-tp28527275p28669272.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Contrib´s not build with 14457

2010-05-25 Thread Rossine

Hello Vicktor,

With release 14584 it´s ok now, and I had not noticed it was missing
libpq.lib but now everything is ok :)

This is the end for my log:

[LOG]
Borland Implib Version 3.0.22 Copyright (c) 1991, 2000 Inprise Corporation
hbmk2: Created import library: c:\hrb_bcc\lib\fbclient.lib <=
   C:\ARQUIV~1\Firebird\Firebird_2_1\bin\fbclient.dll
./bin/win/bcc\hbmk2 -quiet -lang=en @contrib/hbfimage/hbfimage.hbi
-o${HB_LIB_INSTALL}/

Borland Implib Version 3.0.22 Copyright (c) 1991, 2000 Inprise Corporation
hbmk2: Created import library: c:\hrb_bcc\lib\FreeImage.lib <=
   C:\FreeImg\3131\Dist\FreeImage.dll
./bin/win/bcc\hbmk2 -quiet -lang=en @contrib/hbgd/hbgd.hbi
-o${HB_LIB_INSTALL}/
./bin/win/bcc\hbmk2 -quiet -lang=en @contrib/hbhpdf/hbhpdf.hbi
-o${HB_LIB_INSTALL}/
./bin/win/bcc\hbmk2 -quiet -lang=en @contrib/hbmysql/hbmysql.hbi
-o${HB_LIB_INSTALL}/
./bin/win/bcc\hbmk2 -quiet -lang=en @contrib/hbpgsql/hbpgsql.hbi
-o${HB_LIB_INSTALL}/

Borland Implib Version 3.0.22 Copyright (c) 1991, 2000 Inprise Corporation
hbmk2: Created import library: c:\hrb_bcc\lib\libpq.lib <=
   C:\pgsql84\lib\libpq.dll
./bin/win/bcc\hbmk2 -quiet -lang=en @contrib/hbssl/hbssl.hbi
-o${HB_LIB_INSTALL}/
./bin/win/bcc\hbmk2 -quiet -lang=en @contrib/rddads/rddads.hbi
-o${HB_LIB_INSTALL}/
hbmk2: Created import library: c:\hrb_bcc\lib\ace32.lib <=
C:\ads81\ace32.dll
./bin/win/bcc\hbmk2 -quiet -lang=en @contrib/sddfb/sddfb.hbi
-o${HB_LIB_INSTALL}/

Borland Implib Version 3.0.22 Copyright (c) 1991, 2000 Inprise Corporation
hbmk2: Created import library: c:\hrb_bcc\lib\fbclient.lib <=
   C:\ARQUIV~1\Firebird\Firebird_2_1\bin\fbclient.dll
./bin/win/bcc\hbmk2 -quiet -lang=en @contrib/sddmy/sddmy.hbi
-o${HB_LIB_INSTALL}/
./bin/win/bcc\hbmk2 -quiet -lang=en @contrib/sddoci/sddoci.hbi
-o${HB_LIB_INSTALL}/
./bin/win/bcc\hbmk2 -quiet -lang=en @contrib/sddpg/sddpg.hbi
-o${HB_LIB_INSTALL}/

Borland Implib Version 3.0.22 Copyright (c) 1991, 2000 Inprise Corporation
hbmk2: Created import library: c:\hrb_bcc\lib\libpq.lib <=
   C:\pgsql84\lib\libpq.dll
! Making shared version of Harbour binaries...
./bin/win/bcc\hbmk2 -quiet -lang=en -q0 -shared utils/hbformat/hbformat.hbp
-o${HB_BIN_INSTALL}/hbformat-dll
C:\TMP\hbmk_tj1e88.dir\hbformat.c:
utils\hbformat\hbformac.c:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
./bin/win/bcc\hbmk2 -quiet -lang=en -q0 -shared utils/hbi18n/hbi18n.hbp
-o${HB_BIN_INSTALL}/hbi18n-dll
C:\TMP\hbmk_6fghv3.dir\hbi18n.c:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
./bin/win/bcc\hbmk2 -quiet -lang=en -q0 -shared utils/hbmk2/hbmk2.hbp
-o${HB_BIN_INSTALL}/hbmk2-dll
C:\TMP\hbmk_vgotzk.dir\hbmk2.c:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
./bin/win/bcc\hbmk2 -quiet -lang=en -q0 -shared utils/hbrun/hbrun.hbp
-o${HB_BIN_INSTALL}/hbrun-dll
Borland Resource Compiler  Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.
C:\TMP\hbmk_b9x6yu.dir\hbrun.c:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
./bin/win/bcc\hbmk2 -quiet -lang=en -q0 -shared utils/hbtest/hbtest.hbp
-o${HB_BIN_INSTALL}/hbtest-dll
C:\TMP\hbmk_u8sc2y.dir\hbtest.c:
C:\TMP\hbmk_u8sc2y.dir\rt_array.c:
C:\TMP\hbmk_u8sc2y.dir\rt_date.c:
C:\TMP\hbmk_u8sc2y.dir\rt_file.c:
C:\TMP\hbmk_u8sc2y.dir\rt_hvm.c:
C:\TMP\hbmk_u8sc2y.dir\rt_hvma.c:
C:\TMP\hbmk_u8sc2y.dir\rt_math.c:
C:\TMP\hbmk_u8sc2y.dir\rt_misc.c:
C:\TMP\hbmk_u8sc2y.dir\rt_mt.c:
C:\TMP\hbmk_u8sc2y.dir\rt_str.c:
C:\TMP\hbmk_u8sc2y.dir\rt_stra.c:
C:\TMP\hbmk_u8sc2y.dir\rt_trans.c:
C:\TMP\hbmk_u8sc2y.dir\rt_class.c:
utils\hbtest\rt_miscc.c:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
[\LOG]

Thank you for all your support :)

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Contrib%C2%B4s-not-build-with-14457-tp28527275p28669265.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Contrib´s not build with 14457

2010-05-25 Thread Rossine

Hello Viktor,

> Use 'clean install' as documented (with lowercase).

OK. I use: \harbour\bin\mingw32-make.exe clean install

Now fbclient.lib is created, but ace32.lib and freeimage.lib. are not
created in c:\hrb_bcc\lib

This is my sets for harbour:

[SETS]
set HB_BUILD_DLL=yes
set HB_DIR_IMPLIB=yes
set HB_BUILD_IMPLIB=yes
set HB_BUILD_LOG=yes
set HB_CONTRIB_ADDONS=yes
set HB_BUILD_UNICODE=no
rem set HB_BUILD_UNICODE=yes

set HB_WITH_PGSQL=C:\pgsql84\include
set HB_WITH_ADS=C:\ads81
set HB_WITH_QT=C:\Qt\qt\include
set HB_WITH_FIREBIRD=C:\ARQUIV~1\Firebird\Firebird_2_1\include
set HB_WITH_FREEIMAGE=C:\FreeImg\3131\Dist

set HB_DIR_PGSQL=C:\pgsql84
set HB_DIR_ADS=C:\ads81
rem set HB_DIR_QT=C:\Qt\qt\include
set HB_DIR_QT=C:\Qt\qt
set HB_DIR_FIREBIRD=C:\ARQUIV~1\Firebird\Firebird_2_1
set HB_DIR_FREEIMAGE=C:\FreeImg\3131\Dist

set HB_INC_PGSQL=C:\pgsql84\include
set HB_INC_ADS=C:\ads81
set HB_INC_QT=C:\Qt\qt\include
set HB_INC_FIREBIRD=C:\ARQUIV~1\Firebird\Firebird_2_1\include
set HB_INC_FREEIMAGE=C:\FreeImg\3131\Dist

set HB_LEX=SIMPLEX
set HB_USER_CFLAGS=-DHB_GC_AUTO -DHB_FM_STATISTIC 

set HB_PATH=c:\hrb_bcc
set HB_INSTALL_PREFIX=%HB_PATH%

set HB_BIN_INSTALL=%HB_PATH%\bin
set HB_LIB_INSTALL=%HB_PATH%\lib
set HB_INC_INSTALL=%HB_PATH%\include
set HB_DOC_INSTALL=%HB_PATH%\doc
set HB_DYN_INSTALL=%HB_PATH%\dyn

set HB_COMPILER=bcc

set BCC_DIR=c:\bcc55
[/SETS]

This is my LOG:

[LOG]
C:\harbour-#BCC#>\harbour\bin\mingw32-make.exe clean install
! Building Harbour 2.1.0beta1 from source - http://www.harbour-project.org
! MAKE: C:/harbour/bin/mingw32-make 3.81 sh.exe clean install
! HB_USER_CFLAGS: -DHB_GC_AUTO -DHB_FM_STATISTIC
! HB_INSTALL_PREFIX: c:\hrb_bcc
! HB_BIN_INSTALL: c:\hrb_bcc\bin
! HB_LIB_INSTALL: c:\hrb_bcc\lib
! HB_DYN_INSTALL: c:\hrb_bcc\dyn
! HB_INC_INSTALL: c:\hrb_bcc\include
! HB_DOC_INSTALL: c:\hrb_bcc\doc
! HB_BUILD_DLL: yes
! HB_BUILD_IMPLIB: yes
! HB_BUILD_UNICODE: no
! HB_CONTRIB_ADDONS: yes
! HB_HOST_PLAT: win (x86)  HB_SHELL: nt
! HB_PLATFORM: win (x86) (autodetected)
! HB_COMPILER: bcc
! Component: 'zlib' found in C:/harbour/external/zlib (local)
! Component: 'pcre' found in C:/harbour/external/pcre (local)
! Component: 'openssl' not found. Configure with HB_WITH_OPENSSL.
! Component: 'gpm' not supported on win platform
! Component: 'slang' not found. Configure with HB_WITH_SLANG.
! Component: 'curses' not found. Configure with HB_WITH_CURSES.
! Component: 'x11' not found. Configure with HB_WITH_X11.
! Component: 'wattcp/watt-32' not supported on win platform
! 'gtcrs' library skipped (component not found)
! 'gtdos' library skipped (platform not supported)
! 'gtos2' library skipped (platform not supported)
! 'gtsln' library skipped (component not found)
! 'gttrm' library skipped (platform or compiler not supported)
! 'gtxwc' library skipped (component not found)
! 'gtalleg' library skipped ('allegro' not found. Configure with
HB_WITH_ALLEGRO
.)
! 'hbcairo' library skipped ('cairo' not found. Configure with
HB_WITH_CAIRO.)
! 'hbcups' library skipped ('cups' not found. Configure with HB_WITH_CUPS.)
! 'hbcurl' library skipped ('libcurl' not found. Configure with
HB_WITH_CURL.)
! 'hbgd' library skipped ('libgd' not found. Configure with HB_WITH_GD.)
! 'hbmysql' library skipped ('mysql' not found. Configure with
HB_WITH_MYSQL.)
! 'hbqt' library skipped ('qt' not supported with bcc compiler)
! 'hbssl' library skipped (component not found)
! 'sddmy' library skipped ('mysql' not found. Configure with HB_WITH_MYSQL.)
! 'sddoci' library skipped ('ocilib' not found. Configure with
HB_WITH_OCILIB.)
! 'hbxbp' library skipped (compiler not supported)
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
...
[/LOG]

This is the contents of my C:\ads81

[ADS]
 Pasta de C:\ads81

.. 13/05/2009  16:31
.  13/05/2009  16:31
ace32dll995.376 08/01/2007  08:10
axcws32  dll167.936 08/01/2007  08:10
ansi chr 24.128 08/01/2007  08:10
adsloc32 dll  1.241.088 08/01/2007  08:10
extend   chr 28.348 08/01/2007  08:10
adslocal cfg  2.370 19/03/2007  15:41
ace  h  219.472 17/08/2007  17:42
ads  ch      13.894 04/06/2008  12:07
rddads   h   11.360 04/06/2008  12:07
adsext~1 ch   6.576 04/07/2008  19:56
unixut~1 h   96 06/04/2009  11:53
unins000 exe686.111 11/04/2009  09:20
unins000 dat  1.121 11/04/2009  09:20
ace32lib 55.808 13/05/2009  16:31
[\ADS]

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Contrib%C2%B4s-not-build-with-14457-tp28527275p28668726.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Contrib´s not build with 14457

2010-05-24 Thread Rossine

Hi Viktor,

This is my log:

[LOG]

C:\harbour-#BCC#>\harbour\bin\mingw32-make.exe CLEAN INSTALL
config/global.mk:234: ! Warning: HB_BUILD_IMPLIB option works only when
'install' is requested.
! Building Harbour 2.1.0beta1 from source - http://www.harbour-project.org
! MAKE: C:/harbour/bin/mingw32-make 3.81 sh.exe CLEAN INSTALL
! HB_USER_CFLAGS: -DHB_GC_AUTO -DHB_FM_STATISTIC
! HB_INSTALL_PREFIX: c:\hrb_bcc
! HB_BIN_INSTALL: c:\hrb_bcc\bin
! HB_LIB_INSTALL: c:\hrb_bcc\lib
! HB_INC_INSTALL: c:\hrb_bcc\include
! HB_DOC_INSTALL: c:\hrb_bcc\doc
! HB_BUILD_DLL: yes
! HB_BUILD_IMPLIB: no
! HB_BUILD_UNICODE: no
! HB_CONTRIB_ADDONS: yes
! HB_HOST_PLAT: win (x86)  HB_SHELL: nt
! HB_PLATFORM: win (x86) (autodetected)
! HB_COMPILER: bcc
! Component: 'zlib' found in C:/harbour/external/zlib (local)
! Component: 'pcre' found in C:/harbour/external/pcre (local)
! Component: 'openssl' not found. Configure with HB_WITH_OPENSSL.
! Component: 'gpm' not supported on win platform
! Component: 'slang' not found. Configure with HB_WITH_SLANG.
! Component: 'curses' not found. Configure with HB_WITH_CURSES.
! Component: 'x11' not found. Configure with HB_WITH_X11.
! Component: 'wattcp/watt-32' not supported on win platform
! 'gtcrs' library skipped (component not found)
! 'gtdos' library skipped (platform not supported)
! 'gtos2' library skipped (platform not supported)
! 'gtsln' library skipped (component not found)
! 'gttrm' library skipped (platform or compiler not supported)
! 'gtxwc' library skipped (component not found)
...
[/LOG]

See this line:

config/global.mk:234: ! Warning: HB_BUILD_IMPLIB option works only when
'install' is requested.

...and:

! HB_BUILD_IMPLIB: no

My parameters were well defined

set HB_DIR_IMPLIB=yes
set HB_BUILD_IMPLIB=yes

I remove this line:

set HB_BUILD_IMPLIB=yes

...and yet does not generate the libs from contrib.

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Contrib%C2%B4s-not-build-with-14457-tp28527275p28661493.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Contrib´s not build with 14457

2010-05-24 Thread Rossine

Hi Vicktor,

Updated today the harbour to release 14566 and again is not building these
libs:

- fbclient.lib
- freeimage.lib
- ace32.lib

I need to change something here in order to build these libs ?

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Contrib%C2%B4s-not-build-with-14457-tp28527275p28656857.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Contrib´s not build with 14457

2010-05-11 Thread Rossine

Hello,

When I generate the binaries for this version I see no more files:
"ace32.lib", "freeimage.lib" and "libpq.lib"

These are my settings.

[SETTINGS]

set HB_BUILD_DLL=yes
set HB_DIR_IMPLIB=yes
set HB_BUILD_IMPLIB=yes
set HB_BUILD_LOG=yes
set HB_CONTRIB_ADDONS=yes
set HB_BUILD_UNICODE=no
rem set HB_BUILD_UNICODE=yes

set HB_WITH_PGSQL=C:\pgsql84\include
set HB_WITH_ADS=C:\ads81
set HB_WITH_QT=C:\Qt\qt\include
set HB_WITH_FIREBIRD=C:\ARQUIV~1\Firebird\Firebird_2_1\include
set HB_WITH_FREEIMAGE=C:\FreeImg\3120\Dist

set HB_DIR_PGSQL=C:\pgsql84
set HB_DIR_ADS=C:\ads81
rem set HB_DIR_QT=C:\Qt\qt\include
set HB_DIR_QT=C:\Qt\qt
set HB_DIR_FIREBIRD=C:\ARQUIV~1\Firebird\Firebird_2_1
set HB_DIR_FREEIMAGE=C:\FreeImg\3120\Dist

set HB_INC_PGSQL=C:\pgsql84\include
set HB_INC_ADS=C:\ads81
set HB_INC_QT=C:\Qt\qt\include
set HB_INC_FIREBIRD=C:\ARQUIV~1\Firebird\Firebird_2_1\include
set HB_INC_FREEIMAGE=C:\FreeImg\3120\Dist

[/SETTINGS]

I use BCC 551. What can be ?

Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Contrib%C2%B4s-not-build-with-14457-tp28527275p28527275.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Error with 14373 and msvc

2010-04-23 Thread Rossine

Hello Viktor,


Viktor Szakáts wrote:
> 
> Or, if possible it's even better and simpler to just 
> remove 'set HB_COMPILER=msvc' and rely on autodetection.
> 

Ok, thank you for your solution. I did it that way vailton said and it
worked correctly :)

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Error-with-14373-and-msvc-tp28336118p28340932.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Error with 14373 and msvc

2010-04-23 Thread Rossine

Hello Vailton,


Vailton Renato wrote:
> 
> Read this
> http://lists.harbour-project.org/pipermail/harbour/2010-April/035291.html
> 

OK, work´s fine now :)

Many thank´s to all,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Error-with-14373-and-msvc-tp28336118p28340905.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Error with 14373 and msvc

2010-04-22 Thread Rossine

Hello,

I see this error:

[ERROR]
hbrun.c
rc.exe  -nologo   -fo hbrun.res ../../../hbrun.rc
fatal error RC1106: invalid option: -ologo
mingw32-make[3]: *** [hbrun.res] Error 1
mingw32-make[2]: *** [descend] Error 2
mingw32-make[1]: *** [hbrun.inst] Error 2
mingw32-make: *** [utils.inst] Error 2
[/ERROR]

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Error-with-14373-and-msvc-tp28336118p28336118.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Error with 14333

2010-04-16 Thread Rossine

Hi,

Work´s fine now :)

Many thank´s,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Error-with-14333-tp28244200p28266074.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Error with 14333

2010-04-14 Thread Rossine

Hello,

I see this error with last version:

[ERROR]

Error E2228 ../../../jdmarker.c 946: Too many error or warning messages in
function next_marker
*** 1 errors in Compile ***
mingw32-make[3]: *** [jdmarker.obj] Error 1
mingw32-make[2]: *** [descend] Error 2
mingw32-make[1]: *** [jpeg.inst] Error 2
mingw32-make: *** [external.inst] Error 2

[/ERROR]

I use BCCC 551.

Regards,

Rossine.


-- 
View this message in context: 
http://old.nabble.com/Error-with-14333-tp28244200p28244200.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Problem with "append from"

2010-04-13 Thread Rossine

Hi,


Przemysław Czerpak wrote:
> 
> You haven't read Clipper documentation for APPEND FROM ...
> 
> VIA  and SDF are mutual exclusive clauses so such command
> does not exists.
>APPEND FROM ... SDF
> means append using SDF RDD and
>APPEND FROM ... VIA "DBFCDX"
> means append using DBFCDX RDD.
> 
> best regards,
> Przemek
> 

Ok. Many thank´s for explanation.

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Problem-with-%22append-from%22-tp28219179p28228988.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Extension <.FPT>

2010-04-12 Thread Rossine

Hello Przemek,

It runs well with DBFCDX, but you could also work with ADS ?

See this sample:

[CODE]

#include "dbinfo.ch"

function MAIN

request DBFCDX
request  ADS

rddsetdefault( "DBFCDX" )

? hb_rddInfo( RDDI_MEMOEXT, NIL, "DBFCDX" )   && return ".fpt"

? Hb_rddInfo( RDDI_MEMOEXT, ".xxx", "DBFCDX" ) && return: ".fpt"

? hb_rddInfo( RDDI_MEMOEXT, NIL, "DBFCDX" ) && return: ".xxx"

rddsetdefault( "ADS" )

? hb_rddInfo( RDDI_MEMOEXT, NIL, "ADSCDX" )   && return: ".fpt"

? Hb_rddInfo( RDDI_MEMOEXT, ".xxx", "ADSCDX" ) && return: ".fpt"

? hb_rddInfo( RDDI_MEMOEXT, NIL, "ADSCDX" ) && return: ".fpt" <- Here error
? ""

return NIL

[ENDCODE]

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Extension-%3C.FPT%3E-tp27452184p28219203.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Problem with "append from"

2010-04-12 Thread Rossine

Hello,

This line using "via"...

append from &( cFile ) via "DBFCDX" SDF

...generate this erro in compilation:

Erro E0030  SYNTAX Erro "SYNTAX Erro AT 'FROM'"

I use "Harbour 2.1.0dev (Rev. 14276)"

What can it be ?

Best Regards,

Rossine.



-- 
View this message in context: 
http://old.nabble.com/Problem-with-%22append-from%22-tp28219179p28219179.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Is this correct ?

2010-04-07 Thread Rossine

Hi Vailton,


Vailton Renato wrote:
> 
> Hi Rossine,
> 
> No. This behavior is compatible with the Clipper. Try this:
> 
> ? VAL ('10x ')
> ? VAL ('1 x0 ')
> ? VAL ('x55')
> ?
> 
> 

OK, Thanks for the explanation :)

Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Is-this-correct---tp28165317p28167581.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Is this correct ?

2010-04-07 Thread Rossine

Hello,

See this sample:

[CODE]

function MAIN

local cVar := "10x"

? val(cVar)&& This return Numeric 10. The correct would not be ZERO ?

[ENDCODE]

Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Is-this-correct---tp28165317p28165317.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] WMF to PDF

2010-03-30 Thread Rossine

Hi Mindaugas,

I try PDFCreator :)

Regards,

Rossine.


Mindaugas Kavaliauskas wrote:
> 
> Rossine wrote:
>> Is possible converter wmf to pdf through the harbour ?
> 
> Hi,
> 
> 
> Two ways comes to my mind, though non of it is directly related to 
> harbour and requires more or less C knowledge:
> 
> 1) You can try to play metafile on PDFCreator printing device (perhaps 
> can be done in Harbour or a few Win API wrapper functions are required).
> 
> 2) if you need a complete solution (without separate product 
> installation), you can try to use hbcairo library. You'll need to write 
> wmf file record enumerator and convert each record from wmf to cairo 
> call. This seems to be a longer way, than 1).
> 
> 
> Regards,
> Mindaugas
> ___
> Harbour mailing list (attachment size limit: 40KB)
> Harbour@harbour-project.org
> http://lists.harbour-project.org/mailman/listinfo/harbour
> 
> 

-- 
View this message in context: 
http://old.nabble.com/WMF-to-PDF-tp28085070p28086860.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] WMF to PDF

2010-03-30 Thread Rossine

Hello Lautaro,

Is possible a sample with harbour + pdfcreator ? :)

Regards,

Rossine.


Lautaro Moreira wrote:
> 
> Hello,
> 
> You can use pdfcreator and com ( ole ) interfaz and play wmf in 
> pdfcreator printer.
> 
> Atte.,
> 
> Lautaro Moreira
> PD: Sorry for my bad english.
> 
> El 30/03/2010 13:38, Rossine escribió:
>> Hello,
>>
>> Is possible converter wmf to pdf through the harbour ?
>>
>> Regards,
>>
>> Rossine.
>>
>>
> 
> ___
> Harbour mailing list (attachment size limit: 40KB)
> Harbour@harbour-project.org
> http://lists.harbour-project.org/mailman/listinfo/harbour
> 
> 

-- 
View this message in context: 
http://old.nabble.com/WMF-to-PDF-tp28085070p28086837.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] WMF to PDF

2010-03-30 Thread Rossine

Hello,

Is possible converter wmf to pdf through the harbour ?

Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/WMF-to-PDF-tp28085070p28085070.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Ask Str2Poniter() and Pointer2Str() function pair ....

2010-03-29 Thread Rossine

Hi Vailton,

Great :)

Many, many thanks :)

Rossine.


Vailton Renato wrote:
> 
> Hi!
> 
> To support MT need this:
> 
> [GETADDRESS.C]
> #include "hbvmopt.h"
> #include "hbapi.h"
> #include "hbapiitm.h"
> #include "hbstack.h"
> 
> HB_FUNC( _GETADDRESS )
> {
>PHB_ITEM pItem   = hb_param( 1, HB_IT_ANY );
>PHB_ITEM pResult = hb_itemNew( NULL );
>char buffer[ 16 ];
> 
>memset( buffer, 0, sizeof( buffer ) );
> 
>switch( hb_itemType( pItem ) )
>{
>   case HB_IT_ARRAY:
>  hb_snprintf( buffer, sizeof( buffer ), "%p", ( pItem
> )->item.asArray.value );
>  break;
> 
>   case HB_IT_STRING:
>   case HB_IT_MEMO:
>  hb_snprintf( buffer, sizeof( buffer ), "%p", ( pItem
> )->item.asString.value );
>  break;
> 
>   case HB_IT_SYMBOL:
>  hb_snprintf( buffer, sizeof( buffer ), "%p", ( pItem
> )->item.asSymbol.value->value.pFunPtr );
>  break;
> 
>   case HB_IT_POINTER:
>  hb_snprintf( buffer, sizeof( buffer ), "%p", ( pItem
> )->item.asPointer.value );
>  break;
> 
>   default:
>  hb_snprintf( buffer, sizeof( buffer ), "%p", 0 );
>  break;
>}
> 
>hb_itemPutC( pResult, buffer );
>hb_itemReturnRelease( pResult );
> }
> // end of file
> ___
> Harbour mailing list (attachment size limit: 40KB)
> Harbour@harbour-project.org
> http://lists.harbour-project.org/mailman/listinfo/harbour
> 
> 

-- 
View this message in context: 
http://old.nabble.com/Ask-Str2Poniter%28%29-and-Pointer2Str%28%29-function-pair--tp28042446p28074185.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Ask Str2Poniter() and Pointer2Str() function pair ....

2010-03-29 Thread Rossine

Hello Vailton,

It´s works fine :)

Many thank´s,

Rossine.


Vailton Renato wrote:
> 
> Hi!
> 
> I agree with Viktor that this type of access is not recommended
> because it represents a great risk to system stability. But just to
> illustrate, if you want to get the memory address of a particular
> variable (I do not see much use in it but ..) this is an example:
> 
> [TEST.PRG]
> #include "simpleio.ch"
> 
> FUNCTION Main
>  LOCAL a, b, c, d, e, f, g
> 
>  a := b := "A single text"
>  h := 'Other text'
> 
>  c := d := {}
>  e := ( @qqout() )
>  f := e
>  g := @date()
> 
>  cls
>  ? 'string :', _GETADDRESS(a), _GETADDRESS(b), _GETADDRESS(h)
>  ?
>  ? 'arrays :',_GETADDRESS(c), _GETADDRESS(d)
>  ?
>  ? 'pointer (1):', _GETADDRESS(e), _GETADDRESS(f)
>  ?
>  ? 'pointer (2):', _GETADDRESS(g), _GETADDRESS( @date() )
>  ?
>RETURN NIL
> // end of file
> 
> [GETADDRESS.C]
> #include "hbvmopt.h"
> #include "hbapi.h"
> #include "hbapiitm.h"
> #include "hbstack.h"
> 
> HB_FUNC( _GETADDRESS )
> {
>PHB_ITEM pItem = hb_param( 1, HB_IT_ANY );
>char buffer[ 16 ];
> 
>memset( buffer, 0, sizeof( buffer ) );
> 
>switch( hb_itemType( pItem ) )
>{
>   case HB_IT_ARRAY:
>  hb_snprintf( buffer, sizeof( buffer ), "%p", ( pItem
> )->item.asArray.value );
>  break;
> 
>   case HB_IT_STRING:
>   case HB_IT_MEMO:
>  hb_snprintf( buffer, sizeof( buffer ), "%p", ( pItem
> )->item.asString.value );
>  break;
> 
>   case HB_IT_SYMBOL:
>  hb_snprintf( buffer, sizeof( buffer ), "%p", ( pItem
> )->item.asSymbol.value->value.pFunPtr );
>  break;
> 
>   case HB_IT_POINTER:
>  hb_snprintf( buffer, sizeof( buffer ), "%p", ( pItem
> )->item.asPointer.value );
>  break;
> 
>   default:
>  hb_snprintf( buffer, sizeof( buffer ), "%p", 0 );
>  break;
>}
> 
>hb_retc( buffer );
> }
> 

-- 
View this message in context: 
http://old.nabble.com/Ask-Str2Poniter%28%29-and-Pointer2Str%28%29-function-pair--tp28042446p28072444.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: Re: [Harbour] Ask Str2Poniter() and Pointer2Str() function pair ....

2010-03-29 Thread Rossine

Hi,

I'm trying to use the function of you and me errors occur below:

[CODE]
function Main

  LOCAL pFunc := ( @Test() )

  cls

  ? Valtype( pFunc )

  ? POINTER2STRING( pFunc )

return NIL

function Test

   ? "hello word"

return NIL

#pragma begindump

#include "hbapi.h"

HB_FUNC( STRING2POINTER )
{
   PHB_ITEM s = hb_param( 1, HB_IT_STRING );
   if( s )
   hb_retptr( (void *) hb_itemGetCPtr( s ) );
} 

HB_FUNC( POINTER2STRING )
{
   PHB_ITEM p = hb_param( 1, HB_IT_POINTER );

   if( p )
 {
PHB_ITEM s = hb_itemNew( NULL );
PHB_ITEM n = hb_param( 2, HB_IT_NUMERIC );
hb_itemPutCL( s, hb_itemGetPtr( p ), n ? hb_itemGetNI( n ) : strlen(
hb_itemGetPtr( p ) ) );
hb_itemReturnRelease( s );
 }
}

#pragma enddump
[/CODE]

[ERROR]

hbmk2: Processando opções do ambiente: -compiler=bcc
hbmk2: Plataforma detectada: win
hbmk2: Usando Harbour: c:\hrb_bcc\bin c:\hrb_bcc\include c:\hrb_bcc\lib
   c:\hrb_bcc\lib
hbmk2: Usando compilador C: c:\bcc55\bin\bcc32.exe
hbmk2: Processando arquivo de configuração: c:\hrb_bcc\bin\hbmk.cfg
hbmk2: Linha de comando do compilador Harbour: (interno)
(c:\hrb_bcc\bin\harbour.exe) -n2 point1.prg -n -D__BCC__ -oC:\TMP\
-ic:\hrb_bcc\
hbmk2: Comando do compilador C/C++:
bcc32.exe -c -q -tWM -d -6 -O2 -OS -Ov -Oi -Oc -DHB_GC_AUTO
-DHB_FM_STATISTIC  -
C:\TMP\point1.c:
Warning W8065 point1.prg 27: Call to function 'hb_itemGetCPtr' with no
prototype
Warning W8065 point1.prg 36: Call to function 'hb_itemNew' with no prototype
in
Warning W8069 point1.prg 36: Nonportable pointer conversion in function
HB_FUN_P
Warning W8065 point1.prg 38: Call to function 'hb_itemGetPtr' with no
prototype
Warning W8065 point1.prg 38: Call to function 'hb_itemGetNI' with no
prototype i
Warning W8065 point1.prg 38: Call to function 'hb_itemGetPtr' with no
prototype
Error E2342 point1.prg 38: Type mismatch in parameter '__s' (wanted 'const
signe
Warning W8065 point1.prg 38: Call to function 'hb_itemPutCL' with no
prototype i
Warning W8065 point1.prg 39: Call to function 'hb_itemReturnRelease' with no
pro
*** 1 errors in Compile ***
[/ERROR]

I need to do for the above example work ?

Best Regards,

Rossine.


-- 
View this message in context: 
http://old.nabble.com/Ask-Str2Poniter%28%29-and-Pointer2Str%28%29-function-pair--tp28042446p28069776.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Error with 14142

2010-03-12 Thread Rossine

Hi Viktor

>Make sure to use Harbour 2.1.0dev r14108 or newer.

I use version  14146.

>Just drop it, the default is 'yes', so no need to 
>use above setting.

OK

>UNICOWS just doesn't do anything in this case.

>What is the error?

Example:

[SAMPLE]

function MAIN

? file( "teste.txt" ) && <- Always return .F. and is that this file exist.

return NIL

[ENDSAMPLE]

With set HB_BUILD_UNICODE=no this sample return .T. in windows 98.

>In case of .hbc file, I suggest to use:
>   {mingw|bcc|watcom}libs=unicows
>   libpaths=

Yes, i changed this but the problem persists with the sample up.

Best regards,

Rossine.


-- 
View this message in context: 
http://old.nabble.com/Error-with-14142-tp27875079p27881199.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Error with 14142

2010-03-12 Thread Rossine

Hi,

> I see this errors with this release:
> 
> [ERROR]
> Error E2451 ../../../filesys.c 331: Undefined symbol 'ulSize' in function
> fs_win
> _get_drive
> *** 1 errors in Compile ***
> mingw32-make[3]: *** [filesys.obj] Error 1
> mingw32-make[2]: *** [descend] Error 2
> mingw32-make[1]: *** [rtl.inst] Error 2
> mingw32-make: *** [src.inst] Error 2
> [ENDERROR]

OK, work´s fine now :)

>Thanks, I'll commit the fix. Anyhow I'd suggest 
>to try use default UNICODE build with UNICOWS 
>solution.

>1) Download static lib for your compiler from here:
>  http://libunicows.sourceforge.net/
>2) Add '-l{mingw|bcc|watcom}unicows' to your hbmk2 
>   build script or command-line.
>3) Download unicows.dll from here:
>  http://go.microsoft.com/fwlink/?LinkId=14851

Excuse my ignorance, but did not work :(

See how I did:

I downloaded and unicows.lib Unicows.dll and did so

- Unicows.lib include in my file .Hbc as:
  libs=c:\unicows\unicows.lib

- Unicows.dll I copied to the folders of windows 98:
 c:\windows, c:\windows\system, c:\windows\systrem32

I generated the harbour again the libs and includes in my file .BAT the
line:

set HB_BUILD_UNICODE=yes

Works well with: set HB_BUILD_UNICODE=no

What can be wrong ?

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Error-with-14142-tp27875079p27880529.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Error with 14142

2010-03-12 Thread Rossine

Hello,

I see this errors with this release:

[ERROR]
Error E2451 ../../../filesys.c 331: Undefined symbol 'ulSize' in function
fs_win
_get_drive
*** 1 errors in Compile ***
mingw32-make[3]: *** [filesys.obj] Error 1
mingw32-make[2]: *** [descend] Error 2
mingw32-make[1]: *** [rtl.inst] Error 2
mingw32-make: *** [src.inst] Error 2
[ENDERROR]

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Error-with-14142-tp27875079p27875079.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Error with sample netiosrv.prg

2010-03-11 Thread Rossine

Hello Przemek,

I'm trying to compile the example NETIOSRV.PRG me and is experiencing this
error:

I'm using the svn harbour 14110

I compile this:

hbmk2 -trace -mt -info -n -shared -prgflag=-D__BCC__ netiosrv netiocmd >
comp.log

...and the result:

hbmk2: Processando op‡äes do ambiente: -compiler=bcc
hbmk2: Plataforma detectada: win
hbmk2: Usando Harbour: c:\hrb_bcc\bin c:\hrb_bcc\include c:\hrb_bcc\lib
   c:\hrb_bcc\lib
hbmk2: Usando compilador C: c:\bcc55\bin\bcc32.exe
hbmk2: Processando script local: hbmk.hbm
hbmk2: Processando arquivo de configura‡Æo: C:\hrb_bcc\bin\hbmk.cfg
hbmk2: Processando: ../hbnetio.hbc
hbmk2: Linha de comando do compilador Harbour: (interno)
(C:\hrb_bcc\bin\harbour.exe) -n2 netiosrv.prg netiocmd.prg -w3 -es2 -n
-D__BCC__ -oC:\TMP\ -ic:\hrb_bcc\include
hbmk2: Comando do compilador C/C++:
bcc32.exe -c -q -tWM -d -6 -O2 -OS -Ov -Oi -Oc -DHB_GC_AUTO
-DHB_FM_STATISTIC  -w -w-sig- -Q -nC:\TMP\ -Ic:\hrb_bcc\include
C:\TMP\netiosrv.c C:\TMP\netiocmd.c
C:\TMP\netiosrv.c:
C:\TMP\netiocmd.c:
hbmk2: Comando do Linkeditor:
ilink32.exe @C:\TMP\gyvp1t.lnk
hbmk2: Script do linkeditor:
-Gn -Tpe -Lc:\bcc55\Lib\PSDK;c:\hrb_bcc\lib  -ap c0x32.obj
C:\TMP\netiosrv.obj C:\TMP\netiocmd.obj, netiosrv.exe, nul, hbnetio.lib
hbmainstd.lib hbmainwin.lib hbcplr.lib hbdebug.lib kernel32.lib user32.lib
gdi32.lib advapi32.lib ws2_32.lib winspool.lib comctl32.lib comdlg32.lib
shell32.lib uuid.lib ole32.lib oleaut32.lib mpr.lib winmm.lib mapi32.lib
imm32.lib msimg32.lib wininet.lib "harbourmt-21-bcc.lib"  cw32mt.lib
import32.lib,, 
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_hb_stackReturnItem' referenced from
C:\HRB_BCC\LIB\HBNETIO.LIB|netiosrv

What can be ?

Best regards,

Rossine.


-- 
View this message in context: 
http://old.nabble.com/Error-with-sample-netiosrv.prg-tp27869193p27869193.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Error GPF with hbnetio

2010-03-08 Thread Rossine

Hi Przemek,


Przemysław Czerpak wrote:
> 
> It was a bug in MT HVM code which existed from the beginning
> but so far no one exploited it.
> decoded _SET_PATH structure was wrongly shared between child
> threads without cloning. I have just fixed it.
> 

OK :)

Work´s fine now :)

Many thank´s for this great tool :)

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Error-GPF-with-hbnetio-tp27824003p27826644.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Error GPF with hbnetio

2010-03-08 Thread Rossine

Hello Przemek,

The function that is occurring the GPF is "netio_serverstop()"

Using the example below generates GPF. I include this lines:

[LINES]

   set pathto ".\"
   SET DEFAULT TO ".\"

   hb_curdrive( "C:" )
   dirchange( ".\" )

[ENDLINES]

[CODE]
/*
 * $Id: netiotst.prg 13603 2010-01-16 01:13:05Z vszakats $
 */

/*
 * Harbour Project source code:
 *demonstration/test code for alternative RDD IO API which uses own
 *very simple TCP/IP file server.
 *
 * Copyright 2009 Przemyslaw Czerpak 
 * www - http://www.harbour-project.org
 *
 */

/* net:127.0.0.1:2941:topsecret:data/_tst_ */

#define DBSERVER  "127.0.0.1"
#define DBPORT2941
#define DBPASSWD  "topsecret"
#define DBDIR "data"
#define DBFILE"_tst_"

#define DBNAME"net:" + DBSERVER + ":" + hb_ntos( DBPORT ) + ":" + ;
  DBPASSWD + ":" + DBDIR + "/" + DBFILE

request DBFCDX

request HB_DIREXISTS
request MAKEDIR

proc main()
   local pSockSrv, lExists

   set exclusive off
   rddSetDefault( "DBFCDX" )

   set pathto ".\"
   SET DEFAULT TO ".\"

   hb_curdrive( "C:" )
   dirchange( ".\" )

   pSockSrv := netio_mtserver( DBPORT,,, /* RPC */ .T., DBPASSWD )
   if empty( pSockSrv )
  ? "Cannot start NETIO server !!!"
  wait "Press any key to exit..."
  quit
   endif

   ? "NETIO server activated."
   hb_idleSleep( 0.1 )
   wait

   ?
   ? "NETIO_CONNECT():", netio_connect( DBSERVER, DBPORT, , DBPASSWD )
   ?

   lExists := netio_funcexec( "HB_DirExists", "./data" )
   ? "Directory './data'", iif( !lExists, "not exists", "exists" )
   if !lExists
  ? "Creating directory './data' ->", ;
   iif( netio_funcexec( "MakeDir", "./data" ) == -1, "error", "OK" )
   endif

   createdb( DBNAME )
   testdb( DBNAME )
   wait

   ?
   ? "table exists:", dbExists( DBNAME )
   wait

   ?
   ? "delete table with indexes:", dbDrop( DBNAME )
   ? "table exists:", dbExists( DBNAME )
   wait

   ? "NETIO_DISCONNECT():", netio_disconnect( DBSERVER, DBPORT )

   ?
   ? "stopping the server..."
   netio_serverstop( pSockSrv, .t. )
return

proc createdb( cName )
   local n

   dbCreate( cName, {{"F1", "C", 20, 0},;
 {"F2", "M",  4, 0},;
 {"F3", "N", 10, 2},;
 {"F4", "T",  8, 0}} )
   ? "create neterr:", neterr(), hb_osError()
   use (cName)
   ? "use neterr:", neterr(), hb_osError()
   while lastrec() < 100
  dbAppend()
  n := recno() - 1
  field->F1 := chr( n % 26 + asc( "A" ) ) + " " + time()
  field->F2 := field->F1
  field->F3 := n / 100
  field->F4 := hb_dateTime()
   enddo
   index on field->F1 tag T1
   index on field->F3 tag T3
   index on field->F4 tag T4
   close
   ?
return

proc testdb( cName )
   local i, j
   use (cName)
   ? "used:", used()
   ? "nterr:", neterr()
   ? "alias:", alias()
   ? "lastrec:", lastrec()
   ? "ordCount:", ordCount()
   for i:=1 to ordCount()
  ordSetFocus( i )
  ? i, "name:", ordName(), "key:", ordKey(), "keycount:", ordKeyCount()
   next
   ordSetFocus( 1 )
   dbgotop()
   while !eof()
  if ! field->F1 == field->F2
 ? "error at record:", recno()
 ? "  ! '" + field->F1 + "' == '" + field->F2 + "'"
  endif
  dbSkip()
   enddo
   wait
   i := row()
   j := col()
   dbgotop()
   browse()
   setpos( i, j )
   close
return

[ENDCODE]

Am I doing something wrong ?

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Error-GPF-with-hbnetio-tp27824003p27824003.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Error with activex

2010-02-26 Thread Rossine

Hi,

With this sample:

[CODE]

#include "minigui.ch"
#include "hbclass.ch"
#include "i_winuser.ch"

static oMSCAL

function main

DEFINE WINDOW oMainWindow ;
  AT 0,0 WIDTH GetDesktopWidth() HEIGHT GetDesktopHeight()-30 ;
  TITLE "" ;
  FONT "Ms Sans Serif" SIZE 9 ;
  MAIN NOSIZE

  DEFINE MAIN MENU OF oMainWindow

  define popup "ACTIVEX"

 MENUITEM "Conectar"ACTION { || oMSCAL := TxActivex():New(
"oMainWindow", "GrFingerX.GrFingerXCtrl", 0, 0, 300, 300 ) }
 SEPARATOR

 MENUITEM "E&xit" ACTION ThisWindow.release

   end popup

  END MENU
END WINDOW

  ACTIVATE WINDOW oMainWindow

return nil

CLASS TxActivex
 CLASS VAR winclass INIT "ACTIVEX"
 DATA oOLE INIT nil
 DATA hWnd INIT nil
 METHOD New
 METHOD Event
 METHOD Destroy

 ERROR HANDLER OnError

ENDCLASS

METHOD New( cWnd, cProgId, nTop, nLeft, nWidth, nHeight, cID ) CLASS
TxActivex
 local nStyle
 nStyle := WS_CHILD + WS_VISIBLE + WS_CLIPCHILDREN
 WIN_AxInit()
 ::hWnd := WAPI_CreateWindowEX( 0, "AtlAxWin", cProgId, nStyle, nLeft,
nTop,nWidth, nHeight, WIN_N2P( getformhandle( cWnd ) ), 0 )
 ::oOLE := WIN_AxGetControl( ::hWnd, { | event, ... | ::Event( event,
... ) }, cID )

return self

METHOD Event( ... ) CLASS TxActivex
 local cEvents := ""
 local aEvents := { ... }
 local nHandle
 aEval(aEvents, { | xEvent | cEvents += HB_ValToStr( xEvent ) + ", " } )
 if !file( "Event.Log" )
 nHandle := fcreate( "Event.Log" )
 else
 nHandle := fopen( "Event.Log", 1 )
 fseek( nHandle, 0, 2 )
 endif
 fwrite( nHandle, cEvents + chr( 13 ) + chr( 10 ) )
 fclose( nHandle )
return nil

METHOD Destroy() CLASS TxActivex

 MsgInfo( "Bye" )

 DestroyWindow( WIN_P2N( ::hWnd ) )

 ::hWnd := nil

return nil

METHOD OnError() CLASS TxActivex

return HB_ExecFromArray( ::oOLE, __GetMessage(), HB_AParams() )

[ENDCODE]

...I see this error:

[ERROR]
Error WINOLE/1014 Failed to obtain connection point: __AXREGISTERHANDLER
(DOS Error -2147220992)

Called from __AXREGISTERHANDLER(0)
Called from WIN_AXGETCONTROL(0)
Called from TXACTIVEX:NEW(50)
Called from (b)MAIN(19)
Called from _DOCONTROLEVENTPROCEDURE(1612)
Called from EVENTS(1361)
Called from _DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(1340)
Called from MAIN(29)
[ENDERROR]

What might be causing this error ?

Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Error-with-activex-tp27722533p27722533.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Error with 13990 harbour svn

2010-02-25 Thread Rossine

Hi,

I have included this in my .BAT and now works.

set HB_BUILD_UNICODE=no

Work´s fine now :)

Many thank´s.

Rossine.


-- 
View this message in context: 
http://old.nabble.com/Error-with-13990-harbour-svn-tp27714510p27714516.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Error with 13990 harbour svn

2010-02-25 Thread Rossine

Hi,

I use minigui and this samples in windows XP work´s fine, but with windows
98 not work, abort in the function hb_memoread().

[CODE]

#include "minigui.ch"

Function Main

msgstop( "-STEP 1-" )

hb_memoread( "demo.prg" )

msgstop( "-STEP 2-" )  && Not come here

return NIL

[ENDCODE]

What can be ?

Best regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Error-with-13990-harbour-svn-tp27714510p27714510.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] About Harbour Documentation

2010-02-17 Thread Rossine

Hello vailton,


Vailton Renato wrote:
> 
> Hi all!
> 
> I have already worked for some time building scripts what convert the
> existing documentation in harbor/doc exporting it to an HTML format in
> order to integrate it into the Harbour site.
> 
> Today it has several pieces of this puzzle already finished and the
> last that I lack is to adjust the layout of the site to support online
> searches, similar to the PHP site.
> 
> An example of documentation that I have in mind can be seen in this
> link: http://www.sqllib.com.br/wxweb/manual/
> 
> So I think if we update the files inside  harbor/docs based on the
> latest updates by April White, we not only integrate with the site,
> but export them to various formats that already exist.
> 
> What do you think?
> 
> Regards,
> Vailton Renato
> 

It would be great if harbour work with your builder of documents.

Simply amazing how it is generated :-D

Congratulations for this great tool :clap:

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/About-Harbour-Documentation-tp27628023p27628901.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Sending SMS

2010-02-13 Thread Rossine

Hello Jaroslaw,


Jarosław Kądzioła wrote:
> 
> Local cPort := "\\.\COM28"
> Local phone_number := '123456789'
> Local sms_text := 'This is SMS'
> 
> sms_Send( cPort, phone_number , sms_text , .T. )
> 

When trying to use the ports COM1 or COM3 is returned -3, to use COM2 me is
returned .F.

What can be wrong ? I have to have some program installed on a door ?

Thank you all for responding :)

Best regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Sending-SMS-tp27568201p27575433.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Sending SMS

2010-02-12 Thread Rossine

Hello, 

Is possible send an SMS from within an application made in harbour ? 

An example ?

Best regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Sending-SMS-tp27568201p27568201.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Extension <.FPT>

2010-02-05 Thread Rossine

Hi Przemek,


Przemysław Czerpak wrote:
> 
> See in dbinfo.ch RDDI_{TABLE,MEMO,ORDBAG}EXT.
>rddInfo( RDDI_MEMOEXT,  [, ] )
> i.e.
>rddInfo( RDDI_MEMOEXT, ".mem", "DBFCDX" )
> 

Exactly what I need:)

Many thank´s :)

Best regards,

Rossine.


-- 
View this message in context: 
http://old.nabble.com/Extension-%3C.FPT%3E-tp27452184p27465252.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Extension <.FPT>

2010-02-04 Thread Rossine

Hello,

Is possible change the extension of a file <.FPT> for any other for exemplo
<.XXX>

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Extension-%3C.FPT%3E-tp27452184p27452184.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


RE: [Harbour] errors with release 13584

2010-01-18 Thread Rossine

Hello Franček Prijatelj,

With an earlier version 13549 compiled 100% for BCC. With the latest
releases from Harbor began to appear that these errors. If I can fix it for
me to continue to use BCC ?


Franček Prijatelj wrote:
> 
> I use mingw and MSVC8 with minigui extended (distribution by Grigory
> Filatov)
> and I have no problems with any compiler.
> Because minigui uses win32 appi, You have to #include 
> 

What do I do / configure to generate the libraries for MiniGUI using MinGW /
MSVC

Best regards,

Rossine. 



-- 
View this message in context: 
http://old.nabble.com/errors-with-release-13584-tp27170267p27214461.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] errors with release 13584

2010-01-18 Thread Rossine

Hello All,

Thanks for the tips and explanations but for now I want to continue using
the borland. Today I tried to compile with the 13627 release and the errors
continue. Using the 13549 release everything works OK. 

Below I list some of the errors:

[ERRORS]

MiniGui.lib

Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
h_scrsaver.c:
h_edit.c:
h_edit_ex.c:
h_error.c:
h_ipaddress.c:
c_ipaddress.c:
Error E2257 c:\bcc55\include\prsht.h 90: , expected
Error E2293 c:\bcc55\include\prsht.h 97: ) expected
Error E2293 c:\bcc55\include\prsht.h 98: ) expected
Error E2139 c:\bcc55\include\prsht.h 137: Declaration missing ;
Error E2238 c:\bcc55\include\prsht.h 138: Multiple declaration for 'DWORD'
Error E2344 c:\bcc55\include\prsht.h 137: Earlier declaration of 'DWORD'
Error E2139 c:\bcc55\include\prsht.h 138: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 139: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 141: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 143: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 149: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 150: Declaration missing ;
Error E2238 c:\bcc55\include\prsht.h 151: Multiple declaration for 'LPCSTR'
Error E2344 c:\bcc55\include\prsht.h 143: Earlier declaration of 'LPCSTR'
Error E2238 c:\bcc55\include\prsht.h 152: Multiple declaration for 'LPCSTR'
Error E2344 c:\bcc55\include\prsht.h 143: Earlier declaration of 'LPCSTR'
Error E2139 c:\bcc55\include\prsht.h 152: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 153: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 154: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 155: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 156: Declaration missing ;
Error E2238 c:\bcc55\include\prsht.h 159: Multiple declaration for 'LPCSTR'
Error E2344 c:\bcc55\include\prsht.h 143: Earlier declaration of 'LPCSTR'
Error E2139 c:\bcc55\include\prsht.h 159: Declaration missing ;
Error E2238 c:\bcc55\include\prsht.h 160: Multiple declaration for 'LPCSTR'
Error E2228 c:\bcc55\include\prsht.h 160: Too many error or warning messages
*** 26 errors in Compile ***
h_monthcal.c:
c_monthcal.c:
Error E2257 c:\bcc55\include\prsht.h 90: , expected
Error E2293 c:\bcc55\include\prsht.h 97: ) expected
Error E2293 c:\bcc55\include\prsht.h 98: ) expected
Error E2139 c:\bcc55\include\prsht.h 137: Declaration missing ;
Error E2238 c:\bcc55\include\prsht.h 138: Multiple declaration for 'DWORD'
Error E2344 c:\bcc55\include\prsht.h 137: Earlier declaration of 'DWORD'
Error E2139 c:\bcc55\include\prsht.h 138: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 139: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 141: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 143: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 149: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 150: Declaration missing ;
Error E2238 c:\bcc55\include\prsht.h 151: Multiple declaration for 'LPCSTR'
Error E2344 c:\bcc55\include\prsht.h 143: Earlier declaration of 'LPCSTR'
Error E2238 c:\bcc55\include\prsht.h 152: Multiple declaration for 'LPCSTR'
Error E2344 c:\bcc55\include\prsht.h 143: Earlier declaration of 'LPCSTR'
Error E2139 c:\bcc55\include\prsht.h 152: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 153: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 154: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 155: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 156: Declaration missing ;
Error E2238 c:\bcc55\include\prsht.h 159: Multiple declaration for 'LPCSTR'
Error E2344 c:\bcc55\include\prsht.h 143: Earlier declaration of 'LPCSTR'
Error E2139 c:\bcc55\include\prsht.h 159: Declaration missing ;
Error E2238 c:\bcc55\include\prsht.h 160: Multiple declaration for 'LPCSTR'
Error E2228 c:\bcc55\include\prsht.h 160: Too many error or warning messages
*** 26 errors in Compile ***
h_help.c:
...
[ENDERRORS]

You can correct these mistakes and others for i use this last release ?  

Best Regards,

Rossine.


-- 
View this message in context: 
http://old.nabble.com/errors-with-release-13584-tp27170267p27211627.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


RE: [Harbour] errors with release 13584

2010-01-15 Thread Rossine

Hello Horodyski,

I use minigui extended. Currently I use Borland BCC. What is the advantage
to using MingGW ?

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/errors-with-release-13584-tp27170267p27174837.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] errors with release 13584

2010-01-14 Thread Rossine
Error E2139 c:\bcc55\include\prsht.h 152: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 153: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 154: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 155: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 156: Declaration missing ;
Error E2238 c:\bcc55\include\prsht.h 159: Multiple declaration for 'LPCSTR'
Error E2344 c:\bcc55\include\prsht.h 143: Earlier declaration of 'LPCSTR'
Error E2139 c:\bcc55\include\prsht.h 159: Declaration missing ;
Error E2238 c:\bcc55\include\prsht.h 160: Multiple declaration for 'LPCSTR'
Error E2228 c:\bcc55\include\prsht.h 160: Too many error or warning messages
*** 26 errors in Compile ***
h_toolbar.c:
errorsys.c:
h_init.c:
h_media.c:
c_media.c:
Error E2257 c:\bcc55\include\prsht.h 90: , expected
Error E2293 c:\bcc55\include\prsht.h 97: ) expected
Error E2293 c:\bcc55\include\prsht.h 98: ) expected
Error E2139 c:\bcc55\include\prsht.h 137: Declaration missing ;
Error E2238 c:\bcc55\include\prsht.h 138: Multiple declaration for 'DWORD'
Error E2344 c:\bcc55\include\prsht.h 137: Earlier declaration of 'DWORD'
Error E2139 c:\bcc55\include\prsht.h 138: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 139: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 141: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 143: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 149: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 150: Declaration missing ;
Error E2238 c:\bcc55\include\prsht.h 151: Multiple declaration for 'LPCSTR'
Error E2344 c:\bcc55\include\prsht.h 143: Earlier declaration of 'LPCSTR'
Error E2238 c:\bcc55\include\prsht.h 152: Multiple declaration for 'LPCSTR'
Error E2344 c:\bcc55\include\prsht.h 143: Earlier declaration of 'LPCSTR'
Error E2139 c:\bcc55\include\prsht.h 152: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 153: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 154: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 155: Declaration missing ;
Error E2139 c:\bcc55\include\prsht.h 156: Declaration missing ;

... and more

[ENDERRORS]

How to fix this ?

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/errors-with-release-13584-tp27170267p27170267.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Mary Christmas

2009-12-24 Thread Rossine

Hi all,

Merry Christmas to all families harbour :)

Thank you for this gift that is the harbour 2.0 :)

Best regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Mary-Christmas-tp26914585p26915897.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Harbour 2.0.0: Released

2009-12-23 Thread Rossine

Hello Team harbour,

I am so  happy to not have chosen Delphi or VB as my tools to work,
therefore Harbour gives me everything I need and more. I think the leaders
of the Harbour as geniuses by the ability to provide tools so incredible.
Harbour is my home :)

Special thanks to Vailtom for their contributions and the translation of the
Harbour for the Portuguese.

Thank you all for this grandeur.

Best Regards,

Rossine.


-- 
View this message in context: 
http://old.nabble.com/Harbour-2.0.0%3A-Released-tp26895087p26906067.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] SF.net SVN: harbour-project:[13270] trunk/harbour

2009-12-21 Thread Rossine

Hello,

You can add two more parameters, "User" and "Password" for authentication ?

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/SF.net-SVN%3A-harbour-project%3A-13270--trunk-harbour-tp26818074p26877785.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Erro with -hblnk /FORCE

2009-12-11 Thread Rossine

Hello Viktor,

it works perfectly :)

Many Thank´s,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Erro-with---hblnk--FORCE-tp26744825p26745054.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Erro with -hblnk /FORCE

2009-12-11 Thread Rossine

Hello,

I'm testing the MiniGUI with MSVC 2008 Express, and can generate the exe
file I need to pass the parameter "-hblnk / FORCE". But when I put it, the
parameter "/ I." does not work, then it goes to occur this error:

main.prg(23) Error F0029  Can't open #include file 'Principal.fmg'

This is a piece of code:

[CODE]
/*
* Contactos
* (C) 2003 Roberto Lopez 
*
* (C) 2005 Designed by MigSoft with MiniGUI IDE :: Roberto Lopez ::
*/

#include "minigui.ch"

Static Nuevo := .F.

Function Main

set delete on
set browsesync on
set century on
set date french

Request DBFCDX , DBFFPT
Rddsetdefault( "DBFCDX" )

Set Default Icon To "Tutor"
Load Window Principal && Here occurs the error
Activate Window Principal

Return Nil
...
[ENDCODE]

I use this command:

hbmk2 -trace -info -n -gtgui -ic:\minigui\include %1
c:\minigui\batch\minigui.hbc c:\minigui\batch\minigui.hbm /I. -hblnk /FORCE
%2 %3 %4 %5 > comp.log

How do I fix this?

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Erro-with---hblnk--FORCE-tp26744825p26744825.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Ace.lib not generate in last version

2009-12-02 Thread Rossine

Hi Viktor,

I include in my script:

set HB_WITH_ADS=C:\ads81

...and ace32.lib is generated :)

Thank you very much,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Ace.lib-not-generate-in-last-version-tp26591636p26609679.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Ace.lib not generate in last version

2009-12-01 Thread Rossine

Hello,

I not see ace.lib in last version. 

Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Ace.lib-not-generate-in-last-version-tp26591636p26591636.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Error with last version

2009-11-30 Thread Rossine

Hello,

I see this error in last version:

[ERRORS]
...
Error E2303 ../../../../../include\hbapi.h 937: Type name expected
Error E2303 ../../../../../include\hbapi.h 938: Type name expected
*** 20 errors in Compile ***
mingw32-make[3]: *** [_hbhbpdf.obj] Error 1
mingw32-make[2]: *** [descend] Error 2
mingw32-make[1]: *** [libhpdf.inst] Error 2
mingw32-make: *** [external.inst] Error 2
[ENDERRORS]

I use BCC.

Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/Error-with-last-version-tp26579544p26579544.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] List of variables in memory

2009-11-04 Thread Rossine

Hello,

I can list all variables that are in memory of my application ? Any example
?

Best Regards,

Rossine.

-- 
View this message in context: 
http://old.nabble.com/List-of-variables-in-memory-tp26196575p26196575.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Error Comparing two arrays

2009-09-29 Thread Rossine

Hello Teo,

>Hello Rossine, here is a little function that I wrote years ago to  
>compare two array contents:
>
>...

This work´s fine :)

Many thank´s,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/Error-Comparing-two-arrays-tp25665027p25668693.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Error Comparing two arrays

2009-09-29 Thread Rossine

Hello

This sample:

[CODE]

function main

local aArr1 := { }
local aArr2 := { }

? aArr1 != aArr2

return NIL

[ENDCODE]

generate this error:

[ERROR]

Error BASE/1072  Argument error: <>
Called from MAIN(6)

[ENDERROR]

I see that this is correct, it also occurs in the clipper same error. How do
I compare two arrays ?

Regards,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/Error-Comparing-two-arrays-tp25665027p25665027.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


RE: [Harbour] ViaNemo: New Framework Opensource for Harbour

2009-09-03 Thread Rossine

Hello Fernando, 

When can we start testing ViaNemo ?

Regards,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/SF.net-SVN%3A-harbour-project%3A-12382--trunk-harbour-tp25231702p25274557.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Error with 12395 and msvc

2009-09-02 Thread Rossine

Hello,

I see this errors:

[ERROR]

\Qt\qt\include/QtWebKit -DQT_NODLL -DHB_GC_AUTO -DHB_FM_STATISTIC
-Fomoc_slots.o
bj -c ../../../moc_slots.cpp, ...) failed.
make (e=2): O sistema não pode encontrar o arquivo especificado.
mingw32-make[3]: *** [moc_slots.obj] Error 2
mingw32-make[2]: *** [descend] Error 2
mingw32-make[1]: *** [hbqt.inst] Error 2
mingw32-make: *** [contrib.inst] Error 2

[ENDERROR]

Best Regards,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/Error-with-12395-and-msvc-tp25263591p25263591.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


RE: [Harbour] ViaNemo: New Framework Opensource for Harbour

2009-09-01 Thread Rossine

Hello Fernando,

Is possible to have compatibility with MiniGUI extended also ?
-- 
View this message in context: 
http://www.nabble.com/SF.net-SVN%3A-harbour-project%3A-12382--trunk-harbour-tp25231702p25244059.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] This is possible with harbour ?

2009-08-24 Thread Rossine

Hello,

You can use this example below with harbour ?

[CODE]
Procedure Main( sMsg )

   LOCAL sText, sPPed, asPPed, oInterpreter, oErr, xResult, bDefErrBlock :=
ErrorBlock()

   TRY
  oInterpreter := TInterpreter():New()

  oInterpreter:AddLine( "/* Sample Script for embedded PP "   )
  oInterpreter:AddLine( " have fun... */" )
  oInterpreter:AddLine( "")
  oInterpreter:AddLine( "Procedure Test( cMacroVar, xValue )" )
  oInterpreter:AddLine( "")
  oInterpreter:AddLine( "   Local cVar := 'Hi There'" )
  oInterpreter:AddLine( "")
  oInterpreter:AddLine( "   &cMacroVar := xValue" )
  oInterpreter:AddLine( "")
  oInterpreter:AddLine( "   ? cVar, &cMacroVar, ;")
  oInterpreter:AddLine( " xValue" )
  oInterpreter:AddLine( "")
  oInterpreter:AddLine( "   WHILE Inkey() == 0 // WAIT"   )
  oInterpreter:AddLine( "   ENDDO")
  oInterpreter:AddLine( "")
  oInterpreter:AddLine( "RETURN LastKey()")

  // Will automatically perform a ::Compile() first.
  xResult := oInterpreter:Run( "Param1", "Param2" )

  IF xResult:ClassName == "ERROR"
 Eval( bDefErrBlock, xResult )
  ELSE
 Alert( xResult )
  ENDIF
   CATCH oErr
  Eval( bDefErrBlock, oErr )
   END

   TRY
  sText := "/* Sample Script for embedded PP " + Chr(10)
  sText += " have fun... */  " + Chr(10)
  sText += " " + Chr(10)
  sText += "Procedure Test( cMacroVar, xValue )  " + Chr(10)
  sText += " " + Chr(10)
  sText += "   Local cVar := 'Hi There'  " + Chr(10)
  sText += " " + Chr(10)
  sText += "   &cMacroVar := xValue  " + Chr(10)
  sText += " " + Chr(10)
  sText += "   ? cVar, &cMacroVar,  ;" + Chr(10)
  sText += " xValue  " + Chr(10)
  sText += " " + Chr(10)
  sText += "   WHILE Inkey() == 0 // WAIT" + Chr(10)
  sText += "   ENDDO " + Chr(10)
  sText += " " + Chr(10)
  sText += "RETURN LastKey() "

  xResult := PP_RunText( sText, .T., { "Private_1", 1000 } )

  IF xResult:ClassName == "ERROR"
 Eval( bDefErrBlock, xResult )
  ELSE
 Alert( xResult )
  ENDIF
   CATCH oErr
  Eval( bDefErrBlock, oErr )
   END

   //OR ...
   TRY
  sPPed := PP_PreProText( sText )
  xResult := PP_RunText( sPPed, .F., { "Private_2", 2000 } )

  IF xResult:ClassName == "ERROR"
 Eval( bDefErrBlock, xResult )
  ELSE
 Alert( xResult )
  ENDIF
   CATCH oErr
  Eval( bDefErrBlock, oErr )
   END

   //OR ...
   TRY
  asPPed := {}
  PP_PreProText( sText, asPPed )

  xResult := PP_RunArray( asPPed, { "Private_3", 3000 } )

  IF xResult:ClassName == "ERROR"
 Eval( bDefErrBlock, xResult )
  ELSE
 Alert( xResult )
  ENDIF
   CATCH oErr
  Eval( bDefErrBlock, oErr )
   END

   // Now let's have some real fun...
   IF sMsg == "Recursively running self"
  Alert( "Let's STOP this madness..." )
  RETURN "Stopped"
   ENDIF

   TRY
  //PP_Run( "prgscrpt.prg", { "Recursively running self" } )
  xResult := oInterpreter:RunFile( "prgscrpt.prg", { "Recursively
running self" }, ".pp", .F. ) // Output PreProcessed extension .pp wirhout
blanks.

  IF xResult:ClassName == "ERROR"
 Eval( bDefErrBlock, xResult )
  ELSE
 Alert( xResult )
  ENDIF
   CATCH oErr
  Eval( bDefErrBlock, oErr )
   END

RETURN
[ENDCODE]

Regards,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/This-is-possible-with-harbour---tp25117049p25117049.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] error with 12299

2009-08-24 Thread Rossine

Hello,

Work´s fine now :)

Thank yopu very much,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/error-with-12299-tp25115125p25115917.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] error with 12299

2009-08-24 Thread Rossine

Hello,

I seek this erro with 12299

[ERROR]
ilink32.exe -q -Gn -C -aa -Tpd -Gi -x  c0d32.obj @__dyn__.tmp
Error: Unresolved external '_hb_compIdentifierNew' referenced from
C:\HARBOUR\SO
URCE\MACRO\OBJ\WIN\BCC\MACROB_DYN.OBJ
mingw32-make[3]: *** [harbour-20-bcc.dll] Error 2
mingw32-make[2]: *** [descend] Error 2
mingw32-make[1]: *** [dynlib.inst] Error 2
mingw32-make: *** [source.inst] Error 2
[ENDERROR]

Best Regards,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/error-with-12299-tp25115125p25115125.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Error with 12244 and msvc

2009-08-22 Thread Rossine

Hellho Viktor, 


Viktor Szakáts wrote:
> 
> Which MSVC version is this? link.exe 
> 

Yes you are right, link.exe was an older version. Now it works fine 

Sorry for my fault. :-) 

Thank you very much, 

Rossine.
-- 
View this message in context: 
http://www.nabble.com/Error-with-12244-and-msvc-tp25085952p25096770.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Error with 12244 and msvc

2009-08-22 Thread Rossine

Hi Viktor,


Viktor Szakáts wrote:
> 
> Do you have something called rm.exe in your PATH?
> 

No i not call rm.exe

See that are only   and  generated

[COMP]
cl.exe  -nologo -I. -I../../../../../include -Gs -TP -W4 -wd4127 -Ot2b1
-EHs-c- -MT   -DHB_GC_AUTO -DHB_FM_STATISTIC -Foreserved_dyn.obj -DHB_DYNLIB
-c ../../../reserved.c
reserved.c
cl.exe  -nologo -I. -I../../../../../include -Gs -TP -W4 -wd4127 -Ot2b1
-EHs-c- -MT   -DHB_GC_AUTO -DHB_FM_STATISTIC -Fostrwild.obj -c
../../../strwild.c
strwild.c
cl.exe  -nologo -I. -I../../../../../include -Gs -TP -W4 -wd4127 -Ot2b1
-EHs-c- -MT   -DHB_GC_AUTO -DHB_FM_STATISTIC -Fostrwild_dyn.obj -DHB_DYNLIB
-c ../../../strwild.c
strwild.c
lib.exe   /nologo /out:../../../../../lib/win/msvc/hbcommon.lib expropt1.obj
expropt2.obj hbffind.obj hbfopen.obj hbfsapi.obj hbgete.obj hbwince.obj
hbhash.obj hbprintf.obj hbstr.obj hbdate.obj hbmem.obj hbtrace.obj hbver.obj
hbverdsp.obj hbarch.obj reserved.obj strwild.obj || del /q /f
../../../../../lib/win/msvc/hbcommon.lib
1 arquivo(s) copiado(s).
cl.exe  -nologo -I. -I../../../../../include -Gs -TP -W4 -wd4127 -Ot2b1
-EHs-c- -MT   -DHB_GC_AUTO -DHB_FM_STATISTIC -Fonortl.obj -c
../../../nortl.c
nortl.c
lib.exe   /nologo /out:../../../../../lib/win/msvc/hbnortl.lib nortl.obj ||
del /q /f ../../../../../lib/win/msvc/hbnortl.lib
1 arquivo(s) copiado(s).
cl.exe  -nologo -I. -I../../../../../include -Gs -TP -W4 -wd4127 -Ot2b1
-EHs-c- -MT   -DHB_GC_AUTO -DHB_FM_STATISTIC -Fohbpp.obj -c ../../../hbpp.c
hbpp.c
cl.exe  -nologo -I. -I../../../../../include -Gs -TP -W4 -wd4127 -Ot2b1
-EHs-c- -MT   -DHB_GC_AUTO -DHB_FM_STATISTIC -Fohbpp_dyn.obj -DHB_DYNLIB -c
../../../hbpp.c
hbpp.c
link.exe  /out:..\..\..\..\..\bin\win\msvc\hbpp.exe hbpp.obj  /nologo
/libpath:../../../../../lib/win/msvc  hbcommon.lib hbnortl.lib kernel32.lib
user32.lib ws2_32.lib advapi32.lib gdi32.lib
rm hbpp.obj


C:\harbour>\bin\mingw32-make.exe CLEAN INSTALL  1>msvc.txt
process_begin: CreateProcess(C:\bin\link.exe, link.exe
/out:..\..\..\..\..\bin\w
in\msvc\hbpp.exe hbpp.obj /nologo /libpath:../../../../../lib/win/msvc
hbcommon.
lib hbnortl.lib kernel32.lib user32.lib ws2_32.lib advapi32.lib gdi32.lib,
...)
failed.
make (e=87): ParÔmetro incorreto.
mingw32-make[3]: *** [hbpp.exe] Error 87
mingw32-make[2]: *** [descend] Error 2
mingw32-make[1]: *** [pp.inst] Error 2
mingw32-make: *** [source.inst] Error 2

[ENDCOMP]

[MYDIR]

 Pasta de C:\hrb_msvc\lib

.. 21/08/2009  16:17
.  21/08/2009  16:17
hbcommon lib222.454 22/08/2009  11:22
hbnortl  lib  9.938 22/08/2009  11:22
   2 arquivo(s)232.392 bytes

[ENDMYDIR]

Best Regards,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/Error-with-12244-and-msvc-tp25085952p25094921.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Error with 12244 and msvc

2009-08-21 Thread Rossine

Hello Viktor,


Viktor Szakáts wrote:
> 
> Hi Rossine,
> Please post the very first 10 lines of your output.
> 

This is my log erro complete:

[COMPILE]
! MAKE: C:/bin/mingw32-make 3.81 CLEAN INSTALL  sh.exe
! HB_USER_CFLAGS: -DHB_GC_AUTO -DHB_FM_STATISTIC
! HB_INSTALL_PREFIX: C:\hrb_msvc
! HB_BIN_INSTALL: C:\hrb_msvc\bin
! HB_LIB_INSTALL: C:\hrb_msvc\lib
! HB_INC_INSTALL: C:\hrb_msvc\include
! HB_DOC_INSTALL: C:\hrb_msvc\doc
! HB_BUILD_DLL: yes
! HB_HOST_ARCH: win (x86)  HB_SHELL: nt
! HB_ARCHITECTURE: win (x86) (autodetected)
! HB_COMPILER: msvc 
mingw32-make[2]: `clean' is up to date.
mingw32-make[1]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[3]: `clean' is up to date.
! 'gtcrs' library skipped
! 'gtdos' library skipped
mingw32-make[3]: `clean' is up to date.
! 'gtos2' library skipped
mingw32-make[3]: `clean' is up to date.
! 'gtsln' library skipped
mingw32-make[3]: `clean' is up to date.
! 'gttrm' library skipped
mingw32-make[3]: `clean' is up to date.
mingw32-make[3]: `clean' is up to date.
! 'gtxwc' library skipped
mingw32-make[3]: `clean' is up to date.
mingw32-make[3]: `clean' is up to date.
mingw32-make[3]: `clean' is up to date.
mingw32-make[3]: `clean' is up to date.
mingw32-make[3]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[3]: `clean' is up to date.
mingw32-make[3]: `clean' is up to date.
mingw32-make[3]: `clean' is up to date.
mingw32-make[3]: `clean' is up to date.
mingw32-make[3]: `clean' is up to date.
mingw32-make[3]: `clean' is up to date.
mingw32-make[3]: `clean' is up to date.
mingw32-make[3]: `clean' is up to date.
mingw32-make[3]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[3]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
! 'gtalleg' library skipped
mingw32-make[2]: `clean' is up to date.
! 'hbcurl' library skipped
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
! 'hbgd' library skipped
mingw32-make[2]: `clean' is up to date.
! 'hbmysql' library skipped
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
! 'hbssl' library skipped
mingw32-make[2]: `clean' is up to date.
! 'sddmy' library skipped
mingw32-make[3]: `clean' is up to date.
mingw32-make[3]: `clean' is up to date.
mingw32-make[3]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
mingw32-make[2]: `clean' is up to date.
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
1 arquivo(s) copiado(s).
1 

[Harbour] Error with 12244 and msvc

2009-08-21 Thread Rossine

Hello,

I see this errors with release 12244 and msvc:

[ERRORS]

cl.exe  -nologo -I. -I../../../../../include -Gs -TP -W4 -wd4127 -Ot2b1
-EHs-c- -MT   -DHB_GC_AUTO -DHB_FM_STATISTIC -Fohbpp.obj -c ../../../hbpp.c
hbpp.c
cl.exe  -nologo -I. -I../../../../../include -Gs -TP -W4 -wd4127 -Ot2b1
-EHs-c- -MT   -DHB_GC_AUTO -DHB_FM_STATISTIC -Fohbpp_dyn.obj -DHB_DYNLIB -c
../../../hbpp.c
hbpp.c
link.exe  /out:..\..\..\..\..\bin\win\msvc\hbpp.exe hbpp.obj  /nologo
/libpath:../../../../../lib/win/msvc  hbcommon.lib hbnortl.lib kernel32.lib
user32.lib ws2_32.lib advapi32.lib gdi32.lib
rm hbpp.obj

failed.
make (e=87): ParÔmetro incorreto.
mingw32-make[3]: *** [hbpp.exe] Error 87
rm hbpp.obj
mingw32-make[2]: *** [descend] Error 2
mingw32-make[1]: *** [pp.inst] Error 2
mingw32-make: *** [source.inst] Error 2

[ENDERRORS]

Regards,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/Error-with-12244-and-msvc-tp25085952p25085952.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Problemn with 12122

2009-08-15 Thread Rossine

Hi Viktor, 

I found this:

[CHANGELOG]
2009-08-14 22:33 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
...
 - make_gnu.bat
- Deleted these starter batch files.
; Please use 'mingw32-make' (if installed in PATH) or
  'config/mingw32-make' (if not installed in PATH) instead.
[ENDCHANGELOG]

It´s works fine now :-)

Many thank´s,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/Problemn-with-12122-tp24984562p24987139.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Problemn with 12122

2009-08-15 Thread Rossine

Hello,

I deleted my directory "c:\harbour" and updated it again and all these files
are not downloaded:

make_gnu.bat
mpkg_dos.bat
mpkg_win.bat

Regards,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/Problemn-with-12122-tp24984562p24984562.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Why this errors ?

2009-08-13 Thread Rossine

Hello,

See not exist C:\harbour\include\hbverbld.h

I am use 12095 rev:

[ERRORS]
C:\harbour-#BCC#>call MAKE_GNU.bat CLEAN INSTALL
! MAKE: mingw32-make.exe
! HB_USER_CFLAGS: -DHB_GC_AUTO -DHB_FM_STATISTIC
! HB_INSTALL_PREFIX: C:\hrb_bcc
! HB_BIN_INSTALL: C:\hrb_bcc\bin
! HB_LIB_INSTALL: C:\hrb_bcc\lib
! HB_INC_INSTALL: C:\hrb_bcc\inc
! HB_DOC_INSTALL: C:\hrb_bcc\doc
Não foi possível encontrar C:\harbour\include\hbverbld.h
O sistema não pode encontrar o caminho especificado.
mingw32-make.exe[2]: [clean] Error 1 (ignored)
O sistema não pode encontrar o caminho especificado.
mingw32-make.exe[2]: [clean] Error 1 (ignored)
"! 'gtcrs' library skipped"
"! 'gtdos' library skipped"
"! 'gtos2' library skipped"
"! 'gtsln' library skipped"
"! 'gttrm' library skipped"
^CDeseja interromper o arquivo em lotes (S/N)? s
mingw32-make.exe[2]: *** [gtwin.clean] Error 255
[ENDERRORS]

My batch set is this:

[BATCH]
set HB_BUILD_DLL=yes
set HB_DIR_IMPLIB=yes
set HB_BUILD_IMPLIB=yes

REM set HB_BUILD_LOG=yes

set HB_INC_PGSQL=C:\pgsql83\include
set HB_INC_ADS=C:\ads81
set HB_INC_QT=C:\Qt\qt\include
set HB_INC_FIREBIRD=C:\ARQUIV~1\Firebird\Firebird_2_1\include
set HB_INC_FREEIMAGE=C:\FreeImg\3120\Dist

set HB_DIR_PGSQL=C:\pgsql83\include
set HB_DIR_ADS=C:\ads81
set HB_DIR_QT=C:\Qt\qt\include
set HB_DIR_FIREBIRD=C:\ARQUIV~1\Firebird\Firebird_2_1\include
set HB_DIR_FREEIMAGE=C:\FreeImg\3120\Dist

set HB_LEX=SIMPLEX
set HB_USER_CFLAGS=-DHB_GC_AUTO -DHB_FM_STATISTIC

set HB_PATH=C:\hrb_bcc
set HB_INSTALL_PREFIX=%HB_PATH%

set HB_BIN_INSTALL=%HB_PATH%\bin
set HB_LIB_INSTALL=%HB_PATH%\lib
set HB_INC_INSTALL=%HB_PATH%\inc
set HB_DOC_INSTALL=%HB_PATH%\doc

set HB_COMPILER=bcc

set BCC_DIR=c:\bcc55

[ENDBATCH]

Regards,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/Why-this-errors---tp2493p2493.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Change BCC to MSVC

2009-08-11 Thread Rossine

Hello Itamar, 

This is my batch to convert DLL to Lib using MSVC. Try this:

[BATCH]

@if exist %1.lib del %1.lib > nul
@if exist *.exp  del *.exp > nul
@if exist *.def  del *.def > nul

if "%1" == "" goto help

if not exist %1.dll goto notfound

rem pexports.exe %1 > _temp_.def 
impdef.exe %2 %1.def %1.dll

if errorlevel 1 goto errodef

lib /def:%1.def

if errorlevel 1 echo Error creating .LIB...

goto fim

:help
echo Usage: dll2lib input.dll [output.lib]
goto fim

:notfound
echo ERROR: File not found "%1"
goto fim

:errodef
echo Error extracting .DEF...
goto fim

:fim

rem @if exist *.exp del *.exp > nul
rem @if exist *.def del *.def > nul
[ENDBATCH]

Regards,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/Change-BCC-to-MSVC-tp24910812p24928139.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Samples FWH not working with 11478

2009-06-22 Thread Rossine

Hello,

I was using the release 11401 and updated to 11478 and all examples of
fivewin "c:\fwh\samples" stopped 
work. Now all generate errors of GPF. Seek some errors: 

[ERRORS] 

Application Internal Error - C:\fwh\samples\testget.exe
Terminated at: 2009.06.22 11:14:22
Unrecoverable error 9003: Too many recursive error handler calls
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from TDIALOG:CTOCHAR(0) in classes\DIALOG.PRG
Called from TDIALOG:ACTIVATE(0) in classes\DIALOG.PRG
Called from MAIN(30) in testget.prg

Application Internal Error - C:\fwh\samples\webexp.exe
Terminated at: 2009.06.22 11:14:44
Unrecoverable error 9003: Too many recursive error handler calls
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from TOLEAUTO:NAVIGATE(0)
Called from __OBJSENDMSG(0)
Called from TACTIVEX:DO(0) in classes\ACTIVEX.PRG
Called from MAIN(17) in webexp.prg

Application Internal Error - C:\fwh\samples\testimg.exe
Terminated at: 2009.06.22 11:15:27
Unrecoverable error 9003: Too many recursive error handler calls
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from TDIALOG:CTOCHAR(0) in classes\DIALOG.PRG
Called from TDIALOG:ACTIVATE(0) in classes\DIALOG.PRG
Called from MAIN(41) in testimg.prg

[ENDERRORS] 

What can be wrong ?

Best Regards, 

Rossine.

-- 
View this message in context: 
http://www.nabble.com/Samples-FWH-not-working-with-11478-tp24147812p24147812.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Work with HBQT

2009-06-09 Thread Rossine

Hi Viktor,



> Are these MSVC QT libs *static ones*, or *implibs* generated by Harbour?
> 

I use, *implibs* generated by Harbour.

This is my BAT

[BAT]

@echo off

call envhrba.bat MSVC  <-- Here i Configure my ambient to harbour and
MSVC

@if exist %1.lib del %1.lib > nul
@if exist *.exp  del *.exp > nul
@if exist *.def  del *.def > nul

if "%1" == "" goto help

if not exist %1.dll goto notfound

rem pexports.exe %1 > _temp_.def 
impdef.exe %2 %1.def %1.dll

if errorlevel 1 goto errodef

lib /def:%1.def

if errorlevel 1 echo Error creating .LIB...

goto fim

:help
echo Usage: dll2lib input.dll [output.lib]
goto fim

:notfound
echo ERROR: File not found "%1"
goto fim

:errodef
echo Error extracting .DEF...
goto fim

:fim

rem @if exist *.exp del *.exp > nul
rem @if exist *.def del *.def > nul

call envhrbd.bat

[BATEND]

Best Regards,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/Work-with-HBQT-tp23901290p23947037.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Work with HBQT

2009-06-09 Thread Rossine

Hello,

When I try to DEMOQT.PRG generated many errors. See:

[ERRORS]
hbmk: Processing configuration: C:\hrb_msvc\bin\hbmk.cfg
 
hbmk: Processing: hbqt.hbc  
 
demoqt.c
hbmk_7xenng.c
Generating Code...
hbqt.lib(hbqt_qwebview.obj) : error LNK2019: unresolved external symbol
"__declspec(dllimport) public: __thiscall QWebView::QWebView(class QWidget
*)" (__imp_??0QWebView@@q...@pavqwidget@@@Z) referenced in function
_HB_FUN_QT_QWEBVIEW
hbqt.lib(hbqt_qwebview.obj) : error LNK2001: unresolved external symbol
"public: virtual struct QMetaObject const * __thiscall
QWebView::metaObject(void)const "
(?metaobj...@qwebview@@UBEPBUQMetaObject@@XZ)
hbqt.lib(hbqt_qwebview.obj) : error LNK2001: unresolved external symbol
"public: virtual void * __thiscall QWebView::qt_metacast(char const *)"
(?qt_metac...@qwebview@@uaepax...@z)
hbqt.lib(hbqt_qwebview.obj) : error LNK2001: unresolved external symbol
"public: virtual int __thiscall QWebView::qt_metacall(enum
QMetaObject::Call,int,void * *)"
(?qt_metac...@qwebview@@uaehw4c...@qmetaobject@@hpa...@z)
hbqt.lib(hbqt_qwebview.obj) : error LNK2001: unresolved external symbol
"public: virtual bool __thiscall QWebView::event(class QEvent *)"
(?ev...@qwebview@@UAE_NPAVQEvent@@@Z)
hbqt.lib(hbqt_qmainwindow.obj) : error LNK2001: unresolved external symbol
"public: virtual bool __thiscall QObject::eventFilter(class QObject *,class
QEvent *)" (?eventfil...@qobject@@uae_np...@pavqevent@@@Z)
hbqt.lib(hbqt_qtoolbar.obj) : error LNK2001: unresolved external symbol
"public: virtual bool __thiscall QObject::eventFilter(class QObject *,class
QEvent *)" (?eventfil...@qobject@@uae_np...@pavqevent@@@Z)
hbqt.lib(hbqt_qmenu.obj) : error LNK2001: unresolved external symbol
"public: virtual bool __thiscall QObject::eventFilter(class QObject *,class
QEvent *)" (?eventfil...@qobject@@uae_np...@pavqevent@@@Z)
hbqt.lib(hbqt_qstatusbar.obj) : error LNK2001: unresolved external symbol
"public: virtual bool __thiscall QObject::eventFilter(class QObject *,class
QEvent *)" (?eventfil...@qobject@@uae_np...@pavqevent@@@Z)
hbqt.lib(hbqt_qwidget.obj) : error LNK2001: unresolved external symbol
"public: virtual bool __thiscall QObject::eventFilter(class QObject *,class
QEvent *)" (?eventfil...@qobject@@uae_np...@pavqevent@@@Z)
hbqt.lib(hbqt_qtabwidget.obj) : error LNK2001: unresolved external symbol
"public: virtual bool __thiscall QObject::eventFilter(class QObject *,class
QEvent *)" (?eventfil...@qobject@@uae_np...@pavqevent@@@Z)
hbqt.lib(hbqt_qtablewidget.obj) : error LNK2001: unresolved external symbol
"public: virtual bool __thiscall QObject::eventFilter(class QObject *,class
QEvent *)" (?eventfil...@qobject@@uae_np...@pavqevent@@@Z)
hbqt.lib(hbqt_qpushbutton.obj) : error LNK2001: unresolved external symbol
"public: virtual bool __thiscall QObject::eventFilter(class QObject *,class
QEvent *)" (?eventfil...@qobject@@uae_np...@pavqevent@@@Z)
hbqt.lib(hbqt_qaction.obj) : error LNK2019: unresolved external symbol
"public: virtual bool __thiscall QObject::eventFilter(class QObject *,class
QEvent *)" (?eventfil...@qobject@@uae_np...@pavqevent@@@Z) referenced in
function _HB_FUN_QT_QACTION_ACTIVATE
hbqt.lib(hbqt_qstringlistmodel.obj) : error LNK2001: unresolved external
symbol "public: virtual bool __thiscall QObject::eventFilter(class QObject
*,class QEvent *)" (?eventfil...@qobject@@uae_np...@pavqevent@@@Z)
hbqt.lib(hbqt_qlistview.obj) : error LNK2001: unresolved external symbol
"public: virtual bool __thiscall QObject::eventFilter(class QObject *,class
QEvent *)" (?eventfil...@qobject@@uae_np...@pavqevent@@@Z)
hbqt.lib(hbqt_qdirmodel.obj) : error LNK2001: unresolved external symbol
"public: virtual bool __thiscall QObject::eventFilter(class QObject *,class
QEvent *)" (?eventfil...@qobject@@uae_np...@pavqevent@@@Z)
..
[ENDERROS]

How to fix this ?

I generated the following libs with MSVC:

qtcore4.lib
qtnetwork4.lib
qtgui4 .lib
qtwebkit4.lib

I use harbour rev.11287

Best Regards,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/Work-with-HBQT-tp23901290p23945751.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Work with HBQT

2009-06-09 Thread Rossine

Hello Massimo, 

I include in my bat to compile the following line: 

SET HB_INC_QT=C:\Qt\qt\include 

HBQT.LIB was generated for MSVC, not for BCC generated, why?

Best Regards,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/Work-with-HBQT-tp23901290p23945543.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Work with HBQT

2009-06-06 Thread Rossine

Hello, 

What must install to test the examples in the HBQT windows ?

Best Regards,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/Work-with-HBQT-tp23901290p23901290.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Why array is passed by reference?

2009-05-27 Thread Rossine

Hello Przemek, 


Przemyslaw Czerpak-2 wrote:
> 
> 
> After simple assignment by := both variables points to the same array
> body.
> 
>> aVar2[1] := 5
>> ? aVar1[1]   && Here return 5 . Why ?
> 
> because both vars uses the same array after above assignment.
> If you do not like it and you want to make full array clone before
> assigning array reference to variable then you should make it in the
> same way as in Clipper and instead of:
>aVar2 := aVar1
> you should use:
>    aVar2 := AClone( aVar1 )
> 
> 

Thanks for explanation,

Rossine.


-- 
View this message in context: 
http://www.nabble.com/Why-array-is-passed-by-reference--tp23745159p23746246.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Why array is passed by reference?

2009-05-27 Thread Rossine

Hi,

I Solved the problem with "aclone()"

[CODE]
FUNCTION MAIN

local aVar1 := { 1, 2, 3 }
local aVar2

aVar2 := aclone( avar1 )

aVar2[1] := 5

? aVar1[1]   &&  Now return 1
? aVar1[2]
? aVar1[3]

RETURN NIL

[ENDCODE]

Best Regards,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/Why-array-is-passed-by-reference--tp23745159p23745737.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Why array is passed by reference?

2009-05-27 Thread Rossine

Hello,

How to do that which in the example below, the element 1 of "aVar[1]" is not
changed?

[CODE]
FUNCTION MAIN

local aVar1 := { 1, 2, 3 }
local aVar2

aVar2 := avar1

aVar2[1] := 5

? aVar1[1]   && Here return 5 . Why ?
? aVar1[2]
? aVar1[3]

RETURN NIL

[ENDCODE]

Best Regards,

Rossine.


-- 
View this message in context: 
http://www.nabble.com/Why-array-is-passed-by-reference--tp23745159p23745159.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Errors with msvc

2009-05-25 Thread Rossine

Hello All,

Problem solved :)

Thank you very much,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/Errors-with-msvc-tp23709702p23714975.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Errors with msvc

2009-05-25 Thread Rossine

Hello,

When I'm generating harbour with MSVC, I see the mistakes below and the
other libs are not generated.

[ERROR]

C:\harbour\contrib\gtwvg-#MSVC#>if not exist ..\..\lib\win\msvc\. md
..\..\lib\win\msvc 
make.exe[3]: Entering directory `C:/harbour/contrib/gtwvg/win/msvc'
cl.exe -nologo -I. -I../../../../include -Gs -TP -W4 -wd4127 -Ot2b1 -EHs-c-
-MT   -DHB_GC_AUTO -DHB_FM_STATISTIC -I../../contrib/hbwin
-I../../../../contrib/hbwin  -c ../../gtwvg.c -Fogtwvg.obj
gtwvg.c
cl.exe -nologo -I. -I../../../../include -Gs -TP -W4 -wd4127 -Ot2b1 -EHs-c-
-MT   -DHB_GC_AUTO -DHB_FM_STATISTIC -I../../contrib/hbwin
-I../../../../contrib/hbwin  -c ../../wvgcore.c -Fowvgcore.obj
wvgcore.c
cl.exe -nologo -I. -I../../../../include -Gs -TP -W4 -wd4127 -Ot2b1 -EHs-c-
-MT   -DHB_GC_AUTO -DHB_FM_STATISTIC -I../../contrib/hbwin
-I../../../../contrib/hbwin  -c ../../wvgutils.c -Fowvgutils.obj
wvgutils.c
cl.exe -nologo -I. -I../../../../include -Gs -TP -W4 -wd4127 -Ot2b1 -EHs-c-
-MT   -DHB_GC_AUTO -DHB_FM_STATISTIC -I../../contrib/hbwin
-I../../../../contrib/hbwin  -c ../../wvgwin.c -Fowvgwin.obj
wvgwin.c
cl.exe -nologo -I. -I../../../../include -Gs -TP -W4 -wd4127 -Ot2b1 -EHs-c-
-MT   -DHB_GC_AUTO -DHB_FM_STATISTIC -I../../contrib/hbwin
-I../../../../contrib/hbwin  -c ../../wvgsink.c -Fowvgsink.obj
wvgsink.c
../../wvgsink.c(313) : error C2664: 'IsEqualGUID' : cannot convert parameter
2 from 'const IID *' to 'const GUID &'
Reason: cannot convert from 'const IID *' to 'const GUID'
No constructor could take the source type, or constructor overload
resolution was ambiguous
../../wvgsink.c(324) : error C2664: 'IsEqualGUID' : cannot convert parameter
2 from 'const IID *' to 'const GUID &'
Reason: cannot convert from 'const IID *' to 'const GUID'
No constructor could take the source type, or constructor overload
resolution was ambiguous
../../wvgsink.c(334) : error C2664: 'IsEqualGUID' : cannot convert parameter
2 from 'IID *' to 'const GUID &'
Reason: cannot convert from 'IID *' to 'const GUID'
No constructor could take the source type, or constructor overload
resolution was ambiguous
../../wvgsink.c(455) : error C2664: 'IsEqualGUID' : cannot convert parameter
2 from 'const IID *' to 'const GUID &'
Reason: cannot convert from 'const IID *' to 'const GUID'
No constructor could take the source type, or constructor overload
resolution was ambiguous
../../wvgsink.c(516) : warning C4244: 'argument' : conversion from 'int' to
'USHORT', possible loss of data
../../wvgsink.c(597) : error C2664: 'HRESULT (IEventHandler *,const IID
&,void **)' : cannot convert parameter 2 from 'const IID *' to 'const IID &'
Reason: cannot convert from 'const IID *' to 'const IID'
No constructor could take the source type, or constructor overload
resolution was ambiguous
../../wvgsink.c(600) : error C2664: 'HRESULT (IEventHandler *,const IID
&,void **)' : cannot convert parameter 2 from 'const IID *' to 'const IID &'
Reason: cannot convert from 'const IID *' to 'const IID'
No constructor could take the source type, or constructor overload
resolution was ambiguous
../../wvgsink.c(872) : error C2664: 'HRESULT (IUnknown *,const IID &,void
**)' : cannot convert parameter 2 from 'const IID *' to 'const IID &'
Reason: cannot convert from 'const IID *' to 'const IID'
No constructor could take the source type, or constructor overload
resolution was ambiguous
../../wvgsink.c(981) : error C2664: 'HRESULT (IUnknown *,const IID &,void
**)' : cannot convert parameter 2 from 'const IID *' to 'const IID &'
Reason: cannot convert from 'const IID *' to 'const IID'
No constructor could take the source type, or constructor overload
resolution was ambiguous
../../wvgsink.c(1024) : error C2664: 'HRESULT (IUnknown *,const IID &,void
**)' : cannot convert parameter 2 from 'const IID *' to 'const IID &'
Reason: cannot convert from 'const IID *' to 'const IID'
No constructor could take the source type, or constructor overload
resolution was ambiguous
make.exe[3]: Leaving directory `C:/harbour/contrib/gtwvg/win/msvc'
make.exe[2]: Leaving directory `C:/harbour/contrib/gtwvg'
make.exe[1]: Leaving directory `C:/harbour/contrib'

[ENDERROR]

How to fix this ?

Best regards,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/Errors-with-msvc-tp23709702p23709702.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] error with 11127

2009-05-25 Thread Rossine

Hi Viktor,


Viktor Szakáts wrote:
> 
> There is no command line parameter called "gt=".
> You should use 'hbmk2 ... -gtgui'
> 
> [ gt= is accepted though in .hbl files. ]
> 

OK, it´s work´s fine :)

Thank you very much,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/error-with-11127-tp23706075p23707292.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] error with 11127

2009-05-25 Thread Rossine

Hello,

The parameter "GT=" was changed? What should I do to change 
correct this error?

[ERROR]
hbmk: Autodetected architecture: win
hbmk: Using Harbour: C:\hrb_bcc\bin C:\hrb_bcc\include C:\hrb_bcc\lib
  C:\hrb_bcc\lib
hbmk: Using C compiler: c:\bcc55\bin\bcc32.exe
hbmk: Processing configuration: C:\hrb_bcc\bin\hbmk.cfg
hbmk: Harbour compiler command (internal):
C:\hrb_bcc\bin\harbour.exe -n2 qistart gt=gtgui -n -iC:\hrb_bcc\include
Cannot open input file: gt=gtgui.prg
[ENDERROR]

Best regards,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/error-with-11127-tp23706075p23706075.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] SF.net SVN: harbour-project:[11090] trunk/harbour

2009-05-20 Thread Rossine

Hello,

Works fine Now :)

Thank you very much,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/SF.net-SVN%3A-harbour-project%3A-11090--trunk-harbour-tp23637661p23642264.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] SF.net SVN: harbour-project:[11090] trunk/harbour

2009-05-20 Thread Rossine

Hello,

Compiling my application with this release, i see this errors:

[ERRORS]
hbmk: Autodetected architecture: win
 
hbmk: Using Harbour: C:\hrb_bcc\bin C:\hrb_bcc\include C:\hrb_bcc\lib   
 
  C:\hrb_bcc\lib
 
hbmk: Using C compiler: c:\bcc55\bin\bcc32.exe  
 
hbmk: Processing configuration: C:\hrb_bcc\bin\hbmk.cfg 
 
hbmk: Processing: QISTART.HBP   
 
hbmk: Processing: qistart.hbp   
 
hbmk: Harbour compiler command (internal):  
 
C:\hrb_bcc\bin\harbour.exe -n2 qistart -n -iC:\hrb_bcc\include
hbmk: Resource compiler command:
 
brcc32.exe -IC:\hrb_bcc\include QISTART.rc -foQISTART.res
Borland Resource Compiler  Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.
hbmk: C compiler command:   
 
bcc32.exe -c -q -tWM -d -6 -O2 -OS -Ov -Oi -Oc -DHB_GC_AUTO -tW
-IC:\hrb_bcc\include qistart.c C:\TMP\hbmk_ys4xau.c
qistart.c:
C:\TMP\hbmk_ys4xau.c:
hbmk: Linker command:   
 
ilink32.exe @C:\TMP\wwkyae.lnk
hbmk: Linker script:
 
-Gn -Tpe -L"c:\bcc55\Lib\PSDK\;C:\hrb_bcc\lib"  -aa c0w32.obj qistart.obj
hbmk_ys4xau.obj, qistart.exe, nul, ..\geral\qilib.lib ..\btnget\btnget.lib
\fwh\lib\fiveh.lib \fwh\lib\fivehc.lib biomet\grfingeB.lib
\sqllib\lib\libpq.lib \sqllib\lib\sqllib.lib hbwin.lib hbct.lib xhb.lib
rddads.lib ads\ace32.lib c:\bcc55\lib\psdk\msimg32.lib hbcpage.lib
hblang.lib hbcommon.lib hbcplr.lib hbdebug.lib hbvm.lib hbrdd.lib
hbusrrdd.lib hbuddall.lib hbhsx.lib hbsix.lib rddntx.lib rddnsx.lib
rddcdx.lib rddfpt.lib hbrtl.lib hbpp.lib hbmacro.lib hbextern.lib gtcgi.lib
gtpca.lib gtstd.lib gtwin.lib gtwvt.lib gtgui.lib hbpcre.lib hbzlib.lib
kernel32.lib user32.lib gdi32.lib advapi32.lib ws2_32.lib winspool.lib
comctl32.lib comdlg32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib
mpr.lib winmm.lib mapi32.lib imm32.lib msimg32.lib import32.lib cw32mt.lib,,
QISTART.res
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_OLEERRORTEXT' referenced from
C:\HRB_BCC\LIB\HBWIN.LIB|legacyc
Error: Unresolved external '_HB_FUN_HB_OLEAUTO' referenced from
C:\HRB_BCC\LIB\HBWIN.LIB|legacyc
Error: Unresolved external '_HB_FUN_CREATEOBJECT' referenced from
C:\QI\WIN\OBJETOS\GERAL\QILIB.LIB|qilib
[ENDERRORS]

How to fix this ?

Best Regards,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/SF.net-SVN%3A-harbour-project%3A-11090--trunk-harbour-tp23637661p23640089.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Errors with 11090

2009-05-20 Thread Rossine

Hello,

I see this errors with release 11090 when compiling with MSVC:

[ERRORS]

 cannot convert parameter 2 from 'const IID *' to 'const IID &'
Reason: cannot convert from 'const IID *' to 'const IID'
No constructor could take the source type, or constructor overload
resol
ution was ambiguous
../../wvgsink.c(981) : error C2664: 'HRESULT (IUnknown *,const IID &,void
**)' :
 cannot convert parameter 2 from 'const IID *' to 'const IID &'
Reason: cannot convert from 'const IID *' to 'const IID'
No constructor could take the source type, or constructor overload
resol
ution was ambiguous
../../wvgsink.c(1024) : error C2664: 'HRESULT (IUnknown *,const IID &,void
**)'
: cannot convert parameter 2 from 'const IID *' to 'const IID &'
Reason: cannot convert from 'const IID *' to 'const IID'
No constructor could take the source type, or constructor overload
resol
ution was ambiguous
make.exe[3]: *** [wvgsink.obj] Error 2
make.exe[3]: Leaving directory `C:/harbour/contrib/gtwvg/win/msvc'
make.exe[2]: *** [descend] Error 2
make.exe[2]: Leaving directory `C:/harbour/contrib/gtwvg'
make.exe[1]: *** [gtwvg.inst] Error 2
make.exe[1]: Leaving directory `C:/harbour/contrib'
make.exe: *** [contrib.inst] Error 2

[ENDERRORS]

Best Regards,

Rossine.


-- 
View this message in context: 
http://www.nabble.com/Errors-with-11090-tp23640020p23640020.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Errors with 11032

2009-05-18 Thread Rossine

Hello all,

This error, still persists:

[ERROR]

   Error description: Error BASE/3012  Argument error: NEW
   Args:
 [   1] = N   1470288

Stack Calls
===
   Called from:  => HB_OLEAUTO:NEW(0)
   Called from: classes\ACTIVEX.PRG => TACTIVEX:NEW(0)
   Called from: webexp.prg => MAIN(10)

[ENDERROR]

This is part of the code of ACTIVEX.PRG:

[CODE]

METHOD New( oWnd, cProgID, nRow, nCol, nWidth, nHeight ) CLASS TActiveX

   DEFAULT oWnd := GetWndDefault(), nRow := 0, nCol := 0, nWidth := 200,;
   nHeight := 200

   ::nTop= nRow
   ::nLeft   = nCol
   ::nBottom = nRow + nHeight
   ::nRight  = nCol + nWidth
   ::oWnd= oWnd
   ::nId = ::GetNewId()
   ::nStyle  = nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP )
   ::cProgID = cProgID
   ::cString = ActXString( cProgID )

   ::Register()

   if ! Empty( oWnd:hWnd )
  ::Create()
  oWnd:AddControl( Self )
  ::hActiveX = CreateActiveX( ::hWnd, cProgID, Self )
  ::oOleAuto = TOleauto():New( ActXPdisp( ::hActiveX ) ) && HERE THIS
ERROR
  ::nTop = nRow
  ::nLeft = nCol
  ::nWidth = nWidth
  ::nHeight = nHeight
  ::ReadTypes()
   else
  oWnd:DefControl( Self )
   endif

return Self

[ENDCODE]

...and the sample WEBEXP.PRG

[SAMPLE]

#include "FiveWin.ch"

function Main()

   local oWnd, oActiveX
   local cEvents := ""

   DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support"

   oActiveX = TActiveX():New( oWnd, "Shell.Explorer" )

   oWnd:oClient = oActiveX // To fill the entire window surface

   // oActiveX:Do( "GoHome" )
   oActiveX:Do( "Navigate", "http://www.google.com.br"; )

   oActiveX:SetProp( "StatusBar", .t. )
   
   // MsgInfo( oActiveX:GetProp( "StatusBar" ) )

   oActiveX:bOnEvent = { | event, aParams, pParams | cEvents += EventInfo(
event, aParams, pParams, oActiveX ) }

   ACTIVATE WINDOW oWnd ;
  VALID ( MemoEdit( cEvents ), .t. )
  
return nil

function EventInfo( event, aParams, pParams, oActiveX )

   local cMsg := "Event: " + cValToChar( event ) + CRLF
   local n
   
   cMsg += "Params: " + CRLF
   
   for n = 1 to Len( aParams )
  cMsg += cValToChar( aParams[ n ] ) + CRLF
   next

   if event == "BeforeNavigate2"
  // MsgInfo( aParams[ 2 ] )
  // SetEventParam( pParams, 7, .t. ) // Comment this to allow
navigation
   endif

return cMsg + CRLF

[ENDSAMPLE]

I am using harbour 11075

Compiling the example above, using MSVC when this error occurred and always
performed well with BCC, is the same error :(

How to fix this ?

Best Regards,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/Errors-with-11032-tp23521549p23595864.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Problem with TREG32 and Harbour 11047

2009-05-16 Thread Rossine

Hello,

Problem solved :)

Thank you very much.

Rossine.

-- 
View this message in context: 
http://www.nabble.com/Problem-with-TREG32-and-Harbour-11047-tp23538623p23578979.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Error with DumpVar

2009-05-16 Thread Rossine

Hello,

Works perfectly now :)

Thank you very much to all,

Rossine.


-- 
View this message in context: 
http://www.nabble.com/Error-with-DumpVar-tp23425403p23460524.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Problem with TREG32 and Harbour 11047

2009-05-16 Thread Rossine

Hello,

With harbour 11047 see this errors:

[ERROR]
Application Internal Error - C:\fwh\samples\testreg3.exe
Terminated at: 2009.05.14 08:19:13
Unrecoverable error 9003: Too many recursive error handler calls
Called from ABS(0)
Called from REGOPENKEYEXA(0) in classes\reg32.prg
Called from TREG32:NEW(0) in classes\reg32.prg
Called from GETCPU(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ABS(0)
Called from REGOPENKEYEXA(0) in classes\reg32.prg
Called from TREG32:NEW(0) in classes\reg32.prg
Called from GETCPU(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ABS(0)
Called from REGOPENKEYEXA(0) in classes\reg32.prg
Called from TREG32:NEW(0) in classes\reg32.prg
Called from GETCPU(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ABS(0)
Called from REGOPENKEYEXA(0) in classes\reg32.prg
Called from TREG32:NEW(0) in classes\reg32.prg
Called from GETCPU(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ABS(0)
Called from REGOPENKEYEXA(0) in classes\reg32.prg
Called from TREG32:NEW(0) in classes\reg32.prg
Called from GETCPU(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ABS(0)
Called from REGOPENKEYEXA(0) in classes\reg32.prg
Called from TREG32:NEW(0) in classes\reg32.prg
Called from GETCPU(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ABS(0)
Called from REGOPENKEYEXA(0) in classes\reg32.prg
Called from TREG32:NEW(0) in classes\reg32.prg
Called from GETCPU(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ABS(0)
Called from REGOPENKEYEXA(0) in classes\reg32.prg
Called from TREG32:NEW(0) in classes\reg32.prg
Called from GETCPU(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ABS(0)
Called from REGOPENKEYEXA(0) in classes\reg32.prg
Called from TREG32:NEW(0) in classes\reg32.prg
Called from GETOUTLOOKPATH(7) in testreg3.prg

[ENDERROR]

How to fix this ?

Best Regards,

Rossine.


-- 
View this message in context: 
http://www.nabble.com/Problem-with-TREG32-and-Harbour-11047-tp23538623p23538623.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Problem with return of LoadLibrary and Harbour 11047

2009-05-14 Thread Rossine

Hello Viktor, 

The same would be true to use this: 'IF Empty (hLib)', but this in itself
will fivewin about some changes for this work and in my application also
been several changes :(.

 I suggest you make a test for when using fivewin together with the harbour,
that the "LoadLibrary" return number, and when not fivewin return "pointer"
that in my opnião is correct.

Best Regards,

Rossine.


-- 
View this message in context: 
http://www.nabble.com/Problem-with-return-of-LoadLibrary-and-Harbour-11047-tp23539143p23542246.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Errors with 11032

2009-05-14 Thread Rossine
Ä¿
³ FiveWin for Harbour 9.02 - Feb. 2009Harbour development power 
³Ü
³ (c) FiveTech, 1993-2009 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7
³Û
ÀÙÛ
ÿ
ß
Compiling...
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
WEBEXP.c:
Warning W8065 webexp.prg 139: Call to function 'hb_setOleError' with no
prototype in function HB_FUN_OLECREATEOBJECT
Warning W8065 webexp.prg 149: Call to function 'AnsiToWide' with no
prototype in function HB_FUN_OLECREATEOBJECT
Warning W8069 webexp.prg 149: Nonportable pointer conversion in function
HB_FUN_OLECREATEOBJECT
Warning W8065 webexp.prg 160: Call to function 'AnsiToWide' with no
prototype in function HB_FUN_OLECREATEOBJECT
Warning W8069 webexp.prg 160: Nonportable pointer conversion in function
HB_FUN_OLECREATEOBJECT
Warning W8065 webexp.prg 173: Call to function 'HB_ID_REF' with no prototype
in function HB_FUN_OLECREATEOBJECT
Warning W8065 webexp.prg 173: Call to function 'HB_ID_REF' with no prototype
in function HB_FUN_OLECREATEOBJECT
Warning W8065 webexp.prg 173: Call to function 'HB_ID_REF' with no prototype
in function HB_FUN_OLECREATEOBJECT
Error E2342 webexp.prg 173: Type mismatch in parameter 'rclsid' (wanted
'const _GUID * const', got 'int') in function HB_FUN_OLECREATEOBJECT
Error E2342 webexp.prg 173: Type mismatch in parameter 'riid' (wanted 'const
_GUID * const', got 'int') in function HB_FUN_OLECREATEOBJECT
Warning W8065 webexp.prg 178: Call to function 'hb_setOleError' with no
prototype in function HB_FUN_OLECREATEOBJECT
Error E2451 webexp.prg 181: Undefined symbol 'hb_ole_destructor' in function
HB_FUN_OLECREATEOBJECT
Warning W8004 webexp.prg 187: 'fIID' is assigned a value that is never used
in function HB_FUN_OLECREATEOBJECT
*** 3 errors in Compile ***
Borland Resource Compiler  Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
* Application successfully built *

[ENDERRORS]

Any more suggestions ?

Best Regards,

Rossine.


-- 
View this message in context: 
http://www.nabble.com/Errors-with-11032-tp23521549p23539642.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Problem with return of LoadLibrary and Harbour 11047

2009-05-14 Thread Rossine

Hello,

In class TIMAGE de FWH, when using:

[CODE]
hLib = LoadLibrary( "freeimage.dll" )
msgstop( hLib ) 
[ENDCODE]

...with harbour 11021, i see:

[RESULT]

Type = N   Value = 61997056

[ENDRESULT]

...and harbour 11047:

[RESULT]

Type = P   value = 0x03D2

[ENDRESULT]

...and i see this error:

[ERROR]

Error: Erro BASE/1074  Error parameters: <=

[ENDERROR]

This is the code of TIMAGE.PRG:

[CODE]

static function FILOADIMG( cFile )

   local nFormat, hDib, hInfoH, hInfo, hBits, hWnd, hDC, hBmp

   if empty( cFile )
  return 0
   endif

   if Upper( cFileExt( cFile ) ) = "BMP"
  return ReadBitmap( 0, cFile )
   endif

   hLib = LoadLibrary( "" ) && Simple Test :)

msgstop( valtype( hlib ) + "-"+ valtoprg( hlib ) )  Here return with 1021:
N-0   and with 11047: P-0x

   hLib = LoadLibrary() && Simple Test :)
 
msgstop( valtype( hlib ) + "-"+ valtoprg( hlib ) )  Here return with 1021:
N-0   and with 11047: P-0x

   #ifdef __CLIPPER__
  hLib = LoadLib32( "freeimage.dll" )
   #else
  hLib = LoadLibrary( "freeimage.dll" )
   #endif

msgstop( valtype( hlib ) + "-"+ valtoprg( hlib ) )

   if hLib <= 32  && <<<-- Here error

  MsgStop( "Cannot load FreeImage.dll" )
  return 0
   endif
...

[ENDCODE]

How to fix this ?

Best regards,

Rossine.


-- 
View this message in context: 
http://www.nabble.com/Problem-with-return-of-LoadLibrary-and-Harbour-11047-tp23539143p23539143.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Errors with 11032

2009-05-13 Thread Rossine

Hello,

Using version 11021 compile with BCC55 works fine, but I am using version
11032 is the seguints errors:

[ERRORS]
Error: Unresolved external '_hb_oleAnsiToWide' referenced from
C:\FWH\LIB\FIVEHC.LIB|MSGSAPI
Error: Unresolved external '_HB_FUN_ANSITOWIDE' referenced from
C:\FWH\LIB\FIVEH.LIB|tget
Error: Unresolved external '_HB_FUN_TOLEAUTO' referenced from
C:\QI\WIN\OBJETOS\GERAL\QILIB.LIB|XBROWSE
Error: Unresolved external '_HB_FUN_OLE2TXTERROR' referenced from
C:\QI\WIN\OBJETOS\GERAL\QILIB.LIB|qilib
[ENDERRORS]

How to fix this?

Best regards,

Rossine.



-- 
View this message in context: 
http://www.nabble.com/Errors-with-11032-tp23521549p23521549.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Errors with 11017

2009-05-11 Thread Rossine

Hi,

Problem solved.

Thank you very much,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/Errors-with-11017-tp23488092p23493792.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Errors with 11017

2009-05-11 Thread Rossine

Hello,

I see this errors in 11017:

[ERRORS]
../../../../source/main/win/bcc/harbour.exe ../../tclass.prg -n1
-i../../../../include -q0 -w3 -es2 -kmo -l -gc3  
bcc32.exe -I. -I../../../../include -q -tWM -w -w-sig- -Q -d -6 -O2 -OS -Ov
-Oi -Oc  -DHB_GC_AUTO  -c tclass.c -otclass.obj
tclass.c:
Warning W8066 tclass.c 1086: Unreachable code in function HB_FUN_ADDDATA
Error E2448 tclass.c 1140: Undefined label 'lab6' in function
HB_FUN_ADDDATA
Warning W8066 tclass.c 1235: Unreachable code in function
HB_FUN_ADDCLASSDATA
Error E2448 tclass.c 1289: Undefined label 'lab6' in function
HB_FUN_ADDCLASSDATA
*** 2 errors in Compile ***
make.exe[3]: Leaving directory `C:/harbour/source/rtl/win/bcc'
make.exe[2]: Leaving directory `C:/harbour/source/rtl'
make.exe[1]: Leaving directory `C:/harbour/source'
[ENDERRORS]

Best Regards,

Rossine.

-- 
View this message in context: 
http://www.nabble.com/Errors-with-11017-tp23488092p23488092.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


  1   2   >