Club Builder

[Invitado]

Ya revise en la opcion buscar todos los "post" referenets a video

y les indico lo que he logrado el dia de hoy

**Aplicacion Servidor "simulado" rustico

1) Abrir dispositivo web cam y colocarlo en un panel dentro de una ventana
2) Captura cada cierto tiempo (timer) un frame y guardarlo com bitmap

**Aplicacion Cliente mas rustica todavia

VEntana que leee cada cierto tiempo el fichero *.bmp generado por la
apliacacion Servidor , esto obiamnte funmciona atravez de una rd local
compartiendo la carptea donde esta la imagen

Entiendo que lo que hice no es NADA OPTIMO y consume recursos como idiota pero bueno es lo que logre hacer luego de 4 horas de investigacion
y nada en internet sobre el manejo de streams y la ayduaa del builder en esos temas es muy pobre

SOLICITO SU SU AYUDA DE LAS MANERA MAS HUMILDE (leo, rpocar, rb y los demas gurus)

para convertir este programa a trasmision por medio de un tmemorystream y serversocket y clientesocte o com se llame
para poder hacerlo via internte, asumiendo que posteriorremte
comprima la imagen a un formato jpg para la trasmision del mismo
o mpg

AYUDA PLZ!!!

[Niteman]

Hola.
Como ya habrás visto en el foro, yo conseguí enviar una imagen (sin necesidad de guardarla en un fichero) usando los componentes NMStrm y NMStrmServ y en una red local.
Cuando intenté hacerlo con las imagenes de la camara web (30 frames/sec) e intentando usar el localhost, se me colgó el programa. Ahora lo tengo parado por otras prioridades. Si consigues hacer algo postealo, please.

Que componente usas para la captura de la webcam?? Yo el ImageEn porque no encontré que tuviese una función que devolviese los frames.
Salu2.

[Invitado]

No me gusta instalr componentes externos ya que luego es nu problema distribuirlos (solo cuando sea algo muy complicado como un id telefonico o algo asi)

Utilizamos el api de windows

capFileSaveDIB (hwndVideo, FileName);

Pego el componente completo aqui para que uses

Enviem el codigo parfa enviar sin guardar en archivo plz

[Niteman]

Hola.
Entiendo que no querais instalar componentes externos por el tema de licencias, distribucion, etc. Voy a mirar el código que poneis y lo probaré.
Salu2.

[Touchsoftwares]

El codigo que puse funciona perfectamente, lo que necesito es la iluminacion de alguno de ustedes para enviar una imagen por medio de l protocolo tcp/ip, me imagino que es un stream , me imagino que no voy a guardar la imagen el disco voy a a tomar el fram , lo voy a "meter" en un stream de memorya y lo voya envair por medio ntmstrserver a un ntmstrcliente o algo

que alguien me ayude con ejemplos de codigo del uso de sockets Y TRASMISION , yo m encargo de la compresion PLease!!!

ya coloque la clasesista en las seccion de tips

saludos y espero su inmensa ayuda!
_________________
Ing. Gabriel Góngora Navarrete
TouchSoftwares Inc

http://www.touchsoftwares.com

[Touchsoftwares]

Enviame porfavor algun ejemplo de como lograste pasar una imagen , de un equipo a otro por medio de un stream, te prometo que tan pronto termine el algoritmo de comrpesion te lo envio de vuelta funcionando
_________________
Ing. Gabriel Góngora Navarrete
TouchSoftwares Inc

http://www.touchsoftwares.com

[Touchsoftwares]

Plz. ejemplo de envio de imagen a travez de un stream!!

leo plz plz

ya ven que siempre les ayudo a todos lo mas que puedo ahora necesito su ayuda no seais egoistas

Gracias por anticipado
_________________
Ing. Gabriel Góngora Navarrete
TouchSoftwares Inc

http://www.touchsoftwares.com

[Invitado]

//Para enviar

void __fastcall TFormMain::SendBtnClick(TObject *Sender)
{
//Paso de BMP a JPEG mi imagen y guardo en un stream

TJPEGImage *jp = new TJPEGImage();
jp->Assign(Image2->Picture->Bitmap);
TMemoryStream *mystr=new TMemoryStream();
jp->SaveToStream(mystr);
NMStrm1->Host = Edit2->Text;
NMStrm1->FromName = Edit1->Text;
NMStrm1->PostIt(mystr);
mystr->Free();
delete jp;
}

//En el evento del componente NMStrmServ1, recupero del stream la imagen
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMStrmServ1MSG(TComponent *Sender,
const AnsiString sFrom, TStream *strm)
{
TJPEGImage *jp2 = new TJPEGImage();
jp2->LoadFromStream(strm);
Image3->Picture->Assign(jp2);
delete jp2;

}

[Touchsoftwares]

Gracias!!!
_________________
Ing. Gabriel Góngora Navarrete
TouchSoftwares Inc

http://www.touchsoftwares.com

[Niteman]

Una cosa.
No se como acceder al frame para poder guardarlo en un stream (si no lo es) para poder enviarlo. No quiero guardarlo en un fichero.
Como se hace? No me aclaro con las funciones del API:capVideoStreamCallback
capSetCallbackOnFrame
y otras.
Salu2.

[cmhicham]

me pregunta es para el invitado, tu codigo es el siguiente
void __fastcall TFormMain::SendBtnClick(TObject *Sender)
{
//Paso de BMP a JPEG mi imagen y guardo en un stream

TJPEGImage *jp = new TJPEGImage();
jp->Assign(Image2->Picture->Bitmap);
TMemoryStream *mystr=new TMemoryStream();
jp->SaveToStream(mystr);
NMStrm1->Host = Edit2->Text;
NMStrm1->FromName = Edit1->Text;
NMStrm1->PostIt(mystr);
mystr->Free();
delete jp;
}
imaginate que ahora antes de enviara stream queremos guardar en ella una segunda imagen en formato jpg, como lo harias por favor

void __fastcall TFormMain::SendBtnClick(TObject *Sender)
{
//Paso de BMP a JPEG mi imagen y guardo en un stream

TJPEGImage *jp = new TJPEGImage();
jp->Assign(Image2->Picture->Bitmap);
TMemoryStream *mystr=new TMemoryStream();
jp->SaveToStream(mystr);
//aqui donde se debe guardar la segunda imagen
//jp->Assign(Image3->Picture->Bitmap);
//.....................................

NMStrm1->Host = Edit2->Text;
NMStrm1->FromName = Edit1->Text;
NMStrm1->PostIt(mystr);
mystr->Free();
delete jp;
}

[tony26]

hola, estoy probando el codigo y algo estoy haciendo mal y no me sale, no lo tendreis alguno ya hecho para echarlo un vistazooo.


MUCHAS GRACIAS

[ikis]

Alguien logró evitar guardar en disco y preparar el stream directamente en memoria?

creo q con esto la cosa iría más rápido.

atte
_________________
Adrián

http://adrian.org.ar

[Touchsoftwares]

adrian.. hice el codigo y si no me equio logre que lo haga en memoria, dejame lo encuentro y te lo envio..sale?

aunque siendo practico.. a mis clientes les vendo ahora camaras IP.. (nos cuestan unos 380 dolares) ..solo la conectas al router y entras a ellas desde cualquier navegador (sabiendo el ip o haciendo una resolucin dinamica) y mira..te evitas 1000 problemas funciona 10,000 veces mejor (por que tiene un procesador integrado solo para la compresion y trasmision) y no dependes de ningun equipo para que funciono

a menos que lo hagas con fines de diversion, no vale la pena invertir mas tiempo en la trasmision con web cams

saludos

Gabriel
_________________
Ing. Gabriel Góngora Navarrete
TouchSoftwares Inc

http://www.touchsoftwares.com

[kalux]

Hola a todos, no se si os puede ser util pero podeis echarle un vistazo a
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=19268
no lo he visto asi que no puedo daros una opinion

Un saludo.