삭제를 위한 암호를 넣어 주세요

어떤 에러가 발생하는지는 모르겠지만...

혹시 파일이름입력할 때 패스빼고 파일이름만 적어주신 것은 아닌지요???
파일이름뿐만아니라 패스까지 모두 적어보세요. 
2017-03-21 오후 6:00:13

삭제를 위한 암호를 넣어 주세요

제가 실수할까봐 아래 부분에 이름 넣고선 
MediaFilename[1] :='';  //<---- 이 부분에 실행할 동영상 파일을 입력 합니다.
 MediaFilename[2] :='';  //<----


BtnLoadFile1Click(Sender: TObject); <--
이 버튼만 눌러서 다이얼 로그 종료한 다음에
플레이 버튼 누르면 잘 실행 됩니다.

다이얼 로그만 한번 켜졌다가 끄면 그 다음 부터는 플레이 버턴 몇번을 눌러도 에러가 안나지만. 오픈다이얼로그 누르지 않고 플레이 버튼 누르면 무조건 에러가 납니다. 
2017-03-21 오후 6:13:25

삭제를 위한 암호를 넣어 주세요

일단 스레드의 Execute 함수에 아래와 같이 COM 초기화 함수를 넣으면 문제없이 실행됩니다.
--------------------------------
procedure TPlayerLoadThread.Execute;
 Var
   V_Width, V_Height: longint;
   hr: HRESULT;
 begin
   try
     hr := CoInitialize(nil);
     // if Failed(hr) then
     //  MessageBox(Self.Handle, 'Failed at executing "CoInitialize"', '확인', MB_OK or MB_ICONEXCLAMATION);
   except

   end;
                .
                .
---------------------------
그런데 파일 입력 대화상자를 한번 열면 COM 초기화 함수를 넣지 않아도 되는 이유는 모르겠습니다. 
2017-03-21 오후 7:16:52

삭제를 위한 암호를 넣어 주세요

COM Object를 다룰땐 원칙적으로 스레드마다 COM 초기화 함수를 호출하게 되어 있으므로 위와 같이 코딩하는게 맞는듯 합니다.
그런데 제 경험으론 Delphi로 프로그래밍시 메인 스레드에서는 COM 초기화 함수를 호출하지 않아도 문제가 없습니다. 
2017-03-21 오후 7:20:57

삭제를 위한 암호를 넣어 주세요

궁극적으로 TEVMRPlayer 소스를 수정하여 멀티스레드 프로그램에서 COM 초기화 문제가 발생하지 않도록 할 예정입니다. 
2017-03-21 오후 7:58:47