일단 장치의 능력 caps를 읽어다가 쓰셔야 합니다.
워하는 크기등등을 비디오 디바이스가 지원하는지
찾아내야 합니다.
위에서 나누기 8을 하는 경우는 24비트의 경우에반 그렇습니다.
나머지 비트라면 그렇게 하시면 에러 날거에여
또한 비디오장치가 일반 비디오헤더가아닌 mpeg등을 사용하고 있다면.
그러한것도 문제가 됩니다.
암튼 먼저 비디오 장치의 지원사향을 알아야 합니다.
거기서 열거자 통해서 정확한 정보를 얻은후 처리하셔야 합니다.
바로 포맷지정함수를 사용하시면됩니다.
모든 정보는 거기 들어 있으니까여....
보통
160x120
320x240
..등을 지원합니다.

TVideoCap 코드 안에

fhCapWnd 부분을 public 프로퍼티로 설정하시구염

vfw.pas 파일에

function capSetVideoFormat(hwnd:THandle; s:pBitmapInfo; wSize:Word):boolean;

함수를  사용하세염

답변 정말 감사 드립니다. 꾸벅~~

capSetVideoFormat 을 사용하는 샘플을 좀 알려주세요..

제 실력으로는 좀 힘들드라구요.. 도데체 파라메타를 어떻게 조야 되는지
ㅡㅡ;;

function capSetVideoFormat(hwnd:THandle; s:pBitmapInfo; wSize:Word) : boolean;

hwnd, sBitmapInfo, wSize 를 어떻게 줘야 되는 건지 모르겠어요..

감사~~

지송합니다... ^^;

안녕ㅎ세요 하얀까마귀 입니다.

TVideoCap 은 소스가 있을텐데요. 그냥 컴파일 하면 안되나요??

전 델파이 6을 안써서 잘 모르겟네요..

capSetVideoFormat 사용법은 핸들하고 비트맵 포인트 그리고 해당구조체 사이즈인데요..

소스는 만들어야 되니 좀 그렇구 대충 적어볼께요.. 참조 하세요..

var
  finfo : TBitmapInfo;
begin
  // 먼저 드라이버를 오픈시킨다. 이건 직접 하세요.
  //여기부터 입니다.
  finfo := VideoCap.BitmapInfo; // 먼저 기존의 설정을 가져오는게 좋으니까.
  // 저장해놓는것도 좋겠죠? 끝날때 되돌려 주게..
  finfo.bmiHeader.biHeight := 원하는크기;
  finfo.bmiHeader.biwidth := 원하는크기;
  finfo.bmiHeader.bibitcount := // 이건 색상이에요..
  // 요건 크기인데.. bibitcount가 Bit 단위니까 나누기 8을 해줘요
이넘은 바이트거덩요.
  finfo.bmiheader.bisizeimage := ( 높이 * 두께 * 색상 ) div 8;
  그리고 보내면 되는데.
  VideoCap.SetBitmapInfo( @finfo, sizeof( TBitmapInfo) );
  Setbitmapinfo 함수가 바로
capSetVideoFormat 요넘하고 같습니다. 파라메터는 핸들만 없구 똑같구요.
그럼. 즐거운시간 되세요.

- 하얀까마귀 -

end;

내용 무