duda con FileInstall
duda con FileInstall
Hola, gente de España, esto me tiene complicado desde la era de piedra, la info teorica es esta:
Puedes utilizar el FileCopy("dirección del archivo a copiar","dirección de donde lo vas a copiar").
También puedes usar el FileInstall() para incorporar el archivo al script cuando lo compiles (Ideal si es para otra computadora), FileInstall("dirección del archivo","dirección de donde lo vas a extraer").
hay un programita, muestra una imagen determinada al apretar el boton ver, entonces uso el koda para la estetica, y con el escite escribo el code, entonces hago asi:
$destination = @TempDir & "\mySplash.jpeg"
FileInstall("C:\Documents and Settings\Administrador\Mis documentos\Mis imágenes\cara 2009/1.jpg", $destination)
SplashImageOn("Llegada mia ", $destination ,400,323,-1,-1,16)
Sleep(5000)
SplashOff()
pero solo funciona en mi pc, si lo uso en otra computadora sale en blanco
entonces yo pensaba el:
FileCopy("D:\Mis Doc\visual basic/cara.jpeg","D:\Mis Doc\visual basic\santos"). Y seguido el
SplashImageOn
para tomar la imagen del archivo de mi computadora, copiarlo a D:\Mis Doc\visual basic\santos y de ahi usar esa imagen ya copiada para el SplashImageOn (en caso de estar ejecutando el programa desde otra computadora
pero todo me tira error, estoy mas mareado que ruso con 10 botellas de vodka ya tomadas , me explican el orden de como lo hago, tengo la imagen en una carpeta, la tomo y la instalo en otra carpeta, ya instalada en otra carpeta leo esa imagen y la muestro: eso quiero hacer.
gracias por la paciencia, espero anden bien.
Puedes utilizar el FileCopy("dirección del archivo a copiar","dirección de donde lo vas a copiar").
También puedes usar el FileInstall() para incorporar el archivo al script cuando lo compiles (Ideal si es para otra computadora), FileInstall("dirección del archivo","dirección de donde lo vas a extraer").
hay un programita, muestra una imagen determinada al apretar el boton ver, entonces uso el koda para la estetica, y con el escite escribo el code, entonces hago asi:
$destination = @TempDir & "\mySplash.jpeg"
FileInstall("C:\Documents and Settings\Administrador\Mis documentos\Mis imágenes\cara 2009/1.jpg", $destination)
SplashImageOn("Llegada mia ", $destination ,400,323,-1,-1,16)
Sleep(5000)
SplashOff()
pero solo funciona en mi pc, si lo uso en otra computadora sale en blanco
entonces yo pensaba el:
FileCopy("D:\Mis Doc\visual basic/cara.jpeg","D:\Mis Doc\visual basic\santos"). Y seguido el
SplashImageOn
para tomar la imagen del archivo de mi computadora, copiarlo a D:\Mis Doc\visual basic\santos y de ahi usar esa imagen ya copiada para el SplashImageOn (en caso de estar ejecutando el programa desde otra computadora
pero todo me tira error, estoy mas mareado que ruso con 10 botellas de vodka ya tomadas , me explican el orden de como lo hago, tengo la imagen en una carpeta, la tomo y la instalo en otra carpeta, ya instalada en otra carpeta leo esa imagen y la muestro: eso quiero hacer.
gracias por la paciencia, espero anden bien.
Re: duda con FileInstall
Hola. Coloca la imagen en el mismo directorio de tu aplicacion con el nombre imagen.jpg compila este código corre el programa y dime si te funciona.
Saludos
Código: Seleccionar todo
FileInstall("imagen.jpg",@TempDir & "\",1)
SplashImageOn("Prueba",@TempDir & "\imagen.jpg")
Sleep(5000)
Exit
- ............................................
......................................
Re: duda con FileInstall
Dany escribió:Hola. Coloca la imagen en el mismo directorio de tu aplicacion con el nombre imagen.jpg compila este código corre el programa y dime si te funciona.
SaludosCódigo: Seleccionar todo
FileInstall("imagen.jpg",@TempDir & "\",1) SplashImageOn("Santos",@TempDir & "\imagen.jpg") Sleep(5000) Exit
Gracias !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Le cambie las dimensiones de la imagen a mostrar, quedó así:
SplashImageOn("Prueba",@TempDir & "\imagen.jpg" ,399,465,-1,-1,16)
Sale perfecto, prox subo el software, saludos y mil gracias, me salvaste el alma literalmente.
Re: duda con FileInstall
De nada :)
Saludos
Saludos
- ............................................
......................................
Re: duda con FileInstall
Hago una nueva pregunta:
y para el caso de la imagen de fondo del programa cómo le aplico el fileinstall, porque yo lo tenia asi:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\documents and settings\administrador\mis documentos\mis imágenes\dakar 2009\dakar.kxf
$Form1_1 = GUICreate("Dakar Argentina-Chile 2009", 633, 444, 186, 121)
$Label1 = GUICtrlCreateLabel("Ayuda:", 24, 40, 37, 17)
GUICtrlSetBkColor(-1, 0x808080)
$Button1 = GUICtrlCreateButton("info", 16, 64, 49, 17, 0)
GUICtrlSetCursor (-1, 0)
$Button2 = GUICtrlCreateButton("versión", 72, 64, 57, 17, 0)
$Button3 = GUICtrlCreateButton("Lic. de Uso", 24, 88, 81, 17, 0)
$Button4 = GUICtrlCreateButton("visitar web", 568, 288, 57, 33, 0)
GUICtrlSetCursor (-1, 0)
$Button5 = GUICtrlCreateButton("Salir", 8, 424, 57, 17, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetCursor (-1, 3)
$Label2 = GUICtrlCreateLabel("Presentación de los vehículos:", 168, 88, 179, 19)
GUICtrlSetFont(-1, 9, 800, 2, "Arial")
GUICtrlSetBkColor(-1, 0xFF8040)
$Button6 = GUICtrlCreateButton("ver", 216, 112, 49, 17, 0)
GUICtrlSetBkColor(-1, 0xFF8040)
GUICtrlSetCursor (-1, 0)
$Label3 = GUICtrlCreateLabel("Imágenes de la competencia:", 408, 112, 192, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFF8040)
$Button7 = GUICtrlCreateButton("ver", 480, 136, 49, 17, 0)
GUICtrlSetBkColor(-1, 0xFF8040)
GUICtrlSetCursor (-1, 0)
$Label4 = GUICtrlCreateLabel(" del autor", 568, 320, 60, 22)
GUICtrlSetFont(-1, 9, 800, 0, "Trebuchet MS")
$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Administrador\Mis documentos\Mis imágenes\dakar 2009\g4 puesto 12.jpg", 8, 8, 617, 433, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
más todo el código de ver la imagen y demás pero cuando lo ponía en otra pc, el programa sale en fondo blanco, o sea no sale nada la imagen.
ahi le tendría que aplicar el fileinstall ??????? :
$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Administrador\Mis documentos\Mis imágenes\dakar 2009\g4 puesto 12.jpg", 8, 8, 617, 433, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
y para el caso de la imagen de fondo del programa cómo le aplico el fileinstall, porque yo lo tenia asi:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\documents and settings\administrador\mis documentos\mis imágenes\dakar 2009\dakar.kxf
$Form1_1 = GUICreate("Dakar Argentina-Chile 2009", 633, 444, 186, 121)
$Label1 = GUICtrlCreateLabel("Ayuda:", 24, 40, 37, 17)
GUICtrlSetBkColor(-1, 0x808080)
$Button1 = GUICtrlCreateButton("info", 16, 64, 49, 17, 0)
GUICtrlSetCursor (-1, 0)
$Button2 = GUICtrlCreateButton("versión", 72, 64, 57, 17, 0)
$Button3 = GUICtrlCreateButton("Lic. de Uso", 24, 88, 81, 17, 0)
$Button4 = GUICtrlCreateButton("visitar web", 568, 288, 57, 33, 0)
GUICtrlSetCursor (-1, 0)
$Button5 = GUICtrlCreateButton("Salir", 8, 424, 57, 17, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetCursor (-1, 3)
$Label2 = GUICtrlCreateLabel("Presentación de los vehículos:", 168, 88, 179, 19)
GUICtrlSetFont(-1, 9, 800, 2, "Arial")
GUICtrlSetBkColor(-1, 0xFF8040)
$Button6 = GUICtrlCreateButton("ver", 216, 112, 49, 17, 0)
GUICtrlSetBkColor(-1, 0xFF8040)
GUICtrlSetCursor (-1, 0)
$Label3 = GUICtrlCreateLabel("Imágenes de la competencia:", 408, 112, 192, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFF8040)
$Button7 = GUICtrlCreateButton("ver", 480, 136, 49, 17, 0)
GUICtrlSetBkColor(-1, 0xFF8040)
GUICtrlSetCursor (-1, 0)
$Label4 = GUICtrlCreateLabel(" del autor", 568, 320, 60, 22)
GUICtrlSetFont(-1, 9, 800, 0, "Trebuchet MS")
$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Administrador\Mis documentos\Mis imágenes\dakar 2009\g4 puesto 12.jpg", 8, 8, 617, 433, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
más todo el código de ver la imagen y demás pero cuando lo ponía en otra pc, el programa sale en fondo blanco, o sea no sale nada la imagen.
ahi le tendría que aplicar el fileinstall ??????? :
$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Administrador\Mis documentos\Mis imágenes\dakar 2009\g4 puesto 12.jpg", 8, 8, 617, 433, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Re: duda con FileInstall
haces lo mismo pero colocale otro nombre y ya.
Saludos
Saludos
- ............................................
......................................
Re: duda con FileInstall
el soft muestra estampitas bendecidas escaneadas de san expedito (santo de causas urgentes) y san benito (santo protector del mal), esta dirigido a aquellos que esten conviviendo con el mal y necesiten la ayuda de estos santos, tiene fondo blanco porque cuando se encuentra rodeado de oscuridad lo primero que necesitamos es luz, sólo para creyentes, son santos católicos.
http://www.mediafire.com/download/jadpi ... are+pc.exe
http://www.mediafire.com/download/jadpi ... are+pc.exe