Buscar y Abrir Archivos.

[feliz-58]

Tengo varias carpetas con diferentes archivos PDF, Lo que quiero es, crear un programa para buscar por nombre entre esos archivos y abrirlos desde mi programa.

Si pueden explicarme paso por paso se los agradeceria.
//Gracias

[Casimiro Notevi]

Pides el nombre y lo buscas en el directorio donde los tengas... ¿exactamente qué quieres saber?

[ecfisa]

Hola.

Poné en tu form un un TButton, un TOpenDialog (pestaña Dialogs) y un TAcroPDF (pestaña ActiveX). Si no encontras este último componente, revisa este enlace: Use Adobe Acrobat (PDF) Files in a Delphi Application

Ejemplo:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  OpenDialog1.Filter:= 'Archivos Adobe PDF(*.pdf) |*.PDF';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    ACroPDF1.LoadFile(OpenDialog1.FileName);
end;

Saludos.

[[nlsgarcia]]

feliz-58,

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellAPI;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Permite visualizar Documentos PDF con Adobe Acrobat Reader
procedure TForm1.Button1Click(Sender: TObject);
var
   openDialog : TOpenDialog;    // Open dialog variable
   pdfDocument : array[0..255] of char;

begin
   // Crea el Objeto OpenDialog
   openDialog := TOpenDialog.Create(self);

   // Estable el directorio actual como inicial
   openDialog.InitialDir := GetCurrentDir;

   // Permite seleccionar solo existentes archivos
   openDialog.Options := [ofFileMustExist];

   // Permite seleccionat solo archivos PDF
   openDialog.Filter := 'PDF Documents|*.pdf';

   // Selecciona *.pdf como opción inicial
   openDialog.FilterIndex := 1;

   // Visualiza el OpenDialog
   if openDialog.Execute then
   begin
      try
         // Asigna el Documento PDF seleccionado a pdfDocument
         StrPCopy(pdfDocument,OpenDialog.FileName);
         // Visualiza el Documento PDF con Adobe Acrobat Reader
         ShellExecute(Handle, 'open', pdfDocument, nil, nil, SW_SHOWNORMAL);
      except
         // Mensaje de error en caso de que falle la función ShellExecute
         MessageDlg('Error en la Apertura del Documento PDF', mtInformation, [mbOk], 0);
      end;
   end;

   // Libera los recursos del OpenDialog
   openDialog.Free;
end;

end.

El código anterior permite seleccionar un documento PDF por medio de un Control TOpenDialog y visualizarlo posteriormente con Adobe Acrobat Reader.

Nota: Debe estar instalado Adobe Acrobat Reader en el sistema.

Revisa estos links:

FileSearch
http://delphibasics.co.uk/RTL.asp?Name=FileSearch

FindFirst
http://www.delphibasics.co.uk/RTL.asp?Name=FindFirst

FindClose
http://www.delphibasics.co.uk/RTL.asp?Name=FindClose

TOpenDialog
http://www.delphibasics.co.uk/RTL.asp?Name=TOpenDialog

Executing and Running Applications and Files from Delphi Code
http://delphi.about.com/od/windowssh...uteprogram.htm

Espero sea útil

Nelson.

[Neftali [Germán.Estévez]]

Empezado por feliz-58

crear un programa para buscar por nombre entre esos archivos

Parta esto puedes usar la función FindFiles que ha salido bastantes veces aquí en el club.

Empezado por feliz-58

y abrirlos desde mi programa.

Para esto puedes usar ShellExecute, que también puedes encontrar en muchos mensajes del Club. Por ejemplo, aquí tienes un ejemplo que lo usas para imprimir, basta con cambiar el parámetro "print" por "open" para que funcione la apertura del fichero.

[feliz-58]

Amigos gracias voy a Probar les aviso si me funciona...