Новая Версия 1.0d

CamGrabber:
- Встроен режим поверх всех окон
- Новое Сообщение 'RELOAD' - перезапуск CamGrabber с чтением всех параметров заново

CamGrabberSettings:
- Кнопка 'Сохранить и перегрузить' - сохраняет настройки и перегружает CG
- Галка 'Стартовать поверх всех окон' - запуск CG поверх всех окон

Присоединяюсь к тестированию - Аналоговая камера + плата видеозахвата (мультиплексирующая) на чипе Conexant Fusion 878A

Совершенно обычная плата видеозахвата на Conexant Fusion 878 ни с одной из 3 версий драйверов, которая у меня есть, не захотела определяться в камграбере.

ОПЛЯ! Заработало! На твиканутых драйверах для bt878 с сайта www.iulabs.com
По крйней мере карту увидел сеттингс. Остальное проверю завтра.

Что потребуется от вот от этой программы PCCAR (или здесь совместный проект) для того, что бы красиво рисовать (или вставлять данные) внутри CG? :hi:

В CG Данные можно вставлять только внизу экрана и только одну строку (пока, в дальнейшем может сделаю что то круче)
И чтобы это делать программа должна реализовать метод передачи данных WM_COPYDATA, в инете примеров полно, если надо могу скинуть Сорцы по этой теме!

Вот, что добавил в свою прогу:
const
CD_CMD_SETCAPTION = 78; // команда для передачи данных !!!
var
Form1: TForm1;
Implementation {$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var CDS: TCopyDataStruct;
begin
CDS.dwData := CD_CMD_SETCAPTION; // задаем команду
CDS.cbData := Length(Edit1.Text) + 1;
GetMem(CDS.lpData, CDS.cbData);
try
StrPCopy(CDS.lpData, Edit1.Text);
SendMessage(FindWindow(NIL, 'CG'), // посылаем в окно с заголовком «CG»
WM_COPYDATA, Handle, Integer(@CDS));
finally FreeMem(CDS.lpData, CDS.cbData); end;
end;

Вот, что написал в тестовой:

const
CD_CMD_SETCAPTION = 78; // команда для приема данных.
var
Form1: TForm1;
implementation {$R *.dfm}
procedure TForm1.WMCopyData(var M: TWMCopyData);
begin
// Если команда — Берем текст данных
if M.CopyDataStruct.dwData = CD_CMD_SETCAPTION then
begin
Label1.Caption := PChar(M.CopyDataStruct.lpData);
M.Result := 1;
end
else M.Result := 0;
end;

Все правильно? Если да, то проще Вам добавить код и прислать мне для тестирования.

Не совсем.
Болдом поправил ваш код! Исправил Caption окна и вот еще что,
для каждой камеры может задаваться свой текст, если текст надо написать на всех камерах - то текст команды будет выглядеть так: "SAY0.......текст......."
Врсию, адаптированную под вас выложил http://www.cpdvd.ru/CamGrabber10f.zip

NewVersion

1.0f 25.07.2007:
CamGrabber:
- Можно выводить текстовое сообщение на все камеры сразу, команда SAY0

CamGrabberSettings:
- Ко всем параметрам сделаны Подсказки, теперь настраивать проще

можно и две, но пока реализована одна
Посылай тогда так:
SAY063 2710