The VideoLAN Forums

Hello everyone,
i just coded a streamingclient an everything works well, except of this seekbar.

procedure TfrmVLCmain.TrackBar1Change(Sender: TObject);
begin
bar.Enabled:=false;
//vlcplugin21.playlist.togglePause;
vlcplugin21.input.Time:=trackbar1.Position;

label1.Caption:=inttostr(TrackBar1.Position)+' '+inttostr(TrackBar1.Min)+' '+inttostr(round(vlcplugin21.input.Time));
//vlcplugin21.playlist.togglePause;
bar.Enabled:=true;

end;

procedure TfrmVLCmain.barTimer(Sender: TObject);
begin
TrackBar1.OnChange := nil;
trackbar1.Min:=initTime;
trackbar1.Max:=round(vlcplugin21.input.Length);
trackbar1.Position:=round(vlcplugin21.input.time);
label1.Caption:=inttostr(round(vlcplugin21.input.Time));
TrackBar1.OnChange := TrackBar1Change;
end;

when i try to set a position in the stream with my trackbar it jumps to any position in the stream, but not to the time intex the trackbar is set to.
Can anyone please give me a hint?
best regards
Johannes

Hey,

Can you please send me some example code on how you setup the VLC activeX component in Delphi to stream media content?

Thank you

Regards

Jaco