BASSVideo

[regman]

Как в модуле BASSVideo результат функции BASSVideo_GetLength перевести в мин/сек?? Или откуда-то еще добыть данную информацию??

П.С. Версия BASSVideo 2412

[inndim]

function TimeToStr5(sec : Double) : string;
var Hours, Minutes, Seconds : Double;
begin
  Hours := Trunc(sec / 3600);
  sec := sec - (Hours * 3600);
  Minutes := Trunc(sec / 60);
  sec := sec - (Minutes * 60);
  Seconds := Trunc(sec);
//  sec := (sec - Seconds) * 1000;
  Result := FormatNum(Trunc(Hours), 2) + ':' + FormatNum(Trunc(Minutes), 2) + ':'
           + FormatNum(Trunc(Seconds), 2);// + ':' + FormatNum(Trunc(sec), 3);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 label1.caption :=TimeToStr5(Round(BassVideo_GetLength(chan)));
end;

Примерно вот так.

p.s.
Если помог, то жми на значок весов слева под ником.

[ZuBy]

function ToStr(sec: integer): string;
begin
  H := Sec div 3600;
  S := Sec mod 3600;
  M := S div 60;
  S := (S mod 60);
  if H <> 0 then
    Result := Format('%2.2d:%2.2d:%2.2d', [H, M, S])
  else
    Result := Format('%2.2d:%2.2d', [M, S]);
end;

[RinatKzn]

в BassVideo есть
TResizeType = (R43, R169, RSource, RFree, RCustom);

а где описание R43, R169, RSource, RFree, RCustom ?

хочу добавить нестандартное ratio