[Harbour] Re: CLASSES - Instance Variable as Object - Access/Assign Elsewhere
Hi Pritpal Bedi, Is the following thread ? http://harbour-devel.1590103.n2.nabble.com/What-wrong-with-this-example-Harbour-Qt-hbxbp-td4880826.html#a4880826 Shum -- View this message in context: http://harbour-devel.1590103.n2.nabble.com/CLASSES-Instance-Variable-as-Object-Access-Assign-Elsewhere-tp4941404p4951451.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: someone uses hbqt for business applications ?
Hi Angel, I hope this time Shum will join as he is also an xbase++ expert. I am converting Xbase++ applications into Harbour + hbxbp (hbqt) However, this two weeks ...I had to look after my little son..., I will back to work (the converting ...) on/about May Shum -- View this message in context: http://harbour-devel.1590103.n2.nabble.com/someone-uses-hbqt-for-business-applications-tp4939610p4946360.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Still waiting GPF Soultion for intra-dlls call of QT...?
Hi Angel, Sorry for my noise ! Shum -- View this message in context: http://n2.nabble.com/Still-waiting-GPF-Soultion-for-intra-dlls-call-of-QT-tp4899741p4903060.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Still waiting GPF Soultion for intra-dlls call of QT...?
Thanks Pritpal Bedi, I will try ! Shum -- View this message in context: http://n2.nabble.com/Still-waiting-GPF-Soultion-for-intra-dlls-call-of-QT-tp4899741p4903072.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Still waiting GPF Soultion for intra-dlls call of QT...?
Hi All, I am still waiting solution of GPF being intra-dlls file call of QT ... http://n2.nabble.com/What-wrong-with-this-example-Harbour-Qt-hbxbp-td4880826.html#a4880826 Called from QT_QWIDGET_SETWINDOWTITLE(0) Called from QMAINWINDOW:SETWINDOWTITLE(0) in ../../../TQWidget.prg Called from XBPDIALOG:CREATE(0) in ../../../xbpdialog.prg Called from BUILDDLG(21) in tgui.prg Called from MAIN(16) in tst.prg Shum -- View this message in context: http://n2.nabble.com/Still-waiting-GPF-Soultion-for-intra-dlls-call-of-QT-tp4899741p4899741.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: What wrong with this example ....Harbour + Qt + hbxbp ...
Hi Bruno, Please remakr the line of //include appevent.ch or remove it and please pay attention to the tst.hbp file The line -ld:\10\hprg\tgui.dll The path (d:\10\hprg\ should be the location of your disk and path of tgui.dll ) Shum http://n2.nabble.com/file/n4882289/PTST.ZIP PTST.ZIP -- View this message in context: http://n2.nabble.com/What-wrong-with-this-example-Harbour-Qt-hbxbp-tp4880826p4882289.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: What wrong with this example ....Harbour + Qt + hbxbp ...
Hi All, Another version of the testing 1.) Modify tst.prg and tgui.prg for remark appevent.ch 2.) tst1.hbp and btst1.bat is added for showing workable sample 3.) for the old version will showing the (dll and exe) not working error please pay attention to tst.hbp as follow: The path (d:\10\hprg\ should be the location of your disk and path of tgui.dll ) Shum http://n2.nabble.com/file/n4882603/PTST.ZIP PTST.ZIP -- View this message in context: http://n2.nabble.com/What-wrong-with-this-example-Harbour-Qt-hbxbp-tp4880826p4882603.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: What wrong with this example ....Harbour + Qt + hbxbp ...
Thanks Pritpal Bedi , If oDlg:destroy() is called just before RETURN statement, it does not GPF. It solve the exit GPF... 1. You are linking with -shared flag, so you need harbourmt21.dll alongside exe 2. If tst.exe is built with tgui.dll then it GPF's Yes GPF still there even copy the harbourmt-21.dll into the tst.exe dir ... Hope other can help . Shum -- View this message in context: http://n2.nabble.com/What-wrong-with-this-example-Harbour-Qt-hbxbp-tp4880826p4883172.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Xbpwindow lack of vars: ??
Hi Pritpal Bedi, I found that XbpDialog class lack of the following class vars - alWaysOnTop default value is .F. - border default value is XBPDLG_RAISEDBORDERTHICK (defined in xbp.ch) - titleBar default value is .F. - moveWithOwner default value is .T. - origin default value is XBPDLG_ORIGIN_OWNER (defined in xbp.ch) Lack of all border constants (ie.: XBPDLG_RAISEDBORDERTHICK ... ) Shum -- View this message in context: http://n2.nabble.com/Xbpwindow-lack-of-vars-tp4876105p4876105.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Question on/about :drawingArea := XbpDrawingArea():new(...) ?
Hi Pritpal Bedi, I study your ..\hbxbp\xbpdialog.prg I think that the ::drawingArea := XbpDrawingArea():new(...) Should be move from XbpDialog:create(...) into XbpDialog:new(...) at-least when ::qtObject is empty ... Because: : oDlg:clipChildren := .T. oDlg:drawingArea:clipChildren := .T. // error still exist at this line oDlg:create() Shum -- View this message in context: http://n2.nabble.com/Question-on-about-drawingArea-XbpDrawingArea-new-tp4878449p4878449.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] What wrong with this example ....Harbour + Qt + hbxbp ...
Hi All, I make the attached example: exe file depends on dll file Please unzip the attached file then build it by using btst.bat tgui.dll and tst.exe will be generated then exec. the program by tst.exe error comes out hb_out.log file is generated according to the hb_out.log error is occour at Called from QT_QWIDGET_SETWINDOWTITLE(0) Called from QMAINWINDOW:SETWINDOWTITLE(0) in ../../../TQWidget.prg Called from XBPDIALOG:CREATE(0) in ../../../xbpdialog.prg Called from BUILDDLG(21) in tgui.prg Called from MAIN(16) in tst.prg Whats wrong with my tst.hbp and tgui.hbp ? Or anything wrong ? Shum http://n2.nabble.com/file/n4880826/PTST.ZIP PTST.ZIP -- View this message in context: http://n2.nabble.com/What-wrong-with-this-example-Harbour-Qt-hbxbp-tp4880826p4880826.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] To Pritpal Bedi: About GraGetRGBIntensity( nRGBColor ) ...
Hi Pritpal Bedi: Would your please update hbxbp: xbpgra.prg with GraGetRGBIntensity(...) // Example: 16777215 - FF - FF, FF, FF - {255, 255, 255} FUNCTION GraGetRGBIntensity( nRGBColor ) LOCAL aRGB := {} LOCAL cRGBHex:= If nRGBColor==NIL nRGBColor := 0 Endif cRGBHex := HB_HexToStr( HB_NumToHex( nRGBColor ) ) cRGBHex := PADL( cRGBHex, 6, 0) aRGB := { SubStr(cRGBHex,1,2), SubStr(cRGBHex,3,2), SubStr(cRGBHex,5,2) } aRGB := { HB_HexToNum(aRGB[1]), HB_HexToNum(aRGB[2]), HB_HexToNum(aRGB[3]) } RETURN aRGB (But I havenot testing it ...) Shum -- View this message in context: http://n2.nabble.com/To-Pritpal-Bedi-About-GraGetRGBIntensity-nRGBColor-tp4870368p4870368.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: To Pritpal Bedi: About GraGetRGBIntensity( nRGBColor ) ...
Hi Priptal Bedi, Please note Warning W0032 Variable 'ARGB' is assigned but not used in function ... Warning W0032 Variable 'CRGBHEX' is assigned but not used in function ... So libhbxhp.a cannot be generated Shum -- View this message in context: http://n2.nabble.com/To-Pritpal-Bedi-About-GraGetRGBIntensity-nRGBColor-tp4870368p4870681.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] RE: To Pritpal Bedi: About oDlg:drawingArea:clipChildren ??
Hi Massimo Belgrano, I compile the prg as follow: I put xpp01.prg into d:\hb20\contrib\hbxbp\teststhen: d:\hb20\contrib\hbxbp\testshbmk2 xpp01.prg -Ld:\Qt\4.5.3\lib Where d:\Qt\4.5.3\libfor hbmk2 to find qt libs Shum Date: Thu, 8 Apr 2010 08:40:42 -0800 From: ml-node+4872250-427623507-334...@n2.nabble.com To: wcshu...@hotmail.com Subject: Re: To Pritpal Bedi: About oDlg:drawingArea:clipChildren ?? Very intresting your sample! Have you other xbp sample? i confirm problem and then i add a litte problen regarding hbide with your source named xpp01.prg using Follow is my xpp01.hbp -3rd=hbide_version=1.0 -3rd=hbide_type=Executable -3rd=hbide_title=xpp01 -3rd=hbide_location=C:\harbour\max\ -3rd=hbide_workingfolder= -3rd=hbide_destinationfolder= -3rd=hbide_output=xpp01 -3rd=hbide_launchparams= -3rd=hbide_launchprogram= -3rd=hbide_backupfolder= xpp01.prg C:\harbour\contrib\hbxbp\hbxbp.hbc I can compile and run with hbmk2 if i execute hbide xpp01.hpp with C:\harbour\max\harbour\contrib\hbide\hbide c:\harbour\max\xpp01.hbp when compile and execute it not be executed Project [ xpp01 ] Launch [ Yes ] Rebuild [ No ] Started [ 17:42:06 ] : Do Not Exists /C hbmk2 C:\harbour\max\xpp01.hbp -q -trace -info -lang=en Starting in: harbour\max : C:\harbour\max\ hbmk2: Processing environment options: -compiler=mingw hbmk2: Autodetected platform: win hbmk2: Using Harbour: C:\HARBOUR\bin C:\HARBOUR\include C:\HARBOUR\lib\win\mingw C:\HARBOUR\lib\win\mingw hbmk2: Processing: C:\harbour\contrib\hbxbp\hbxbp.hbc hbmk2: Processing: C:\harbour\contrib\hbxbp\../hbqt/hbqt.hbc hbmk2: Harbour compiler command (embedded): (C:\HARBOUR\BIN\WIN\mingw\harbour.exe) -n2 C:/harbour/max/xpp01.prg -q -oC:\Users\MBELGR~1.SED\AppData\Local\Temp\ -iC:/HARBOUR/include -iC:/harbour/contrib/hbxbp -iC:/harbour/contrib/hbqt Harbour 2.1.0dev (Rev. 14276) Copyright (c) 1999-2010, http://www.harbour-project.org/ hbmk2: C/C++ compiler command: gcc.exe -c -O3 -march=i586 -mtune=pentiumpro -fomit-frame-pointer -Wall -W -pipe -IC:/HARBOUR/include -IC:/harbour/contrib/hbxbp -IC:/harbour/contrib/hbqt C:\Users\MBELGR~1.SED\AppData\Local\Temp\xpp01.c -o C:/Users/MBELGR~1.SED/AppData/Local/Temp/xpp01.o hbmk2: C/C++ compiler command: gcc.exe -c -O3 -march=i586 -mtune=pentiumpro -fomit-frame-pointer -Wall -W -pipe -IC:/HARBOUR/include -IC:/harbour/contrib/hbxbp -IC:/harbour/contrib/hbqt C:\Users\MBELGR~1.SED\AppData\Local\Temp\hbmk_9eg2h2.c -o C:/Users/MBELGR~1.SED/AppData/Local/Temp/hbmk_9eg2h2.o hbmk2: C/C++ compiler command: g++.exe -c -O3 -march=i586 -mtune=pentiumpro -fomit-frame-pointer -Wall -W -pipe -IC:/HARBOUR/include -IC:/harbour/contrib/hbxbp -IC:/harbour/contrib/hbqt C:\Users\MBELGR~1.SED\AppData\Local\Temp\hbmk_j9i5vv.cpp -o C:/Users/MBELGR~1.SED/AppData/Local/Temp/hbmk_j9i5vv.o hbmk2: Linker command: gcc.exe C:\Users\MBELGR~1.SED\AppData\Local\Temp\xpp01.o C:\Users\MBELGR~1.SED\AppData\Local\Temp\hbmk_9eg2h2.o C:\Users\MBELGR~1.SED\AppData\Local\Temp\hbmk_j9i5vv.o -mwindows -Wl,--start-group -lhbxbp -lhbqt -lhbqtcore -lhbqtgui -lhbqtnetwork -lversion -lshlwapi -lQtCore4 -lQtGui4 -lQtNetwork4 -lQtUiTools -lpsapi -lsupc++ -lhbextern -lhbdebug -lhbvm -lhbrtl -lhblang -lhbcpage -lgtcgi -lgtpca -lgtstd -lgtwin -lgtwvt -lgtgui -lhbrdd -lhbuddall -lhbusrrdd -lrddntx -lrddcdx -lrddnsx -lrddfpt -lhbrdd -lhbhsx -lhbsix -lhbmacro -lhbcplr -lhbpp -lhbcommon -lhbmainwin -lkernel32 -luser32 -lgdi32 -ladvapi32 -lws2_32 -lwinspool -lcomctl32 -lcomdlg32 -lshell32 -luuid -lole32 -loleaut32 -lmpr -lwinmm -lmapi32 -limm32 -lmsimg32 -lwininet -lhbpcre -lhbzlib -Wl,--end-group -oxpp01.exe -LC:/HARBOUR/lib/win/mingw -LC:/DEVL/qt/4.5.3/lib Exit Code [ 0 ] Exit Status [ 0 ] Finished at [ 17:42:09 ] Done in [ 2.52 Secs ] Launch error: file not found - \xpp01.exe 2010/4/8 Shum [hidden email] Hi Prital Bedi, I find that hbxbp is not compitable to Xbase++ as follow: oDlg:drawingArea:clipChildren := .T. (In Xbase++ ... it is exported var without error) http://www.mingyik.com/dnload/stxbp10.jpg Sample source as follow: #include xbp.ch #include Appevent.ch Function AppSys() Return( NIL ) Function Main( P1 ) LOCAL nEvent, mp1, mp2, oXbp LOCAL oDlg, oMenuBar, oMenu Local oAppDlg:=AppDesktop() Local lTestFlag:=.F. If P1NIL lTestFlag := .T. Endif // Create dialog oDlg := XbpDialog():new( oAppDlg , , {30,50}, {400,250
[Harbour] Ask rddsql (SDDODBC) driver for support BLOB and LONGBLOB
Hi All, I use LONGBLOB and BLOB in SQL Back-End (ie.: mySQL ) Hope SDDODBC driver can support the above datatype ... Now. I find that dBUseArea(...) doest not support LONGBLOB and BLOB for mySQL as back-end... http://www.mingyik.com/dnload/tstodbc60.jpg http://www.mingyik.com/dnload/tstodbc70.jpg /* * $Id$ */ #include simpleio.ch #include hbrddsql.ch REQUEST SQLMIX, SDDODBC, DBFCDX PROC main() LOCAL nConnection, nI, aI local aStruct := { { CHARACTER, C, 25, 0 }, ; { NUMERIC, N, 8, 0 }, ; { DOUBLE,N, 8, 2 }, ; { DATE, D, 8, 0 }, ; { LOGICAL, L, 1, 0 } } RDDSETDEFAULT( SQLMIX ) SET( _SET_DATEFORMAT, -mm-dd ) // nConnection := RDDINFO( RDDI_CONNECT, { MYSQL, localhost,root,mysql,test } ) // nConnection := RDDINFO( RDDI_CONNECT, { ODBC, Server=localhost;Driver={MySQL ODBC 5.1 Driver};dsn=;User=test;database=test; } ) nConnection := RDDINFO( RDDI_CONNECT, { ODBC, dsn=testmysql; } ) IF nConnection == 0 ? Unable connect to server, RDDINFO( RDDI_ERRORNO ), RDDINFO( RDDI_ERROR ) RETURN ENDIF ? Database Connection: + LTrim(Str(nConnection)) + OK with dsn=testmysql; RDDINFO(RDDI_EXECUTE, DROP TABLE country) // RDDINFO(RDDI_EXECUTE, CREATE TABLE country (CODE char(3), NAME char(50), RESIDENTS int(11), TD1 date, TN1 Numeric(10,2) default 0.00 )) // RDDINFO(RDDI_EXECUTE, CREATE TABLE country (CODE char(3), NAME char(50), RESIDENTS int(11), TLB1 LONGBLOB, TLT1 LONGTEXT default '', TB1 BLOB, TT1 TEXT default '') ) RDDINFO(RDDI_EXECUTE, CREATE TABLE country (CODE char(3), NAME char(50), RESIDENTS int(11), TLB1 LONGBLOB, TB1 BLOB) ) RDDINFO(RDDI_EXECUTE, INSERT INTO country (CODE, NAME, RESIDENTS) values ('LTU', 'Lithuania', 3369600),('USA', 'United States of America', 305397000), ('POR', 'Portugal', 10617600), ('POL', 'Poland', 38115967), ('AUS', 'Australia', 21446187), ('FRA', 'France', 64473140), ('RUS', 'Russia', 14190)) ? dBUseArea( .T., SQLMIX, SELECT * FROM country ORDER BY CODE LIMIT 0, 1;, country, .T., .F.) ? Rdd: SQLMIX Area: +Ltrim(Str(Select())) + Alias: +Alias()+ BOF() is + IIF(Bof(), TRUE, FALSE) dBCreate( testdbf, aStruct, DBFCDX ) dBUseArea( .T., dbfcdx, testdbf.dbf, TESTALS, .T., .F. ) ? Rdd: DBFCDX Area: +Ltrim(Str(Select())) + Alias: +Alias()+ BOF() is + IIF(Bof(), TRUE, FALSE) DBCLOSEALL() RETURN Shum -- View this message in context: http://n2.nabble.com/Ask-rddsql-SDDODBC-driver-for-support-BLOB-and-LONGBLOB-tp4864437p4864437.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Error with ODBC under rddsql (sddodbc) ...
Hi Mindaugas, I donot know why ? Now the error gone ... http://www.mingyik.com/dnload/tstodbc30.jpg However, I have download and install the mysql-connector-c-6.0.2-win32.msi during testing SSDMY (although the testing on SDDMY fail as well) Once see your message, I recompile my testing program again The exec. it Now problem gone !?? Shum -- View this message in context: http://n2.nabble.com/Error-with-ODBC-under-rddsql-sddodbc-tp4852373p4859068.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Error with dBUseArea(...) with rddsql (sddodbc) with mysql ???
Hi All, I continue to test sddodbc with mysql for adding a BIGINT field ...but error comes out : http://www.mingyik.com/dnload/tstodbc40.jpg http://www.mingyik.com/dnload/txtodbc50.jpg the error comes out at the line with dBUsearea(...) and the source at follow: /* * $Id$ */ #include simpleio.ch #include hbrddsql.ch REQUEST SQLMIX, SDDODBC, DBFCDX PROC main() LOCAL nConnection, nI, aI local aStruct := { { CHARACTER, C, 25, 0 }, ; { NUMERIC, N, 8, 0 }, ; { DOUBLE,N, 8, 2 }, ; { DATE, D, 8, 0 }, ; { LOGICAL, L, 1, 0 } } RDDSETDEFAULT( SQLMIX ) SET( _SET_DATEFORMAT, -mm-dd ) // nConnection := RDDINFO( RDDI_CONNECT, { MYSQL, localhost,root,mysql,test } ) // nConnection := RDDINFO( RDDI_CONNECT, { ODBC, Server=localhost;Driver={MySQL ODBC 5.1 Driver};dsn=;User=test;database=test; } ) nConnection := RDDINFO( RDDI_CONNECT, { ODBC, dsn=testmysql; } ) IF nConnection == 0 ? Unable connect to server, RDDINFO( RDDI_ERRORNO ), RDDINFO( RDDI_ERROR ) RETURN ENDIF ? Database Connection: + LTrim(Str(nConnection)) + OK with dsn=testmysql; RDDINFO(RDDI_EXECUTE, DROP TABLE country) // RDDINFO(RDDI_EXECUTE, CREATE TABLE country (CODE char(3), NAME char(50), RESIDENTS int(11), TD1 date, TN1 Numeric(10,2) default 0.00 )) RDDINFO(RDDI_EXECUTE, CREATE TABLE country (CODE char(3), NAME char(50), RESIDENTS int(11), TD1 date, TB1 BIGINT default 0 )) RDDINFO(RDDI_EXECUTE, INSERT INTO country (CODE, NAME, RESIDENTS) values ('LTU', 'Lithuania', 3369600),('USA', 'United States of America', 305397000), ('POR', 'Portugal', 10617600), ('POL', 'Poland', 38115967), ('AUS', 'Australia', 21446187), ('FRA', 'France', 64473140), ('RUS', 'Russia', 14190)) ? dBUseArea( .T., SQLMIX, SELECT * FROM country ORDER BY CODE;, country, .T., .F.) ? Rdd: SQLMIX Alias: +Alias()+BOF() is + IIF(Bof(), TRUE, FALSE) dBCreate( testdbf, aStruct, DBFCDX ) dBUseArea( .T., dbfcdx, testdbf.dbf, TESTALS, .T., .F. ) ? Rdd: DBFCDX Alias: +Alias()+BOF() is + IIF(Bof(), TRUE, FALSE) DBCLOSEALL() RETURN Shum -- View this message in context: http://n2.nabble.com/Error-with-dBUseArea-with-rddsql-sddodbc-with-mysql-tp4861267p4861267.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Error with ODBC under rddsql (sddodbc) ...
Hi All, I try to test dBUseArea() with DBFCDX RDD and SQLMIX RDD ... Since I cannot test the test2.prg under \hb20\contrib\rddsql\sddodbc\tests I modify test2.prg into tstmysql.prg as follow: However the line: ? dBUseArea( .T., sqlmix, SELECT * FROM country, country, .T., .F.) with error comes out : http://www.mingyik.com/dnload/tstodbc10.jpg http://www.mingyik.com/dnload/tstodbc20.jpg /* * $Id$ */ #include simpleio.ch #include hbrddsql.ch REQUEST SQLMIX, SDDODBC, DBFCDX PROC main() LOCAL nConnection, nI, aI local aStruct := { { CHARACTER, C, 25, 0 }, ; { NUMERIC, N, 8, 0 }, ; { DOUBLE,N, 8, 2 }, ; { DATE, D, 8, 0 }, ; { LOGICAL, L, 1, 0 } } RDDSETDEFAULT( SQLMIX ) SET( _SET_DATEFORMAT, -mm-dd ) // nConnection := RDDINFO( RDDI_CONNECT, { ODBC, Server=localhost;Driver={MySQL ODBC 5.1 Driver};dsn=;User=test;database=test; } ) nConnection := RDDINFO( RDDI_CONNECT, { ODBC, dsn=testmysql; } ) IF nConnection == 0 ? Unable connect to server, RDDINFO( RDDI_ERRORNO ), RDDINFO( RDDI_ERROR ) RETURN ENDIF ? Database Connection: + LTrim(Str(nConnection)) + OK with dsn=testmysql; ? RDDINFO(RDDI_EXECUTE, DROP TABLE country) ? RDDINFO(RDDI_EXECUTE, CREATE TABLE country (CODE char(3), NAME char(50), RESIDENTS int(11))) ? RDDINFO(RDDI_EXECUTE, INSERT INTO country values ('LTU', 'Lithuania', 3369600),('USA', 'United States of America', 305397000), ('POR', 'Portugal', 10617600), ('POL', 'Poland', 38115967), ('AUS', 'Australia', 21446187), ('FRA', 'France', 64473140), ('RUS', 'Russia', 14190)) ? dBUseArea( .T., sqlmix, SELECT * FROM country, country, .T., .F.) ? Rdd: SQLMIX Alias: +Alias()+BOF() is + IIF(Bof(), TRUE, FALSE) dBCreate( testdbf, aStruct, DBFCDX ) dBUseArea( .T., dbfcdx, testdbf.dbf, TESTALS, .T., .F. ) ? Rdd: DBFCDX Alias: +Alias()+BOF() is + IIF(Bof(), TRUE, FALSE) DBCLOSEALL() RETURN Shum -- View this message in context: http://n2.nabble.com/Error-with-ODBC-under-rddsql-sddodbc-tp4852373p4852373.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] How to set XON/XOFF under hbtpathy ?
Hi All, As title (by using what function ?) ... Shum -- View this message in context: http://n2.nabble.com/How-to-set-XON-XOFF-under-hbtpathy-tp4853978p4853978.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] dBRequest() runtime error ...?
Hi All, There is an runtime error at the line : If (lRet := dBRequest( cTAls, Tl, NIL, Fl ) ) Anything wrong ? and the hb_out.log attached as well ... Function _mydBRequest( cTAls, nTime ) Local lRet:=Fl Local nCnt:=0 Local olVal:=Fl Local nAMax:=0 Local aAreas:={} Local cOAlias:=cTAls Do While nTime 0 myTlog( Before dBRequest: +cTAls, mylog) // Write to log file If (lRet := dBRequest( cTAls, Tl, NIL, Fl ) ) Exit Endif myTlog( After dBRequest: +cTAls, mylog) // Write to log file aAreas := WorkSpaceList( DB_ZEROSPACE ) nAMax := Len(aAreas) cTAls := cOAlias + _ olVal := Set(_SET_EXACT, Tl ) myTlog( After WoekSpaceList( DB_ZEROSPACE ), mylog) For nCnt:=1 to nAMax If AT( cTAls, aAreas[nCnt]) 0 cTAls := aAreas[nCnt] If (lRet := dBRequest( cTAls, Tl, NIL, Fl ) ) Exit Endif Endif Next Set(_SET_EXACT, olVal ) If !lRet cTAls := cOAlias Endif --nTime EndDo Return( lRet ) Shum http://n2.nabble.com/file/n4843816/hb_out.log hb_out.log -- View this message in context: http://n2.nabble.com/dBRequest-runtime-error-tp4843816p4843816.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: dBRequest() runtime error ...?
Hi All, I modify the mytstrddprg (from testrdd.prg) as follow: Plese hbmk2 mytstrdd.prg then try 1.) mytstrdd.exe - no error 2.) mytstrdd.exe 1 - error commes out The above error indicate that dBRequest() or hb_dbrequest() run into error if there is no any Alias at ZeroSpace (or the virtual work space) ?? /* * $Id$ */ function main( P1 ) local aRdd := rddList() local aStruct := { { CHARACTER, C, 25, 0 }, ; { NUMERIC, N, 8, 0 }, ; { DOUBLE,N, 8, 2 }, ; { DATE, D, 8, 0 }, ; { LOGICAL, L, 1, 0 } } REQUEST DBFCDX SET EXCLUSIVE OFF QOut( Registered RDD's:, LTrim( Str( Len( aRdd ) ) ), = ) aEval( aRdd, { | cDriver | QQOut( , cDriver ) } ) QOut() rddSetDefault(DBFCDX) dbCreate( testdbf, aStruct, DBFCDX ) If P1==NIL dbUseArea( ,, testdbf.dbf, ALIAS_1 ) If HB_DBDetach(ALIAS_1) ? DBRelease ALIAS_1 OK If HB_dBRequest(ALIAS_1, .T.) ? DBRequest ALIAS_1 OK ? BOF() is + IIF(Bof(), TRUE, FALSE) Endif Endif Else If HB_dBRequest(ALIAS_1, .T.) ? DBRequest ALIAS_1 OK ? BOF() is + IIF(Bof(), TRUE, FALSE) Else dbUseArea( ,, testdbf.dbf, ALIAS_1 ) If HB_DBDetach(ALIAS_1) ? DBRelease ALIAS_1 OK If HB_dBRequest(ALIAS_1, .T.) ? DBRequest ALIAS_1 OK ? BOF() is + IIF(Bof(), TRUE, FALSE) Endif Endif Endif Endif dBCloseArea() dBCloseAll() Return( NIL ) Shum -- View this message in context: http://n2.nabble.com/dBRequest-runtime-error-tp4843816p4845952.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: How to go insde debuger ?
Hi Jaroslaw Kadziola , Thanks ! It work fine now ... Shum -- View this message in context: http://n2.nabble.com/How-to-go-insde-debuger-tp4816375p4816404.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Ask help for run time error ...
Hi All, Solved ! Now... facing other kind of error Shum -- View this message in context: http://n2.nabble.com/Ask-help-for-run-time-error-tp4816267p4816993.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Ask Str2Poniter() and Pointer2Str() function pair ....
Hi Teo, Many thanks again! Shum -- View this message in context: http://n2.nabble.com/Ask-Str2Poniter-and-Pointer2Str-function-pair-tp4803834p4812543.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Ask Xbase++ dBPosition() and dBGoPosition() function in Harbour...
Hi Viktor, and Harbour developer, Harbour is supposed to have Xbase++ .dll handling syntax, so it would be interesting to see what needs to be rewritten still. Can you describe the details? Need function with Xbase++ compitable: Hope you can add the following function: 1.) DBPosition() 2.) DBGoPosition() 3.) IsMemVar() 4.) Isfunction() 5.) IsMethhod() 6.) IsMemberVar() 7.) SetLocale() : : And I try to implement the DacSession of Xbase++ But not yet finish... Hope other can help to finished it ... //TODO Function DbSession( uTAls ) // mybas2:dbclass.prg Return( NIL ) CLASS DacSession// mybas2:dbclass.prg DATA nDBConnection DATA cConnectionStr DATA cDSN METHOD init //METHOD getDefault //METHOD querySession //METHOD sessionList METHOD connect METHOD disconnect //METHOD getConnectionHanlde //METHOD getConnectionString METHOD isConnected //METHOD isUsed //METHOD isCompound //METHOD isDefault METHOD setDefault METHOD setProperty METHOD beginTransaction METHOD commitTransaction //METHOD inTransaction METHOD rollbackTransaction ENDClass METHOD DacSession:init( cConnectionStr, lDefault ) If lDefault==NIL lDefault := .T. Endif ::nDBConnection := 0 ::cConnectionStr := IIF(cConnectionStr==NIL, , cConnectionStr) If AT( UPPER(cConnectionStr), DSN) 0 ::cDSN := cConnectionStr Else ::cDSN := Endif // TODO // If lDefault // Endif Return( self ) METHOD DacSession:connect() If ::cConnectionStr ::nDBConnection := RDDINFO( RDDI_CONNECTION, ::cConnectionStr ) Endif Return( self ) METHOD DacSession:setDefault( lSet ) If lSet==NIL lSet := .T. Endif If lSet If ::nDBConnection 0 RDDINFO( RDDI_CONNECTION, ::nDBConnection ) Endif Endif Return( self ) METHOD DacSession:isConnected() Local lRet:=.F. If ::nDBConnection 0 lRet := .T. Endif Return( lRet ) METHOD DacSession:disconnect() Local lRet:=.F. If ::nDBConnection 0 RDDINFO( RDDI_DISCONNECTION, ::nDBConnection ) ::nDBConnection := 0 lRet := .T. Endif Return( lRet ) // TODO METHOD DacSession:setProperty( nDefinde, xValue ) Local uRet:=NIL Return( uRet ) // TODO METHOD DacSession:beginTransaction( ) Local lRet:=.F. Return( lRet ) // TODO METHOD DacSession:commitTransaction() Local lRet:=.F. Return( lRet ) // TODO METHOD DacSession:rollbackTransaction() Local lRet:=.F. Return( lRet ) Shum -- View this message in context: http://n2.nabble.com/Ask-Xbase-dBPosition-and-dBGoPosition-function-in-Harbour-tp4812569p4812569.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Ask help for run time error ...
Hi All, C compiler is the builtin mingw of latest Haubour SVN I just finish error free compiled and generate my harbour application... After execute the application error comes out with hb_out.log as follow: Called from _LMSGBOX(0) Called from MAIN(90) in mysys.prg the _LMSGBOX() is a function which is in the mybas1.dll it seems that the function in other dlls cannot be called ? Please point me out whats wrong ? mybas1.hbp as follow - # # $Id$ # -mt -b -inc -shared -workdir=r:\temp #-hblib -hbdyn -implib -od:/10/hprg/mybas1 -lhbxpp -lhbct -lhbwin -ld:/10/hprg/myxbp.dll -id:/10/hprg/include errorsys.prg #dllfnc.prg _myvar.prg myvar.prg locks.prg mybase.prg wini.prg xmlio.prg dfunc.prg mylang.prg mygbio.prg mydata.prg myfunc.prg ufunc.prg wmybas1.prg mysys.hbp as follow: -- # # $Id$ # -mt -b -hbexe -gui -omysys -id:/10/hprg/include -lhbxpp -lrddsql -ld:/10/hprg/myxbp.dll -ld:/10/hprg/mybas1.dll -ld:/10/hprg/mybas2.dll -ld:/10/hprg/myinit.dll -ld:/10/hprg/mygui0.dll -ld:/10/hprg/myinet.dll -ld:/10/hprg/myspool.dll -ld:/10/hprg/myweb0.dll -ld:/10/hprg/myxlnk.dll -ld:/10/hprg/mygui1.dll -ld:/10/hprg/mywrpt.dll -ld:/10/hprg/myxsys.dll -ldflag={msvc}-nodefaultlib:msvcrt.lib -ldflag={msvc}-defaultlib:libcmt.lib d:/hb20/contrib/hbxbp/hbxbp.hbc -Ld:/qt/4.5.3/lib mysys.prg -- http://n2.nabble.com/file/n4816267/hb_out.log hb_out.log -- View this message in context: http://n2.nabble.com/Ask-help-for-run-time-error-tp4816267p4816267.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] How to go insde debuger ?
Hi All, under the tests dir hbmk2 tstcolor.prg -b tstcolor.exe is generated but run it does not go into the debuger ? Please point me to right direction thanks ! Shum -- View this message in context: http://n2.nabble.com/How-to-go-insde-debuger-tp4816375p4816375.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: SF.net SVN: harbour-project:[14161] trunk/harbour
Hi Pritpal Bedi, Would you please also add the GraInitMaterix() However, I cannot find document of GraInitMaterix() directly, It return a 3D array and the array will pass into many Gra... funxtion such as Graotate(), GraTranslate(), GraScale() Shum -- View this message in context: http://n2.nabble.com/SF-net-SVN-harbour-project-14161-trunk-harbour-tp4730266p4808126.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Ask Str2Poniter() and Pointer2Str() function pair ....
Hi Viktor, I often ask some function which I need here dueto I am not a C programer, I cannot write C (low level) function for myseft within harbour as I like. However, I follow the C and Harbour style ... and try to write the StrngOf(nPtr) function aas follow: Please point me if it is correct or not #pragma begindump #include hbwapi.h #include hbapiitm.h HB_FUNC( STRINGOF ) { PHB_ITEM pTemp = hb_itemNew( NULL ); pTemp = hb_parni(1); HB_RETSTR( hb_itemGetCPtr( pTemp ) ); hb_itemRelease( pTemp ); } #pragma enddump However, I donot know if hb_parni(1) is right or not ...or please point out anything wrong ? Shum -- View this message in context: http://n2.nabble.com/Ask-Str2Poniter-and-Pointer2Str-function-pair-tp4803834p4808872.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Ask Str2Poniter() and Pointer2Str() function pair ....
Hi Teo, I am converting my Xbase++ application into Harbour... Within my Xbase++ Application, I use BAP lib which are function for calling C function within Xbase++ and it has a function called Stringof() same as Pointer2Str() Without the Stringof() or similiar function I had to do much effort So I have the Stringof() or Pointer2Str() function in hand ...It can speed up my Xbase++ to Harbour convertion... Shum -- View this message in context: http://n2.nabble.com/Ask-Str2Poniter-and-Pointer2Str-function-pair-tp4803834p4809522.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: hbmk2 log error
Hi, try: hbmk2 test.hbp t.log 21 Shum -- View this message in context: http://n2.nabble.com/hbmk2-log-error-tp4809362p4809529.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Ask Str2Poniter() and Pointer2Str() function pair ....
Hi Petr, Yes, I find it and I will try it Thanks Shum -- View this message in context: http://n2.nabble.com/Ask-Str2Poniter-and-Pointer2Str-function-pair-tp4803834p4809635.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] RE: Ask Str2Poniter() and Pointer2Str() function pair ....
Hi Teo, Please take in mind the Viktor's advice. It's very dangerous to deal with pointers at prg Harbour level, you can easily break things badly. I just use the function during Xbase++ to Harbour converting ... After that, I will re-think and re-write those part Thanks ! Shum Date: Sat, 27 Mar 2010 09:02:11 -0800 From: ml-node+4809931-358327461-334...@n2.nabble.com To: wcshu...@hotmail.com Subject: Re: Ask Str2Poniter() and Pointer2Str() function pair Hello Shum, On Mar 27, 2010, at 9:16 AM, Shum wrote: Hi Teo, I am converting my Xbase++ application into Harbour... Within my Xbase++ Application, I use BAP lib which are function for calling C function within Xbase++ and it has a function called Stringof() same as Pointer2Str() Without the Stringof() or similiar function I had to do much effort So I have the Stringof() or Pointer2Str() function in hand ...It can speed up my Xbase++ to Harbour convertion... Please take in mind the Viktor's advice. It's very dangerous to deal with pointers at prg Harbour level, you can easily break things badly. Bellow you'll find the String2Pointer/Pointer2String. Just keep in mind that for safety, the function Pointer2String returns a new PHB_ITEM with the copy of the pointers buffer. prg #pragma begindump #include hbapi.h HB_FUNC( STRING2POINTER ) { PHB_ITEM s = hb_param( 1, HB_IT_STRING ); if( s ) hb_retptr( (void *) hb_itemGetCPtr( s ) ); } HB_FUNC( POINTER2STRING ) { PHB_ITEM p = hb_param( 1, HB_IT_POINTER ); PHB_ITEM n = hb_param( 2, HB_IT_NUMERIC ); if( p n ) { PHB_ITEM s = hb_itemNew( NULL ); hb_itemPutCL( s, hb_itemGetPtr( p ), hb_itemGetNI( n ) ); hb_itemReturnRelease( s ); } } #pragma enddump /prg best regards, Teo ___ Harbour mailing list (attachment size limit: 40KB) [hidden email] http://lists.harbour-project.org/mailman/listinfo/harbour View message @ http://n2.nabble.com/Ask-Str2Poniter-and-Pointer2Str-function-pair-tp4803834p4809931.html To unsubscribe from Re: Ask Str2Poniter() and Pointer2Str() function pair , click here. _ Hotmail 有 Microsoft 強力垃圾郵件保護機制,值得您信賴。 https://signup.live.com/signup.aspx?id=60969 -- View this message in context: http://n2.nabble.com/Ask-Str2Poniter-and-Pointer2Str-function-pair-tp4803834p4809944.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: SF.net SVN: harbour-project:[14249] trunk/harbour
Hi Pritpal Bedi, Vitkor is correct, It should be GraInitMatrix() ... Sorry for my mistake ... Shum -- View this message in context: http://n2.nabble.com/SF-net-SVN-harbour-project-14249-trunk-harbour-tp481p4810063.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Ask Str2Poniter() and Pointer2Str() function pair ....
Hi Angel, work for the metro of Hong Kong and needs to interface xbase programs with ticket spending machines. The project has been end-up already. Now I am converting my All systems (POS, Account, Payroll...) into Harbour dueto Harbour is MultiPalform and more powerful ... and free . During Xbase++ to Harbour converting, I found that Harbour can help me find out some mistake ... those Xbase++ just let it pass ...So I know Harbour is very powerful Even Xbase++ and Harbour are similar, And I aslo seldem use 3rd party libs, convertion is still not a easy thing !. -- View this message in context: http://n2.nabble.com/Ask-Str2Poniter-and-Pointer2Str-function-pair-tp4803834p4811550.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Ask Str2Poniter() and Pointer2Str() function pair ....
Hi Pritpal Bedi, Without hbxbp (which depends on hbqt), it seems the only GUI (some syntx) and greate for the Xbase++ to Harbour convertion. For my Application (one source code for POS, Account, Payroll ...) with following dlls: mybas1, mybas2, myinit, myweb0, mygui0, myinet, myxlnk ... (convertion finished compiled error free) mygui1, mywmon, mywrpt, myxsys ... (under converting ) for mygui0 and mygui1 are the main GUI dlls (now depends on hbxbp + hbqt in Harbour) and mywmon, mywrpt, myxsys also depends on (mygui0 and mygui1) as well Now only lack of: 1.) DBPosition() (which exist in Xbase++ but not in Harbour) function 2.) Some windows dlls call function (need tobe re-write under Harbour syntx) 3.) There exist some function (my owned function) that I need to isolate them avoid intra-called After complied error free convertion, I will start the Y-Coor. (Xbase++ and hbxbp (hbqt)) convertion Following are important part for convertion: - Both Harbour and Xbase++ with clipper compitable - Harbour has Xbase++ compitable GUI which is hbxbp (which depends on hbqt) - MultiThread Compitable - CT lib (beside com-232 function I just use few CT function) (now I use hbtpathy functon) - Xbase++ ODBC DBE (SQL) and Harbour RDDSQL with same style of SQL statement handling (my Application is already using ODBC DBE for access SQL for many years) Shum -- View this message in context: http://n2.nabble.com/Ask-Str2Poniter-and-Pointer2Str-function-pair-tp4803834p4811749.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Ask Str2Poniter() and Pointer2Str() function pair ....
Hi All, 1.) DBPosition() (which exist in Xbase++ but not in Harbour) function Should be DBGoPosition() ... Please add this function DBGoPosition() into Harbour for Xbase++ compitable Thanks ! Shum -- View this message in context: http://n2.nabble.com/Ask-Str2Poniter-and-Pointer2Str-function-pair-tp4803834p4811852.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Ask Str2Poniter() and Pointer2Str() function pair ....
Hi Teo, HB_FUNC( POINTER2STRING ) { PHB_ITEM p = hb_param( 1, HB_IT_POINTER ); PHB_ITEM n = hb_param( 2, HB_IT_NUMERIC ); if( p n ) { PHB_ITEM s = hb_itemNew( NULL ); hb_itemPutCL( s, hb_itemGetPtr( p ), hb_itemGetNI( n ) ); hb_itemReturnRelease( s ); } } It seems that POINTER2STRING had to pass 2 parameters. Because i donot know the length of the return string Can I pass NIL to the 2nd parameter? and just obtain the string ? Shum -- View this message in context: http://n2.nabble.com/Ask-Str2Poniter-and-Pointer2Str-function-pair-tp4803834p4811973.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Ask Str2Poniter() and Pointer2Str() function pair ....
Hi Harbour developers, I would like to ask the Str2Pointer(cStr) and Pointer2Pointer(pPtr) function ... Something like in xHarbour HB_String2Pointer(cStr) and ( HB_Pointer2Str(pPtr,nByte) or Stringof() in C langurage ...) Shum -- View this message in context: http://n2.nabble.com/Ask-Str2Poniter-and-Pointer2Str-function-pair-tp4803834p4803834.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Ask Str2Poniter() and Pointer2Str() function pair ....
hi All, I can find hb_ItemGetCPtr(..) in C level function call However, I cannot call the hb_ItemGetCPtr() directly within prg level Hope somebody can point me in the right direction to call the C Level function within harbour ... Thanks inadvanced ! Shum -- View this message in context: http://n2.nabble.com/Ask-Str2Poniter-and-Pointer2Str-function-pair-tp4803834p4807876.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: SF.net SVN: harbour-project:[14161] trunk/harbour
Hi Pritpal Bedi, In the first phase I will implement it for printing only, later for widgets. Many thanks for adding GRA... functions ... Even it cannot work (at this time), I can continue the Xbase++ to Harbour porting ... Thanks again ! Now most of the undefined reference to 'HB_FUN_GRA... eror gone during my compilation for my application... 1.) However, undefined reference to HB_FUN_GRASAVESCREEN' still there ... Would you please add the GraSaveScreen(...) also 2.) and there is another error as follow: D:/hb20/lib/win/mingw/libhbxbp.a(xbpgra.o):xbpgra.c:(.data+0x38): undefined reference to `HB_FUN_HB_SYMBOL_UNUSED Shum -- View this message in context: http://n2.nabble.com/SF-net-SVN-harbour-project-14161-trunk-harbour-tp4730266p4730784.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] RE: Ask for more Xbase++ compatible fuctio n and class ..
Hi Pritpal, I find some information on the internet for Qt drwaing http://doc.trolltech.com/4.4/qt4-styles.html http://cartan.cas.suffolk.edu/qtdocs/opengl-2dpainting.html http://www.greyc.ensicaen.fr/ensicaen/Docs/Qt4/painting-basicdrawing.html may help in maping gra function Shum Date: Sat, 13 Mar 2010 00:25:27 -0800 From: ml-node+4726653-5748-334...@n2.nabble.com To: wcshu...@hotmail.com Subject: Re: Ask for more Xbase++ compatible fuction and class .. Shum wrote: I hope you can add more Xbase++ function and or class as following: -Gra..() Function set (if possible) or please point me how to map with hbqt for Gra drawing and setting ... : : -GraFont() -GraSetColor() -GraQueryTextBox() -GraSetAttrString() -GraStringAt() -GraGetRGBIntensity() I need a very small, bare minimum, example how above functions are used. Also two screen shots, before and after above calls. -XbpClipBoard class and it's function Please check after r14155. -AppType() -NextTAppEvent() -LastAppEvent() I will look into these functions. enjoy hbIDEing... Pritpal Bedi _a_student_of_software_analysis__design_ View message @ http://n2.nabble.com/Ask-for-more-Xbase-compatible-fuction-and-class-tp4725917p4726653.html To unsubscribe from Ask for more Xbase++ compatible fuction and class .., click here. _ Hotmail 是功能強大又值得信賴的免費電子郵箱 https://signup.live.com/signup.aspx?id=60969 -- View this message in context: http://n2.nabble.com/Ask-for-more-Xbase-compatible-fuction-and-class-tp4725917p4730896.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Ask for more Xbase++ compatible fuction and class ..
Hi Pritpal, I am converting my Xbase++ application into Harbour (during this few weeks) Many thanks for your working on hbxbp and hbqt relative job I hope you can add more Xbase++ function and or class as following: -Gra..() Function set (if possible) or please point me how to map with hbqt for Gra drawing and setting ... : : -GraFont() -GraSetColor() -GraQueryTextBox() -GraSetAttrString() -GraStringAt() -GraGetRGBIntensity() -XbpClipBoard class and it's function -AppType() -NextTAppEvent() -LastAppEvent() Thanks inadvance ! Shum -- View this message in context: http://n2.nabble.com/Ask-for-more-Xbase-compatible-fuction-and-class-tp4725917p4725917.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Ask Xbase++ Compatibility function dBPosition()...
Hi All, I want to ask for the Xbase++ dBPosition() The function DbPosition() is used to determine the position of a record pointer as a percent value. It works independetly of whether or not a controlling index is active in the work area. This allows for an easy visualization of the record pointer position with a scroll bar. The range for the scroll bar must be set to 0-100 and the scroll bar thumb is positioned using the return value of DbPosition(). Shum -- View this message in context: http://n2.nabble.com/Ask-Xbase-Compatibility-function-dBPosition-tp4714219p4714219.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Ask for a table for listing all function among ...
Hi All, I want to ask any one has a table (file) which listing all function and or class and methods for Harbour/Clipper/Xbase++ I need it easy checking and finding those function Thasnk in-advanced ! Shum -- View this message in context: http://n2.nabble.com/Ask-for-a-table-for-listing-all-function-among-tp4702296p4702296.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: MT workareas cloning
Hi Przemek, Support for ZEROSPACE in WorkSpaceList() is trivial but can be implemented only in C. I can add it in necessary. BTW please check above two example with xbase++. Would you please implement the WorkSpaceList() with ZEROSPACE ... I need to obtain all alias within ZEROSPACE Or any way to get a list of all alias within the ZeroSpace ??? Shum -- View this message in context: http://n2.nabble.com/MT-workareas-cloning-tp3085150p4707278.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Ask Xbase++ Compatibilty function
Hi Harbour developers, I am converting an Xbase++ application into harbour ... However, I cannot find the following Xbase++ function or class (within Harbour ) directly: (Hope some one can point me into the right direction ...) -IsMemberVar() -WorkSpaceList() -WorkSpaceEval() -DBPosition() -DBGoPosition() -Ordisdescend() -DACSession() -DBsession() -DBClientList() -DBScope() -DBSetScope() -DBClearScope() -RunShell() Thanks inadvanced ! Shum -- View this message in context: http://n2.nabble.com/Ask-Xbase-Compatibilty-function-tp4620179p4620179.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Macro within codeblock ??
Hi Harbour developers, I use macro within codeblock for years with Xbase++as follow: cFAction := FIELD-FNCNAME bAction := {|| cFAction() } If isfunction( cFAction ) oXbp:ItemSelected := bAction Endif However, Harbour does not support macro within codeblock ... Hope someone can give me any solution on this topic ... Shum -- View this message in context: http://n2.nabble.com/Macro-within-codeblock-tp4611984p4611984.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Macro within codeblock ??
Ok... It should be solved Since Xbase++ all are late blinding changebAction := {|| cFAction() } into bAction := {|| (cFAction)() }seems is the solution ... Thanks ! Shum -- View this message in context: http://n2.nabble.com/Macro-within-codeblock-tp4611984p4617195.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Ask for var2str(...) and str2var(...) pairs functions for harbour ...
Hi Harbour Developer, I am sorry, I have made the mistake ... the functions pair which I needed should be as follow: var2bin(...) and bin2var(...) (like in Xbase++ ) Shum -- View this message in context: http://n2.nabble.com/Ask-for-var2str-and-str2var-pairs-functions-for-harbour-tp4484296p4484545.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Ask for var2str(...) and str2var(...) pairs functions for harbour ...
Hi Harbour developers, I want to ask for var2str(...) and str2var(...) pairs functions (something that in Xbase++) for harbour Or does it already there in harbour ? Please point me in right direction ... Shum -- View this message in context: http://n2.nabble.com/Ask-for-var2str-and-str2var-pairs-functions-for-harbour-tp4484296p4484296.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] SF.net SVN: harbour-project:[11357] trunk/harbour
Hi Pritpal Bedi, Does hbxbp staick on top-bottom windows approach in screen coordinate system ? Shum vouchcac wrote: Revision: 11357 http://harbour-project.svn.sourceforge.net/harbour-project/?rev=11357view=rev Author: vouchcac Date: 2009-06-15 08:13:08 + (Mon, 15 Jun 2009) Log Message: --- 2009-06-15 00:57 UTC-0800 Pritpal Bedi (prit...@vouchcac.com) * harbour/contrib/hbxbp/Makefile * harbour/contrib/hbxbp/xbp.ch + harbour/contrib/hbxbp/xbp3state.prg + harbour/contrib/hbxbp/xbpcheckbox.prg + harbour/contrib/hbxbp/xbpdataref.prg + harbour/contrib/hbxbp/xbplistbox.prg + harbour/contrib/hbxbp/xbpradiobutton.prg + harbour/contrib/hbxbp/xbpstatusbar.prg + harbour/contrib/hbxbp/xbptabpage.prg * harbour/contrib/hbxbp/xbpdialog.prg * harbour/contrib/hbxbp/xbpwindow.prg + Added classes: Xbp3State() XbpCheckBox() XbpRadioButton() XbpListBox() XbpDataRef() - Used by data aware components as above. XbpStatusBar() - Partial XbpTabPage() * harbour/contrib/hbxbp/tests/demoxbp.prg + Added implementation code of above classes. /* demoXBP.prg implements 100% Xbase++ code pulled from its documentation. The only attributes changes are done either to redefine the parent or window coordinates. Xbase++ ( as I know ) takes bottom-top approach in screen coordinate system, so demoXBP.prg compiled with Xbase++ shows objects in different positions. Except for this and a couple of other compatibility issues, Harbour offers more wider horizon. So, once base implementation is done, I may extend these classes to take advantage of QT's powerful design concepts. */ Modified Paths: -- trunk/harbour/ChangeLog trunk/harbour/contrib/hbxbp/Makefile trunk/harbour/contrib/hbxbp/tests/demoxbp.prg trunk/harbour/contrib/hbxbp/xbp.ch trunk/harbour/contrib/hbxbp/xbpdialog.prg trunk/harbour/contrib/hbxbp/xbpwindow.prg Added Paths: --- trunk/harbour/contrib/hbxbp/xbp3state.prg trunk/harbour/contrib/hbxbp/xbpcheckbox.prg trunk/harbour/contrib/hbxbp/xbpdataref.prg trunk/harbour/contrib/hbxbp/xbplistbox.prg trunk/harbour/contrib/hbxbp/xbpradiobutton.prg trunk/harbour/contrib/hbxbp/xbpstatusbar.prg trunk/harbour/contrib/hbxbp/xbptabpage.prg This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour -- View this message in context: http://n2.nabble.com/SF-net-SVN-harbour-project-11357-trunk-harbour-tp3079068p4219884.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] Harbour next major release wishlist
Hi All, I hope Harbour + hbqt + hbxbp can support (Traditional and Simpilifed) Chinese Character ASAP the OEM Code page is 950 and 936 Shum Viktor Szakáts wrote: Hi All, In the spirit of release enthusiasm it's now also a good time to brainstorm a little on things which we would like to make it into next major Harbour release. You're welcome to post your idea, whatever that is. My list on the top of my head: - Complete Unicode support - Type cleanup (planned) - GTNET - Oracle accessibility (sddora, hbora) - Dir layout scheme cleanup (planned) - Multi-OS binary distribution for WIN/DOS/OS2 world - Becoming a std Linux package - Ironing out HBQT remaining grey areas (memory management, .prg level indestructibility, proper componentization) - HBBMCDX integrated into core. - XML support Brgds, Viktor ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour -- View this message in context: http://n2.nabble.com/Harbour-next-major-release-wishlist-tp4210572p4213803.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] Harbour next major release wishlist
Hi Pritpal Badi, Many thanks for your reply ! OEM Code Page 950 is equal to ( BIG5 and BIG5 HKSCS ) Traditional Chinese Character; OEM Code Page 936 is equal to (GB18030-0) Simpilified Chinese Character I will prepare some sample prg and and mail to you within ONE or TWO day Thanks inadvance ! Shum Pritpal Bedi wrote: Hi ShumWC wrote: I hope Harbour + hbqt + hbxbp can support (Traditional and Simpilifed) Chinese Character ASAP the OEM Code page is 950 and 936 Qt supports following codecs: Apple Roman Big5 Big5-HKSCS CP949 EUC-JP EUC-KR GB18030-0 IBM 850 IBM 866 IBM 874 ISO 2022-JP ISO 8859-1 to 10 ISO 8859-13 to 16 Iscii-Bng, Dev, Gjr, Knd, Mlm, Ori, Pnj, Tlg, and Tml JIS X 0201 JIS X 0208 KOI8-R KOI8-U MuleLao-1 ROMAN8 Shift-JIS TIS-620 TSCII UTF-8 UTF-16 UTF-16BE UTF-16LE UTF-32 UTF-32BE UTF-32LE Windows-1250 to 1258 WINSAMI2 Let me know which is one you need. Also tell me how can I check if it is working. I mean some code example, and a string which I could view in hbide. NOTE: I am not conversant with codepages, so I need steps to reproduce something belonging to code pages. Regards Pritpal Bedi -- View this message in context: http://old.nabble.com/Harbour-next-major-release-wishlist-tp26907413p26916490.html Sent from the Harbour - Dev mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour -- View this message in context: http://n2.nabble.com/Harbour-next-major-release-wishlist-tp4210572p4215340.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour