[error] Value be beetween 0 and 65535

[luisgutierrezb]

Pues que de seguro el total del archivo debe ser mayor a 65535, lo que puedes hacer es dividir el tamaño del archivo entre 100, y cada vez que pase esa cantidad de bytes, aumentas en el progress bar

[angelp4492]

Empezado por luisgutierrezb

Pues que de seguro el total del archivo debe ser mayor a 65535, lo que puedes hacer es dividir el tamaño del archivo entre 100, y cada vez que pase esa cantidad de bytes, aumentas en el progress bar

Si pero porqué cuando coloco un progresbar en el formulario si me acepta valores mayores de 65535, y sin embargo creándolo desde una clase no?

[ecfisa]

Empezado por angelp4492

Si pero porqué cuando coloco un progresbar en el formulario si me acepta valores mayores de 65535, y sin embargo creándolo desde una clase no?

Hola angelp4492.

No creo que ese sea el motivo.

Para verificar que, independientemente de donde se lo cree, acepta el máximo valor posible para una propiedad de tipo Integer podés hacer:

Código Delphi [-]
...
type
  TDummyClass = class(TObject)
  public
    ProgressBar: TProgressBar;
    constructor Create(AOwner: TComponent);
    destructor Destroy;
  end;
  TForm1 = class(TForm)
  ...

implementation

{ TDummyClass }
constructor TDummyClass.Create(AOwner: TComponent);
begin
  inherited Create;
  ProgressBar:= TProgressBar.Create(nil);
  ProgressBar.Max:= MaxInt
end;

destructor TDummyClass.Destroy;
begin
  ProgressBar.Free;
  inherited Destroy
end;

{ TForm1 } 
procedure TForm1.Button1Click(Sender: TObject);
var
  DC: TDummyClass;
begin
  DC:= TDummyClass.Create(Self);
  try
   //...
   DC.ProgressBar.Parent:= Self;
   ShowMessage(IntToStr(DC.ProgressBar.Max))
  finally
    DC.Free
  end
end;
...

Saludos.

[angelp4492]

Ya lo tengo resuelto no estaba operando bien entre la clase tdownloadfile y ttransferfile, ahora ya si corre la barra de progreso y me acepta valores mayores de 65535. Gracias