Save Archivo con Intraweb
 

Buenos noches amigos del foro,
Estoy haciendo un programa para internet usando para esto intraweb y me gustaría su ayuda para resolver la creación de un archivo.

En la versión de win32 del programa crear un excel y lo descarga donde el usuario lo desee, pero con Intraweb no logre que funcione, utilizando los típicos componentes TFileSaveDialog para seleccionar la ruta.

Favor me sirve cualquier idea.

¿Cómo lo haces?

En la versión win32 lo hago así y funciona perfecto.
Necesito hacer lo mismo pero en un aplicativo de Intraweb.

Código Delphi [-]
FDCONNECTion1.close;
fdconnection1.open;

fdquery1.Close;
fdquery1.Open();

if fdquery1.IsEmpty = FALSE then
try
Report := TFlexCelReport.Create(true);

if not SaveDialog1.Execute then exit;

Report.AddTable('fdquery1',fdquery1, TRecordCountMode.SlowCount, TDisposeMode.DoNotDispose);

  Report.SetValue('empresa',combobox7.text); // .SetCellValue(1, 1, statusbar1.panels[2].Text);
  Report.SetValue('ejercicio',edit9.Text); // .SetCellValue(1, 1, statusbar1.panels[2].Text);
  Report.SetValue('periodo',combobox8.Text); // .SetCellValue(1, 1, statusbar1.panels[2].Text);
  Report.SetValue('fecha',datetimetostr(now)); // .SetCellValue(1, 1, statusbar1.panels[2].Text);

  Report.Run(ExtractFilePath(application.ExeName)+'\EERR_SAP.xlsx', SaveDialog1.FileName);

  if MessageDlg('Se ha exportado correctamente. ¿Desea abrir el archivo generado?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    ShellExecute(0, 'open', PCHAR(SaveDialog1.FileName), nil, nil, SW_SHOWNORMAL);
  end;
  finally

FDCONNECTion1.close;
  end;

Estimados, alguna idea de como puedo resolver esto ??
Será que Intraweb no esta hecho para resolver este tipo de problemas ??

¿Pero te da algún error, mensaje, algo? ¿has seguido el código y has visto cuál es el código de error que devuelve?

No da error, simplemente no hace nada.

Shellexecute devuelve un código, mira a ver cuál es.

Estuve averiguando, y es un problema que estas sentencias se ejecutan desde el lado del servidor, por eso nunca iba a funcionar.
Ahora bien, tampoco he podido resolverlo, pero si entiendo que se debe utilizar algo así:

Alguna idea de como pasar el directorio de destino en el cliente ??

Seguramente debas descargar primero el fichero al equipo local y guardarlo donde quieras.

Gracias Casimiro.
Tienes algún ejemplo de código de como se debe hacer esto ??
Ni se por donde empezar :(

¿Algo así?

Código Delphi [-]
uses
  IWDownload;

procedure DescargarArchivoIntraWeb(AContext: TIWBaseHTMLComponent; const URL, RutaDestino: string);
var
  Download: TIWDownload;
begin
  Download := TIWDownload.Create(AContext);
  try
    Download.Path := RutaDestino;
    Download.URL := URL;
    Download.Render(AContext);
  finally
    Download.Free;
  end;
end;