visor de imagenes

[MOCOSO07]

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]

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]

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*]

Empezado por MOCOSO07

........ 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