Ver Mensaje Individual
  #1  
Antiguo 07-09-2018
ralf8727 ralf8727 is offline
Miembro
 
Registrado: may 2015
Posts: 22
Reputación: 0
ralf8727 Va por buen camino
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

Última edición por ecfisa fecha: 08-09-2018 a las 02:31:39. Razón: Corregir problema de formato con WYSIWYG Interfaz mejorada
Responder Con Cita