Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

streaming video?

Status
Not open for further replies.

IDTstudios1

Programmer
Aug 8, 2004
72
US
Here's my situation. I have forty to fifty IP cameras. I need to be able to have a program sitting on a server that will pull feeds off of the cameras and distribute the feeds to client programs throughout the building.

What are my options for the streaming video? Any ideas would be appreciated.

Thanks,
Andrew
 
can you access them via a webbrowser??

Christiaan Baes
Belgium

I just like this --> [Wiggle] [Wiggle]
 
yes, but the cameras only support a few client connections.
 
that doesn't matter if you a browser can access it then vb.net can via a webrequest.
something like this.

Code:
Dim webrq As System.Net.WebRequest
        Dim mycallback As System.Drawing.Image.GetThumbnailImageAbort
        Dim picOriginalHeight, picOriginalWidth As Double
        Dim picNewHeight, picNewWidth As Double

        webrq = System.Net.WebRequest.Create("[URL unfurl="true"]http://200.0.0.85/cgi-bin/outjpeg?szA&"[/URL] & Math.Floor(Rnd() * 100000000) & "&1280&960&&100&100")
        Me.frmTempImage.Image = Image.FromStream(webrq.GetResponse().GetResponseStream())
        Me.frmTempImage.picImage.Visible = True
        Me.dtAnalysis.Rows(0).Item("path image fiber") = Docmd.CaseDirectory(cmbcasenumber.Text) & "Microscopie\" & TxtOs_Id.Text.Replace("/", "_") & ".jpg"
        PictureBox1.Visible = True
        picOriginalHeight = Me.frmTempImage.Image.Height
        picOriginalWidth = Me.frmTempImage.Image.Width
        If picOriginalHeight > picOriginalWidth Then
            If picOriginalHeight > 150 Then
                picNewHeight = 150
                picNewWidth = picOriginalWidth / picOriginalHeight * 150
            End If
        Else
            If picOriginalWidth > 150 Then
                picNewWidth = 150
                picNewHeight = picOriginalHeight / picOriginalWidth * 150
            End If
        End If
        PictureBox1.Image = Me.frmTempImage.Image.GetThumbnailImage(Int(picNewWidth), Int(picNewHeight), mycallback, System.IntPtr.Zero)
        PictureBox1.Image = PictureBox1.Image
        PictureBox1.Top = (150 - picNewHeight) / 2
        Local_BolChange(True)

this is what I use to take pictures with a nikon microscope camera. It saves the path to a database and makes a thumbnail at the same time. This code won't work like it is but will give you an idea.

Christiaan Baes
Belgium

I just like this --> [Wiggle] [Wiggle]
 
BTW I can think of only one reason why you would have 30 cams, but it must be my dirty mind again. ;-)

Christiaan Baes
Belgium

I just like this --> [Wiggle] [Wiggle]
 
that's exactly what I was looking for. Would it be better to stream the "feed" to the clients as jpg frames or convert it to avi at the server then stream as video?
 
Is this a windows forms app??

or a web app.

Christiaan Baes
Belgium

I just like this --> [Wiggle] [Wiggle]
 
They are to keep an eye on a property. Commercial surveilence software is just way to expensive for a what I need.
 
Ahem..Chrissie.
And just what is your exact need for a microscope camera?

Sweep
...if it works dont f*** with it
curse.gif
 
I work in a forensic lab where we do fiber and textile research. Since fibers tend to be on the small side (approx 30µ) We really need a microscope or so they tell me. Of course it could be used for other things but I will let your dirty mind work on that.

Christiaan Baes
Belgium

I just like this --> [Wiggle] [Wiggle]
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top