Запись маршрутных камер!

[Wanted]

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

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

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

[Don_ik_kot]

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

[Don_ik_kot]

Сообщение от Wanted

Давай дарагой!!!!!!!

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

[Don_ik_kot]

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

[eug_car]

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

[Wanted]

Сообщение от eug_car

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

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

[eug_car]

Сообщение от Wanted

В 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;

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

[Wanted]

Сообщение от eug_car

Вот, что добавил в свою прогу:
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 := "SAY1" + Length(Edit1.Text) + 1;
GetMem(CDS.lpData, CDS.cbData);
try
StrPCopy(CDS.lpData, Edit1.Text);
SendMessage(FindWindow(NIL, 'CamGrabber'), // посылаем в окно с заголовком «CamGrabber»
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

[Wanted]

NewVersion

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

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

[Wanted]

Сообщение от eug_car

Ок, сейчас без камеры не проверить, дома запущу.
Слать буду скорость и обороты через пробел (“63 2710”) десять раз в сек, уже сами смотрите, куда их пристроить.
А как насчет 2-х строк?

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