[Harbour] Change BCC to MSVC
Hi! I need examples, now I am using hbmk2. How to link rmchart.lib in my project ? My file sciwin.hbm is: 8<--- -lrmchart.lib -inc sciwin.prg apuracao.prg bancos.prg ... --->8- I using implib for make rmchar.lib. Get this; D:\DEV\HARBOUR\lib\rmchart.lib : fatal error LNK1136: invalid or corrupt file With BCC32 works fine. Best Regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Change BCC to MSVC
No correct, because I need example and this is link is other example for bcc not for msvc. for bcc I use: implib rmchart.lib rmchart.dll. And for msvc ? TIA, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Change BCC to MSVC
Resolved bcc55\bin\impdef.exe rmchart.def rmchart.dll lib /def:rmchart.def Regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Off Topic - LetoDb hmk2
Hi!
To Guru Mr. Viktor Szakats!
file letodb.hbp not make rddleto.lib first with MSVC.
hbmk: Processando arquivo de configura?Æo: D:\DEV\HARBOUR\BIN\hbmk.cfg
hbmk: Processando: rddleto.hbc
hbmk: Linkando... bin\letodb.exe
LINK : fatal error LNK1181: cannot open input file 'rddleto.lib'
But is wrong, first is necessary make rddleto.lib.
#
# $Id: letodb.hbp,v 1.5 2009/07/29 11:24:58 alkresin Exp $
#
-inc
-obin/letodb
-iinclude
-n -w -q0 -es2
-prgflag={unix}-D__LINUX_DAEMON__
-prgflag={unix}-D__LINUX__
-prgflag={win}-D__WIN_DAEMON__
-cflag={allmsvc}-D_CRT_SECURE_NO_DEPRECATE
-gui
-mt
source/server/server.prg
source/server/errorsys.prg
source/server/errint.c
{unix}source/server/leto_lnx.c
{win}source/server/leto_win.c
source/server/letoacc.c
source/server/letofunc.c
source/common/blowfish.c
source/common/common_c.c
source/common/hbip.c
source/common/net.c
source/common/common.prg
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Off Topic - LetoDb hmk2
Hi!
Thank you very much.
Best Regards,
Itamar M. Lins Jr.
"Viktor Szakáts"
escreveu na mensagem news:ea973474-cf19-44ec-a6b1-3bd9562c6...@syenar.hu...
Hi Itamar,
Yes, that's right, you need to take care of building
components in correct order:
hbmk2 rddleto.hbp letodb.hbp
(see readme.txt with these instructions)
Brgds,
Viktor
On 2009.08.12., at 1:46, Itamar Lins wrote:
> Hi!
> To Guru Mr. Viktor Szakats!
> file letodb.hbp not make rddleto.lib first with MSVC.
> hbmk: Processando arquivo de configura?Æo: D:\DEV\HARBOUR\BIN\hbmk.cfg
> hbmk: Processando: rddleto.hbc
> hbmk: Linkando... bin\letodb.exe
> LINK : fatal error LNK1181: cannot open input file 'rddleto.lib'
> But is wrong, first is necessary make rddleto.lib.
>
> #
> # $Id: letodb.hbp,v 1.5 2009/07/29 11:24:58 alkresin Exp $
> #
>
> -inc
> -obin/letodb
> -iinclude
> -n -w -q0 -es2
> -prgflag={unix}-D__LINUX_DAEMON__
> -prgflag={unix}-D__LINUX__
> -prgflag={win}-D__WIN_DAEMON__
> -cflag={allmsvc}-D_CRT_SECURE_NO_DEPRECATE
> -gui
> -mt
>
> source/server/server.prg
> source/server/errorsys.prg
> source/server/errint.c
> {unix}source/server/leto_lnx.c
> {win}source/server/leto_win.c
> source/server/letoacc.c
> source/server/letofunc.c
>
> source/common/blowfish.c
> source/common/common_c.c
> source/common/hbip.c
> source/common/net.c
> source/common/common.prg
>
>
>
> ___
> Harbour mailing list
> Harbour@harbour-project.org
> http://lists.harbour-project.org/mailman/listinfo/harbour
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Off Topic - Letodb multiply defined symbols found
Hi again, I get this error. hbrtl.lib(hbsocket.obj) : error LNK2005: _hb_socketConnect already defined in rddleto.lib(hbip.obj) How to resolve? Thanks, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Re: Off Topic - Letodb multiply defined symbols found
Hi! I am waiting for any guru corrections in letodb source. Unfortunately I do not program in C/C++. But I change the name hb_socketConnect to hbleto_socketConnect file hbip.c and my project link fine, but not works more ... :-( GPF show in letodb.exe. Perhaps Mr. Alexander Kresin is too busy. Ps.But the fact is that letodb no longer works with the SVN version of the harbour. Best Regards, Itamar M. Lins Jr. "Viktor Szakáts" escreveu na mensagem news:bc6819ad-2b52-4c35-9a6c-535845572...@syenar.hu... > It may be better to address letodb issues directly to the > letodb mailing list. This problem isn't a Harbour one. > > This error shows the problem where 3rd party code uses > Harbour namespace (hb_*) for it's own public symbols. There > is no guarantee that Harbour won't eventually use any of > those. In this case that's what just happened. > > Best way to fix this is to rename hb_ functions to hbleto_ > or leto_ in letodb. Now Harbour also has C level socket API > in core, so letodb could make use of these (this would be > quite cool). (although it may also want to keep its own socket > routines in order to stay compatible with xhb and old Harbours) > > Brgds, > Viktor > > On 2009.08.12., at 2:35, Itamar Lins wrote: > >> Hi again, >> I get this error. >> hbrtl.lib(hbsocket.obj) : error LNK2005: _hb_socketConnect already >> defined >> in rddleto.lib(hbip.obj) >> >> How to resolve? >> >> Thanks, >> Itamar M. Lins Jr. >> >> >> >> ___ >> Harbour mailing list >> Harbour@harbour-project.org >> http://lists.harbour-project.org/mailman/listinfo/harbour > ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Warnings with msvc.
Hi! This is normal ? ! MAKE: mingw32-make 3.81 sh.exe ! HB_INSTALL_PREFIX: D:\DEV\HARBOUR ! HB_HOST_ARCH: win HB_SHELL: nt ! HB_ARCHITECTURE: win (autodetected) ! HB_COMPILER: msvc ../../../expropt2.c(557) : warning C4244: '=' : conversion from 'HB_LONG' to 'long', possible loss of data ../../../expropt2.c(559) : warning C4244: '=' : conversion from 'HB_LONG' to 'long', possible loss of data ../../../expropt2.c(570) : warning C4244: 'argument' : conversion from 'HB_LONG' to 'LONG', possible loss of data ../../../expropt2.c(760) : warning C4244: '=' : conversion from 'HB_LONG' to 'long', possible loss of data ../../../expropt2.c(762) : warning C4244: '=' : conversion from 'HB_LONG' to 'long', possible loss of data ../../../expropt2.c(773) : warning C4244: 'argument' : conversion from 'HB_LONG' to 'LONG', possible loss of data ../../../expropt2.c(813) : warning C4244: '=' : conversion from 'HB_LONG' to 'long', possible loss of data ../../../expropt2.c(815) : warning C4244: '=' : conversion from 'HB_LONG' to 'long', possible loss of data ../../../expropt2.c(826) : warning C4244: 'argument' : conversion from 'HB_LONG' to 'LONG', possible loss of data cl.exe -nologo -I. -I../../../../../include -Gs -TP -W4 -wd4127 -Ot2b1 -EHs-c- -MT-Foexpropt2_dyn.obj -DHB_DYNLIB -c ../../../expropt2.c expropt2.c ../../../expropt2.c(557) : warning C4244: '=' : conversion from 'HB_LONG' to 'long', possible loss of data ../../../expropt2.c(559) : warning C4244: '=' : conversion from 'HB_LONG' to 'long', possible loss of data ../../../expropt2.c(570) : warning C4244: 'argument' : conversion from 'HB_LONG' to 'LONG', possible loss of data ../../../expropt2.c(760) : warning C4244: '=' : conversion from 'HB_LONG' to 'long', possible loss of data ../../../expropt2.c(762) : warning C4244: '=' : conversion from 'HB_LONG' to 'long', possible loss of data ../../../expropt2.c(773) : warning C4244: 'argument' : conversion from 'HB_LONG' to 'LONG', possible loss of data ../../../expropt2.c(813) : warning C4244: '=' : conversion from 'HB_LONG' to 'long', possible loss of data ../../../expropt2.c(815) : warning C4244: '=' : conversion from 'HB_LONG' to 'long', possible loss of data ../../../expropt2.c(826) : warning C4244: 'argument' : conversion from 'HB_LONG' to 'LONG', possible loss of data cl.exe -nologo -I. -I../../../../../../include -Gs -TP -W4 -wd4127 -Ot2b1 -EHs-c- -MT-Fodbfcdx1.obj -c ../../../dbfcdx1.c dbfcdx1.c ../../../dbfcdx1.c(415) : warning C4244: '=' : conversion from 'int' to 'BYTE', possible loss of data ../../../dbfcdx1.c(897) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../dbfcdx1.c(897) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../dbfcdx1.c(905) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../dbfcdx1.c(905) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../dbfcdx1.c(922) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../dbfcdx1.c(922) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../dbfcdx1.c(930) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../dbfcdx1.c(930) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../dbfcdx1.c(989) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../dbfcdx1.c(1637) : warning C4244: '=' : conversion from 'int' to 'SHORT', possible loss of data ../../../dbfcdx1.c(1648) : warning C4244: '-=' : conversion from 'int' to 'SHORT', possible loss of data ../../../dbfcdx1.c(1661) : warning C4244: '=' : conversion from 'int' to 'SHORT', possible loss of data ../../../dbfcdx1.c(1872) : warning C4244: '=' : conversion from 'int' to 'USHORT', possible loss of data ../../../dbfcdx1.c(2095) : warning C4244: '-=' : conversion from 'int' to 'SHORT', possible loss of data ../../../dbfcdx1.c(2172) : warning C4244: '+=' : conversion from 'int' to 'SHORT', possible loss of data ../../../dbfcdx1.c(2295) : warning C4244: '-=' : conversion from 'int' to 'SHORT', possible loss of data ../../../dbfcdx1.c(2771) : warning C4244: '=' : conversion from 'int' to 'BYTE', possible loss of data ../../../dbfcdx1.c(2830) : warning C4244: '=' : conversion from 'SHORT' to 'BYTE', possible loss of data ../../../dbfcdx1.c(2832) : warning C4244: '=' : conversion from 'int' to 'BYTE', possible loss of data ../../../dbfcdx1.c(2883) : warning C4244: '=' : conversion from 'int' to 'BYTE', possible loss of data ../../../dbfcdx1.c(3545) : warning C4244: '=' : conversion from 'size_t' to 'USHORT', possible loss of data ../../../dbfcdx1.c(3546) : warning C4244: '=' : conversion from 'size_t' to 'USHORT', possible loss of data ../../../dbfcdx1.c(3903) : warning
[Harbour] GPF oemtoansi()
Hi! $Id: ChangeLog 12153 2009-08-17 18:02:30Z vszakats $ With MSVC, OS Windows XP SP3. Function Main ? oemtoansi(cmonth(date())) //I Get GPF. Best Regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: GPF oemtoansi()
Best way hbmk2 inform oemtoansi() not found. Because hbmk2 compile fine now show error, is not my function. HB_ prefix resolve the problem. Best Regards, Itamar M. Lins Jr. "Przemyslaw Czerpak" escreveu na mensagem news:20090817200647.ga16...@uran.home.aster.pl... > On Mon, 17 Aug 2009, Itamar Lins wrote: > > Hi, > >> $Id: ChangeLog 12153 2009-08-17 18:02:30Z vszakats $ >> With MSVC, OS Windows XP SP3. >> Function Main >> ? oemtoansi(cmonth(date())) //I Get GPF. > > Harbour does not have OEMTOANSI() function so it's not our problem. > > best regards, > Przemek ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: GPF oemtoansi()
I found the problem.
Colision again Hwgui function.
Piece of code hwgui\source\drawtext.c
#ifndef __XHARBOUR__
HB_FUNC( OEMTOANSI )
{
char *buffer = hb_parc( 1 );
OemToChar( buffer, buffer );
hb_retc( buffer );
}
HB_FUNC( ANSITOOEM )
{
char *buffer = hb_parc( 1 );
CharToOem( buffer, buffer );
hb_retc( buffer );
}
#else
HB_FUNC( OEMTOANSI )
{
PHB_ITEM pString = hb_param( 1, HB_IT_STRING );
if( pString )
{
DWORD ulLen = pString->item.asString.length;
char *pszDst = ( char * ) hb_xgrab( ulLen + 1 );
OemToCharBuff( ( LPCSTR ) pString->item.asString.value,
( LPSTR ) pszDst, ulLen );
hb_retclenAdopt( pszDst, ulLen );
}
else
{
hb_retc( "" );
}
}
HB_FUNC( ANSITOOEM )
{
PHB_ITEM pString = hb_param( 1, HB_IT_STRING );
if( pString )
{
DWORD ulLen = pString->item.asString.length;
char *pszDst = ( char * ) hb_xgrab( ulLen + 1 );
CharToOemBuff( ( LPCSTR ) pString->item.asString.value,
( LPSTR ) pszDst, ulLen );
hb_retclenAdopt( pszDst, ulLen );
}
else
{
hb_retc( "" );
}
}
#endif
Thanks and advance,
Itamar M. Lins Jr.
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Re: GPF oemtoansi()
"Przemyslaw Czerpak" escreveu na mensagem news:20090817202508.ga30...@uran.home.aster.pl... > On Mon, 17 Aug 2009, Itamar Lins wrote: >> Best way hbmk2 inform oemtoansi() not found. Because hbmk2 compile fine >> now >> show error, is not my function. HB_ prefix resolve the problem. > > 1-st it's not hbmk2 job but used linker which is called by hbmk2. > HBMK2 cannot have such functionality. Yes, I know. My GPF, fault memory ;-) many busy. > 2-nd AFAIK supported by us linkers perfectly informs about > insufficient dependencies. If you found one which does not generate > error or at least warning and creates buggy binaries then please > inform us about it and we add to documentation that such C compiler/linker > should not be used with Harbour. > But please verify it 1-st by compiling and linking this code: > proc main() > ? my_oemtoAnsiFunc() > return > I only guess but I think you created the problem yourself by using > some 3-rd party library which has broken OEMTOANSI() function. > > best regards, > Przemek I found the problem in Hwgui library. Thanks for response. Best Regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Problem with make files
Hi! Mr. Szakats Now, make fails because it is copying files old of dir bcc for example: HB_COMPILER=msvc SET HB_INSTALL_PREFIX=D:\DEV\HARBOUR But exists two directories with old files of bcc into win\bcc and other new in win\msvc however files of bcc is copyng for \dev\harbour\bin :-( Best Regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Problem with make files
Correction lib dir. \dev\harbour\lib and \dev\harbour\lib\win\bcc and other \dev\harbour\lib\win\msvc. Thanks, Itamar M. Lins Jr "Itamar Lins" escreveu na mensagem news:h6nb91$9k...@ger.gmane.org... > Hi! > Mr. Szakats > Now, make fails because it is copying files old of dir bcc > for example: > HB_COMPILER=msvc > SET HB_INSTALL_PREFIX=D:\DEV\HARBOUR > > But exists two directories with old files of bcc into win\bcc and other > new in win\msvc however files of bcc is copyng for \dev\harbour\bin :-( > > Best Regards, > Itamar M. Lins Jr. > > ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] unresolved external symbol _hb_vmProcessSymbolsEx
Hi! Windows XP SP3 with MSVC * $Id: ChangeLog 12247 2009-08-21 20:01:30Z vszakats $ Now I get this error tipo70.obj : error LNK2001: unresolved external symbol _hb_vmProcessSymbolsEx Best Regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: unresolved external symbol _hb_vmProcessSymbolsEx
Hi! See this. function main ? 'hello!' return nil hbmk2 teste.prg teste.c teste.obj : error LNK2019: unresolved external symbol _hb_vmProcessSymbolsEx referenced in function _hb_vm_SymbolInit_TESTE teste.exe : fatal error LNK1120: 1 unresolved externals >harbour -build Harbour 2.0.0beta2 (Rev. 12247) Copyright (c) 1999-2009, http://www.harbour-project.org/ Harbour Build Info Version: Harbour 2.0.0beta2 (Rev. 12247) Compiler: Microsoft Visual C++ 15.0.26569 (32-bit) Platform: Windows XP... Thanks, Itamar M. Lins Jr. "Viktor Szakáts" escreveu na mensagem news:c79ee672-8921-4f5f-b7a1-e1a026167...@syenar.hu... > You have to rebuild all your libs and apps with > current Harbour. > > Brgds, > Viktor > > On 2009.08.22., at 2:04, Itamar Lins wrote: > >> Hi! >> Windows XP SP3 with MSVC >> * $Id: ChangeLog 12247 2009-08-21 20:01:30Z vszakats $ >> >> Now I get this error >> tipo70.obj : error LNK2001: unresolved external symbol >> _hb_vmProcessSymbolsEx >> >> Best Regards, >> Itamar M. Lins Jr. >> >> >> >> ___ >> Harbour mailing list >> Harbour@harbour-project.org >> http://lists.harbour-project.org/mailman/listinfo/harbour > ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Re: Problem with make files
The problem is, process make is copying incorrect files probable bcc and bcc32 If I set ambient for HB_COMPILER=msvc And now while make harbour from SVN mix with old files BCC. :-( And this I can not control. 1) My make files is: --- MSVC 2008 call "%ProgramFiles%\Microsoft Visual Studio 9.0\VC\vcvarsall.bat" rem mingw32-make %1 %2 > log.txt 2>&1 --- 2)MyMakefile clean 3)MyMakeFIle install teste.prg file. function main() ? "Hello!" return NIL 4)hbmk2 teste.prg >saida Type saida. hbmk: Processando arquivo de configura?Æo: D:\DEV\HARBOUR\BIN\hbmk.cfg teste.c teste.obj : error LNK2019: unresolved external symbol _hb_vmProcessSymbolsEx referenced in function _hb_vm_SymbolInit_TESTE teste.exe : fatal error LNK1120: 1 unresolved externals I do not know where is the problem. Which is the old library? Best Regards, Itamar M. Lins Jr. "Viktor Szakáts" escreveu na mensagem news:abde66db-3d49-4674-bc83-b5cbf4bdd...@syenar.hu... >> Correction lib dir. \dev\harbour\lib and \dev\harbour\lib\win\bcc and >> other >> \dev\harbour\lib\win\msvc. > > You can override lib to whatever dir you'd like. The > default has changed to /lib//, to support > multiplatform/multicompiler installations. hbmk2 handles > it transparently, and it's most probably possible to > setup any tools for this new dir layout. > > Anyhow you can override with HB_*_INSTALL. See INSTALL doc. > > Brgds, > Viktor > ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: My tests with Qt 4.5.2 and MSVC 2008 (Express Edition)
Hi! Not runing, because QTCore4.dll not found in box zip. Thanks, Itamar M. Lins Jr. "Marcos Gambeta" escreveu na mensagem news:4a94904e.3080...@uol.com.br... > Marcos Gambeta escreveu: >> >> demoxbp.exe (don't work - stop with a runtime error) >> http://www.4shared.com/file/127607906/e920c8be/demoxbp.html >> > > After last changes, demoxbp.exe is working now. > > http://www.4shared.com/file/127745326/42549204/demoxbp2.html > > > Regards, > Marcos Gambeta > ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: My tests with Qt 4.5.2 and MSVC 2008 (Express Edition)
Hi! After, install dll, show this error: Não foi possivel localizar ponto de entrada do procedimento ?removeallencodequeryit...@qurl@@QAXABVQByteArray@@@Z na biblioteca de vínculo dinâmico QtCore4.dll Thanks, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Off Topic. LetoDb Request.
Hi! Anybody of the group LetoDB can updated it ? To be compiling with the new harbour function hb_socket... for exemple. TIA, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Off Topic. LetoDb Request.
Hi! Works fine now. Thanks! best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] TODO list
Hi! Have prevision for this? Assign to: Detail...: Add support for virtual file handles and registering some meta handles so it will be possible to make: h := fopen( "gzip:/tmp/myarchive.gz", FO_WRITE ) fwrite( h, cData ) fclose( h ) or: h := fopen( "tcp:some.host:port", FO_WRITE ) ... or: h := fopen( "|lpr -PLaserJet", FO_WRITE ) ... or: h := fopen( "gunzip /tmp/myarchive.gz|", FO_READ ) ... etc. Status...: Open. best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: TODO list
For us user's of LetoDB we: LETO_FILE( cFileName ) LETO_FERASE( cFileName ) LETO_FRENAME( cFileName, cFileNewName ) LETO_FERROR() I need this: port:='2815' oPath := 'c:\' nPath := 'c:\test\' FILECOPY(localhost:port\oPath+cFile,localhost:port\nPath+cFile) Maybe LETO_FILECOPY... But, lot time off LetoDb update and difficult email exchange with dev list. best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] HBNETIO side server.
Hi! The side of server, what is necessary ? Maybe dummy question but... Best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: SF.net SVN: harbour-project:[12593] trunk/harbour
Hi! "Viktor Szakáts" escreveu na mensagem news:a3ea09d8-46a6-4d52-bb0b-5f98a41e1...@syenar.hu... > Dunno where to address this, but I tried LetoDB the other > day with production app, and instantly stumbled upon a > fatal because dbExists() isn't implemented. But, I use function Leto_File(). > > I also had to patch source to fix hb_socket...() function > collision. > > It'd be great if someone could fix these in LetoDB repository. > > BTW I have nothing against hosting LetoDB in Harbour > repository, but here Alexander has the final word, so if > he also likes the idea, plus other Harbour developers also > agree, we can do it. > Alexander to be off line very time. Below is a full ( at least, for the moment I write it ) list of functions, available for using in client applications with RDD LETO linked. LETO_CONNECT( cAddress [, cUserName, cPassword ] ) --> nConnection, -1 if failed LETO_CONNECT_ERR() --> nError LETO_DISCONNECT() LETO_SETCURRENTCONNECTION( nConnection ) LETO_GETCURRENTCONNECTION() --> nConnection LETO_GETSERVERVERSION() --> cVersion LETO_BEGINTRANSACTION() LETO_ROLLBACK() LETO_COMMITTRANSACTION( [ lUnlockAll ] ) --> lSuccess LETO_INTRANSACTION() --> lTransactionActive LETO_SUM( cFieldName [, cFilter ] ) --> nSumma LETO_ISFLTOPTIM()--> lFilterOptimized LETO_SETSKIPBUFFER( nSkip ) LETO_FILE( cFileName ) --> lFileExists LETO_FERASE( cFileName ) --> -1 if failed LETO_FRENAME( cFileName, cFileNewName ) --> -1 if failed LETO_FERROR()--> nError LETO_MGGETINFO() LETO_MGGETUSERS() LETO_MGGETTABLES() LETO_MGKILL() LETO_USERADD( cUserName, cPass [, cRights ] )--> lSuccess LETO_USERPASSWD( cUserName, cPass ) --> lSuccess LETO_USERRIGHTS( cUserName, cRights )--> lSuccess LETO_USERFLUSH() --> lSuccess Best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: LETODB to harbour svn ?
Hi! My vote is for include LetoDb in contrib of harbour. Best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] xHarbour compatible Hwgui analog clock.
Hi!
This is program was created by Luis Basso, analog clock.
Works fine with xHarbour, with Harbour I get this is error:
error base/1001 Undefined function: HTIMER
Called from HTIME(0)
Called from HRELOGANALOGICO:ADDNEWOBJECT(297)
Called from HRELOGANALOGICO:CREATE(78)
Called from HRELOGANALOGICO:ACTIVATE(400)
Called from HCONTAINER:NEW(371)
Called from HRELOGANALOGICO:NEW(69)
Called from MAIN(28)
#include "hwgui.ch"
#include "hbclass.ch"
#IfnDef __XHARBOUR__
REQUEST HB_GT_GUI
ANNOUNCE HB_GTSYS
REQUEST HB_GT_GUI_DEFAULT
#EndIf
STATIC Thisform
//FUNCTION HRELOGIO
Function Main()
LOCAL oShape1, oRelogio1, oRelogio2, oRelogio3, oLabel1, oLabel2
INIT DIALOG oDlg TITLE "Relógios Analógicos" ;
AT 247,101 SIZE 441,247 ;
FONT HFont():Add( 'Verdana',0,-13,400,,,) CLIPPER NOEXIT ;
STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+WS_SIZEBOX+DS_CENTER ;
COLOR 12320767
Thisform := oDlg
@ 225,20 SAY oLabel1 CAPTION "Italia" TRANSPARENT SIZE 80,19
@ 348,24 SAY oLabel2 CAPTION "Tokio" TRANSPARENT SIZE 80,19
oRelogio1 := HRelogAnalogico():New(,,150,150)
oRelogio1:reset(29,21)
oRelogio1:bcolor := rgb(255,255,255)
oRelogio2 := HRelogAnalogico():New(202,56,100,100)
oRelogio2:bcolor := 7303167
oRelogio2:fuso := 3
oRelogio3 := HRelogAnalogico():New(328,72,75,75)
oRelogio3:bcolor := 16761220
oRelogio3:fuso := 11
@ 140,199 BUTTONEX oButtonex1 CAPTION "Close" SIZE 161,32 ;
STYLE WS_TABSTOP ;
ON CLICK {|| ThisForm:CLOSE() }
ACTIVATE DIALOG oDlg
RETURN oDlg:lresult
CLASS HRelogAnalogico INHERIT HContainer
DATA oLabelTime
DATA Fuso INIT 0
METHOD NEW()
METHOD INIT()
METHOD Hora()
METHOD Reset( nleft,nTop,nWidth,nHeigt )
METHOD Visible( lVisible ) SETGET
METHOD Penduricos( )
METHOD Create()
METHOD AddNewObject()
END CLASS
METHOD NEW( nleft,ntop,nwidth,nheight ) CLASS HRelogAnalogico
nWidth := IIF( nWidth = Nil ,150, nWidth )
nHeight := IIF( nHeight = Nil ,150, nHeight )
Super:New(,,,nLeft,nTop,nWidth+1,nHeight+1)
::lnoBorder := .T.
RETURN Self
METHOD CREATE() CLASS HRelogAnalogico
// METHOD Activate() CLASS HRelogAnalogico
IF !::lCreate
::addnewobject( "tmrTimer" ,"htimer" )
::addnewobject( "shpesfera" ,"hshape", {|This| shpesfera_Init( This,
self ) })
::addNewobject( "oShapepino", 'HShape' )
FOR lnI = 0 TO 55 STEP 5
lcO := "shp"+TRANS(lnI,"@L 99")
lcL := "lbl"+TRANS(lnI,"@L 99")
lcO := ::addNewobject( lco, 'HShape' )
lcL := ::addNewobject( lcL, 'HStatic' )
NEXT
::LinHor := ::addNewobject( "LinHor", 'HLine' )
::LinMin := ::addNewobject( "LinMin", 'HLine' )
::LinSeg := ::addNewobject( "LinSeg", 'HLine' )
ENDIF
::lCreate := .T.
RETURN NIL
METHOD Init CLASS HRelogAnalogico
LOCAL lnCX,lnCY,lnH, lcL, lcO
::tmrTimer:baction := {|| ::Hora() }
::shpesfera:nLeft := 0
::shpesfera:nTop := 0
::shpesfera:nWidth := ::nWidth
::shpesfera:nHeight := ::nheight
::shpesfera:nCurvature := 360
::shpesfera:nfStyle := 10
::shpesfera:BCOLOR := ::bColor
*--- Horas
lnCX := ::nWIDTH / 2
lnCY := ::nHEIGHT / 2
WITH OBJECT ::oShapepino
:nwidth = 8
:nheight = 8
:nborder = 1
:nCurvature := 45
:nfStyle := 10
:setcolor(,96)
END
lnH := 0
FOR lnI = 0 TO 55 STEP 5
lcO := "shp"+TRANS(lnI,"@L 99")
//lcL := "lbl"+TRANS(lnI,"@L 99")
lnA := lnI * 6
lcO := ::addNewobject( lco, 'HShape' )
//lcL := ::addNewobject( lcL, 'HStatic' )
WITH OBJECT lcO
:nwidth = 5 + int( ::nwidth/100 )
:nheight = 5 + int( ::nheight/100 )
:nborder = 2
:ncurvature := 20
:bcolor := 250
END
NEXT
::linHor:nBORDER := 5
::linHor:setCOLOR(RGB(0,0,255))
::linHor:LineSlant := "/"
::linHor:oPenLight := HPen():Add( BS_SOLID, 3, RGB(0,0,255) )
::linMin:nBORDER := 3
::linMin:LineSlant := "\"
::linMin:tCOLOR := RGB(0,0,255)
::linMin:oPenLight := HPen():Add( BS_SOLID, 2, RGB(0,0,255) )
::linSeg:nBORDER := 1
::linSeg:LineSlant := "/"
::linSeg:tCOLOR := RGB(0,0,255)
::linSeg:oPenLight := HPen():Add( BS_SOLID, 1, RGB(0,0,0) )
::Penduricos()
::tmrTimer:Interval := 1000
::Hora()
RETURN Nil
METHOD Penduricos CLASS HRelogAnalogico
LOCAL lnCX,lnCY,lnH, lcL, lcO
shpesfera_Init( ::shpesfera, Self )
lnCX := ::nWIDTH / 2
lnCY := ::nHEIGHT / 2
::oShapepino:nLeft := lnCX - 4
::oShapepino:nTop := lnCY - 4
::oShapepino:move()
lnH := 0
FOR lnI = 0 TO 55 STEP 5
lnA := lnI * 6
lcO := ::&("shp"+TRANS(lnI,"@L 99") )
//lcL := ::&("lbl"+TRANS(lnI,"@L 99") )
WITH OBJECT lcO
//*
// SIN(DTOR(lnA+90))<0 parte de baixo
:nTOP := :nTop + lnCY - (lnCY * SIN(DTOR(lnA+90))) + ;
IIF(SIN
[Harbour] Re: xHarbour compatible Hwgui analog clock.
Maybe this line not compatible with harbour, oSelf := & ( cClass + "():" + cClassNew ) Best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Problem with set filter
Hi!
My reports now with set filter fail, for exemple, if I use date criteria.
set date to brit
inicio := fim := ctod('23/10/09')
Set Filter to pd->data_compr >= inicio .and. pd->data_compr <= fim
the "set filter" not works, get all records of data base.
Testing with * $Id: ChangeLog 12672 2009-10-07 23:27:38Z vouchcac $
Before, works fine, but I don't know the version of SVN what run ok. :-(
Best regards,
Itamar M. Lins Jr.
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Problem with set filter
Hi!
Thanks for response.
Please analize my file, because it was make with old xHarbour.
http://www.4shared.com/file/139644752/e204a705/encomenda.html
proc main()
local inicio, fim
set date to brit
use encomenda new alias 'pd'
dbgotop()
inicio := ctod('20/08/09')
fim:= ctod('28/08/09')
while !eof()
If pd->data_compr >= inicio .and. pd->data_compr <= fim
? recno(), pd->data_compr
endif
dbskip()
enddo
?
set filter to pd->data_compr >= inicio .and. pd->data_compr <= fim
dbgotop()
while !eof()
? recno(), pd->data_compr
dbskip()
enddo
return
Very strange for me results.
Best regards,
Itamar M. Lins Jr.
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Re: Problem with set filter
Hi again!
After searching this problem for a few hours... normal to the learner, got
the following result.
proc main()
field f
local inicio, fim
set date to brit
set epoch to 1970
dbcreate("_tst",{{"F","D",8,0}})
use _tst
dbappend(); f := ctod('22/09/09')
dbappend(); f := ctod('23/09/09')
dbappend(); f := ctod('28/09/09')
dbappend(); f := ctod('28/09/09')
close all
use _tst new alias 't1' shared
use _tst new alias 't2' shared
inicio := ctod('22/09/09')
fim:= ctod('22/09/09')
while !t1->(eof())
? t1->(recno()), t1->f
t1->(dbskip())
enddo
?
set filter to t1->f >= inicio .and. t1->f <= fim
t1->(dbgotop())
while !t1->(eof())
? t1->(recno()), t1->f
t1->(dbskip())
enddo
return
Please comment shared option while open dbf file.
use _tst new alias 't1'
use _tst new alias 't2'
try again.
Best regards,
Itamar M. Lins Jr.
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Re: Problem with set filter
Hi again!
After searching this problem for a few hours... normal to the learner, got
the following result.
proc main()
field f
local inicio, fim
set date to brit
set epoch to 1970
dbcreate("_tst",{{"F","D",8,0}})
use _tst
dbappend(); f := ctod('22/09/09')
dbappend(); f := ctod('23/09/09')
dbappend(); f := ctod('28/09/09')
dbappend(); f := ctod('28/09/09')
close all
use _tst new alias 't1' shared
use _tst new alias 't2' shared
inicio := ctod('22/09/09')
fim:= ctod('22/09/09')
while !t1->(eof())
? t1->(recno()), t1->f
t1->(dbskip())
enddo
?
set filter to t1->f >= inicio .and. t1->f <= fim
t1->(dbgotop())
while !t1->(eof())
? t1->(recno()), t1->f
t1->(dbskip())
enddo
return
Please comment shared option while open dbf file.
use _tst new alias 't1'
use _tst new alias 't2'
try again.
Best regards,
Itamar M. Lins Jr.
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Problem with win_prn class CHARSET.
Hi!
Function Test_Charset
oPrn := win_prn():New(GetDefaultPrinter())
oPrn :LandScape := .f.
oPrn :Copies:= 1
if !oPrn:Create()
MsgStop("Fail...")
return nil
endif
if !oPrn:StartDoc("Print...")
MsgStop("Error...")
return nil
else
oPrn:CharSet(255)
oPrn:setfont('Lucida Console',,11255)
endif
oPrn:TextOut('ÉÍÍÍËÍÍ»',.t.)
oPrn:EndDoc()
Before run ok show ===, now show wrong results 'Í' in paper of
print.
Best regards,
Itamar M. Lins Jr.
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Problem with win_prn class CHARSET.
Hi,
Thanks for response.
I am using:
D:\harbour\trunk\harbour>harbour -build
Harbour 2.0.0beta3 (Rev. 12721)
Copyright (c) 1999-2009, http://www.harbour-project.org/
Harbour Build Info
---
Version: Harbour 2.0.0beta3 (Rev. 12721)
Compiler: Microsoft Visual C++ 15.0.26569 (32-bit)
Platform: Windows XP 5.1.2600 Service Pack 3
PCode version: 0.2
ChangeLog last entry: 2009-10-17 01:22 UTC+0200 Przemyslaw Czerpak
(druzus/at/pr
iv.onet.pl)
ChangeLog ID: ChangeLog 12721 2009-10-16 23:22:41Z druzus
Built on: Oct 17 2009 10:50:48
Build options: (C++ mode)
Language options: (Clipper 5.3) (Clipper 5.x undoc) (Xbase++) (Flagship)
---
My CodePage is:
hb_setcodepage([PTISO])
hb_langselect([PT])
Ps. a few versions ago worked fine.
Best regards,
Itamar M. Lins Jr.
"Viktor Szakáts"
escreveu na mensagem news:3920b91e-b0b4-4f1a-812c-1ca73cdf1...@syenar.hu...
Hi Itamar,
Exactly which compiler did you use here?
In UNICODE builds you have to use Set( _SET_CODEPAGE )
to set the CP you use in your app probably.
Maybe other will have better suggestions.
Brgds,
Viktor
On 2009 Oct 17, at 17:04, Itamar Lins wrote:
> Hi!
>
> Function Test_Charset
>
> oPrn := win_prn():New(GetDefaultPrinter())
> oPrn :LandScape := .f.
> oPrn :Copies:= 1
> if !oPrn:Create()
>MsgStop("Fail...")
>return nil
> endif
>
> if !oPrn:StartDoc("Print...")
> MsgStop("Error...")
> return nil
> else
> oPrn:CharSet(255)
> oPrn:setfont('Lucida Console',,11255)
> endif
> oPrn:TextOut
> ('ÉÍÍÍËÍÍ
> »',.t.)
> oPrn:EndDoc()
>
> Before run ok show ===, now show wrong results 'Í' in paper
> of
> print.
>
>
> Best regards,
> Itamar M. Lins Jr.
>
>
>
>
>
> ___
> Harbour mailing list
> Harbour@harbour-project.org
> http://lists.harbour-project.org/mailman/listinfo/harbour
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Problem with win_prn class CHARSET.
Viktor Szakáts escreveu: Hi, So you're using UNICODE build. Your issue is probably caused by 1., which can mean two things: a. UNICODE mode may not work without bugs in all places in Harbour. I hope these issues to be detected and fixed, if needed. b. Even if UNICODE mode is bug-free, app level fixes may be required, such as properly setting codepage. I hope UNICODE is not my personal pet in Harbour, so I also hope others will comment on these issues, too. In fact I just switched to UNICODE with recent builds also. Finally I hope 3rd party developers will also recognize the advantages of UNICODE mode and will eventually be synced with core Harbour behavior in this aspect, like respecting Harbour CP when doing conversions and using WIDE versions of functions in UNICODE mode. The goal is to have the same app code work without changes in both UNICODE and non-UNICODE mode. This opens the door for such future Harbour features, like internal UNICODE strings, which seems like the ultimate goal. Brgds, Viktor Hi! So, how to turning off unicode when compile ? or this is not recomend ? I am look for best solution. Best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Small problem \contrib\hbwin\tests\testprn.prg
Hi! Win_Prn() Class test program. Choose a printer to test Bitmap file name ┌──┐ │CutePDF Writer │ Error BASE/1003 Variable does not exist: GREEN │ Called from PRNTEST(112) │ Called from MAIN(28) │ C:\harbour\trunk\harbour\contrib\hbwin\tests> │ Best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: SF.net SVN: harbour-project:[12732] trunk/harbour
Hi Przemysław Czerpak! Last changelog letodb. 2009-10-18 13:30 UTC+0300 Pavel Tsarenko (tpe2/at/mail.ru) * source/server/server.prg ! minor fix in #define * include/funcleto.h * fixes for compatibility with xHarbour CVS * source/client/leto1.c * source/server/letofunc.c * some changes, provided by Alexandr Okhotnikov, a big thanks to him: DbAppend() immediately evaluated on server, and added check to FLock() by another user; DbRecordInfo(DBRI_LOCKED, nRecNo) - added nRecNo evaluation fixed DbOrderInfo() if index is absent; added OrdCount() evaluation; fixed locks (dbrlock, flock) handling to take into account FLock() by another user; fixed scoped in dbSeek, DbGOTOP, DbGoBottom; added OrdKeyGoto() evaluation Who knows, he makes this change. I'm waiting for that too. And command hbmk2 rddleto.hbp letodb.hbp For windows XP OS make lib error name librddleto.a the correct is rddleto.lib Best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: SF.net SVN: harbour-project:[12732] trunk/harbour
But I am in moment, using MSVC. Maybe is necessary set same envar. only are these options set HB_INSTALL_PREFIX=C:\DEV\HARBOUR HB_PATH=C:\DEV\HARBOUR Best regards, Itamar M. Lins Jr. Viktor Szakáts escreveu: And command hbmk2 rddleto.hbp letodb.hbp For windows XP OS make lib error name librddleto.a the correct is rddleto.lib Both are correct, it depends on the compiler you use. Current LetoDB .hbp files are OK. Brgds, Viktor ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: SF.net SVN: harbour-project:[12732] trunk/harbour
Viktor Szakáts escreveu: Probably you also have mingw in your PATH and it gets autodetected by hbmk2. Use -comp option to choose compiler manually if you have multiple ones in PATH. Yes, You is correct. Best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] FW Re: SF.net SVN: harbour-project:[12732] trunk/harbour
Przemysław Czerpak escreveu: On Tue, 20 Oct 2009, Szak�ts Viktor wrote: Hi, Thank you. I would like to ask you about yet another modification in core hbmk2 code. hbmk2 does not enable C warnings in GCC builds. Can you add -W -Wall when GCC is used? Without it some serious bugs can be silently ignored. Please test after latest commit. I've added it for all compilers, not only GCC. I've just test it with LETODB and hbmk2 rddleto.hbp letodb.hbp and it works as expexted. BTW below I'm attaching small patch for LetoDB necessary to compile it with current Harbour code. Maybe someone interesting in updating LetoDB can commit it. best regards, Przemek * letodb/Makefile.linux ! removed -mcpu=pentium which breaks builds on non x...@32 machines + added -q0 to harbour switches * letodb/letodb.hbp ! removed -mt from build flags - letodb uses own threads which works only with ST HVM and cannot be used with MT HVM because they are not registered in HVM and try to execute PCODE % removed common/net.c which seems to contain client only code * letodb/source/client/leto1.c ! updated to work with recent Harbour versions which supports RENAME() RDD method * letodb/source/common/hbip.c ! declare hb_socketConnect() as static to avoid conflicts with Harbour core function using the same name * letodb/utils/manager/console.prg * letodb/utils/manager/manage.prg ! removed hardcoded windows only paths in #include. Please remember to set correct -I parameters to compile this files. - Original Message - From: "Itamar Lins" To: Sent: Tuesday, October 20, 2009 4:12 AM Subject: Update LetoDb > Hi! > Can you apply this fix? > For LetoDb able to operate with the harbour of SVN? > Were made by Mr. Przmyslaw Czerpak. > Best regards, > Itamar M. Lins Jr. > __ Done. Thank you Pavel Tsarenko ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: SF.net SVN: harbour-project:[12732] trunk/harbour
- Original Message - From: "Itamar Lins" To: Sent: Tuesday, October 20, 2009 4:12 AM Subject: Update LetoDb > Hi! > Can you apply this fix? > For LetoDb able to operate with the harbor of SVN? > Were made by Mr. Przmyslaw Czerpak. > Best regards, > Itamar M. Lins Jr. > __ Done. Thank you Pavel Tsarenko ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: FW Re: SF.net SVN: harbour-project:[12732] trunk/harbour
2009-10-20 20:45 UTC+0300 Pavel Tsarenko (tpe2/at/mail.ru) * Makefile.linux * letodb.hbp * source/client/leto1.c * source/common/hbip.c * utils/manager/console.prg * utils/manager/manage.prg * changes for compatibility with the latest Harbour SVN, provided by Przemyslaw Czerpak Best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: SF.net SVN: harbour-project:[12732] trunk/harbour
Was submit file cvs.diff to Mr. Pavel. Cut here for just space saving :-) Best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Error making hbqt
Hi! cl.exe -nologo -I. -I../../../../../include -Gs -TP -W4 -wd4127 -Ot2b1 -EHs-c- -MT -IC:\Qt\2009.04\qt\include -IC:\Qt\2009.04\qt\include/Qt -IC:\Qt\2009.04\qt\include/QtCore -IC:\Qt\2009.04\qt\include/QtGui -IC:\Qt\2009.04\qt\include/QtNetwork -IC:\Qt\2009.04\qt\include/QtWebKit -DUNICODE -Fomoc_slots.obj -c ../../../moc_slots.cpp moc_slots.cpp cl.exe -nologo -I. -I../../../../../include -Gs -TP -W4 -wd4127 -Ot2b1 -EHs-c- -MT -IC:\Qt\2009.04\qt\include -IC:\Qt\2009.04\qt\include/Qt -IC:\Qt\2009.04\qt\include/QtCore -IC:\Qt\2009.04\qt\include/QtGui -IC:\Qt\2009.04\qt\include/QtNetwork -IC:\Qt\2009.04\qt\include/QtWebKit -DUNICODE -Fohbqt_base.obj -c ../../../hbqt_base.cpp hbqt_base.cpp cl.exe -nologo -I. -I../../../../../include -Gs -TP -W4 -wd4127 -Ot2b1 -EHs-c- -MT -IC:\Qt\2009.04\qt\include -IC:\Qt\2009.04\qt\include/Qt -IC:\Qt\2009.04\qt\include/QtCore -IC:\Qt\2009.04\qt\include/QtGui -IC:\Qt\2009.04\qt\include/QtNetwork -IC:\Qt\2009.04\qt\include/QtWebKit -DUNICODE -Fohbqt_utils.obj -c ../../../hbqt_utils.cpp hbqt_utils.cpp cl.exe -nologo -I. -I../../../../../include -Gs -TP -W4 -wd4127 -Ot2b1 -EHs-c- -MT -IC:\Qt\2009.04\qt\include -IC:\Qt\2009.04\qt\include/Qt -IC:\Qt\2009.04\qt\include/QtCore -IC:\Qt\2009.04\qt\include/QtGui -IC:\Qt\2009.04\qt\include/QtNetwork -IC:\Qt\2009.04\qt\include/QtWebKit -DUNICODE -Fohbqt_slots.obj -c ../../../hbqt_slots.cpp hbqt_slots.cpp cl.exe -nologo -I. -I../../../../../include -Gs -TP -W4 -wd4127 -Ot2b1 -EHs-c- -MT -IC:\Qt\2009.04\qt\include -IC:\Qt\2009.04\qt\include/Qt -IC:\Qt\2009.04\qt\include/QtCore -IC:\Qt\2009.04\qt\include/QtGui -IC:\Qt\2009.04\qt\include/QtNetwork -IC:\Qt\2009.04\qt\include/QtWebKit -DUNICODE -Fohbqt_destruct.obj -c ../../../hbqt_destruct.cpp hbqt_destruct.cpp ../../../hbqt_destruct.cpp(101) : error C2664: 'hb_parptrGC' : cannot convert parameter 1 from 'void (__cdecl *)(void *)' to 'const HB_GC_FUNCS *' There is no context in which this conversion is possible ../../../hbqt_destruct.cpp(115) : error C3861: 'hb_gcAlloc': identifier not found mingw32-make[3]: *** [hbqt_destruct.obj] Error 2 mingw32-make[2]: *** [descend] Error 2 mingw32-make[1]: *** [hbqt.inst] Error 2 mingw32-make: *** [contrib.inst] Error 2 In moment I am using: HB_BUILD_IMPLIB=yes HB_BUILD_PKG=yes HB_COMPILER=msvc HB_DIR_NSIS=%ProgramFiles%\NSIS\ HB_DIR_QT=C:\Qt\2009.04\qt HB_INSTALL_PREFIX=C:\DEV\HARBOUR HB_PATH=C:\DEV\HARBOUR HB_PLATFORM=win HB_WITH_QT=C:\Qt\2009.04\qt\include Harbour Build Info --- Version: Harbour 2.0.0beta3 (Rev. 12767) Compiler: Microsoft Visual C++ 15.0.26569 (32-bit) Platform: Windows XP 5.1.2600 Service Pack 3 PCode version: 0.2 ChangeLog last entry: 2009-10-24 00:43 UTC-0800 Pritpal Bedi (prit...@vouchcac.c om) ChangeLog ID: ChangeLog 12767 2009-10-24 07:58:32Z vouchcac Best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Error making hbqt
With ChangeLog 12767 2009-10-24 07:58:32Z vouchcac works fine. Best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Error making hbqt
With ChangeLog 12767 2009-10-24 07:58:32Z vouchcac works fine. Best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] qtcore4.lib
Hi! How to make qtcore4.lib ? Because I am going INSTALL file, and it contains: http://qt.nokia.com/products and get the file qt-sdk-win-opensource-2009.04.exe my set variables is: HB_BUILD_IMPLIB=yes HB_BUILD_PKG=yes HB_COMPILER=msvc HB_DIR_NSIS=%ProgramFiles%\NSIS\ HB_DIR_QT=C:\Qt\2009.04\qt HB_INSTALL_PREFIX=C:\DEV\HARBOUR HB_PATH=C:\DEV\HARBOUR HB_PLATFORM=win HB_WITH_QT=C:\Qt\2009.04\qt\include And I create file with these lines --8<--- set WindowsSDKDir=%ProgramFiles%\Microsoft SDKs\Windows\v6.0A\ call "%ProgramFiles%\Microsoft Visual Studio 9.0\VC\vcvarsall.bat" rem mingw32-make %1 %2 > log.txt 2>&1 -->8 what I'm doing wrong or incomplete? Best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: qtcore4.lib
For compiler mingwin the file hb-mkimp.bat I found this is lines if "%HB_COMPILER%" == "mingw" (... ... if exist "%HB_DIR_QT%\lib\libQtCore4.a" copy /b /y "%HB_DIR_QT%\lib\libQtCore4.a" "%HB_LIB_INSTALL%\libQtCore4.a" if exist "%HB_DIR_QT%\lib\libQtGui4.a"copy /b /y "%HB_DIR_QT%\lib\libQtGui4.a""%HB_LIB_INSTALL%\libQtGui4.a" if exist "%HB_DIR_QT%\lib\libQtNetwork4.a"copy /b /y "%HB_DIR_QT%\lib\libQtNetwork4.a""%HB_LIB_INSTALL%\libQtNetwork4.a" if exist "%HB_DIR_QT%\lib\libQtWebKit4.a" copy /b /y "%HB_DIR_QT%\lib\libQtWebKit4.a" "%HB_LIB_INSTALL%\libQtWebKit4.a" ---8< And to MSVC or BCC what is needed ? Maybe tutor for making HBQT libs step by step. Best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: qtcore4.lib
Viktor Szakáts escreveu: Better would be to forget BCC for any serious jobs. Ok, BCC was abandoned for me. Maybe tutor for making HBQT libs step by step. Making HBQT is quite straightforward and covered in INSTALL. If you mean QT, it's not Harbour's job to document it, but you'll find great step by step guide on QT website. Someone even posted a link, it's somewhere in the archives. Maybe someone has it at hand to repost it. I found this is link http://da-crystal.net/GCMS/blog/qt-windows-amp-vc-2008-express-part1/ But the problem is time of creation. >now run 'nmake" command , to compile the source ( it will take long >time , 1 hour - 4 hours) : > * C:\QtSource> nmake Best regards, Itamar M Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] hbmk2
Hi! Mr Viktor Szakáts. hbmk2 don't check if lib is more recent and not link again with new lib. In my project my files is: --->8-- -inc -lhwgui.lib -lhwg_qhtm.lib -lprocmisc.lib -lhbxml.lib -gui -run --8<--- while my file hwgui.lib is recompiled if I call: c:>\project\hbmk2 sciwin.hbm It don't relink the new lib. :( Best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: hbmk2
Viktor Szakáts escreveu: Hi, hbmk2 don't check if lib is more recent and not link again with new lib. In my project my files is: --->8-- -inc -lhwgui.lib -lhwg_qhtm.lib -lprocmisc.lib -lhbxml.lib -gui -run --8<--- while my file hwgui.lib is recompiled if I call: c:>\project\hbmk2 sciwin.hbm It don't relink the new lib. :( Try dropping .lib extension from -l options. They are unnecessary and may break the process depending on the compiler you use. [ See hbmk2 --help about that at -l option description. ] If this doesn't help, please post your output after adding -debuginc option. Furthermore, which compiler/platform did you test this on? Brgds, Viktor Hi, MSVC 2008 is my compiler. Windows XP is my OS. And I remove .lib extension of file .hbm. And flag -debuginc makes no reference to the file hwgui.lib Best regards, Itamar M.Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Error making _hbhbpdf.c
Hi! Microsoft Windows XP [versão 5.1.2600] Envar for harbour maker. HB_COMPILER=msvc HB_DIR_NSIS=%ProgramFiles%\NSIS\ HB_DIR_QT=C:\Qt\2009.04\qt HB_DIR_ZIP=C:\info-zip\ HB_INSTALL_PREFIX=C:\DEV\HARBOUR HB_PATH=C:\DEV\HARBOUR HB_PLATFORM=win HB_WITH_QT=C:\Qt\2009.04\qt\include c:\>cd\harbour\trunk\harbour C:\harbour\trunk\harbour>win-make.exe clean install ... cl.exe -nologo -I. -I../../../../../include -Gs -TC -Ot2b1 -EHs-c- -MT -IC:/h arbour/trunk/harbour/external/zlib -IC:/harbour/trunk/harbour/external/libpng -D UNICODE -Fo_hbhbpdf.obj -c ../../../_hbhbpdf.c process_begin: CreateProcess(NULL, cl.exe -nologo -I. -I../../../../../include - Gs -TC -Ot2b1 -EHs-c- -MT -IC:/harbour/trunk/harbour/external/zlib -IC:/harbour/ trunk/harbour/external/libpng -DUNICODE -Fo_hbhbpdf.obj -c ../../../_hbhbpdf.c, ...) failed. make (e=2): O sistema nÒo pode encontrar o arquivo especificado. win-make.exe[3]: *** [_hbhbpdf.obj] Error 2 win-make.exe[2]: *** [descend] Error 2 win-make.exe[1]: *** [libhpdf.inst] Error 2 win-make.exe: *** [external.inst] Error 2 Best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Error making _hbhbpdf.c
Viktor Szakáts escreveu: Rely on setting up your PATH right and leave the rest to AUTODETECTION. Brgds, Viktor Ok but if I run only C:\harbour\trunk\harbour>win-make clean ... C:\harbour\trunk\harbour>win-make Run without errors. Best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Error making _hbhbpdf.c
Viktor Szakáts escreveu: You're forcing MSVC compiler, but you don't have it in your PATH. This is not true, see. My path is: C:\harbour\trunk\harbour>set path Path=C:\Arquivos de programas\Microsoft Visual Studio 9.0\Common7\IDE;C:\Arquivo s de programas\Microsoft Visual Studio 9.0\VC\BIN;C:\Arquivos de programas\Microsoft Visual Studio 9.0\Common7\Tools;C:\WINDOWS\Microsoft.NET\Framework\v3.5;C:\ WINDOWS\Microsoft.NET\Framework\v2.0.50727;C:\Arquivos de programas\Microsoft Visual Studio 9.0\VC\VCPackages;C:\Arquivos de programas\Microsoft SDKs\Windows\v6 .0A\bin;C:\Arquivos de programas\Microsoft Visual Studio 9.0\Common7\IDE;C:\Arquivos de programas\Microsoft Visual Studio 9.0\VC\BIN;C:\Arquivos de programas\Mi crosoft Visual Studio 9.0\Common7\Tools;C:\WINDOWS\Microsoft.NET\Framework\v3.5; C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727;C:\Arquivos de programas\Microsoft Visual Studio 9.0\VC\VCPackages;C:\Arquivos de programas\Microsoft SDKs\Windows \v6.0A\bin;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;c:\Arquivos de programas\Microsoft SQL Server\100\Tools\Binn\;c:\Arquivos de programas\Microsoft SQL Server\100\DTS\Binn\;C:\Arquivos de programas\TortoiseSVN\bin;C:\DEV\HARBOUR\bin;C:\Arquivos de programas\QuickTime\QTSystem\;C:\Arquivos de programas\C VSNT\ PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH C:\harbour\trunk\harbour> Best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Error making _hbhbpdf.c
Viktor Szakáts escreveu: I'd like to strongly suggest every Windows user to **FORGET** HB_COMPILER settings. Don't use it, not needed, unnecessary. It's just a way to mess up things. Rely on setting up your PATH right and leave the rest to AUTODETECTION. without HB_COMPILER :-( C:\harbour\trunk\harbour>win-make.exe clean install ! Building Harbour 2.0.0beta3 from source - http://www.harbour-project.org ! MAKE: win-make.exe 3.81 sh.exe clean install ! HB_INSTALL_PREFIX: C:\DEV\HARBOUR ! HB_HOST_PLAT: win (x86) HB_SHELL: nt config/global.mk:917: *** ! HB_COMPILER not set, could not autodetect. Stop. C:\harbour\trunk\harbour> Best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Error making _hbhbpdf.c
Viktor Szakáts escreveu: If Harbour build still cannot autodetect it, above must be wrong. I never tested to put MSVC in the PATH _TWICE_, while it should work, maybe should correct it to have it only once, and check if cl.exe is indeed in above PATH list. (by trying to execute it!). Anyhow I'd suggest to check proper MSVC setup in INSTALL EXAMPLES section, and this case is also covered by the TROUBLESHOOTING section (aka as: try with minimal amount of envvars, setup your compiler tools properly, try with EXAMPLES as-is). Brgds, Viktor Hi Mr. Viktor. I am following the steps in the INSTALL file And he will be better if you change these lines because I believe that is leaving the new users confused as I was. I'm not touching anything just by following the instructions in the install. 8<--- --- MSVC 2008 + SDK set WindowsSDKDir=%ProgramFiles%\Microsoft SDKs\Windows\v6.0A\ call "%ProgramFiles%\Microsoft Visual Studio 9.0\VC\vcvarsall.bat" mingw32-make --- >8--- As it stands, it's generating for Mingw lib's. to --- MSVC 2008 + SDK set WindowsSDKDir=%ProgramFiles%\Microsoft SDKs\Windows\v6.0A\ call "%ProgramFiles%\Microsoft Visual Studio 9.0\VC\vcvarsall.bat" win-make clean install --- Pure MSVC compiler. Best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Error making _hbhbpdf.c
Viktor Szakáts escreveu: If Harbour build still cannot autodetect it, above must be wrong. I never tested to put MSVC in the PATH _TWICE_, while it should work, maybe should correct it to have it only once, and check if cl.exe is indeed in above PATH list. (by trying to execute it!). Anyhow I'd suggest to check proper MSVC setup in INSTALL EXAMPLES section, and this case is also covered by the TROUBLESHOOTING section (aka as: try with minimal amount of envvars, setup your compiler tools properly, try with EXAMPLES as-is). Brgds, Viktor Hi Mr. Viktor. I am following the steps in the INSTALL file And he will be better if you change these lines because I believe that is leaving the new users confused as I was. I'm not touching anything just by following the instructions in the install file. 8<--- --- MSVC 2008 + SDK set WindowsSDKDir=%ProgramFiles%\Microsoft SDKs\Windows\v6.0A\ call "%ProgramFiles%\Microsoft Visual Studio 9.0\VC\vcvarsall.bat" mingw32-make --- >8--- As it stands, it's generating for Mingw lib's. to --- MSVC 2008 + SDK set WindowsSDKDir=%ProgramFiles%\Microsoft SDKs\Windows\v6.0A\ call "%ProgramFiles%\Microsoft Visual Studio 9.0\VC\vcvarsall.bat" win-make clean install --- Pure MSVC compiler. Best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Error making _hbhbpdf.c
Generally it makes no sense as mingw32-make and win-make are the SAME binaries. The only difference in your case, is that you seem to put MinGW in PATH and try to invoke included GNU Make. Which can cause MinGW to be autodetected. Solution, as written in INSTALL: "Unpack it [mingw32-make] to your PATH or Harbour source root directory." (instead you put MinGW in PATH which happens to also contain mingw32-make) also: "It's recommended to make sure no tools in your PATH belonging to other C compilers are interfering with your setup." (in your case whole MinGW interferes with MSVC) plus: "You can also use included copy [of mingw-32make] named win-make.exe instead." 'clean' and 'install' are options described in the document, so I don't think they should be repeated in every make invocation examples. win-make is a convenience option, which may or may not be included in our distribution, so I don't want to include it in every example either. Solution is easy: put mingw32-make in your PATH, or create a separate dir for it and put that in your PATH. Overall, I'm giving up on giving "proper" instructions which is fine for everyone. This seems to become a "how to mess it up" / "how to misunderstand" / "how to pick nits" contest. It's hopeless. Everyone should get its act together and figure a little bit themselves. Brgds, Viktor Ok, thanks for the responses. I understand your situation. I understood the procedure. Best regards, Itamar M. Lins Jr. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Win_prn problem.
Hi!
Please, look this is example.
Function Main
aPrn := GetPrinters()
If empty(aPrn)
MsgStop("Error")
return .f.
EndIf
oPrn := win_prn():New(GetDefaultPrinter()) //Is pdf virtual printer. "pdf
creator"
oPrn :LandScape := .f.
oPrn :Copies:= 1
if !oPrn:Create()
MsgStop("error")
return nil
endif
if !oPrn:StartDoc("test")
MsgStop("Error")
return nil
EndIf
aFonts := oPrn:GetFonts()
For n := 1 to len(aFonts)
oPrn:CharSet(0) //reset charset
oPrn:SetFont(aFonts[n,1],11255)
oPrn:TextOut('Name of font array: '+aFonts[n,1],.t.)
oPrn:CharSet(255)
oPrn:TextOut('Font Name: ' + oPrn:FontName,.t.)
oPrn:TextOut('CharSet is: '+STR(aFonts[n,4],5),.t.)
if n==30 .or. n==60 .or. n==90 .or. n==120
oPrn:NewPage()
endif
Next
The return of line "oPrn:TextOut(oPrn:FontName,.t.)" is incorrect and set
CHARSET for 255 code page to fonts roman, script, modern.
Best regards,
Itamar M. Lins Jr.
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Win_prn problem.
Hi! Massimo, please test.
Function Main
aPrn := GetPrinters()
If empty(aPrn)
MsgStop("Error")
return .f.
EndIf
oPrn := win_prn():New(GetDefaultPrinter())
oPrn :LandScape := .f.
oPrn :Copies:= 1
if !oPrn:Create()
MsgStop("error")
return nil
endif
if !oPrn:StartDoc("test")
MsgStop("Error")
return nil
EndIf
oPrn:CharSet(255)
oPrn:Setfont('Lucida Console',,11255)
oPrn:SetPrc(1,0) //Is necessary, because if I omit not print first line.
oPrn:TextOut('Charset is: '+str(oPrn:Charset(),5),.t.)
oPrn:TextOut('Font Is: '+oPrn:FontName,.t.)
For n := 1 to 255
oPrn:TextOut(chr(n),.t.)
if n == 60 .or. n == 120 .or. n == 180 .or. n == 240
oPrn:NewPage()
EndIf
Next
oPrn:EndDoc()
Is correct this is results ?
Best regards,
Itamar M. Lins Jr.
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Re: Re: Win_prn problem.
What's the best choice? MSVC or Mingw ?
What's the standard compiler for harbour ?
Best regards,
Itamar M. Lins Jr.
"Massimo Belgrano" escreveu na mensagem
news:609353e70911080534n1c327690qae2f1e1f05d7b...@mail.gmail.com...
FREEPDFXP + Mingw version
Harbour Terminal: Windows native console
Harbour 2.0.0beta3 (Rev. 12829)
Windows Vista 6.0.6002 Service Pack 2
DS avail=684936KB OS avail=2063912KB EMM avail=0KB MemStat:Off MT:Off
Try with http://freepdfxp.de/xpDownload.html
2009/11/8 Itamar Lins
Hi! Massimo, I use MSVC Express 9 with Windows XP, my results is not equal.
Version of Harbour SVN.
/*
* $Id: ChangeLog 12829 2009-11-07 03:25:24Z april $
*/
Best regards,
Itamar M. Lins Jr.
"Massimo Belgrano" escreveu na mensagem
news:609353e70911071141r1f93a800ne3e3ab032d1495c1-jsoawuisxosn+bqq9rb...@public.gmane.org...
your sample Run without problem
(replaced msgstop with alert )
In my file
Charset is: 255
Font Is: Lucida Console
2009/11/7 Itamar Lins
Hi! Massimo, please test.
Function Main
aPrn := GetPrinters()
If empty(aPrn)
MsgStop("Error")
return .f.
EndIf
oPrn := win_prn():New(GetDefaultPrinter())
oPrn :LandScape := .f.
oPrn :Copies:= 1
if !oPrn:Create()
MsgStop("error")
return nil
endif
if !oPrn:StartDoc("test")
MsgStop("Error")
return nil
EndIf
oPrn:CharSet(255)
oPrn:Setfont('Lucida Console',,11255)
oPrn:SetPrc(1,0) //Is necessary, because if I omit not print first line.
oPrn:TextOut('Charset is: '+str(oPrn:Charset(),5),.t.)
oPrn:TextOut('Font Is: '+oPrn:FontName,.t.)
For n := 1 to 255
oPrn:TextOut(chr(n),.t.)
if n == 60 .or. n == 120 .or. n == 180 .or. n == 240
oPrn:NewPage()
EndIf
Next
oPrn:EndDoc()
Is correct this is results ?
Best regards,
Itamar M. Lins Jr.
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
--
Massimo Belgrano
Analisi e sviluppo software per Lan e Web - Consulenza informatica -
Formazione
Delta Informatica S.r.l. http://www.deltain.it/ +39 0321 455962
--
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
--
Massimo Belgrano
--
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Re: Re: Win_prn problem.
Hi! Massimo. The conclusion is there exist a problem with MSVC unicode ? I do not know to solve this. :-( Best regards, Itamar M. Lins Jr. "Massimo Belgrano" escreveu na mensagem news:609353e70911080534n1c327690qae2f1e1f05d7b...@mail.gmail.com... FREEPDFXP + Mingw version Harbour Terminal: Windows native console Harbour 2.0.0beta3 (Rev. 12829) Windows Vista 6.0.6002 Service Pack 2 DS avail=684936KB OS avail=2063912KB EMM avail=0KB MemStat:Off MT:Off Try with http://freepdfxp.de/xpDownload.html ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Re: Re: Re: Win_prn problem.
But the return of command "oPrn:TextOut('Font Is: '+oPrn:FontName,.t.)" is
wrong, using MSVC.
No problem with print driver emulating pdf, because HP printer Deskjet is
returning wrong results too.
Is a problem with class win_prn or unicode... because it worked before without
problems and do not know what version of SVN caused this problem.
Ps. I use service pack 3 with XP OS.
Best regards,
Itamar M. Lins Jr.
"Massimo Belgrano" escreveu na mensagem
news:609353e70911081407s298f73bai1dc4f8a7272a6...@mail.gmail.com...
No i have compiled with msvc 2008 and work fine (as first screen shoot)
Remember that i use freepdf, so problem Maj be due by your print driver
emulating pdf
follow my //info msvc
Harbour Terminal: Windows native console
Harbour 2.0.0beta3 (Rev. 12836)
Windows Vista 6.0.6002 Service Pack 2
DS avail=867528KB OS avail=2066396KB EMM avail=0KB MemStat:Off MT:Off
Follow my Microsoft c++ version c:\Program Files\Microsoft Visual Studio
9.0\VC\bin\cl
Microsoft (R) 32-bit C/C++ Optimizing Compiler versione 15.00.30729.01 per
80x86
2009/11/8 Itamar Lins
Hi! Massimo.
The conclusion is there exist a problem with MSVC unicode ?
I do not know to solve this. :-(
Best regards,
Itamar M. Lins Jr.
--
Massimo Belgrano
--
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Re: Re: Re: Re: Win_prn problem.
Hi!
The return of command "oPrn:TextOut('Font Is: '+oPrn:FontName,.t.)" is
correct now.
But not is possible yet print draw box double horizontal for example. I get
Í
My test with pdfcreator print is.
Function Main
aPrn := GetPrinters()
If empty(aPrn)
MsgStop("Error")
return .f.
EndIf
oPrn := win_prn():New(GetDefaultPrinter())
oPrn :LandScape := .f.
oPrn :Copies:= 1
if !oPrn:Create()
MsgStop("error")
return nil
endif
if !oPrn:StartDoc("test")
MsgStop("Error")
return nil
EndIf
oPrn:CharSet(255)
oPrn:Setfont('Lucida Console',,11255)
oPrn:SetPrc(1,0) //Is necessary, because if I omit not print first line.
oPrn:TextOut('Charset is: '+str(oPrn:Charset(),5),.t.)
oPrn:TextOut('Font Is: '+oPrn:FontName,.t.)
For n := 1 to 255
oPrn:TextOut(chr(n),.t.)
if n == 60 .or. n == 120 .or. n == 180 .or. n == 240
oPrn:NewPage()
EndIf
Next
oPrn:EndDoc()
MSVC, windows XP
/*
* $Id: ChangeLog 12988 2009-11-23 08:14:24Z vszakats $
*/
Best regards,
Itamar M. Lins Jr.
"Viktor Szakáts"
escreveu na mensagem news:64d3e786-b3d3-475d-b309-dd1812b70...@syenar.hu...
Hi Itamar,
I've accidentally found the problem while
reviewing hbwin code, so if you try now it
should work. I've since realized that the
output looked indeed wrong, but I didn't know
what to look for.
Brgds,
Viktor
___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Re: Re: Re: Re: Re: Win_prn problem.
Hi!
Now with , oPrn:CharSet(OEM_CHARSET)
I get error, variable not exist.
Error BASE/1003 Vari vel nÆo existe: OEM_CHARSET
SVN * $Id: ChangeLog 13006 2009-11-24 12:20:59Z druzus $
Best regards,
Itamar M. Lins Jr.
"Xavi" escreveu na
mensagem news:4b0b35e1.6090...@gmail.com...
> Itamar,
>
> > But not is possible yet print draw box double horizontal for example.
> I get
> > Í
>
> This seems a conflict with charset.
> http://msdn.microsoft.com/en-us/library/dd183499%28VS.85%29.aspx
> Please read fdwCharSet parameter if it can help you.
>
> oPrn:CharSet(OEM_CHARSET)
> oPrn:Setfont('Lucida Console',,11) // oPrn:Setfont('Terminal',,12)
>
> Please Viktor, is it possible to update hbwin.ch?
>
> --
> Xavi
>
> Viktor Szakáts escribió:
>>> Hi!
>>> The return of command "oPrn:TextOut('Font Is: '+oPrn:FontName,.t.)" is
>>> correct now.
>>
>> Amen.
>>
>>> But not is possible yet print draw box double horizontal for example. I
>>> get
>>> Í
>>
>> I'll let someone else to solve this for you,
>> anyhow it's not a Harbour bug.
>>
>> Brgds,
>> Viktor
>>
>
>
> /*
> * $Id: hbwin.ch 12732 2009-10-19 21:17:04Z vszakats $
> */
>
> /*
> * Harbour Project source code:
> * hbwin header
> *
> * Copyright 2008 Viktor Szakats (harbour.01 syenar.hu)
> * Copyright 2004 Peter Rees
> *Rees Software & Systems Ltd
> * www - http://www.harbour-project.org
> *
> * This program is free software; you can redistribute it and/or modify
> * it under the terms of the GNU General Public License as published by
> * the Free Software Foundation; either version 2, or (at your option)
> * any later version.
> *
> * This program is distributed in the hope that it will be useful,
> * but WITHOUT ANY WARRANTY; without even the implied warranty of
> * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
> * GNU General Public License for more details.
> *
> * You should have received a copy of the GNU General Public License
> * along with this software; see the file COPYING. If not, write to
> * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
> * Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
> *
> * As a special exception, the Harbour Project gives permission for
> * additional uses of the text contained in its release of Harbour.
> *
> * The exception is that, if you link the Harbour libraries with other
> * files to produce an executable, this does not by itself cause the
> * resulting executable to be covered by the GNU General Public License.
> * Your use of that executable is in no way restricted on account of
> * linking the Harbour library code into it.
> *
> * This exception does not however invalidate any other reasons why
> * the executable file might be covered by the GNU General Public License.
> *
> * This exception applies only to the code released by the Harbour
> * Project under the name Harbour. If you copy code from other
> * Harbour Project or Free Software Foundation releases into a copy of
> * Harbour, as the General Public License permits, the exception does
> * not apply to the code that you add in this way. To avoid misleading
> * anyone as to the status of such modified files, you must delete
> * this exception notice from them.
> *
> * If you write modifications of your own for Harbour, it is your choice
> * whether to permit this exception to apply to your modifications.
> * If you do not wish that, delete this exception notice.
> *
> */
>
> #ifndef HBWIN_CH_
> #define HBWIN_CH_
>
> /* Registry related values */
>
> #define HKEY_CLASSES_ROOT 0x8000
> #define HKEY_CURRENT_USER 0x8001
> #define HKEY_LOCAL_MACHINE 0x8002
> #define HKEY_USERS 0x8003
> #define HKEY_PERFORMANCE_DATA 0x8004
> #define HKEY_CURRENT_CONFIG0x8005
> #define HKEY_DYN_DATA 0x8006
>
> /* win_Port() related values */
>
> /* The following are from winbase.h */
>
> #define CBR_110110
> #define CBR_300300
> #define CBR_600600
> #define CBR_1200 1200
> #define CBR_2400 2400
> #define CBR_4800 4800
> #define CBR_9600 9600
> #define CBR_14400 14400
> #define CBR_19200 19200
> #define CBR_38400 38400
> #define CBR_56000 56000
> #define CBR_57600 57600
> #define CBR_115200 115200
> #define CBR_128000 128000
> #define CBR_256000 256000
>
> #define NOPARITY 0
> #define ODDPARITY 1
> #define EVENPARITY 2
> #define MARKPARITY 3
> #define SPACEPARITY4
>
> #define ONESTOPBIT 0
> #define ONE5STOPBITS 1
> #define TWOSTOPBITS2
>
> /* DTR Control Flow Values. */
> #define DTR_CONTROL_DISABLE0x00
> #define DTR_CONTROL_ENABLE 0x01
> #define
[Harbour] Re: Re: Re: Re: Re: Re: Win_prn problem.
Sorry, my fault,
#include "hbwin.ch"
But, the problem persist. :-(
Best regards,
Itamar M. Lins Jr.
"Itamar Lins" escreveu
na mensagem news:hegso9$ql...@ger.gmane.org...
> Hi!
> Now with , oPrn:CharSet(OEM_CHARSET)
> I get error, variable not exist.
> Error BASE/1003 Vari vel nÆo existe: OEM_CHARSET
> SVN * $Id: ChangeLog 13006 2009-11-24 12:20:59Z druzus $
>
> Best regards,
> Itamar M. Lins Jr.
>
> "Xavi" escreveu na
> mensagem news:4b0b35e1.6090...@gmail.com...
>> Itamar,
>>
>> > But not is possible yet print draw box double horizontal for example.
>> I get
>> > Í
>>
>> This seems a conflict with charset.
>> http://msdn.microsoft.com/en-us/library/dd183499%28VS.85%29.aspx
>> Please read fdwCharSet parameter if it can help you.
>>
>> oPrn:CharSet(OEM_CHARSET)
>> oPrn:Setfont('Lucida Console',,11) // oPrn:Setfont('Terminal',,12)
>>
>> Please Viktor, is it possible to update hbwin.ch?
>>
>> --
>> Xavi
>>
>> Viktor Szakáts escribió:
>>>> Hi!
>>>> The return of command "oPrn:TextOut('Font Is: '+oPrn:FontName,.t.)" is
>>>> correct now.
>>>
>>> Amen.
>>>
>>>> But not is possible yet print draw box double horizontal for example.
>>>> I get
>>>> Í
>>>
>>> I'll let someone else to solve this for you,
>>> anyhow it's not a Harbour bug.
>>>
>>> Brgds,
>>> Viktor
>>>
>>
>>
>
>
>
>
>
>> /*
>> * $Id: hbwin.ch 12732 2009-10-19 21:17:04Z vszakats $
>> */
>>
>> /*
>> * Harbour Project source code:
>> * hbwin header
>> *
>> * Copyright 2008 Viktor Szakats (harbour.01 syenar.hu)
>> * Copyright 2004 Peter Rees
>>
>> *Rees Software & Systems Ltd
>> * www - http://www.harbour-project.org
>> *
>> * This program is free software; you can redistribute it and/or modify
>> * it under the terms of the GNU General Public License as published by
>> * the Free Software Foundation; either version 2, or (at your option)
>> * any later version.
>> *
>> * This program is distributed in the hope that it will be useful,
>> * but WITHOUT ANY WARRANTY; without even the implied warranty of
>> * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
>> * GNU General Public License for more details.
>> *
>> * You should have received a copy of the GNU General Public License
>> * along with this software; see the file COPYING. If not, write to
>> * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
>> * Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
>> *
>> * As a special exception, the Harbour Project gives permission for
>> * additional uses of the text contained in its release of Harbour.
>> *
>> * The exception is that, if you link the Harbour libraries with other
>> * files to produce an executable, this does not by itself cause the
>> * resulting executable to be covered by the GNU General Public License.
>> * Your use of that executable is in no way restricted on account of
>> * linking the Harbour library code into it.
>> *
>> * This exception does not however invalidate any other reasons why
>> * the executable file might be covered by the GNU General Public License.
>> *
>> * This exception applies only to the code released by the Harbour
>> * Project under the name Harbour. If you copy code from other
>> * Harbour Project or Free Software Foundation releases into a copy of
>> * Harbour, as the General Public License permits, the exception does
>> * not apply to the code that you add in this way. To avoid misleading
>> * anyone as to the status of such modified files, you must delete
>> * this exception notice from them.
>> *
>> * If you write modifications of your own for Harbour, it is your choice
>> * whether to permit this exception to apply to your modifications.
>> * If you do not wish that, delete this exception notice.
>> *
>> */
>>
>> #ifndef HBWIN_CH_
>> #define HBWIN_CH_
>>
>> /* Registry related values */
>>
>> #define HKEY_CLASSES_ROOT 0x8000
>> #define HKEY_CURRENT_USER 0x8001
>> #define HKEY_LOCAL_MACHINE 0x8002
>> #define HKEY_USERS 0x8003
>> #define HKEY_PERFORMANCE_DATA 0x8004
>> #define HKEY_CURRE
[Harbour] Re: harbour.cfg support removal
If this file is to remove, the hbmake can also be removed since it does not make sense to use it. Best regards, Itamar M. Lins Jr. "Viktor Szakáts" escreveu na mensagem news:798dd396-41d1-4904-ac82-512861f73...@syenar.hu... > Hi All, > > I'd like to propose removal of harbour.cfg. A lot of > time went by since visiting this topic last time, and > by now I see no point at all maintaining this feature. > It's only required by hbmake. But hbmake doesn't work > too well, or at all with current Harbour, plus we have > hbmk2 which seems to work quite well without this hack. > > So, any objections to remove the pieces of this feature > from SVN? > > Brgds, > Viktor > ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: SF.net SVN: harbour-project:[13051] trunk/harbour
Hi! I use REQUEST HB_LANG_PT and REQUEST HB_CODEPAGE_PTISO. Are these same commands ? Best regards, Itamar M. Lins Jr. escreveu na mensagem news:e1nedhg-0006ef...@bj8yhf1.ch3.sourceforge.com... > Revision: 13051 > > http://harbour-project.svn.sourceforge.net/harbour-project/?rev=13051&view=rev > Author: vszakats > Date: 2009-11-29 06:28:57 + (Sun, 29 Nov 2009) > > Log Message: > --- > 2009-11-29 07:23 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) > * src/rtl/cdpapi.c >* HB_SETCODEPAGE() guarded as HB_LEGACY_LEVEL2 which means > it will be removed in next major version. > NOTE to users: Use HB_CDPSELECT() or SET( _SET_CODEPAGE ) instead. > > * src/debug/debugger.prg >- Deleted __XHARBOUR__ protected parts. > > * contrib/xhb/xhberr.prg >- Deleted some __XHARBOUR__ protected parts. > Some other remain, most of them dealing with SET()s which > are xhb extension. > It again shows that emulating extended SETs is quite a PITA, > so we should avoid it. > > Modified Paths: > -- >trunk/harbour/ChangeLog >trunk/harbour/contrib/xhb/xhberr.prg >trunk/harbour/src/debug/debugger.prg >trunk/harbour/src/rtl/cdpapi.c > > > This was sent by the SourceForge.net collaborative development platform, > the world's largest Open Source development site. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] HB_BUILD_UNICODE=no
Hi! With MSVC 2008 express, Win XP SP3 My file makemsvc.bat is: SET HB_BUILD_DEBUG=yes call "%ProgramFiles%\Microsoft Visual Studio 9.0\VC\vcvarsall.bat" win-make %1 %2 cl.exe -nologo -I. -I../../../../../include -Gs -TC -Ot2b1 -EHs-c- -MTd -Zi -DH B_TR_LEVEL_DEBUG -ID:/harbour/trunk/harbour/external/zlib -ID:/harbour/trunk/ha rbour/external/libpng -DUNICODE -Fo_hbhbpdf.obj -c ../../../_hbhbpdf.c _hbhbpdf.c ../../../_hbhbpdf.c : fatal error C1902: Program database manager mismatch; plea se check your installation win-make[3]: *** [_hbhbpdf.obj] Error 2 win-make[2]: *** [descend] Error 2 win-make[1]: *** [libhpdf.inst] Error 2 win-make: *** [external.inst] Error 2 Best regards, Itamar M. Lins Jr. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Re: Re: Re: Re: Re: Win_prn problem.
Hi!
The lines below of file testprg.prg in to folder \contrib\hbwin\tests not
working.
-->8-
oPrinter:Box( 0, oPrinter:PosY+100, 100, oPrinter:PosY+200)
oPrinter:Arc(200, oPrinter:PosY+100, 300, oPrinter:PosY+200)
oPrinter:Ellipse(400, oPrinter:PosY+100, 500, oPrinter:PosY+200)
oPrinter:FillRect(600, oPrinter:PosY+100, 700, oPrinter:PosY+200, RGB_RED )
8<
My test with SVN $Id: ChangeLog 13098 2009-12-02 19:05:19Z vszakats $
Best Regards,
Itamar M. Lins Jr.
"Itamar Lins" escreveu na mensagem news:...
> Sorry, my fault,
> #include "hbwin.ch"
> But, the problem persist. :-(
>
> Best regards,
> Itamar M. Lins Jr.
>
> "Itamar Lins"
> escreveu na mensagem news:hegso9$ql...@ger.gmane.org...
>> Hi!
>> Now with , oPrn:CharSet(OEM_CHARSET)
>> I get error, variable not exist.
>> Error BASE/1003 Vari vel nÆo existe: OEM_CHARSET
>> SVN * $Id: ChangeLog 13006 2009-11-24 12:20:59Z druzus $
>>
>> Best regards,
>> Itamar M. Lins Jr.
>>
>> "Xavi" escreveu na
>> mensagem news:4b0b35e1.6090...@gmail.com...
>>> Itamar,
>>>
>>> > But not is possible yet print draw box double horizontal for
>>> example. I get
>>> > Í
>>>
>>> This seems a conflict with charset.
>>> http://msdn.microsoft.com/en-us/library/dd183499%28VS.85%29.aspx
>>> Please read fdwCharSet parameter if it can help you.
>>>
>>> oPrn:CharSet(OEM_CHARSET)
>>> oPrn:Setfont('Lucida Console',,11) // oPrn:Setfont('Terminal',,12)
>>>
>>> Please Viktor, is it possible to update hbwin.ch?
>>>
>>> --
>>> Xavi
>>>
>>> Viktor Szakáts escribió:
>>>>> Hi!
>>>>> The return of command "oPrn:TextOut('Font Is: '+oPrn:FontName,.t.)" is
>>>>> correct now.
>>>>
>>>> Amen.
>>>>
>>>>> But not is possible yet print draw box double horizontal for example.
>>>>> I get
>>>>> Í
>>>>
>>>> I'll let someone else to solve this for you,
>>>> anyhow it's not a Harbour bug.
>>>>
>>>> Brgds,
>>>> Viktor
>>>>
>>>
>>>
>>
>>
>>
>>
>>
>>> /*
>>> * $Id: hbwin.ch 12732 2009-10-19 21:17:04Z vszakats $
>>> */
>>>
>>> /*
>>> * Harbour Project source code:
>>> * hbwin header
>>> *
>>> * Copyright 2008 Viktor Szakats (harbour.01 syenar.hu)
>>> * Copyright 2004 Peter Rees
>>>
>>> *Rees Software & Systems Ltd
>>> * www - http://www.harbour-project.org
>>> *
>>> * This program is free software; you can redistribute it and/or modify
>>> * it under the terms of the GNU General Public License as published by
>>> * the Free Software Foundation; either version 2, or (at your option)
>>> * any later version.
>>> *
>>> * This program is distributed in the hope that it will be useful,
>>> * but WITHOUT ANY WARRANTY; without even the implied warranty of
>>> * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
>>> * GNU General Public License for more details.
>>> *
>>> * You should have received a copy of the GNU General Public License
>>> * along with this software; see the file COPYING. If not, write to
>>> * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
>>> * Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
>>> *
>>> * As a special exception, the Harbour Project gives permission for
>>> * additional uses of the text contained in its release of Harbour.
>>> *
>>> * The exception is that, if you link the Harbour libraries with other
>>> * files to produce an executable, this does not by itself cause the
>>> * resulting executable to be covered by the GNU General Public License.
>>> * Your use of that executable is in no way restricted on account of
>>> * linking the Harbour library code into it.
>>> *
>>> * This exception does not however invalidate any other reasons why
>>> * the executable file might be covered by the GNU General Public
>>> License.
>>> *
>>> * This exception applies only to the code released by the Harbour
>>> * Project under the name Harbour. If
[Harbour] Re: Re: Re: Re: Re: Re: Win_prn problem.
Hi!
The lines below of file testprg.prg in to folder \contrib\hbwin\tests not
working.
-->8-
oPrinter:Box( 0, oPrinter:PosY+100, 100, oPrinter:PosY+200)
oPrinter:Arc(200, oPrinter:PosY+100, 300, oPrinter:PosY+200)
oPrinter:Ellipse(400, oPrinter:PosY+100, 500, oPrinter:PosY+200)
oPrinter:FillRect(600, oPrinter:PosY+100, 700, oPrinter:PosY+200, RGB_RED )
8<
My test with SVN $Id: ChangeLog 13098 2009-12-02 19:05:19Z vszakats $
Best Regards,
Itamar M. Lins Jr.
"Itamar Lins" escreveu na mensagem news:...
> Sorry, my fault,
> #include "hbwin.ch"
> But, the problem persist. :-(
>
> Best regards,
> Itamar M. Lins Jr.
>
> "Itamar Lins"
> escreveu na mensagem news:hegso9$ql...@ger.gmane.org...
>> Hi!
>> Now with , oPrn:CharSet(OEM_CHARSET)
>> I get error, variable not exist.
>> Error BASE/1003 Vari vel nÆo existe: OEM_CHARSET
>> SVN * $Id: ChangeLog 13006 2009-11-24 12:20:59Z druzus $
>>
>> Best regards,
>> Itamar M. Lins Jr.
>>
>> "Xavi" escreveu na
>> mensagem news:4b0b35e1.6090...@gmail.com...
>>> Itamar,
>>>
>>> > But not is possible yet print draw box double horizontal for
>>> example. I get
>>> > Í
>>>
>>> This seems a conflict with charset.
>>> http://msdn.microsoft.com/en-us/library/dd183499%28VS.85%29.aspx
>>> Please read fdwCharSet parameter if it can help you.
>>>
>>> oPrn:CharSet(OEM_CHARSET)
>>> oPrn:Setfont('Lucida Console',,11) // oPrn:Setfont('Terminal',,12)
>>>
>>> Please Viktor, is it possible to update hbwin.ch?
>>>
>>> --
>>> Xavi
>>>
>>> Viktor Szakáts escribió:
>>>>> Hi!
>>>>> The return of command "oPrn:TextOut('Font Is: '+oPrn:FontName,.t.)" is
>>>>> correct now.
>>>>
>>>> Amen.
>>>>
>>>>> But not is possible yet print draw box double horizontal for example.
>>>>> I get
>>>>> Í
>>>>
>>>> I'll let someone else to solve this for you,
>>>> anyhow it's not a Harbour bug.
>>>>
>>>> Brgds,
>>>> Viktor
>>>>
>>>
>>>
>>
>>
>>
>>
>>
>>> /*
>>> * $Id: hbwin.ch 12732 2009-10-19 21:17:04Z vszakats $
>>> */
>>>
>>> /*
>>> * Harbour Project source code:
>>> * hbwin header
>>> *
>>> * Copyright 2008 Viktor Szakats (harbour.01 syenar.hu)
>>> * Copyright 2004 Peter Rees
>>>
>>> *Rees Software & Systems Ltd
>>> * www - http://www.harbour-project.org
>>> *
>>> * This program is free software; you can redistribute it and/or modify
>>> * it under the terms of the GNU General Public License as published by
>>> * the Free Software Foundation; either version 2, or (at your option)
>>> * any later version.
>>> *
>>> * This program is distributed in the hope that it will be useful,
>>> * but WITHOUT ANY WARRANTY; without even the implied warranty of
>>> * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
>>> * GNU General Public License for more details.
>>> *
>>> * You should have received a copy of the GNU General Public License
>>> * along with this software; see the file COPYING. If not, write to
>>> * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
>>> * Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
>>> *
>>> * As a special exception, the Harbour Project gives permission for
>>> * additional uses of the text contained in its release of Harbour.
>>> *
>>> * The exception is that, if you link the Harbour libraries with other
>>> * files to produce an executable, this does not by itself cause the
>>> * resulting executable to be covered by the GNU General Public License.
>>> * Your use of that executable is in no way restricted on account of
>>> * linking the Harbour library code into it.
>>> *
>>> * This exception does not however invalidate any other reasons why
>>> * the executable file might be covered by the GNU General Public
>>> License.
>>> *
>>> * This exception applies only to the code released by the Harbour
>>> * Project under the name Harbour. If
[Harbour] Error on winprn.
Hi! The lines below of file testprg.prg in to folder \contrib\hbwin\tests not working. -->8- oPrinter:Box( 0, oPrinter:PosY+100, 100, oPrinter:PosY+200) oPrinter:Arc(200, oPrinter:PosY+100, 300, oPrinter:PosY+200) oPrinter:Ellipse(400, oPrinter:PosY+100, 500, oPrinter:PosY+200) oPrinter:FillRect(600, oPrinter:PosY+100, 700, oPrinter:PosY+200, RGB_RED ) 8< My test with SVN $Id: ChangeLog 13098 2009-12-02 19:05:19Z vszakats $ Best Regards, Itamar M. Lins Jr. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: HB_BUILD_UNICODE=yes
Hi! My fault, sorry. Is SET HB_BUILD_DEBUG=yes UNICODE. is on Best resgards, Itamar M. Lins Jr. "Viktor Szakáts" escreveu na mensagem news:0d93b5d3-2ca4-40ed-982c-b5b6447e9...@syenar.hu... > With MSVC 2008 express, Win XP SP3 > My file makemsvc.bat is: > > SET HB_BUILD_DEBUG=yes > call "%ProgramFiles%\Microsoft Visual Studio 9.0\VC\vcvarsall.bat" > win-make %1 %2 > > > cl.exe -nologo -I. -I../../../../../include -Gs -TC -Ot2b1 -EHs-c- -MTd -Zi > -DH > B_TR_LEVEL_DEBUG -ID:/harbour/trunk/harbour/external/zlib > -ID:/harbour/trunk/ha > rbour/external/libpng -DUNICODE -Fo_hbhbpdf.obj -c ../../../_hbhbpdf.c > _hbhbpdf.c > ../../../_hbhbpdf.c : fatal error C1902: Program database manager > mismatch; > plea > se check your installation > win-make[3]: *** [_hbhbpdf.obj] Error 2 > win-make[2]: *** [descend] Error 2 > win-make[1]: *** [libhpdf.inst] Error 2 > win-make: *** [external.inst] Error 2 Try to make a clean before. Brgds, Viktor ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] MSVC legacyco.c problem.
Hi! * $Id: ChangeLog 13172 2009-12-09 03:09:59Z vszakats $ MSVC 2008 express. make-win with clean flag cl.exe -I. -I../../../../../include -nologo -Gs -TP -W4 -wd4127 -Ot2b1 -EHs-c- -DUNICODE -DUNICODE -Folegacyco.obj -c ../../../legacyco.c legacyco.c ../../../legacyco.c(119) : error C3861: 'HB_PARSTR': identifier not found ../../../legacyco.c(119) : error C3861: 'HB_PARSTR': identifier not found ../../../legacyco.c(120) : error C3861: 'hb_strfree': identifier not found ../../../legacyco.c(121) : error C3861: 'hb_strfree': identifier not found win-make[3]: *** [legacyco.obj] Error 2 win-make[2]: *** [descend] Error 2 win-make[1]: *** [hbwin.inst] Error 2 win-make: *** [contrib.inst] Error 2 D:\harbour\trunk\harbour> Best regards, Itamar M. Lins Jr. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: SF.net SVN: harbour-project:[13174] trunk/harbour
Hi! > * modified to use HB_DATASEG_STARTUP instead of HB_MSC_STARTUP > Now HB_MSC_STARTUP is local macro used only in hbinit.h. > Please make MSVC build tests. ! Making D:\DEV\HARBOUR\bin\hbmk.cfg... .\bin\postinst.bat ! Making shared version of Harbour binaries... Microsoft (R) Windows (R) Resource Compiler Version 6.1.6723.1 Copyright (C) Microsoft Corporation. All rights reserved. hbrun.c hbrun.c(165) : fatal error C1083: Cannot open include file: 'hbiniseg.h': No suc h file or directory hbmk2: Error: Running C compiler. 2 hbmk2.c hbmk2.c(623) : fatal error C1083: Cannot open include file: 'hbiniseg.h': No suc h file or directory hbmk2: Error: Running C compiler. 2 hbtest.c hbtest.c(233) : fatal error C1083: Cannot open include file: 'hbiniseg.h': No su ch file or directory rt_array.c rt_array.c(80) : fatal error C1083: Cannot open include file: 'hbiniseg.h': No s uch file or directory rt_date.c rt_date.c(54) : fatal error C1083: Cannot open include file: 'hbiniseg.h': No su ch file or directory rt_file.c rt_file.c(65) : fatal error C1083: Cannot open include file: 'hbiniseg.h': No su ch file or directory rt_hvm.c rt_hvm.c(66) : fatal error C1083: Cannot open include file: 'hbiniseg.h': No suc h file or directory rt_hvma.c rt_hvma.c(71) : fatal error C1083: Cannot open include file: 'hbiniseg.h': No su ch file or directory rt_math.c rt_math.c(64) : fatal error C1083: Cannot open include file: 'hbiniseg.h': No su ch file or directory rt_misc.c rt_misc.c(149) : fatal error C1083: Cannot open include file: 'hbiniseg.h': No s uch file or directory rt_mt.c rt_mt.c(56) : fatal error C1083: Cannot open include file: 'hbiniseg.h': No such file or directory rt_str.c rt_str.c(94) : fatal error C1083: Cannot open include file: 'hbiniseg.h': No suc h file or directory rt_stra.c rt_stra.c(59) : fatal error C1083: Cannot open include file: 'hbiniseg.h': No su ch file or directory rt_trans.c rt_trans.c(38) : fatal error C1083: Cannot open include file: 'hbiniseg.h': No s uch file or directory rt_class.c rt_class.c(140) : fatal error C1083: Cannot open include file: 'hbiniseg.h': No such file or directory rt_miscc.c Generating Code... hbmk2: Error: Running C compiler. 2 hbi18n.c hbi18n.c(108) : fatal error C1083: Cannot open include file: 'hbiniseg.h': No su ch file or directory hbmk2: Error: Running C compiler. 2 hbformat.c hbformat.c(233) : fatal error C1083: Cannot open include file: 'hbiniseg.h': No such file or directory hbformac.c Generating Code... hbmk2: Error: Running C compiler. 2 ! Making hbrun with application icon... Microsoft (R) Windows (R) Resource Compiler Version 6.1.6723.1 Copyright (C) Microsoft Corporation. All rights reserved. hbrun.c hbrun.c(165) : fatal error C1083: Cannot open include file: 'hbiniseg.h': No suc h file or directory hbmk2: Error: Running C compiler. 2 D:\harbour\trunk\harbour> Best regards, Itamar M. Lins Jr. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Re: SF.net SVN: harbour-project:[13174] trunk/harbour
Hi! But, working fine at: >Log Message: >--- >2009-12-09 12:50 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) > * contrib/hbwin/legacyco.c > * contrib/hbwin/wapi_winuser.c > ! Added missing header. Now new make.bat --->8 set include= call "%ProgramFiles%\Microsoft Visual Studio 9.0\VC\vcvarsall.bat" win-make clean install 8<- I get same problem below. >hbrun.c(165) : fatal error C1083: Cannot open include file: 'hbiniseg.h': >No > suc > h file or directory >... Best regards, Itamar M. Lins Jr. "Viktor Szakáts" escreveu na mensagem news:117bd1d5-7926-46b2-8f87-785a693a1...@syenar.hu... I guess you're still using 'set INCLUDE' in your environment. Delete it. Brgds, Viktor On 2009 Dec 9, at 19:07, Itamar Lins wrote: > Hi! > >> * modified to use HB_DATASEG_STARTUP instead of HB_MSC_STARTUP >> Now HB_MSC_STARTUP is local macro used only in hbinit.h. >> Please make MSVC build tests. > > ! Making D:\DEV\HARBOUR\bin\hbmk.cfg... > .\bin\postinst.bat > ! Making shared version of Harbour binaries... > Microsoft (R) Windows (R) Resource Compiler Version 6.1.6723.1 > Copyright (C) Microsoft Corporation. All rights reserved. > > hbrun.c > hbrun.c(165) : fatal error C1083: Cannot open include file: 'hbiniseg.h': > No > suc > h file or directory > hbmk2: Error: Running C compiler. 2 > hbmk2.c > hbmk2.c(623) : fatal error C1083: Cannot open include file: 'hbiniseg.h': > No > suc > h file or directory > hbmk2: Error: Running C compiler. 2 > hbtest.c > hbtest.c(233) : fatal error C1083: Cannot open include file: 'hbiniseg.h': > No su > ch file or directory > rt_array.c > rt_array.c(80) : fatal error C1083: Cannot open include file: > 'hbiniseg.h': > No s > uch file or directory > rt_date.c > rt_date.c(54) : fatal error C1083: Cannot open include file: 'hbiniseg.h': > No su > ch file or directory > rt_file.c > rt_file.c(65) : fatal error C1083: Cannot open include file: 'hbiniseg.h': > No su > ch file or directory > rt_hvm.c > rt_hvm.c(66) : fatal error C1083: Cannot open include file: 'hbiniseg.h': > No > suc > h file or directory > rt_hvma.c > rt_hvma.c(71) : fatal error C1083: Cannot open include file: 'hbiniseg.h': > No su > ch file or directory > rt_math.c > rt_math.c(64) : fatal error C1083: Cannot open include file: 'hbiniseg.h': > No su > ch file or directory > rt_misc.c > rt_misc.c(149) : fatal error C1083: Cannot open include file: > 'hbiniseg.h': > No s > uch file or directory > rt_mt.c > rt_mt.c(56) : fatal error C1083: Cannot open include file: 'hbiniseg.h': > No > such > file or directory > rt_str.c > rt_str.c(94) : fatal error C1083: Cannot open include file: 'hbiniseg.h': > No > suc > h file or directory > rt_stra.c > rt_stra.c(59) : fatal error C1083: Cannot open include file: 'hbiniseg.h': > No su > ch file or directory > rt_trans.c > rt_trans.c(38) : fatal error C1083: Cannot open include file: > 'hbiniseg.h': > No s > uch file or directory > rt_class.c > rt_class.c(140) : fatal error C1083: Cannot open include file: > 'hbiniseg.h': > No > such file or directory > rt_miscc.c > Generating Code... > hbmk2: Error: Running C compiler. 2 > hbi18n.c > hbi18n.c(108) : fatal error C1083: Cannot open include file: 'hbiniseg.h': > No su > ch file or directory > hbmk2: Error: Running C compiler. 2 > hbformat.c > hbformat.c(233) : fatal error C1083: Cannot open include file: > 'hbiniseg.h': > No > such file or directory > hbformac.c > Generating Code... > hbmk2: Error: Running C compiler. 2 > ! Making hbrun with application icon... > Microsoft (R) Windows (R) Resource Compiler Version 6.1.6723.1 > Copyright (C) Microsoft Corporation. All rights reserved. > > hbrun.c > hbrun.c(165) : fatal error C1083: Cannot open include file: 'hbiniseg.h': > No > suc > h file or directory > hbmk2: Error: Running C compiler. 2 > > D:\harbour\trunk\harbour> > > Best regards, > Itamar M. Lins Jr. > > > > ___ > Harbour mailing list (attachment size limit: 40KB) > Harbour@harbour-project.org > http://lists.harbour-project.org/mailman/listinfo/harbour ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Re: SF.net SVN: harbour-project:[13174] trunk/harbour
Hi! Please look. > * harbour/include/hbinit.h > + harbour/include/hbiniseg.h >* replaced HB_MSC_STARTUP code with more universal HB_DATASEG_STARTUP >* moved HB_DATASEG_STARTUP code to separate header file to reduce > modifications in other files when this code has to be changed or > extended hbiniseg.h is new file update harbour make for count on it. Best regards, Itamar M. Lins Jr. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Re: Re: SF.net SVN: harbour-project:[13174]trunk/harbour
Hi! I found the problem. D:\harbour\trunk\harbour\include>copy hbiniseg.h d:\DEV\harbour\include 1 arquivo(s) copiado(s). D:\harbour\trunk\harbour\include> And now working fine. Because initial process of making harbour not copying new file. Best Regards, Itamar M. Lins Jr. "Przemyslaw Czerpak" escreveu na mensagem news:20091209192617.ga5...@linux-4bod.home.aster.pl... > On Wed, 09 Dec 2009, Itamar Lins wrote: > > Hi, > >> But, working fine at: >> >Log Message: >> >--- >> >2009-12-09 12:50 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) > > That's very bad news for you because it confirms that you are building > Harbour using wrong header files in some places. Some of them comes from > current code and some of them are taken from old builds. Probably from > old install directory which for sure cannot contain newly added files > like hbiniseg.h so you have above error message. > Using invalid header files may cause any unpredictable results. > As long as you do not clean your environment settings you should > expect that Harbour binaries you are creating are broken. > > best regards, > Przemek ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: SF.net SVN: harbour-project:[13532] trunk/harbour
I need examples of use netio. For me newbe user, how to make server activate and client side conections. Best Regards, Itamar M. Lins Jr. escreveu na mensagem news:e1nuilw-0001f1...@c3vjzd1.ch3.sourceforge.com... > Revision: 13532 > > http://harbour-project.svn.sourceforge.net/harbour-project/?rev=13532&view=rev > Author: druzus > Date: 2010-01-11 11:22:05 + (Mon, 11 Jan 2010) > > Log Message: > --- > 2010-01-11 12:21 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl) > * harbour/src/rtl/hbznet.c >* move hb_znetOpen() parameter validation from HB_INETCOMPRESS() > to hb_znetOpen() - it should help keeping other code using > hb_znetOpen() more simple > > * harbour/contrib/hbnetio/netio.h > * harbour/contrib/hbnetio/netiocli.c > * harbour/contrib/hbnetio/netiosrv.c >+ added support for compression and encryption in NETIO connection > streams. Enabling encryption (password) automatically enable also > compression. If necessary user can set compression level to > HB_ZLIB_COMPRESSION_NONE. HB_ZLIB_COMPRESSION_DISABLE used as > compression level removes compression and encryption. > See below for details of NETIO server and client code modifications. > > * harbour/contrib/hbnetio/netiocli.c >+ extended NETIO_CONNECT() client side function parameters: > NETIO_CONNECT( [], [], [], ; >[], [], [] ) >-> >% changed the behavior of NETIO_CONNECT() client side function. > In the previous version this function was connecting to the server > and then disconnecting so it was used to check if connection is > available and to set default connection parameters. > Now it does not disconnect after successful connection so created > connection is keept and can be reused by any pending NETIO_*() calls. > User can open many different connections in the same time. > The connections are recognized by server and port address. > The connections set by NETIO_CONNECT() function can be closed by > NETIO_DISCONNECT() function. > Each repeated call to NETIO_CONNECT() increase reference counter > in the connection stream and need corresponding number of > NETIO_DISCONNECT() calls. >+ added new PRG client side function: > NETIO_DISCONNECT( [], [] ) -> > which closes connections set by NETIO_CONNECT(). >+ added support for passing connection password as part of file path > or function name in format: > [:[:]]: > i.e.: > 192.168.0.1:2941:secret:path/to/file > Please remember that it's only an alternative method of setting > encryption which does not allow to use CHR(0) or ":" in passwords. > User can always set connection using NETIO_CONNECT() function which > will be used in RPC or FILE IO calls. If more then one connection > is set by NETIO_CONNECT() then user can chose the connection using > only server and port. It's not necessary to pass other connection > parameters. >+ added support for UNC paths: > //[:]/ > i.e.: > //192.168.0.1:2941/path/to/file > backslashes (\\) are also supported. > > * harbour/contrib/hbnetio/netiosrv.c >% moved 1-st login identification from NETIO_ACCEPT() to NETIO_SERVER() > Such version do not block other connection accepting when server > waits for NETIO_LOGIN frame so it improve scalability and also > protect against code which may want to block access to the server > by opening dummy connections. >+ added new parameters to NETIO_ACCEPT() function which allows to set > encryption and compression for new connections: > NETIO_ACCEPT( , [], > [], [], [] ) >-> | NIL >+ added new server side function: > NETIO_COMPRESS( , > [], [], [] ) >-> NIL > which allow to set or change encryption and compression parameters > in existing connections > > * harbour/contrib/hbnetio/netiomt.prg >* updated to accept new connection parameters in NETIO_MTSERVER() > function: > NETIO_MTSERVER( [], [], [], [], > [], [], > [] ) >-> > > * harbour/contrib/hbnetio/utils/netiosrv.prg >+ added 5-th parameter which enable encryption with > compression, > current syntx is: > netiosrv [] [] [] [] [] > For default values use "" in command line for skipped parameters, > i.e.: > netiosrv "" "" "" 1 topsecret > > * harbour/contrib/hbnetio/tests/netiotst.prg >* enable RPC, compression and encryption in test code >+ added simple code which use RPC to create directory on the server > side > > > Now it's possible to easy create secure NETIO connections and > compression > should help in slow connections when big number of data has to be > exchange. In RDD file access it mostly help when tables use long > records. > > Ho
[Harbour] bmdbfcdx error
Hi! With MSVC express, XP SP3 * $Id: ChangeLog 13555 2010-01-13 17:14:01Z vszakats $ cl.exe -I. -I../../../../../include -nologo -TP -W4 -wd4127 -Ot2b1 -EHs-c- -DUNICODE -DUNICODE -Fobmdbfcdx.obj -c ../../../bmdbfcdx.c bmdbfcdx.c ../../../bmdbfcdx.c(428) : warning C4244: '=' : conversion from 'int' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(720) : error C3861: 'hb_cdpnTranslate': identifier not found ../../../bmdbfcdx.c(745) : error C3861: 'hb_cdpnTranslate': identifier not found ../../../bmdbfcdx.c(886) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(886) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(894) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(894) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(911) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(911) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(919) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(919) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(978) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(1647) : warning C4244: '=' : conversion from 'int' to 'SHORT', possible loss of data ../../../bmdbfcdx.c(1658) : warning C4244: '-=' : conversion from 'int' to 'SHORT', possible loss of data ../../../bmdbfcdx.c(1671) : warning C4244: '=' : conversion from 'int' to 'SHORT', possible loss of data ../../../bmdbfcdx.c(1882) : warning C4244: '=' : conversion from 'int' to 'USHORT', possible loss of data ../../../bmdbfcdx.c(2105) : warning C4244: '-=' : conversion from 'int' to 'SHORT', possible loss of data ../../../bmdbfcdx.c(2182) : warning C4244: '+=' : conversion from 'int' to 'SHORT', possible loss of data ../../../bmdbfcdx.c(2305) : warning C4244: '-=' : conversion from 'int' to 'SHORT', possible loss of data ../../../bmdbfcdx.c(2781) : warning C4244: '=' : conversion from 'int' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(2840) : warning C4244: '=' : conversion from 'SHORT' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(2842) : warning C4244: '=' : conversion from 'int' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(2893) : warning C4244: '=' : conversion from 'int' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(3555) : warning C4244: '=' : conversion from 'size_t' to 'USHORT', possible loss of data ../../../bmdbfcdx.c(3556) : warning C4244: '=' : conversion from 'size_t' to 'USHORT', possible loss of data ../../../bmdbfcdx.c(3913) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(3961) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(3985) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(5223) : warning C4244: '=' : conversion from 'int' to 'USHORT', possible loss of data ../../../bmdbfcdx.c(5358) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(5358) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(5383) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(5383) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(5538) : error C3861: 'hb_cdpTranslate': identifier not found ../../../bmdbfcdx.c(5569) : warning C4244: 'argument' : conversion from 'int' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(5569) : warning C4244: 'argument' : conversion from 'int' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(5574) : warning C4244: 'argument' : conversion from 'int' to 'USHORT', possible loss of data ../../../bmdbfcdx.c(5608) : warning C4244: 'argument' : conversion from 'int' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(5608) : warning C4244: 'argument' : conversion from 'int' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(5638) : warning C4244: 'argument' : conversion from 'int' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(5638) : warning C4244: 'argument' : conversion from 'int' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(5672) : error C3861: 'hb_cdpnTranslate': identifier not found ../../../bmdbfcdx.c(6662) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(6662) : warning C4244: 'argument' : conversion from 'USHORT' to 'BYTE', possib
[Harbour] Re: bmdbfcdx error
Hi! , possible loss of data ../../../bmdbfcdx.c(9447) : warning C4244: 'argument' : conversion from 'int' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(9447) : warning C4244: 'argument' : conversion from 'int' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(9624) : warning C4244: '-=' : conversion from 'int' to 'SHOR T', possible loss of data ../../../bmdbfcdx.c(9715) : warning C4244: 'argument' : conversion from 'int' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(9715) : warning C4244: 'argument' : conversion from 'int' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(9761) : warning C4244: 'argument' : conversion from 'int' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(9761) : warning C4244: 'argument' : conversion from 'int' to 'BYTE', possible loss of data ../../../bmdbfcdx.c(10020) : warning C4244: 'argument' : conversion from 'int' t o 'BYTE', possible loss of data ../../../bmdbfcdx.c(10020) : warning C4244: 'argument' : conversion from 'int' t o 'BYTE', possible loss of data win-make[3]: *** [bmdbfcdx.obj] Error 2 win-make[2]: *** [descend] Error 2 win-make[1]: *** [hbbmcdx.inst] Error 2 win-make: *** [contrib.inst] Error 2 C:\harbour\trunk\harbour> My makevcms.bat is: -8<--- set WindowsSDKDir=%ProgramFiles%\Microsoft SDKs\Windows\v6.0A\ call "%ProgramFiles%\Microsoft Visual Studio 9.0\VC\vcvarsall.bat" win-make %1 %2 -->8-- what can be? My set HB_DIR_NSIS=C:\Arquivos de programas\NSIS\ HB_DIR_QT=C:\Qt\2009.04\qt HB_DIR_ZIP=C:\info-zip\ HB_INSTALL_PREFIX=C:\DEV\HARBOUR HB_PATH=C:\DEV\HARBOUR HB_WITH_QT=C:\Qt\2009.04\qt\include I make tests with 2 cpu and same result. :-( Is possible skip make of bmdbfcdx.lib ? Best regards, Itamar M. Lins Jr. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: bmdbfcdx error
Now with Revision: 13576 works fine! Best regards, Itamar M. Lins Jr. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] error LNK2001: unresolved external symbol _HB_FUN_HB_SETCODEPAGE
Hi! Now I get this is error. How to resolve this ? Best regards, Itamar M. Lins Jr. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: error LNK2001: unresolved external symbol_HB_FUN_HB_SETCODEPAGE
I change. HB_SETCODEPAGE([PTISO]) -> hb_CdpSelect([PTISO]) No error Best regards, Itamar M. Lins Jr. "Itamar Lins" escreveu na mensagem news:hin5n4$of...@ger.gmane.org... > Hi! > > Now I get this is error. How to resolve this ? > > Best regards, > Itamar M. Lins Jr. > > ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] off topic - letodb
Hi! I'm sorry for that but, I do not know how to solve this problem as. G:\letodb>hbmk2 letodb.hbp rddleto.hbc hbmk2: Processando arquivo de configuração: D:\DEV\HARBOUR\BIN\hbmk.cfg hbmk2: Processando: rddleto.hbc hbmk2: Compilando... leto_win.c include\srvleto.h(71) : fatal error C1083: Cannot open include file: 'pthread.h' : No such file or directory letoacc.c include\srvleto.h(71) : fatal error C1083: Cannot open include file: 'pthread.h' : No such file or directory letofunc.c include\srvleto.h(71) : fatal error C1083: Cannot open include file: 'pthread.h' : No such file or directory hbip.c source\common\hbip.c(86) : fatal error C1083: Cannot open include file: 'unistd. h': No such file or directory Generating Code... hbmk2: Erro: Executando compilador C/C++. 2 cl.exe -nologo -c -Ot2b1 -D_CRT_SECURE_NO_DEPRECATE -W4 -wd4127 -Fobin\.hbmk\wi n\msvc\ -ID:\DEV\HARBOUR\include -Iinclude source\server\leto_win.c source\serve r\letoacc.c source\server\letofunc.c source\common\hbip.c Best regards, Itamar M. Lins Jr. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: off topic - letodb
Itamar Lins escreveu: My fault, the command correct is: G:\letodb>hbmk2 rddleto.hbp letodb.hbp hbmk2: Processando arquivo de configura‡Æo: C:\DEV\HARBOUR\bin\hbmk.cfg hbmk2: Processando: rddleto.hbc hbmk2: Compilando... leto1.c source\client\leto1.c(129) : error C2061: syntax error : identifier 'commonError' source\client\leto1.c(129) : error C2059: syntax error : ';' source\client\leto1.c(129) : error C2059: syntax error : 'type' source\client\leto1.c(215) : warning C4013: 'commonError' undefined; assuming extern returning int source\client\leto1.c(330) : warning C4013: 'htons' undefined; assuming extern returning int source\client\leto1.c(385) : warning C4244: 'initializing' : conversion from 'size_t' to 'USHORT', possible loss of data source\client\leto1.c(582) : warning C4244: '=' : conversion from 'long' to 'USHORT', possible loss of data source\client\leto1.c(654) : warning C4244: '=' : conversion from 'long' to 'USHORT', possible loss of data source\client\leto1.c(713) : warning C4244: '=' : conversion from 'int' to 'USHORT', possible loss of data source\client\leto1.c(721) : warning C4244: '=' : conversion from 'int' to 'USHORT', possible loss of data source\client\leto1.c(731) : warning C4244: '=' : conversion from 'int' to 'USHORT', possible loss of data source\client\leto1.c(744) : warning C4244: '=' : conversion from 'int' to 'USHORT', possible loss of data source\client\leto1.c(787) : warning C4244: '=' : conversion from 'long' to 'USHORT', possible loss of data source\client\leto1.c(826) : error C2065: 'FAILURE' : undeclared identifier source\client\leto1.c(848) : error C2065: 'FAILURE' : undeclared identifier source\client\leto1.c(848) : warning C4389: '!=' : signed/unsigned mismatch source\client\leto1.c(932) : warning C4244: '=' : conversion from 'int' to 'USHORT', possible loss of data source\client\leto1.c(941) : warning C4244: '+=' : conversion from 'int' to 'USHORT', possible loss of data source\client\leto1.c(950) : error C2061: syntax error : identifier 'letoBof' source\client\leto1.c(950) : error C2059: syntax error : ';' source\client\leto1.c(950) : error C2059: syntax error : 'type' source\client\leto1.c(963) : error C2061: syntax error : identifier 'letoEof' source\client\leto1.c(963) : error C2059: syntax error : ';' source\client\leto1.c(963) : error C2059: syntax error : 'type' source\client\leto1.c(976) : error C2061: syntax error : identifier 'letoFound' source\client\leto1.c(976) : error C2059: syntax error : ';' source\client\leto1.c(976) : error C2059: syntax error : 'type' source\client\leto1.c(987) : error C2061: syntax error : identifier 'letoGoBottom' source\client\leto1.c(987) : error C2059: syntax error : ';' source\client\leto1.c(987) : error C2059: syntax error : 'type' source\client\leto1.c(1012) : error C2061: syntax error : identifier 'letoGoTo' source\client\leto1.c(1012) : error C2059: syntax error : ';' source\client\leto1.c(1012) : error C2059: syntax error : 'type' source\client\leto1.c(1035) : error C2061: syntax error : identifier 'letoGoToId' source\client\leto1.c(1035) : error C2059: syntax error : ';' source\client\leto1.c(1035) : error C2059: syntax error : 'type' source\client\leto1.c(1053) : error C2061: syntax error : identifier 'letoGoTop' source\client\leto1.c(1053) : error C2059: syntax error : ';' source\client\leto1.c(1053) : error C2059: syntax error : 'type' source\client\leto1.c(1085) : warning C4244: '=' : conversion from 'size_t' to 'USHORT', possible loss of data source\client\leto1.c(1101) : warning C4244: '=' : conversion from 'HB_SIZE' to 'USHORT', possible loss of data source\client\leto1.c(1103) : warning C4013: 'hb_cdpnTranslate' undefined; assuming extern returning int source\client\leto1.c(1109) : error C2061: syntax error : identifier 'letoSeek' source\client\leto1.c(1109) : error C2059: syntax error : ';' source\client\leto1.c(1109) : error C2059: syntax error : 'type' source\client\leto1.c(1168) : error C2061: syntax error : identifier 'letoSkipFilter' source\client\leto1.c(1168) : error C2059: syntax error : ';' source\client\leto1.c(1168) : error C2059: syntax error : 'type' source\client\leto1.c(1177) : error C2061: syntax error : identifier 'letoSkipRaw' so
[Harbour] Re: off topic - letodb
Itamar Lins escreveu: My fault, the command correct is: G:\letodb>hbmk2 rddleto.hbp letodb.hbp hbmk2: Processando arquivo de configura‡Æo: C:\DEV\HARBOUR\bin\hbmk.cfg hbmk2: Processando: rddleto.hbc hbmk2: Compilando... leto1.c source\client\leto1.c(129) : error C2061: syntax error : identifier 'commonError' source\client\leto1.c(129) : error C2059: syntax error : ';' source\client\leto1.c(129) : error C2059: syntax error : 'type' source\client\leto1.c(215) : warning C4013: 'commonError' undefined; assuming extern returning int source\client\leto1.c(330) : warning C4013: 'htons' undefined; assuming extern returning int source\client\leto1.c(385) : warning C4244: 'initializing' : conversion from 'size_t' to 'USHORT', possible loss of data source\client\leto1.c(582) : warning C4244: '=' : conversion from 'long' to 'USHORT', possible loss of data source\client\leto1.c(654) : warning C4244: '=' : conversion from 'long' to 'USHORT', possible loss of data source\client\leto1.c(713) : warning C4244: '=' : conversion from 'int' to 'USHORT', possible loss of data source\client\leto1.c(721) : warning C4244: '=' : conversion from 'int' to 'USHORT', possible loss of data source\client\leto1.c(731) : warning C4244: '=' : conversion from 'int' to 'USHORT', possible loss of data source\client\leto1.c(744) : warning C4244: '=' : conversion from 'int' to 'USHORT', possible loss of data source\client\leto1.c(787) : warning C4244: '=' : conversion from 'long' to 'USHORT', possible loss of data source\client\leto1.c(826) : error C2065: 'FAILURE' : undeclared identifier source\client\leto1.c(848) : error C2065: 'FAILURE' : undeclared identifier source\client\leto1.c(848) : warning C4389: '!=' : signed/unsigned mismatch source\client\leto1.c(932) : warning C4244: '=' : conversion from 'int' to 'USHORT', possible loss of data source\client\leto1.c(941) : warning C4244: '+=' : conversion from 'int' to 'USHORT', possible loss of data source\client\leto1.c(950) : error C2061: syntax error : identifier 'letoBof' source\client\leto1.c(950) : error C2059: syntax error : ';' source\client\leto1.c(950) : error C2059: syntax error : 'type' source\client\leto1.c(963) : error C2061: syntax error : identifier 'letoEof' source\client\leto1.c(963) : error C2059: syntax error : ';' source\client\leto1.c(963) : error C2059: syntax error : 'type' source\client\leto1.c(976) : error C2061: syntax error : identifier 'letoFound' source\client\leto1.c(976) : error C2059: syntax error : ';' source\client\leto1.c(976) : error C2059: syntax error : 'type' source\client\leto1.c(987) : error C2061: syntax error : identifier 'letoGoBottom' source\client\leto1.c(987) : error C2059: syntax error : ';' source\client\leto1.c(987) : error C2059: syntax error : 'type' source\client\leto1.c(1012) : error C2061: syntax error : identifier 'letoGoTo' source\client\leto1.c(1012) : error C2059: syntax error : ';' source\client\leto1.c(1012) : error C2059: syntax error : 'type' source\client\leto1.c(1035) : error C2061: syntax error : identifier 'letoGoToId' source\client\leto1.c(1035) : error C2059: syntax error : ';' source\client\leto1.c(1035) : error C2059: syntax error : 'type' source\client\leto1.c(1053) : error C2061: syntax error : identifier 'letoGoTop' source\client\leto1.c(1053) : error C2059: syntax error : ';' source\client\leto1.c(1053) : error C2059: syntax error : 'type' source\client\leto1.c(1085) : warning C4244: '=' : conversion from 'size_t' to 'USHORT', possible loss of data source\client\leto1.c(1101) : warning C4244: '=' : conversion from 'HB_SIZE' to 'USHORT', possible loss of data source\client\leto1.c(1103) : warning C4013: 'hb_cdpnTranslate' undefined; assuming extern returning int source\client\leto1.c(1109) : error C2061: syntax error : identifier 'letoSeek' source\client\leto1.c(1109) : error C2059: syntax error : ';' source\client\leto1.c(1109) : error C2059: syntax error : 'type' source\client\leto1.c(1168) : error C2061: syntax error : identifier 'letoSkipFilter' source\client\leto1.c(1168) : error C2059: syntax error : ';' source\client\leto1.c(1168) : error C2059: syntax error : 'type' source\client\leto1.c(1177) : error C2061: syntax error : identifier 'letoSkipRaw' so
[Harbour] win_tprn error.
Hi! ChangeLog 13594 2010-01-15 18:25:14Z druzus ../../../../../bin/win/msvc/harbour.exe ./../../win_tprn.prg -i../../../../../ include -n1 -q0 -w3 -es2 -kmo -i- -l ../../../win_tprn.prg(512) Warning W0003 Variable 'HPEN' declared but not used in function 'WIN_PRN_TEXTOUT(490)' No code generated. win-make[3]: *** [win_tprn.c] Error 1 win-make[2]: *** [descend] Error 2 win-make[1]: *** [hbwin.inst] Error 2 win-make: *** [contrib.inst] Error 2 Best regards, Itamar M. Lins Jr. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Command Prompt xHb compatible
Hi! This sintaxe compile fine with xHarbour. @ 11,21 prompt "Action 1" color '+w/b' But I get error with Harbour. Error E0030 Syntax error "syntax error at '@'" Best regards, Itamar M. Lins Jr. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Command Prompt xHb compatible
Snip ;-(
But:
Very complicate
cVar := savecolor('+w/b')
@ 11,21 prompt "Action 1"
Set color to cVar
more simple is:
@ 11,21 prompt "Action 1" color '+w/b'
For exemple, GetdefaultPrinter() and other features is not clipper
functions.
Otherwise I am user Hwgui, is for my old program...
Best regards,
Itamar M. Lins Jr.
"Przemyslaw Czerpak"
escreveu na mensagem news:20100115202646.ga12...@linux-4bod.home.aster.pl...
> On Fri, 15 Jan 2010, Itamar Lins wrote:
>
> Hi,
>
>> This sintaxe compile fine with xHarbour.
>> @ 11,21 prompt "Action 1" color '+w/b'
>> But I get error with Harbour.
>> Error E0030 Syntax error "syntax error at '@'"
>
> Can you test it with Clipper?
>
> best regards,
> Przemek
___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] error compiling demowvg.prg
Hi! D:\harbour\trunk\harbour\contrib\gtwvg\tests>hbmk2 demowvg.prg Harbour 2.0.1dev (Rev. 13594) Copyright (c) 1999-2010, http://www.harbour-project.org/ Compiling 'demowvg.prg'... Lines 7469, Functions/Procedures 73 Generating C source output to 'demowvg.c'... Done. demowvg.c hbmk_4eg122.c Generating Code... gtwvg.lib(wvgtoolb.obj) : error LNK2001: unresolved external symbol _HB_FUN_HB_T OOUTDEBUG gtwvg.lib(wvgdarea.obj) : error LNK2001: unresolved external symbol _HB_FUN_WVGD RAWINGAREA_CONFIGURE demowvg.exe : fatal error LNK1120: 2 unresolved externals hbmk2: Erro: Executando linkeditor. 1120 link.exe -nologo -out:demowvg.exe demowvg.obj hbmk_4eg122.obj -libpath:D:\DEV\HA RBOUR\lib\win\msvc -subsystem:windows gtwvg.lib hbwin.lib hbextern.lib hbdebug. lib hbvmmt.lib hbrtl.lib hblang.lib hbcpage.lib gtcgi.lib gtpca.lib gtstd.lib gt win.lib gtwvt.lib gtgui.lib hbrdd.lib hbuddall.lib hbusrrdd.lib rddntx.lib rddcd x.lib rddnsx.lib rddfpt.lib hbrdd.lib hbhsx.lib hbsix.lib hbmacro.lib hbcplr.lib hbpp.lib hbcommon.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 hbpcre.lib hb zlib.lib D:\harbour\trunk\harbour\contrib\gtwvg\tests> Best regards, Itamar M. Lins Jr. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: off topic - letodb
Now I found 2 problem with letodb.
error LNK2019: unresolved external symbol _hb_cdpnTranslate referenced in
function _letoKeyToStr
error LNK2019: unresolved external symbol _GetComputerNameA referenced in
function _leto_NetName
2009-09-11 20:37 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/hbapi.h
+ added hb_xgrabz() and hb_xmemdup() macros
* harbour/include/hbapicdp.h
* harbour/source/rtl/cdpapi.c
+ added new functions which can be used in translations changing the
size of trnaslated strings:
hb_cdpDup(), hb_cdpnDup(), hb_cdpnDup2(), hb_cdpnDup3(),
hb_cdpnDupLen(), hb_cdpnDup2Len()
Now hb_cdp[n]Translate() functions are depreciated.
+ added pseduto codepage "UTF8" which can be used in trnaslations only
+ added new function hb_cdpFindExt() which allows to chose pseudo CPs
1)In leto1.c piece of codigo
--->8---
static USHORT letoKeyToStr( LETOAREAP pArea, char * szKey, char cType,
PHB_ITEM pKey )
{
USHORT uiKeyLen;
if( cType == 'N' )
{
char * sNum = hb_itemStr( pKey, NULL, NULL );
uiKeyLen = strlen(sNum);
memcpy( szKey, sNum, uiKeyLen );
hb_xfree( sNum );
}
else if( cType == 'D' )
{
hb_itemGetDS( pKey, szKey );
uiKeyLen = 8;
}
else if( cType == 'L' )
{
szKey[0] = (hb_itemGetL(pKey))? 'T':'F';
uiKeyLen = 1;
}
else
{
uiKeyLen = hb_itemGetCLen(pKey);
memcpy( szKey, hb_itemGetCPtr(pKey), uiKeyLen );
hb_cdpnTranslate( szKey, hb_cdp_page, pArea->area.cdPage, uiKeyLen );
}
szKey[uiKeyLen] = '\0';
return uiKeyLen;
}
-8<
2) In net.c
>8--
#elif defined(HB_OS_WIN_32) || defined( HB_OS_WIN )
DWORD ulLen = 32;
char szValue[32], *szRet;
szValue[ 0 ] = '\0';
GetComputerNameA( szValue, &ulLen );
ulLen = strlen( szValue );
szRet = (char*) hb_xgrab( ulLen+1 );
memcpy( szRet, szValue, ulLen );
szRet[ulLen] = '\0';
return szRet;
#else
---8<
Someone can fix this ?
Best regards,
Itamar M. Lins Jr.
___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Printing OEM_CHARSET win_prn()
Hi!
Still can not print graphics for example, chr(178).
#include 'hbwin.ch'
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PTISO
Procedure Main ()
aPrn := GetPrinters()
HB_CDPSelect( "PTISO" )
HB_LANGSELECT( 'PT' )
If empty(aPrn)
MsgStop("Error")
return .f.
EndIf
oPrn := win_prn():New(GetDefaultPrinter())
oPrn :LandScape := .f.
oPrn :Copies:= 1
if !oPrn:Create()
MsgStop("error")
return nil
endif
if !oPrn:StartDoc("test")
MsgStop("Error")
return nil
EndIf
//oPrn:CharSet(ANSI_CHARSET)
//oPrn:Setfont('Lucida Console',,11) // oPrn:Setfont('Terminal',,12)
oPrn:CharSet(OEM_CHARSET)
oPrn:Setfont('Lucida Console',,11)
oPrn:SetPrc(1,0) //Is necessary, because if I omit not print first line.
oPrn:TextOut('Charset is: '+str(oPrn:Charset(),5),.t.)
oPrn:TextOut('Font Is: '+oPrn:FontName,.t.)
For n := 1 to 255
oPrn:TextOut(chr(n),.t.)
if n == 60 .or. n == 120 .or. n == 180 .or. n == 240
oPrn:NewPage()
EndIf
Next
oPrn:EndDoc()
Best regards,
Itamar M. Lins Jr.
___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Off topic - Hwgui update
Hi! Sorry, we were unable to deliver your message to the following address. : Remote host said: 550 relay not permitted [RCPT_TO] hbmk2: Processando arquivo de configura?Æo: D:\DEV\HARBOUR\BIN\hbmk.cfg hbmk2: Processando: hwgui.hbc hbmk2: Compilando... barcode.c include\guilib.h(5) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory hcombo.c source\hcombo.prg(23) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory hcontrol.c source\hcontrol.prg(24) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory hmonthc.c include\guilib.h(5) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory htrackbr.c source\htrackbr.prg(159) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory animat.c source\animat.c(5) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory commond.c source\commond.c(15) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory control.c source\control.c(16) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory cxshade.c source\cxshade.c(14) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory dialog.c source\dialog.c(15) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory draw.c source\draw.c(19) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory winreg.c source\winreg.c(6) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory drawtext.c source\drawtext.c(15) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory freeimg.c source\freeimg.c(13) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory grid.c source\grid.c(26) : fatal error C1083: Cannot open include file: 'shlobj.h': No such file or directory media_c.c source\media_c.c(15) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory menu_c.c source\menu_c.c(16) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory message.c source\message.c(14) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory misc.c source\misc.c(15) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory nice.c source\nice.c(15) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory Generating Code... Compiling... resource.c source\resource.c(16) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory richedit.c source\richedit.c(16) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory shellapi.c source\shellapi.c(15) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory theme.c source\theme.c(15) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory window.c source\window.c(16) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory wprint.c source\wprint.c(15) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory c_ipaddr.c source\c_ipaddr.c(51) : fatal error C1083: Cannot open include file: 'shlobj.h': No such file or directory listbox.c source\listbox.c(17) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory pager.c source\pager.c(8) : fatal error C1083: Cannot open include file: 'windows.h': No such file or directory Generating Code... Best regards, Itamar M. Lins Jr. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Printing OEM_CHARSET win_prn()
What is your compiler ?
My is MSVC express, and show small box, instead of characters. :-(
Best regards,
Itamar M. Lins Jr.
"Xavi" escreveu na
mensagem news:4b571979.5060...@gmail.com...
> Hi,
>
>> Still can not print graphics for example, chr(178).
>
> Sorry, I can not help you, my system print correctly chr(178), U+2593
> (0xB2): Dark Shadow
> Check it in the character map .-
>
> http://windows.microsoft.com/pt-PT/windows-vista/Open-Character-Map
>
> HTH
> --
> Xavi
>
> El 18/01/2010 15:59, Itamar Lins escribió:
>> Hi!
>>
>> Still can not print graphics for example, chr(178).
>>
>> #include 'hbwin.ch'
>> REQUEST HB_LANG_PT
>> REQUEST HB_CODEPAGE_PTISO
>>
>> Procedure Main ()
>>
>> aPrn := GetPrinters()
>>
>> HB_CDPSelect( "PTISO" )
>> HB_LANGSELECT( 'PT' )
>>
>> If empty(aPrn)
>> MsgStop("Error")
>> return .f.
>> EndIf
>>
>> oPrn := win_prn():New(GetDefaultPrinter())
>> oPrn :LandScape := .f.
>> oPrn :Copies:= 1
>>
>> if !oPrn:Create()
>> MsgStop("error")
>> return nil
>> endif
>>
>> if !oPrn:StartDoc("test")
>> MsgStop("Error")
>> return nil
>> EndIf
>> //oPrn:CharSet(ANSI_CHARSET)
>> //oPrn:Setfont('Lucida Console',,11) // oPrn:Setfont('Terminal',,12)
>>
>> oPrn:CharSet(OEM_CHARSET)
>> oPrn:Setfont('Lucida Console',,11)
>> oPrn:SetPrc(1,0) //Is necessary, because if I omit not print first line.
>>
>> oPrn:TextOut('Charset is: '+str(oPrn:Charset(),5),.t.)
>> oPrn:TextOut('Font Is: '+oPrn:FontName,.t.)
>>
>> For n := 1 to 255
>>
>>oPrn:TextOut(chr(n),.t.)
>>
>> if n == 60 .or. n == 120 .or. n == 180 .or. n == 240
>>oPrn:NewPage()
>> EndIf
>>
>> Next
>>
>> oPrn:EndDoc()
>>
>> Best regards,
>> Itamar M. Lins Jr.
>>
___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] rddsetdefault
Hi! I am with problem here. Function Main REQUEST LETO RDDSETDEFAULT( "LETO" ) Error DBCMD/1015 Argument error: RDDSETDEFAULT Called from RDDSETDEFAULT(0) Is a problem of RDD LetoDb correct? Best regards, Itamar M. Lins Jr. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] hbwin.lib error
Hi! See this: * $Id: ChangeLog 13709 2010-01-25 20:24:23Z vouchcac $ hbmk2: Processando arquivo de configura?Æo: D:\DEV\HARBOUR\BIN\hbmk.cfg hbmk2: Linkando... farol.exe hbwin.lib(win_bmp.obj) : error LNK2019: unresolved external symbol _png_get_io_ptr referenced in function "void __cdecl hb_png_read_func(struct png_struct_def *,unsigned char *,unsigned int)" (?hb_png_read_func@@YAXPAUpng_struct_def@@p...@z) hbwin.lib(win_bmp.obj) : error LNK2019: unresolved external symbol _png_get_IHDR referenced in function "int __cdecl hb_png_get_param(unsigned char const *,unsigned long,int *,int *,int *,int *)" (?hb_png_get_param@@yahpbekpah...@z) hbwin.lib(win_bmp.obj) : error LNK2019: unresolved external symbol _png_read_info referenced in function "int __cdecl hb_png_get_param(unsigned char const *,unsigned long,int *,int *,int *,int *)" (?hb_png_get_param@@yahpbekpah...@z) hbwin.lib(win_bmp.obj) : error LNK2019: unresolved external symbol _png_set_read_fn referenced in function "int __cdecl hb_png_get_param(unsigned char const *,unsigned long,int *,int *,int *,int *)" (?hb_png_get_param@@yahpbekpah...@z) hbwin.lib(win_bmp.obj) : error LNK2019: unresolved external symbol _png_set_sig_bytes referenced in function "int __cdecl hb_png_get_param(unsigned char const *,unsigned long,int *,int *,int *,int *)" (?hb_png_get_param@@yahpbekpah...@z) hbwin.lib(win_bmp.obj) : error LNK2019: unresolved external symbol _png_destroy_read_struct referenced in function "int __cdecl hb_png_get_param(unsigned char const *,unsigned long,int *,int *,int *,int *)" (?hb_png_get_param@@yahpbekpah...@z) hbwin.lib(win_bmp.obj) : error LNK2019: unresolved external symbol _png_create_info_struct referenced in function "int __cdecl hb_png_get_param(unsigned char const *,unsigned long,int *,int *,int *,int *)" (?hb_png_get_param@@yahpbekpah...@z) hbwin.lib(win_bmp.obj) : error LNK2019: unresolved external symbol _png_create_read_struct referenced in function "int __cdecl hb_png_get_param(unsigned char const *,unsigned long,int *,int *,int *,int *)" (?hb_png_get_param@@yahpbekpah...@z) hbwin.lib(win_bmp.obj) : error LNK2019: unresolved external symbol _png_sig_cmp referenced in function "int __cdecl hb_png_get_param(unsigned char const *,unsigned long,int *,int *,int *,int *)" (?hb_png_get_param@@yahpbekpah...@z) MSVC express, XP SP3 Best regards, Itamar M. Lins Jr. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: hbwin.lib error
Hi! Thanks! but name libpng.lib is redundant, best change name for hbpng.lib is IMO. Best regards, Itamar M. Lins Jr. "Viktor Szakáts" escreveu na mensagem news:f2baf78b-4c93-4f5d-acb0-1d6e0e881...@syenar.hu... Hi Itamar, Either use hbwin.hbc to link in hbwin module. Or add libpng lib to the liblist manually. (first option strong preferred, to avoid any similar problems in the future) Also see: contrib\hbwin\hbwin.hbc Brgds, Viktor On 2010 Jan 26, at 01:03, Itamar Lins wrote: > Hi! > See this: > * $Id: ChangeLog 13709 2010-01-25 20:24:23Z vouchcac $ > > hbmk2: Processando arquivo de configura?Æo: D:\DEV\HARBOUR\BIN\hbmk.cfg > hbmk2: Linkando... farol.exe > hbwin.lib(win_bmp.obj) : error LNK2019: unresolved external symbol > _png_get_io_ptr referenced in function "void __cdecl > hb_png_read_func(struct > png_struct_def *,unsigned char *,unsigned int)" > (?hb_png_read_func@@YAXPAUpng_struct_def@@p...@z) > hbwin.lib(win_bmp.obj) : error LNK2019: unresolved external symbol > _png_get_IHDR referenced in function "int __cdecl > hb_png_get_param(unsigned > char const *,unsigned long,int *,int *,int *,int *)" > (?hb_png_get_param@@yahpbekpah...@z) > hbwin.lib(win_bmp.obj) : error LNK2019: unresolved external symbol > _png_read_info referenced in function "int __cdecl > hb_png_get_param(unsigned > char const *,unsigned long,int *,int *,int *,int *)" > (?hb_png_get_param@@yahpbekpah...@z) > hbwin.lib(win_bmp.obj) : error LNK2019: unresolved external symbol > _png_set_read_fn referenced in function "int __cdecl > hb_png_get_param(unsigned char const *,unsigned long,int *,int *,int *,int > *)" (?hb_png_get_param@@yahpbekpah...@z) > hbwin.lib(win_bmp.obj) : error LNK2019: unresolved external symbol > _png_set_sig_bytes referenced in function "int __cdecl > hb_png_get_param(unsigned char const *,unsigned long,int *,int *,int *,int > *)" (?hb_png_get_param@@yahpbekpah...@z) > hbwin.lib(win_bmp.obj) : error LNK2019: unresolved external symbol > _png_destroy_read_struct referenced in function "int __cdecl > hb_png_get_param(unsigned char const *,unsigned long,int *,int *,int *,int > *)" (?hb_png_get_param@@yahpbekpah...@z) > hbwin.lib(win_bmp.obj) : error LNK2019: unresolved external symbol > _png_create_info_struct referenced in function "int __cdecl > hb_png_get_param(unsigned char const *,unsigned long,int *,int *,int *,int > *)" (?hb_png_get_param@@yahpbekpah...@z) > hbwin.lib(win_bmp.obj) : error LNK2019: unresolved external symbol > _png_create_read_struct referenced in function "int __cdecl > hb_png_get_param(unsigned char const *,unsigned long,int *,int *,int *,int > *)" (?hb_png_get_param@@yahpbekpah...@z) > hbwin.lib(win_bmp.obj) : error LNK2019: unresolved external symbol > _png_sig_cmp referenced in function "int __cdecl hb_png_get_param(unsigned > char const *,unsigned long,int *,int *,int *,int *)" > (?hb_png_get_param@@yahpbekpah...@z) > > MSVC express, XP SP3 > > Best regards, > Itamar M. Lins Jr. > > > > ___ > Harbour mailing list (attachment size limit: 40KB) > Harbour@harbour-project.org > http://lists.harbour-project.org/mailman/listinfo/harbour ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Binaries for Suse
Hi! URL to download of Harbour 2.0? Best regards. Itamar M. Lins Jr. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Go Programming Language vs Harbour Programming Languages
I am pleased to announce that the GCC Steering Committee has accepted the contribution of the gccgo front-end and gcc-specific runtime for the Go language with Ian Taylor appointed maintainer. The GCC Release Managers will decide the details about the timing of the merge and inclusion in GCC 4.5 or later. Please join me in congratulating and thanking Ian and the Go language developers. Please update your listing in the MAINTAINERS file. Happy hacking! David http://article.gmane.org/gmane.comp.gcc.devel/111603 Best regards, Itamar M. Lins Jr. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
