Funcky para 32 bits
Publicado: Mié Feb 23, 2005 3:33 am
Hola a todos
Se acuerdan de Funcky ????
La famosa biblioteca de funciones para Clipper con mas de 1000 funciones
????
Bueno, pues ahora esta de regreso, con muchas mas funciones, objetos y
componentes. Ahora es posible, crear, borrar directorios, buscar
archivos dentro del disco, conectar y desconectar unidades de red, subir
y descargar archivos via FTP, enviar mensajes de correo, hacer
manipulacion bit a bit, en fin, un monton de cosas todas perfectamente
bien documentadas.
Funcky es ahora un componente COM, que puede ser llamado facilmente
desde sus programas (x)Harbour, tanto en modo de terminal o con
cualquier libreria grafica XAILER incluido, por medio de OLE, realmente
es super simple utilizarla, he aqui algunos ejemplos:
Para obtener la lista de impresoras del sistema y saber que impresora es
la predeterminada:
aPrinters := {}
oFunckyPrinters := TOleAuto():New("FUNCkyFindPrinter")
oFunckyPrinters:FindFirst()
DO WHILE oFunckyPrinters:Found()
AADD(aPrinters,oFunckyPrinters:Name())
oFunckyPrinters:FindNext()
ENDDO
MsgList(aPrinters)
MsgInfo(oFuncky:DefaultPrinter(),"Default Printer...")
Mandar un mail ??? sencillisimo:
oFunckyMail := TOleAuto():New("FUNCkySMTP")
oFunckyMail:Server := "servidor.correo.saliente"
oFunckyMail:FromName := "Rene Flores"
oFunckyMail:FromAddress := "[email=tu.dir@tu.dominio..com]tu.dir@tu.dominio..com[/email]"
oFunckyMail:Subject := "Enviado desde Funcky"
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..."
oFunckyMail:ToName := "Cibertec Informacion a Clientes"
oFunckyMail:ToAddress := "info@ciber-tec.com"
IF oFunckyMail:Send()
? "Enviado con Exito"
ELSE
MsgStop("problemas en el envio de mail")
ENDIF
Pueden descargar una version de evaluacion de Funcky de www.funcky.com
Saludos
Rene Flores
http://www.ciber-tec.com
Se acuerdan de Funcky ????
La famosa biblioteca de funciones para Clipper con mas de 1000 funciones
????
Bueno, pues ahora esta de regreso, con muchas mas funciones, objetos y
componentes. Ahora es posible, crear, borrar directorios, buscar
archivos dentro del disco, conectar y desconectar unidades de red, subir
y descargar archivos via FTP, enviar mensajes de correo, hacer
manipulacion bit a bit, en fin, un monton de cosas todas perfectamente
bien documentadas.
Funcky es ahora un componente COM, que puede ser llamado facilmente
desde sus programas (x)Harbour, tanto en modo de terminal o con
cualquier libreria grafica XAILER incluido, por medio de OLE, realmente
es super simple utilizarla, he aqui algunos ejemplos:
Para obtener la lista de impresoras del sistema y saber que impresora es
la predeterminada:
aPrinters := {}
oFunckyPrinters := TOleAuto():New("FUNCkyFindPrinter")
oFunckyPrinters:FindFirst()
DO WHILE oFunckyPrinters:Found()
AADD(aPrinters,oFunckyPrinters:Name())
oFunckyPrinters:FindNext()
ENDDO
MsgList(aPrinters)
MsgInfo(oFuncky:DefaultPrinter(),"Default Printer...")
Mandar un mail ??? sencillisimo:
oFunckyMail := TOleAuto():New("FUNCkySMTP")
oFunckyMail:Server := "servidor.correo.saliente"
oFunckyMail:FromName := "Rene Flores"
oFunckyMail:FromAddress := "[email=tu.dir@tu.dominio..com]tu.dir@tu.dominio..com[/email]"
oFunckyMail:Subject := "Enviado desde Funcky"
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..."
oFunckyMail:ToName := "Cibertec Informacion a Clientes"
oFunckyMail:ToAddress := "info@ciber-tec.com"
IF oFunckyMail:Send()
? "Enviado con Exito"
ELSE
MsgStop("problemas en el envio de mail")
ENDIF
Pueden descargar una version de evaluacion de Funcky de www.funcky.com
Saludos
Rene Flores
http://www.ciber-tec.com