4 respuestas en este tema

[enecumene]

Tengo el siguiente code:

delphi

procedure TForm1.tmRemainTimer(Sender: TObject);
var  min, Sec: String;
begin
  sec := IntToStr((Gauge1.Progress div 1000) - (((Gauge1.Progress div 1000) div 60) * 60));
  min := IntToStr((Gauge1.Progress div 1000) div 60);
  lbTimePos.Caption := FormatFloat('00',StrToFloat(min))+':'+FormatFloat('00',StrToFloat(sec));
end;

El problema es que no está mostrando correctamente el tiempo que ha pasado, por ejemplo una canción de 45 segundos y cada 1 segundo me muestra 2:43 minutos (a veces 2:55 otras 3:10, etc) al final me muestra 131:15 o 129:00, el timer está a 1000, no sé que mal hago.

Saludos.

[axesys]

Pues yo lo hago así­ no se si te sirva

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:= true;
  Start:=GetTickCount;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  mili: longint;
  sec: longint;
  min: longint;
begin
  mili:= GetTickCount-Start;
  sec:= (mili div 1000) - (((mili div 1000) div 60) * 60);
  min:= (mili div 1000) div 60;
  lbTimePos.Caption := FormatFloat('00',min)+':'+FormatFloat('00',sec);
end;

delphi

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 216
  ClientWidth = 426
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object lbTimePos: TLabel
    Left = 178
    Top = 160
    Width = 3
    Height = 13
  end
  object Button1: TButton
    Left = 160
    Top = 80
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 1
    OnTimer = Timer1Timer
    Left = 200
    Top = 112
  end
end

[eduarcol]

muestranos donde asignas el valor al gauge y como lo incrementas

[enecumene]

delphi

if BASS_ChannelGetPosition(Channel,BASS_POS_BYTE) <> 0 then
  Gauge1.Progress := BASS_ChannelGetPosition(Channel,BASS_POS_BYTE);

El resultado es en bytes por ejemplo:  32680988, .mmm, ahora que lo veo, mmm, creo que sé donde está el problema, luego os comento .

Saludos.

[enecumene]

Bueno viendolo mejor con la mente más fresca ya pude resolverlo, éste es el código:

delphi

var sec, min, Mil: String;
begin
if BASS_ChannelGetPosition(Channel,BASS_POS_BYTE) <> 0 then
  Gauge1.Progress := BASS_ChannelGetPosition(Channel,BASS_POS_BYTE);
  Mil := FloatToStr(Round(BASS_ChannelBytes2Seconds(Channel, BASS_ChannelGetPosition(Channel,BASS_POS_BYTE))) * 1000); //Milliseconds
  sec := InttoStr((StrToInt(Mil) div 1000) - ((((StrToInt(Mil) div 1000) div 60) * 60)));
  min := InttoStr((StrToInt(Mil) div 1000) div 60);
  lbTiPosA.Caption := FormatFloat('00',StrToFloat(min));
  lbTiPosB.Caption := FormatFloat('00',StrToFloat(sec));
  Label13.Caption := Mil;

Me está funcionando de pelos

Saludos.