Página 1 de 1

duda con FileInstall

Publicado: 28 Abr 2015, 18:13
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.

Re: duda con FileInstall

Publicado: 28 Abr 2015, 19:21
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

Re: duda con FileInstall

Publicado: 28 Abr 2015, 21:10
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

Re: duda con FileInstall

Publicado: 28 Abr 2015, 21:36
por Dany
De nada :)

Saludos :smt027

Re: duda con FileInstall

Publicado: 28 Abr 2015, 21:42
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

Re: duda con FileInstall

Publicado: 28 Abr 2015, 21:50
por Dany
haces lo mismo pero colocale otro nombre y ya.

Saludos

Re: duda con FileInstall

Publicado: 15 May 2015, 18:23
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