|
1. 개발/실행 플랫폼
(1) OS : win7
(2) 개발툴 : Delphi XE10
(3) 사용 Database :
2. 개발 중인 프로그램
-- 동영상 파일 로드를 쓰레드로 처리함.
3. 질문 내용
- 우선 같은 질문을 제작자인 현실환님 한테 드렸는데
너무 바쁘신거 같아 여기에 같은 내용으로 올립니다.
우선 의도는 메인폼에 시계를 라벨로 표기를 합니다.(초단위)
이렇게 하고 동영상을 불러와서 표출 할때 시계가 멈추지 않고 불러 오게 하고자 함이 목적입니다.
그렇게 하기 위해서는 동영상 불러오는 부분을 쓰레드 처리해서 하는게 맞다고 생각해서 코드를 작성하였습니다.
(초기 질문은 제가 현실환님 한테 잘못 드려서 꺼구로 쓰레드 사용에 대해서 질문 했는데 제 생각이
잘 못되었습니다...ㅠㅠ)
하지만 제가 쓰레드 처리를 심도있게 하지 않다 보니 에러가 특이하게 발생하는데
원인을 모르고 해결도 못해서 질문 올립니다. ㅠㅠ
우선 에러사항은 같은 동영상을 불러오는데
하나는 오픈 다이얼 로그를 이용해서 불러와 쓰레드 처리하면 에러없이 동영상이 잘 작동합니다.
이렇게 하고 프로그램을 종료한 다음에
플레이 버튼에서 같은 이름으로 동영상 파일 이름을 넣고선 플레이를 하면 에러가 납니다.
1. 에러 안나는 상황
procedure TfmMain.BtnLoadFile1Click(Sender: TObject);
begin
if OpenMediaFile.execute then
begin
MediaFilename[1] := OpenMediaFile.FileName;
end;
end;
procedure TfmMain.Button1Click(Sender: TObject);
begin
if OpenMediaFile.execute then
begin
MediaFilename[2] := OpenMediaFile.FileName;
end;
end;
procedure TfmMain.btnPlayClick(Sender: TObject);
begin
{ MediaFilename[1] :=''; //<---- 이 부분에 실행할 동영상 파일을 입력 합니다.
MediaFilename[2] :=''; //<----}
sleep(100);
PlayerLoad[1] := TPlayerLoadThread.Create(EVMRPlayer1);
PlayerLoad[1].FreeOnTerminate := True;
PlayerLoad[2] := TPlayerLoadThread.Create(EVMRPlayer2);
PlayerLoad[2].FreeOnTerminate := True;
PlayerLoad[1].Resume;
PlayerLoad[2].Resume;
end;
위와 같이 해서 오픈다이얼 로그를 이용해 파일 이름을 넣어 주면 괜찮음.
2. 에러상황
procedure TfmMain.btnPlayClick(Sender: TObject);
begin
MediaFilename[1] :=''; //<---- 이 부분에 실행할 동영상 파일을 입력 합니다.
MediaFilename[2] :=''; //<----
sleep(100);
PlayerLoad[1] := TPlayerLoadThread.Create(EVMRPlayer1);
PlayerLoad[1].FreeOnTerminate := True;
PlayerLoad[2] := TPlayerLoadThread.Create(EVMRPlayer2);
PlayerLoad[2].FreeOnTerminate := True;
PlayerLoad[1].Resume;
PlayerLoad[2].Resume;
end;
같은 경로의 파일 이름을 프로그램 상에서 입력을 하고 컴파일 걸어 플레이 버튼 누르면 쓰레드 상에서 에러가 발생함.
* 모든 프로그램은 현실환님이 제공해 주신 플레이어를 이용하였습니다.
또한 기본 컴포넌트로만 작성 하였습니다..
바쁘신 와중에 제 긴 글 읽어 주셔서 감사합니다.
소스는 압축 파일로 첨부해 놓았습니다.
|
[질문] 동영상 쓰레드 로드 질문입니다.
