trackBar

[rls]

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)

[rastafarey]

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;