Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Proyecto AjpdSoft: Foros

AjpdSoft :: Ver tema - Imprimir archivo
Foros de discusión Buscar Perfil FAQ Iniciar sesión
Information Imprimir archivo

Publicar nuevo tema Responder al tema
Foros de discusión » Borland Delphi, Codegear Delphi .Net   
Ver tema anterior :: Ver tema siguiente
AutorMensaje
fflorez
Usuario


Registrado: Jul 11, 2008
Mensajes: 3

Asunto: Imprimir archivo Responder citando

Don Alonso reciba un gran saludo. como siempre los que entramos aca es para buscar su ayuda..

Esta vez estoy haciendo una aplicacion en php y necesito hacer una programa que cuando le de click en un botom me ejecute el programa espero que se pueda en delphi, es que me busque o que si tengo un archivo seleccionao en este caso es un .jpg deacuerdo al archivo me le de el tamaño de la hoja y me mande la orden de impresion sin que me aparezca el panel de impresion de windows, la idea es que el programa quede oculto, cuando le de la orden, haga todo pero oculto....se puede?? y como se podria?

me pasaron este codigo pero no se como implementarlo, pues lo hice con un formulario en delphi 7 pero no me funciono.

(*

Busca y lista los archivos que cumplan con determinada
máscara y que se encuentren en un determinado directorio
y/o dentro de los subdirectorios del mismo.

Parámetros:

directorio: en el que buscar, por ejemplo: C:\
mascara: de archivo, por ejemplo: *.txt
atributos: de los archivos, por ejemplo: faAnyFile
listado: donde guardar los posibles resultados (1)

(1) Rutas completas de los archivos encontrados

*)

procedure BuscarArchivos(const directorio, mascara: string;
atributos: Integer; var listado: TStrings);

// Procedimiento anidado
//
procedure Buscar(const subdirectorio: string);
var
regBusqueda: TSearchRec;
begin
// Buscar en el directorio
if FindFirst(subdirectorio + mascara,atributos,regBusqueda) = 0 then
begin
try
repeat
Application.ProcessMessages;
if (regBusqueda.Attr and faDirectory = 0)
or (regBusqueda.Name <> '.')
and (regBusqueda.Name <> '..') then
listado.Add(subdirectorio + regBusqueda.Name);
until FindNext(regBusqueda) <> 0;
except
FindClose(regBusqueda);
end;
FindClose(regBusqueda);
end;
// Buscar en los subdirectorios
if FindFirst(subdirectorio + '*', atributos
or faDirectory, regBusqueda) = 0 then
begin
try
repeat
Application.ProcessMessages;
if ((regBusqueda.Attr and faDirectory) <> 0)
and (regBusqueda.Name <> '.')
and (regBusqueda.Name <> '..') then
Buscar(subdirectorio + regBusqueda.Name + '\');
until FindNext(regBusqueda) <> 0;
except
FindClose(regBusqueda);
end;
FindClose(regBusqueda);
end;
end;
//
// Fin del procedimiento anidado:
// Comienza "BuscarArchivos(...)"
//
begin
Buscar(IncludeTrailingPathDelimiter(directorio));
end;

// Ejemplo de llamada a BuscarArchivos(...)
//
procedure TForm1.Button1Click(Sender: TObject);
var
lista: TStrings;
begin
lista := TStringList.Create;
BuscarArchivos('C:\', '*.exe', faAnyFile, lista);
ShowMessage(lista.Text);
lista.Free;
end;


muchas gracias por la ayuda que me pueda brindar
MensajePublicado:
Mie May 05, 2010 3:40 pm
Top of PageVer perfil de usuario
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Re: Imprimir archivo Responder citando



Anuncios



fflorez escribió:
Don Alonso reciba un gran saludo. como siempre los que entramos aca es para buscar su ayuda..

Esta vez estoy haciendo una aplicacion en php y necesito hacer una programa que cuando le de click en un botom me ejecute el programa espero que se pueda en delphi, es que me busque o que si tengo un archivo seleccionao en este caso es un .jpg deacuerdo al archivo me le de el tamaño de la hoja y me mande la orden de impresion sin que me aparezca el panel de impresion de windows, la idea es que el programa quede oculto, cuando le de la orden, haga todo pero oculto....se puede?? y como se podria?

me pasaron este codigo pero no se como implementarlo, pues lo hice con un formulario en delphi 7 pero no me funciono.

(*

Busca y lista los archivos que cumplan con determinada
máscara y que se encuentren en un determinado directorio
y/o dentro de los subdirectorios del mismo.

Parámetros:

directorio: en el que buscar, por ejemplo: C:\
mascara: de archivo, por ejemplo: *.txt
atributos: de los archivos, por ejemplo: faAnyFile
listado: donde guardar los posibles resultados (1)

(1) Rutas completas de los archivos encontrados

*)

procedure BuscarArchivos(const directorio, mascara: string;
atributos: Integer; var listado: TStrings);

// Procedimiento anidado
//
procedure Buscar(const subdirectorio: string);
var
regBusqueda: TSearchRec;
begin
// Buscar en el directorio
if FindFirst(subdirectorio + mascara,atributos,regBusqueda) = 0 then
begin
try
repeat
Application.ProcessMessages;
if (regBusqueda.Attr and faDirectory = 0)
or (regBusqueda.Name <> '.')
and (regBusqueda.Name <> '..') then
listado.Add(subdirectorio + regBusqueda.Name);
until FindNext(regBusqueda) <> 0;
except
FindClose(regBusqueda);
end;
FindClose(regBusqueda);
end;
// Buscar en los subdirectorios
if FindFirst(subdirectorio + '*', atributos
or faDirectory, regBusqueda) = 0 then
begin
try
repeat
Application.ProcessMessages;
if ((regBusqueda.Attr and faDirectory) <> 0)
and (regBusqueda.Name <> '.')
and (regBusqueda.Name <> '..') then
Buscar(subdirectorio + regBusqueda.Name + '\');
until FindNext(regBusqueda) <> 0;
except
FindClose(regBusqueda);
end;
FindClose(regBusqueda);
end;
end;
//
// Fin del procedimiento anidado:
// Comienza "BuscarArchivos(...)"
//
begin
Buscar(IncludeTrailingPathDelimiter(directorio));
end;

// Ejemplo de llamada a BuscarArchivos(...)
//
procedure TForm1.Button1Click(Sender: TObject);
var
lista: TStrings;
begin
lista := TStringList.Create;
BuscarArchivos('C:\', '*.exe', faAnyFile, lista);
ShowMessage(lista.Text);
lista.Free;
end;


muchas gracias por la ayuda que me pueda brindar


Hola fflorez, bienvenido y gracias por los halagos, no es para tanto.

A ver si lo he entendido: quieres realizar una aplicación en Delphi que al pulsar un botón busque un determinado fichero en el disco duro, supongo que pasándole el nombre del fichero o los comodines pertinentes (*.jpg por ejemplo). Que el programa te muestre los ficheros que ha encontrado y poder imprimir el fichero seleccionado (de los que ha encontrado) directamente sin que pida confirmación ni aparezca una vista previa.

¿Es esto lo que quieres? ¿tiene que haber alguna relación entre tu aplicación en PHP y la de Delphi?
MensajePublicado:
Mie May 05, 2010 7:33 pm
Top of PageVer perfil de usuario
fflorez
Usuario


Registrado: Jul 11, 2008
Mensajes: 3

Asunto: Imprimir archivo Responder citando

Exacto don alonso, necesito que al pulsar un botom en un php este me llame el programa (si se puede en delphi), y este me mande la orden de imprimir un archivo que en este caso es de ext .jpg lo imprima y que automaticamente me le de el tamaño de hoja segun como la toma el archivo e imprima sin que aparezca ningun panel de impresion..

Muchas gracias por su respuesta
MensajePublicado:
Mie May 05, 2010 10:22 pm
Top of PageVer perfil de usuario
fflorez
Usuario


Registrado: Jul 11, 2008
Mensajes: 3

Asunto: Imprimir archivo Responder citando

Don Alonso nuevamente molestando, quisiera preguntarle si lo que le he comentado si se podria realizar y como en delphi..

Muchas gracias por su ayuda
MensajePublicado:
Lun May 10, 2010 5:00 pm
Top of PageVer perfil de usuario
Mostrar mensajes de anteriores:   
Todas las horas son GMT - 1 Horas
Publicar nuevo tema Responder al tema
Foros de discusión » Borland Delphi, Codegear Delphi .Net  

Cambiar a:  
Key
  Puede publicar nuevos temas en este foro
No puede responder a temas en este foro
No puede editar sus mensajes en este foro
No puede borrar sus mensajes en este foro
No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A