Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Мультимедиа
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 16.01.2011, 14:47
EPaul EPaul вне форума
Прохожий
 
Регистрация: 16.01.2011
Адрес: Набережные Челны
Сообщения: 12
Репутация: 159
По умолчанию Видео (либо картинка) с сетевых WEB камер

Кто нить работал с сетевыми web камерами? Как получить видео поток или картинку с сетевой камеры? Видео, конечно можно получить и в браузере, но тогда вопрос, как вытащить его из браузера. Как снять хотя бы картинку с того места браузера, где производится вывод видео, и даже в том случае, когда браузер свернут? Это реально сделать?
Ответить с цитированием
  #2  
Старый 16.01.2011, 17:09
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

на форме TButton, TImage, TIdHTTP, TProgressBar. обработчик OnClick для кнопки. события TIdHTTP: OnWorkBegin, OnWork, OnWorkEnd.
Код:
unit Unit1;

interface

uses
  jpeg,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, StdCtrls, ExtCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Image1: TImage;
    Button1: TButton;
    ProgressBar1: TProgressBar;
    procedure Button1Click(Sender: TObject);
    procedure IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCountMax: Integer);
    procedure IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCount: Integer);
    procedure IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  memorystream: TMemoryStream;
  jpeg: TJPEGImage;
begin
  memorystream:=TMemoryStream.Create;
  jpeg:=TJPEGImage.Create;
  try
    IdHTTP1.Get('http://www.ionitcom.ru/images/cam_static_pl_len.jpg', memorystream);
    memorystream.Position:=0;
    jpeg.LoadFromStream(memorystream);
    Image1.Picture.Assign(jpeg);
  finally
    jpeg.Free;
    memorystream.Free;
  end;
end;

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  ProgressBar1.Position:=0;
  ProgressBar1.Max:=AWorkCountMax;
  ProgressBar1.Visible:=True;
  Application.ProcessMessages;
end;

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  ProgressBar1.Position:=AWorkCount;
  Application.ProcessMessages;
end;

procedure TForm1.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  ProgressBar1.Visible:=False;
  Application.ProcessMessages;
end;

end.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #3  
Старый 16.01.2011, 18:23
EPaul EPaul вне форума
Прохожий
 
Регистрация: 16.01.2011
Адрес: Набережные Челны
Сообщения: 12
Репутация: 159
По умолчанию

Спасибо за ответ, но это не совсем то. Картинку с сайта я получил. Но в Web камере нет JPG-ов.
Ответить с цитированием
  #4  
Старый 21.01.2011, 18:29
EPaul EPaul вне форума
Прохожий
 
Регистрация: 16.01.2011
Адрес: Набережные Челны
Сообщения: 12
Репутация: 159
По умолчанию

NumLock, Спасибо за пример. Наконец разобрался, с картинками все работает отлично. А с видео потоком не поможешь?
У меня используются камеры Trendnet и поэтому к ним доступ такой: картинка- /cgi/jpg/image.cgi
видеопоток - /cgi/mjpg/mjpg.cgi. Буду очень благодарен за помощь.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 14:26.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter