trackBar
 

hola
Necesito hacer que un archivo de audio o video avance o retroceda de acuerdo a las posiciones de un trackBar usando delphi(quiero que funcione de igual manera que en el reproductor de Windows media de Windows)

Resp
 

Ve si econ esto te puedes guiar

Código Delphi [-]
procedure TfrmOther.btnPlaySoundClick(Sender: TObject);
var
  Bs: TStream;
  Ms: TMemoryStream;
begin
  Bs := dmMain.cdsBlob.CreateBlobStream(dmMain.cdsBlobBinary_Data, bmRead);
  try
    Ms := TMemoryStream.Create;
    try
      {Copy the WAV file to memory}
      Ms.CopyFrom(Bs, Bs.Size);

      {Play it but if we'll have an error, raise exception}
      Win32Check(PlaySound(Ms.Memory, 0, SND_SYNC or SND_MEMORY));
    finally
      Ms.Free
    end;
  finally
    Bs.Free
  end;
end;