realman
دوشنبه 23 مرداد 1385, 13:35 عصر
با سلام
این دو کد رو ببینید:
procedure TVideo.FormShow(Sender: TObject);
var
MediaSeeking: IMediaSeeking;
zero: int64;
begin
zero:=0;
VideoPlayer.Active:=True;
VideoPlayer.ClearGraph;
VideoPlayer.RenderFile(VideoContainer);
VideoPlayer.Play;
DSTrackBar1.SetPosition(VideoCurTime);
end;
و
procedure TVideo.Button1Click(Sender: TObject);
begin
DSTrackBar1.SetPosition(VideoCurTime);
end;
کدی که به رنگ قرمز در اوردم در قسمت اول اجرا نمی شه(یعنی همزمان با نمایش فرم)
ولی همین کد با کلیک بر روی دکمه به درستی اجرا می شه.
مشکل کار از کجاست؟
** از کد برای اجرای فیلم از زمان دلخواه در dspack استفاده می کنم.
متشکرم.
این دو کد رو ببینید:
procedure TVideo.FormShow(Sender: TObject);
var
MediaSeeking: IMediaSeeking;
zero: int64;
begin
zero:=0;
VideoPlayer.Active:=True;
VideoPlayer.ClearGraph;
VideoPlayer.RenderFile(VideoContainer);
VideoPlayer.Play;
DSTrackBar1.SetPosition(VideoCurTime);
end;
و
procedure TVideo.Button1Click(Sender: TObject);
begin
DSTrackBar1.SetPosition(VideoCurTime);
end;
کدی که به رنگ قرمز در اوردم در قسمت اول اجرا نمی شه(یعنی همزمان با نمایش فرم)
ولی همین کد با کلیک بر روی دکمه به درستی اجرا می شه.
مشکل کار از کجاست؟
** از کد برای اجرای فیلم از زمان دلخواه در dspack استفاده می کنم.
متشکرم.