07-21-2019, 04:08 PM
Hi,
I'm using Delphi 10.2 update 3, and recently installed version 15.1.0 of IW. I also use last version of TMS Intraweb controls.
In an application I have a IWFileUploader control, with default values in properties (unless the name, of course).
When I run my application, I drag an drop several files (they appears as "uploaded"), and after the user performs some operations, I will try to copy to another location, using this code:
if CargarFicheros.FileList.Count > 0 then
begin
for I := 1 to CargarFicheros.FileList.Count do
begin
FormaNombreFicheroDestino(I, FicheroDestino);
CargarFicheros.SaveToFile(CargarFicheros.FileList[I - 1].FileName, FicheroDestino, True);
end;
end;
FormaNombreFicheroDestino is:
FicheroDestino := RutaFicheros_Presupuestos + 'P' +
Serie_Presupuestos + '_' +
CabPresupuestoCliente.cpr_nro.ToString + '#' +
I.ToString + '_' +
CargarFicheros.FileList[I - 1].FileName;
I have 2 problems:
a) FileList has only one element, regardless the number of files I've uploaded
b) When I refer to FileList [0].FileName, I get an Access Violation (whilst the element 0 of the list is not nil)
Could you please help me with this error?
Best regards,
Venancio Lasquibar
Could you
I'm using Delphi 10.2 update 3, and recently installed version 15.1.0 of IW. I also use last version of TMS Intraweb controls.
In an application I have a IWFileUploader control, with default values in properties (unless the name, of course).
When I run my application, I drag an drop several files (they appears as "uploaded"), and after the user performs some operations, I will try to copy to another location, using this code:
if CargarFicheros.FileList.Count > 0 then
begin
for I := 1 to CargarFicheros.FileList.Count do
begin
FormaNombreFicheroDestino(I, FicheroDestino);
CargarFicheros.SaveToFile(CargarFicheros.FileList[I - 1].FileName, FicheroDestino, True);
end;
end;
FormaNombreFicheroDestino is:
FicheroDestino := RutaFicheros_Presupuestos + 'P' +
Serie_Presupuestos + '_' +
CabPresupuestoCliente.cpr_nro.ToString + '#' +
I.ToString + '_' +
CargarFicheros.FileList[I - 1].FileName;
I have 2 problems:
a) FileList has only one element, regardless the number of files I've uploaded
b) When I refer to FileList [0].FileName, I get an Access Violation (whilst the element 0 of the list is not nil)
Could you please help me with this error?
Best regards,
Venancio Lasquibar
Could you