duda con FileInstall

Pregunta Sin Miedo no te cortes cualquier cosa para empezar - Autoit se comienza facilmente.Para Ordenes o Comandos sueltos. Ver nota como preguntar.
Responder
bath_hack
Hacker del Foro
Mensajes: 108
Registrado: 19 Sep 2008, 20:25

duda con FileInstall

Mensaje por bath_hack »

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 :smt017 , 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.
Avatar de Usuario
Dany
Profesional del Autoit
Mensajes: 651
Registrado: 28 Mar 2012, 22:49

Re: duda con FileInstall

Mensaje por Dany »

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.

Código: Seleccionar todo

FileInstall("imagen.jpg",@TempDir & "\",1)
SplashImageOn("Prueba",@TempDir & "\imagen.jpg")
Sleep(5000)
Exit
Saludos :smt027
  • ............................................Imagen
    ......................................Imagen
bath_hack
Hacker del Foro
Mensajes: 108
Registrado: 19 Sep 2008, 20:25

Re: duda con FileInstall

Mensaje por bath_hack »

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.

Código: Seleccionar todo

FileInstall("imagen.jpg",@TempDir & "\",1)
SplashImageOn("Santos",@TempDir & "\imagen.jpg")
Sleep(5000)
Exit
Saludos :smt027

Gracias !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! :smt038

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.

:smt027
Avatar de Usuario
Dany
Profesional del Autoit
Mensajes: 651
Registrado: 28 Mar 2012, 22:49

Re: duda con FileInstall

Mensaje por Dany »

De nada :)

Saludos :smt027
  • ............................................Imagen
    ......................................Imagen
bath_hack
Hacker del Foro
Mensajes: 108
Registrado: 19 Sep 2008, 20:25

Re: duda con FileInstall

Mensaje por bath_hack »

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))
:smt017
Avatar de Usuario
Dany
Profesional del Autoit
Mensajes: 651
Registrado: 28 Mar 2012, 22:49

Re: duda con FileInstall

Mensaje por Dany »

haces lo mismo pero colocale otro nombre y ya.

Saludos
  • ............................................Imagen
    ......................................Imagen
bath_hack
Hacker del Foro
Mensajes: 108
Registrado: 19 Sep 2008, 20:25

Re: duda con FileInstall

Mensaje por bath_hack »

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

:smt023
Responder