subir archivo con intraweb
 

Buen dia.

se me presenta este problema, tengo que subir archivos al servidor por medio de intraweb
utilizo delphi 2010 y la version que viene en el mismo.

he intentado con algunos codigos peno nu funcionan, quite el lockonsubmit.

el codigo lo ingrese en todos los eventos y no funciono

la aplicacion tiene permisos de administrador
las capetas no estan en solo lectura.

les agradezco su ayuda de antemano

Código Delphi [-]
WFIle1.SaveToFile(WebApplication.ApplicationPath+'files\' + IWFile1.FileName);

tambien lo intente por ftp

Código Delphi [-]
procedure TIWForm1.IWButton2AsyncClick(Sender: TObject;
  EventParams: TStringList);
var
  FTP: TIdFTP;
  fn:string;
begin
  FTP := TIdFTP.Create( nil );
  FTP.Username := 'usuario';
  FTP.Password := 'miclave';
  FTP.Host := '127.0.0.1';
  try
    FTP.Connect;
  except
    raise Exception.Create( 'No se ha podido conectar con el servidor ' + FTP.Host );
  end;
  fn:= IWFile1.Filename;
  FTP.Put( fn, ExtractFileName( fn), False );
  FTP.Disconnect;
  FTP.Free;
end;

en este codigo sale no se encontro archivo " ' ' "


si reemplazo la line a de fn por

Código Delphi [-]
fn := WebApplication.UserCacheDir+IWFile1.FileName;

es lo mismo no funciona

Buscando informacion encontre con esta solucion

en el dpr del programa comente esta linea

Código Delphi [-]
  //UTF8ContentParser,

Código Delphi [-]
procedure TIWForm1.IWButton1Click(Sender: TObject);
var fn,tempfn : string;
begin
  with UserSessionUnit.TIWUserSession do
  begin
   fn := IWFile1.FileName;
 tempfn := WebApplication.ApplicationPath+'wwwroot\Files\'+fn;
IWFIle1.SaveToFile(tempfn);

  end;

tambien quite la seleccion Lockonsubmit

adicional agrege las dos carpetas "wwwroot" y dentro la de "Files"

con esto puedo subir los archivos al servidor.