자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Firemonkey 비디오캡쳐 해상도 변경은 어떻게 해야 하나요?
2012.11.13 00:17
샘플코드에서 보면
procedure TForm240.FormCreate(Sender: TObject);
begin
VideoCamera := TCaptureDeviceManager.Current.DefaultVideoCaptureDevice;
if VideoCamera <> nil then
begin
Ellipse1.AnimateFloat('Opacity', 1, 1.0);
VideoCamera.OnSampleBufferReady := SampleBufferReady;
VideoCamera.StartCapture;
end
else
begin
CaptureButton.Enabled := False;
Caption := 'Video capture devices not available.';
end;
end;
이런 식으로 비디오 캡쳐 디바이스를 선택하게 되는데, 이 방식으로는 해상 디바이스의 기본 해상도로 밖에는 설정할 수 없습니다. 여기서 카메라의 해상도를 사용자가 지정하려면 어떻게 해야 할까요?
예제 파일을 아무리 찾아봐도 관련된 자료를 찾을 수 없네요. 뻐른 답변 부탁드립니다.
댓글 3
Firemonkey 비디오캡쳐 해상도 변경은 어떻게 해야 하나요?
2012.11.13 00:17
샘플코드에서 보면
procedure TForm240.FormCreate(Sender: TObject);
begin
VideoCamera := TCaptureDeviceManager.Current.DefaultVideoCaptureDevice;
if VideoCamera <> nil then
begin
Ellipse1.AnimateFloat('Opacity', 1, 1.0);
VideoCamera.OnSampleBufferReady := SampleBufferReady;
VideoCamera.StartCapture;
end
else
begin
CaptureButton.Enabled := False;
Caption := 'Video capture devices not available.';
end;
end;
이런 식으로 비디오 캡쳐 디바이스를 선택하게 되는데, 이 방식으로는 해상 디바이스의 기본 해상도로 밖에는 설정할 수 없습니다. 여기서 카메라의 해상도를 사용자가 지정하려면 어떻게 해야 할까요?
예제 파일을 아무리 찾아봐도 관련된 자료를 찾을 수 없네요. 뻐른 답변 부탁드립니다.
http://www.delphi.co.kr/?document_srl=162784&mid=downloads&category=162455 이 싸이트를 한 번 참조해 보십시오.