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
Publicado:
Mie May 05, 2010 3:40 pm
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Imprimir archivo
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?
Publicado:
Mie May 05, 2010 7:33 pm
fflorez Usuario
Registrado: Jul 11, 2008 Mensajes: 3
Asunto: Imprimir archivo
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
Publicado:
Mie May 05, 2010 10:22 pm
fflorez Usuario
Registrado: Jul 11, 2008 Mensajes: 3
Asunto: Imprimir archivo
Don Alonso nuevamente molestando, quisiera preguntarle si lo que le he comentado si se podria realizar y como en delphi..
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