опять Web-камера

[hiho]

Написал простенький код, для вывода изображения с камеры:

function capCreateCaptureWindowA(lpszWindowName: PCHAR;
  dwStyle: longint;
  x: integer;
  y: integer;
  nWidth: integer;
  nHeight: integer;
  ParentWin: HWND;
  nId: integer): HWND;
  stdcall external 'AVICAP32.DLL';


procedure TForm1.Button1Click(Sender: TObject);
begin
Wnd := capCreateCaptureWindowA('hiho',
WS_CHILD or WS_VISIBLE ,
0,
0,
Panel1.Width,
Panel1.Height,
Panel1.Handle,
0);
if Wnd <> 0 then
    SendMessage(Wnd, WM_CAP_DRIVER_CONNECT, 0, 0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Wnd <> 0 then SendMessage(Wnd, WM_CAP_GRAB_FRAME, 0, 0);
end;

В итоге камера включатся, но кроме картины Малевича ничего не происходит, хотя все SendMessage возвращают > 0. В связи этим прошу, если у кого есть возможность потестируйте этот код. Или выложите простенький каркас заведомо работающего приложения.
PS. с компонентами все работает, но хотелось бы использовать только АПИ

[Пепел Феникса]

это устаревшее АПИ, лучше применить DirectShow.

[hiho]

Это верно. Компонентами работать куда проще, взять бы хотя бы тот же DSPack или TVideoGrubber. Но это все уже изобретенные велосипеды, да и портировать на другие языки не получится. Поэтому и прошу работу с АПИ VFW. Или хотя бы примерчик работы напрямую с DirectShow.

[Пепел Феникса]

причем тут компоненты к DirectShow?

Поэтому и прошу работу с АПИ VFW.

да древний он, у меня ни камера ни тюнер не поддерживают это апи.

вот вам:
http://coder-blog.ru/?p=396
там рабочее, я проверял.