xHarbour & Funcky ?

Dear Friends:

Has anyone here integrated a later version of Funcky with xHarbour, or
managed a work-around ??

(btw, I talked with Brian Feldman of Grafxsoft yesterday. He said that
he hadn't been in contact with Dirk Lesko (Funcky-man) for two years. He
*thought* that Funcky had shutdown. Brian also said he could sell me a
version of Funcky (6.0) but he had no idea if it would work with xHarbour or
not)

Any thoughts ??
--
Mel Smith

"Mel Smith" <medsyntel@aol.com> wrote in message
news:6hiiu4Fm54tpU1@mid.individual.net...
> Dear Friends:
>
> Has anyone here integrated a later version of Funcky with xHarbour, or
> managed a work-around ??
>
> (btw, I talked with Brian Feldman of Grafxsoft yesterday. He said that
> he hadn't been in contact with Dirk Lesko (Funcky-man) for two years. He
> *thought* that Funcky had shutdown. Brian also said he could sell me a
> version of Funcky (6.0) but he had no idea if it would work with xHarbour
> or not)
>
> Any thoughts ??
> --
> Mel Smith
Hi Mel,

What functions do you need from Funcky? Frank Demont has uploaded some
Funcky replacements on xHarbour.com.

http://www.xharbour.com/xhc/index.as...i=7&show_sub=1

But you probably have checked these out already.

Mel:

I use Funcky *A LOT* in all my (x)Harbour projects.

Here you are some samples:

BTW: Funcky demo doesn't have all the features listed here, you may take
a look into the manual to see which methods area available in the demo
(SMTP mailing sure is).


FUNCTION Main()
PUBLIC oFuncky := TOLeAuto():New("Funcky") // funcky common routines


/* some basic samples */

? oFuncky:Capitalize("mr. john doe")
? oFuncky:AppName()
? oFuncky:AllDrives()
? "The system name is: " + oFUNCky:ComputerName()
? "Your user name is: " + oFUNCky:UserName()
? "Your full name is: "+oFUNCky:UserFullName(oFUNCky:UserName())
? oFuncky:NumToRoman(1967)
? oFuncky:Whois("ciber-tec.com")
? oFuncky:CreditCardType("XXXX-9890-XXXX-2697") // returns "VISA"
? oFuncky:CreditCardType("4540-XXXX-2841-XXXX") // returns "MASTER CARD"

/* some complex samples */

/* Get all the network cards in the pc */

nCount := oFUNCky:NicCount()

// Loop around to get them all
For X := 1 To nCount

? Str := oFUNCky:NicDescription(X) + " Address: " +
oFUNCky:NicAddress(X)

Next

/* get all the IPs available for the computer */
nValor := 1
DO WHILE !EMPTY(oFuncky:IpAddress(nVAlor))
? oFuncky:IpAddress(nValor)
nValor++
ENDDO

? oFuncky:NSLookup(oFuncky:IpAddress(1))

/* samples with other classes included with Funcky */

/* Make a trace route to some domain, this requieres a new object*/

oFunckyTrace := TOleAuto():New("FUNCkyTraceRoute") // new object

nTotal = 0
aTrace := {}
oFunckyTrace:FindFirst("ciber-tec.com")

DO WHILE oFunckyTrace:Found()
AADD(aTrace,oFunckyTrace:Name+"
"+ALLTRIM(STR(oFunckyTrace:RTT))+" ms")
oFunckyTrace:FindNext()
ENDDO
AChoice (0,0,24,79, aTrace)


/* Get all the printers installed this requieres a new object*/
aPrinters := {}
oFunckyPrinters := TOleAuto():New("FUNCkyFindPrinter") // new object

? oFunckyefaultPrinter() // This is the Default Printer

oFunckyPrinters:FindFirst()
DO WHILE oFunckyPrinters:Found()
AADD(aPrinters,oFunckyPrinters:Name())
oFunckyPrinters:FindNext()
ENDDO

Achoice(0,0,24,79, aPrinters) // these are all the printers intalled

/* sending a e-mail this sample works SUPERB !!!*/


oFunckyMail := TOleAuto():New("FUNCkySMTP")

oFunckyMail:Server := "mail.server.name"
oFunckyMail:FromName := "Your name heres"
oFunckyMail:FromAddress := "your.email @ address.here"
oFunckyMail:Subject := "Mail subjet"
oFunckyMail:Message := "Hey guys! I had a really RAD time making " +
CRLF +;
"the movie and I miss you guys. I am throwing "+ CRLF +;
"a party this weekend and you are all invited. " + CRLF +;
"Dont dis me, see ya soon... mua!"
oFunckyMail:ToName := "Destination name"
oFunckyMail:ToAddress := "destination@address"

IF oFunckyMail:Send()
? "Success sending mail"
ELSE
? "Ooops, there's a problem sending mail, the mail server
responds:"+ oFunckyMail:ErrorMessage
ENDIF

RETURN (.T.)

Please contact Dirk directly at: support@funcky.com

Regards

Rene Flores
http://www.ciber-tec.com

Smith escribió:
> Dear Friends:
>
> Has anyone here integrated a later version of Funcky with xHarbour, or
> managed a work-around ??
>
> (btw, I talked with Brian Feldman of Grafxsoft yesterday. He said that
> he hadn't been in contact with Dirk Lesko (Funcky-man) for two years. He
> *thought* that Funcky had shutdown. Brian also said he could sell me a
> version of Funcky (6.0) but he had no idea if it would work with xHarbour or
> not)
>
> Any thoughts ??

Very interesting...
Thanks for the info.

Reinaldo Henrique


On 26 ago, 13:53, Rene Flores <rfloresNOS...@ciber-tec.com> wrote:
> Mel:
>
> I use Funcky *A LOT* in all my (x)Harbour projects.
>
> Here you are some samples:
>
> BTW: Funcky demo doesn't have all the features listed here, you may take
> a look into the manual to see which methods area available in the demo
> (SMTP mailing sure is).
>
> FUNCTION Main()
> * * PUBLIC oFuncky := TOLeAuto():New("Funcky") // funcky common routines
>
> * * /* some basic samples */
>
> * * ? oFuncky:Capitalize("mr. john doe")
> * * ? oFuncky:AppName()
> * * ? oFuncky:AllDrives()
> * * ? "The system name is: " + oFUNCky:ComputerName()
> * * ? "Your user name is: " + oFUNCky:UserName()
> * * ? "Your full name is: "+oFUNCky:UserFullName(oFUNCky:UserName())
> * * ? oFuncky:NumToRoman(1967)
> * * ? oFuncky:Whois("ciber-tec.com")
> * * ? oFuncky:CreditCardType("XXXX-9890-XXXX-2697") // returns "VISA"
> * * ? oFuncky:CreditCardType("4540-XXXX-2841-XXXX") // returns "MASTER CARD"
>
> * * /* some complex samples */
>
> * * /* Get all the network cards in the pc */
>
> * * nCount := oFUNCky:NicCount()
>
> * * // Loop around to get them all
> * * For X := 1 To nCount
>
> * * * *? Str := oFUNCky:NicDescription(X) + *" Address: " +
> oFUNCky:NicAddress(X)
>
> * * Next
>
> * * /* get all the IPs available for the computer */
> * * nValor := 1
> * * DO WHILE !EMPTY(oFuncky:IpAddress(nVAlor))
> * * * *? oFuncky:IpAddress(nValor)
> * * * *nValor++
> * * ENDDO
>
> * * ? oFuncky:NSLookup(oFuncky:IpAddress(1))
>
> * * /* samples with other classes included with Funcky */
>
> * * /* Make a trace route to some domain, this requieres a new object*/
>
> * * oFunckyTrace := TOleAuto():New("FUNCkyTraceRoute") // new object
>
> * * nTotal = 0
> * * aTrace := {}
> * * oFunckyTrace:FindFirst("ciber-tec.com")
>
> * * DO WHILE oFunckyTrace:Found()
> * * * *AADD(aTrace,oFunckyTrace:Name+"
> "+ALLTRIM(STR(oFunckyTrace:RTT))+" ms")
> * * * *oFunckyTrace:FindNext()
> * * ENDDO
> * * AChoice (0,0,24,79, aTrace)
>
> * */* Get all the printers installed this requieres a new object*/ * * *
> * *aPrinters := {}
> * *oFunckyPrinters := TOleAuto():New("FUNCkyFindPrinter") // new object
>
> * *? *oFunckyefaultPrinter() // This is the Default Printer
>
> * *oFunckyPrinters:FindFirst()
> * *DO WHILE oFunckyPrinters:Found()
> * * * *AADD(aPrinters,oFunckyPrinters:Name())
> * * * *oFunckyPrinters:FindNext()
> * *ENDDO
>
> * *Achoice(0,0,24,79, aPrinters) // these are all the printers intalled
>
> * * /* sending a e-mail this sample works SUPERB !!!*/
>
> * * oFunckyMail := TOleAuto():New("FUNCkySMTP")
>
> * * oFunckyMail:Server := "mail.server.name"
> * * oFunckyMail:FromName := "Your name heres"
> * * oFunckyMail:FromAddress := "your.email @ address.here"
> * * oFunckyMail:Subject := "Mail subjet"
> * * oFunckyMail:Message := "Hey guys! I had a really RAD time making " +
> CRLF +;
> * * * * * * * * "the movie and I miss you guys. I am throwing "+ CRLF +;
> * * * * * * * * "a party this weekend and you are all invited. " + CRLF +;
> * * * * * * * * "Dont dis me, see ya soon... mua!"
> * * oFunckyMail:ToName := "Destination name"
> * * oFunckyMail:ToAddress := "destination@address"
>
> * * IF oFunckyMail:Send()
> * * * *? "Success sending mail"
> * * ELSE
> * * * *? "Ooops, there's a problem sending mail, the mail server
> responds:"+ oFunckyMail:ErrorMessage
> * * ENDIF
>
> RETURN (.T.)
>
> Please contact Dirk directly at: supp...@funcky.com
>
> Regards
>
> Rene Floreshttp://www.ciber-tec.com
>
> * Smith escribió:
>
>
>
> > Dear Friends:
>
> > * * Has anyone here integrated a later version of Funcky with xHarbour, or
> > managed a work-around ??
>
> > * * (btw, I talked with Brian Feldman of Grafxsoft yesterday. He said that
> > he hadn't been in contact with Dirk Lesko (Funcky-man) for two years. He
> > *thought* that Funcky had shutdown. Brian also said he could sell me a
> > version of Funcky (6.0) but he had no idea if it would work with xHarbour or
> > not)
>
> > Any thoughts ??- Ocultar texto entre aspas -
>
> - Mostrar texto entre aspas -

Bill & Rene:

Thanks for the info.

Bill:
Many different functions are used in this app.

I'm trying to convert and *old* Clipper/Funcky app (circa 1991) to
xHarbour for a lady Gun Shop owner in Texas. Its very frustrating to do
this evaluation/conversion (*and* I've done three complex ones already !)

Rene:

Which Version of Funcky do you use ?? (btw, Brian Feldman says he can
sell me Version 6.0 but doesn't know if it will work with xHarbour).

Any more thoughts ??

-Mel Smith

> I'm trying to convert and *old* Clipper/Funcky app (circa 1991) to
> xHarbour for a lady Gun Shop owner in Texas. Its very frustrating to do
> this evaluation/conversion (*and* I've done three complex ones already !)
>
Out of curiosity, it's the one that was posted in this newsgroup a while
back ?

Francesco

"FP" <mc8647__rimuovo@mclink.it> wrote in message
news:g91trk$2v3n$1@newsreader1.mclink.it...
> Out of curiosity, it's the one that was posted in this newsgroup a while
> back ?
>
> Francesco

Yes !

(But it much more complex and 'hidden' than I first expected -- but I
must get to the point where I can evaluate to this client *if* I'm capable
of doing it, and what it would cost in time and dollars. I'm not at the
point that I can say if I'm willing or not to do it. A *good* answer to the
Funcky problem will help me decide)

The program modules, .rmk files, .lnk files, etc, etc are hidden in deep
sub-dirs on one of her network machines to an extent that even she doesn't
know much about. But, finally, I have all the .prgs (I believe) and have got
a Clipper version compiled, linked but crashes with an exception error. So,
it seems I'm marching backward but I don't want to surrender yet ) )

btw, I started with a simple xHarbour version of one of her simpler
executables. But even *that* came apart because of an old 1991 Funcky
conflict.

-Mel Smith

Mel,

>The program modules, .rmk files, .lnk files, etc, etc are hidden in deep
>sub-dirs on one of her network machines to an extent that even she doesn't
>know much about. But, finally, I have all the .prgs (I believe) and have got
>a Clipper version compiled, linked but crashes with an exception error. So,
>it seems I'm marching backward but I don't want to surrender yet ) )

Real or protected mode? Which funcky version?

> btw, I started with a simple xHarbour version of one of her simpler
>executables. But even *that* came apart because of an old 1991 Funcky
>conflict.

Have you tried to link the Clipper version without Funcky to get a
list of all the missing externals? Could you post such a list so we
can see what functions you need?

Regards,
Klas

-------
klas dot engwall at engwall dot com

http://www.engwall.com/clipper/

The LFN Library for Clipper
The LanMan Library for Clipper
The NFPAT1A Timeslice release patch for the Nanforum Toolkit

Kls said:


> Real or protected mode? Which funcky version?
>

Protected with Funcky Version 2.6

>> btw, I started with a simple xHarbour version of one of her simpler
>>executables. But even *that* came apart because of an old 1991 Funcky
>>conflict.

Yes, I started without Funcky and without another old .lib by one of her
long-gone programmers. Result many needed externals (and that was three days
ago -- ancient history). But it seemed like a lot of 'mice-related' stuff
which would be 'ripped-out' when windowizing anyway.

>
> Have you tried to link the Clipper version without Funcky to get a
> list of all the missing externals? Could you post such a list so we
> can see what functions you need?

Klas:

Here is the .lnk script (using an old one I had for a project I built
several years ago). Mostly all I did was modify the FILE entries, then add
the Funcky libs near the bottom. I just remmed out a few minutes ago the
Funcky V2.6 'lib' calls and ran the link again. I'll show the link log at
the bottom

STACK 8192
NOBELL
BLINKER INCREMENTAL OFF
BLINKER EXECUTABLE CLIPPER //E0;F105;
BLINKER EXECUTABLE EXTENDED
BLINKER EXECUTABLE NODELETE
BLINKER MEMORY CLEAR 0
BLINKER MESSAGE WINK LEFT
PACKDATA
PACKCODE
NOEXTDIC
BLINKER EXECUTABLE COMPRESS
BEGINAREA
FILE OBJ\UTIL
FILE OBJ\COMMON
FILE OBJ\UTIL1
FILE OBJ\COM_SCR
FILE OBJ\PACKIT.OBJ
FILE OBJ\REBUILD
FILE OBJ\I_MENU
FILE OBJ\OPEN
FILE OBJ\SET_UTIL
FILE OBJ\BACKGROU
FILE OBJ\EYECOLOR
FILE OBJ\EYE_UP
FILE OBJ\FUN
FILE OBJ\LOCKS
FILE OBJ\PASS
FILE OBJ\P_MENU
FILE OBJ\P_TIME
FILE OBJ\RRCGFUNC
FILE OBJ\SPBOX
FILE OBJ\TS_BOX
FILE OBJ\WAIT
FILE OBJ\WEK_YEAR
FILE OBJ\TS_BROWS
FILE OBJ\INSTALL
FILE OBJ\TS_PSCRN
FILE OBJ\TSPROMPT
FILE OBJ\TS_HELP
FILE OBJ\TS_SCROL
FILE OBJ\UPDATE
FILE OBJ\NSETCOLO
FILE OBJ\CHG_PRT
FILE C:\CLIPMORE\52\CM52.OBJ
ALLOCATE C:\CLIPMORE\52\CM52
FILE C:\COMIX\52\CMX52.OBJ
FILE C:\COMIX\52\CMXDBT52.OBJ
ALLOCATE C:\COMIX\52\CMX52
ENDAREA

FILE C:\CATOOLS\OBJ\CTUSP.OBJ
SEARCH \BLINKER5\LIB\BLXCLP52
# note the funcky lbs I just removed below
#LIB \FUNCKY\LIB\FUNCKY52
#LIB \FUNCKY\LIB\FUNCKYVM
#LIB \FUNCKY\LIB\FUNCKY2X
LIB \CLIPUTIL\OSLIB\LIB\OSLIB
LIB \CATOOLS\LIB\CTP52
@C:\CLIPMORE\CM.LNK
@C:\COMIX\CMX.LNK
@C:\BLINKER5\CLP\LNK\CL520MID.LNK # HAS DBFNTX REMOVED
LIB \CLIPUTIL\NANFORUM\NANFOR
LIB \CLIPUTIL\NANFORUM\CPMI
OUTPUT UTILINIT


------ here's the link log

I removed the column on the left with said
Blinker 1115: error

OBJ\COMMON.OBJ(COMMON) : 'MOUSE' : unresolved external
OBJ\COMMON.OBJ(COMMON) : 'M_DATA' : unresolved external
OBJ\COMMON.OBJ(COMMON) : 'ISMOUSE' : unresolved external
OBJ\COMMON.OBJ(COMMON) : 'M_TRAPNEW' : unresolved external
OBJ\COMMON.OBJ(COMMON) : 'MOUSETRAP' : unresolved external
OBJ\COMMON.OBJ(COMMON) : 'M_TRAPSET' : unresolved external
OBJ\COMMON.OBJ(COMMON) : 'M_TRAPFREE' : unresolved external
OBJ\UTIL1.OBJ(UTIL1) : 'CSRPUT' : unresolved external
OBJ\UTIL1.OBJ(UTIL1) : 'PRINT' : unresolved external
OBJ\UTIL1.OBJ(UTIL1) : 'STRCENTER' : unresolved external
OBJ\UTIL1.OBJ(UTIL1) : 'M_MENU' : unresolved external
OBJ\UTIL1.OBJ(UTIL1) : 'NSTUFF' : unresolved external
OBJ\UTIL1.OBJ(UTIL1) : 'CSRON' : unresolved external
OBJ\BACKGROU.OBJ(BACKGROU) : 'M_CSROFF' : unresolved external
OBJ\BACKGROU.OBJ(BACKGROU) : 'SETATTR' : unresolved external
OBJ\BACKGROU.OBJ(BACKGROU) : 'DECRYPT' : unresolved external
OBJ\BACKGROU.OBJ(BACKGROU) : 'M_CSRON' : unresolved external
OBJ\EYECOLOR.OBJ(EYECOLOR) : 'WAITKEY' : unresolved external
OBJ\EYE_UP.OBJ(EYE_UP) : 'CSROFF' : unresolved external
OBJ\FUN.OBJ(FUN) : 'BEEP' : unresolved external
OBJ\FUN.OBJ(FUN) : 'M_PROMPT' : unresolved external
OBJ\P_MENU.OBJ(P_MENU) : 'ENCRYPT' : unresolved external
OBJ\TS_BOX.OBJ(TS_BOX) : 'BOX' : unresolved external
OBJ\INSTALL.OBJ(INSTALL) : 'ISFILE' : unresolved external
OBJ\TS_PSCRN.OBJ(TS_PSCRN) : 'ALLTRIMLEN' : unresolved external
OBJ\TSPROMPT.OBJ(TSPROMPT) : 'ALEN' : unresolved external
OBJ\TSPROMPT.OBJ(TSPROMPT) : 'AMAXSTRLEN' : unresolved external
OBJ\TS_HELP.OBJ(TS_HELP) : 'M_TITLE' : unresolved external
OBJ\TS_HELP.OBJ(TS_HELP) : 'MX_VIEW' : unresolved external
OBJ\NSETCOLO.OBJ(NSETCOLO) : 'ATTRTOA' : unresolved external
OBJ\NSETCOLO.OBJ(NSETCOLO) : 'ATOATTR' : unresolved external
OBJ\NSETCOLO.OBJ(NSETCOLO) : 'STREXTRACT' : unresolved external

"Mel Smith" <medsyntel@aol.com> wrote in message
news:6hjur4Fmh697U1@mid.individual.net...
> Kls said:
>
>
>> Real or protected mode? Which funcky version?
>>
>
> Protected with Funcky Version 2.6
>
> OBJ\COMMON.OBJ(COMMON) : 'MOUSE' : unresolved external
> OBJ\COMMON.OBJ(COMMON) : 'M_DATA' : unresolved external
> OBJ\COMMON.OBJ(COMMON) : 'ISMOUSE' : unresolved external
> OBJ\COMMON.OBJ(COMMON) : 'M_TRAPNEW' : unresolved external
> OBJ\COMMON.OBJ(COMMON) : 'MOUSETRAP' : unresolved external
> OBJ\COMMON.OBJ(COMMON) : 'M_TRAPSET' : unresolved external
> OBJ\COMMON.OBJ(COMMON) : 'M_TRAPFREE' : unresolved external
> OBJ\UTIL1.OBJ(UTIL1) : 'CSRPUT' : unresolved external
> OBJ\UTIL1.OBJ(UTIL1) : 'PRINT' : unresolved external
> OBJ\UTIL1.OBJ(UTIL1) : 'STRCENTER' : unresolved external
> OBJ\UTIL1.OBJ(UTIL1) : 'M_MENU' : unresolved external
> OBJ\UTIL1.OBJ(UTIL1) : 'NSTUFF' : unresolved external
> OBJ\UTIL1.OBJ(UTIL1) : 'CSRON' : unresolved external
> OBJ\BACKGROU.OBJ(BACKGROU) : 'M_CSROFF' : unresolved external
> OBJ\BACKGROU.OBJ(BACKGROU) : 'SETATTR' : unresolved external
> OBJ\BACKGROU.OBJ(BACKGROU) : 'DECRYPT' : unresolved external
> OBJ\BACKGROU.OBJ(BACKGROU) : 'M_CSRON' : unresolved external
> OBJ\EYECOLOR.OBJ(EYECOLOR) : 'WAITKEY' : unresolved external
> OBJ\EYE_UP.OBJ(EYE_UP) : 'CSROFF' : unresolved external
> OBJ\FUN.OBJ(FUN) : 'BEEP' : unresolved external
> OBJ\FUN.OBJ(FUN) : 'M_PROMPT' : unresolved external
> OBJ\P_MENU.OBJ(P_MENU) : 'ENCRYPT' : unresolved external
> OBJ\TS_BOX.OBJ(TS_BOX) : 'BOX' : unresolved external
> OBJ\INSTALL.OBJ(INSTALL) : 'ISFILE' : unresolved external
> OBJ\TS_PSCRN.OBJ(TS_PSCRN) : 'ALLTRIMLEN' : unresolved external
> OBJ\TSPROMPT.OBJ(TSPROMPT) : 'ALEN' : unresolved external
> OBJ\TSPROMPT.OBJ(TSPROMPT) : 'AMAXSTRLEN' : unresolved external
> OBJ\TS_HELP.OBJ(TS_HELP) : 'M_TITLE' : unresolved external
> OBJ\TS_HELP.OBJ(TS_HELP) : 'MX_VIEW' : unresolved external
> OBJ\NSETCOLO.OBJ(NSETCOLO) : 'ATTRTOA' : unresolved external
> OBJ\NSETCOLO.OBJ(NSETCOLO) : 'ATOATTR' : unresolved external
> OBJ\NSETCOLO.OBJ(NSETCOLO) : 'STREXTRACT' : unresolved external
>
Mel,

Here's a link to an online listing for the missing functions and their
calling parameters. I have the ng files that came with v2.6 if you can't
find the functions descriptions on line. Dave Pearson has an ecellent reader
called web on his web site for the guides.