Lo que se me ocurrió hacer, es lo siguiente:
Código Delphi
[-]
procedure TGaleria.IdSMTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
AWorkCountMax: Integer);
begin
if AWorkMode = wmWrite then
begin
ProgressBar1.Max := AWorkCountMax ;
ProgressBar1.Position := 0 ;
end;
end;
procedure TGaleria.IdSMTP1Work(ASender: TObject; AWorkMode: TWorkMode;
AWorkCount: Integer);
begin
if AWorkMode = wmWrite then
begin
ProgressBar1.Position := AWorkCount;
Label1.Caption := IntToStr(AWorkCount) + 'Bytes de :' + inttostr(ProgressBar1.Max) ;
end;
end;
procedure TGaleria.IdSMTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
if AWorkMode = wmWrite then
begin
ProgressBar1.Position := 0;
end;
end;
Pero bueno, sigo depurando porque no se donde esta el error.
__________________
Código Delphi
[-]
try
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;