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