Problema TFileSaveAs no guarda

[WkaymQ48]

¿Y que quieres que guarde? ... hasta donde yo se los diálogos como de abrir, "guardar como", etc ... solamente devuelven un a ruta y luego eres tu el que tiene que abrir/guardar el fichero usando esa ruta, pero ellos por si solos no hacen nada.

[ecfisa]

Hola jonydread.

Te pongo un ejemplo muy simplificado para aclararte como es el funcionamiento:

Código Delphi [-]
...
implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  with FileOpen1 do
  begin
    Dialog.DefaultExt := '*.TXT';
    Dialog.Filter   := 'Archivos de texto (*.txt)|*.TXT';
    if not Assigned(OnAccept) then  // (por si no lo asignaste en diseño)
      FileOpen1.OnAccept :=  FileOpen1Accept;
  end;
  with FileSaveAs1 do
  begin
    Dialog.DefaultExt := '*.TXT';
    Dialog.Filter :=  'Archivos de texto (*.txt)|*.TXT';
    if not Assigned(OnAccept) then // idem
      FileSaveAs1.OnAccept := FileSaveAs1Accept;
  end;
  Memo1.Clear;
end;

procedure TForm1.FileOpen1Accept(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile(FileOpen1.Dialog.FileName);
end;

procedure TForm1.FileSaveAs1Accept(Sender: TObject);
begin
  Memo1.Lines.SaveToFile(FileSaveAs1.Dialog.FileName);
end;
...

Saludos

Edito: No estaba el mensaje de WkaymQ48 mientras acomodaba este, pero nos referimos a lo mismo.

[jonydread]

estoy guardando un reporte tqpreview si me pueden explicar como realizarlo tengo los filtros pdf,xls,txt en el form de quickpreview, mientras probare como dice ecfisa.

gracias!

[ecfisa]

Hola jonydread.

Revisa este artículo: Exporting Reports with QuickReport. Vas a encontrar varios artículos que te podrán ser útiles en: quickreport FAQS.

Tengo entendido que para expotar a .pdf es necesario tener la versión pro, que se compra aparte de la que viene con Delphi. Pero existen componentes de terceros free como por ejemplo [este]. Incluye código fuente y no lo he probado, seguramente buscando encuentres mas.

Saludos

[jonydread]

exelente mi solucion estaba en donde colocar el codigo
esto lo tenia en ontypechangue y era en ocaccept me oriente tambien por este hilo http://www.clubdelphi.com/foros/showthread.php?t=22130
Solucion

Código Delphi [-]
procedure TPreview.FileSaveAs1Accept(Sender: TObject);
var
FName: string;
begin
FName:= ExtractFileName(FileSaveAs1.Dialog.FileName);
 Case FileSaveAs1.Dialog.FilterIndex of
       1: reporteform.QuickRep1.ExportToFilter(TQRPDFDocumentFilter.Create(FName));
       2: reporteform.QuickRep1.ExportToFilter(TQRXLSFilter.Create(FName));
       3: reporteform.QuickRep1.ExportToFilter(TQRAsciiExportFilter.Create(FName));
       4: reporteform.QuickRep1.ExportToFilter(TQRRTFExportFilter.Create(FName));
end;
showmessage(FileSaveAs1.Dialog.FileName);
end;

saludos y gracias!!