Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   visor de imagenes (https://www.clubdelphi.com/foros/showthread.php?t=65268)

MOCOSO07 01-12-2009 20:55:50

visor de imagenes
 
buen dia mis estimados!!

tengo una duda y he buscado un poco en el foro y google pero no he encontrado nada autil

lo que pasa es que quiero editar fotos que esten en mi base de datos con el visor de win

o algun otra idea que me den

uso delphi5, zeoslib y mysql 5.1

droguerman 01-12-2009 23:58:15

hmm la idea es usar un objeto TFileStream para volcar el registro a un archivo temporal (puedes obtener un nombre temporal usando GetTempFileName) y luego llamar al visor con ShellExecute.

Aún así creo que es lo máximo que llegarías a hacer, creo que el visor de imágenes no soporta Ole Automation, así que estarías muy limitado a hacer más.

saludos

MOCOSO07 02-12-2009 13:05:01

hola buen dia me sirvio mucho tu aporte pero ahora tengo la siguiente duda como puedo habrir el archivo que yo quiera con una variable en vez de especificarle la ruta

ShellExecute(0, 'open', 'E:\Windows\System32\rundll32.exe', 'E:\Windows\System32\shimgvw.dll,ImageView_Fullscreen H:\lau 053.jpg', nil, SW_NORMAL);

muchas gracias

Caro 02-12-2009 17:04:44

Cita:

Empezado por MOCOSO07 (Mensaje 347954)
........ ahora tengo la siguiente duda como puedo habrir el archivo que yo quiera con una variable en vez de especificarle la ruta

Hola MOCOSO07, concatenas tu variable y haces un Cast.

Código Delphi [-]
Variable : String;
 
ShellExecute(0, 'open', 'E:\Windows\System32\rundll32.exe',
            PChar('E:\Windows\System32\shimgvw.dll,ImageView_Fullscreen '+Variable), nil, SW_NORMAL);

Saluditos


La franja horaria es GMT +2. Ahora son las 16:20:21.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi