خارطة الموقع برنامج مبيعات ونقاط البيع وجرد المستودعات ومحاسبة الرئيسية من نحن اتصل بنا English
Yazsys.com
منذ عام 2012 - 2018
Skip Navigation Links
نظام إدارة المبيعات
|
تعليم & شروحاتExpand تعليم & شروحات
 
كود عرض الفيديو في الصفحة
بواسطة احمد عادل موسى
2014-12-12
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Context.Response.Buffer = False
        Context.Response.ContentType = "video/mp4"
 
        Dim path As String = Context.Server.MapPath("x.mp4")
        Dim fileinfo As FileInfo = New FileInfo(path)
        fileinfo.Refresh()
        If fileinfo.Exists Then
            Dim len As Integer = fileinfo.Length
            Dim bytes As Integer
            Context.Response.AppendHeader("content-length", len.ToString())
            Dim buffer(1024) As Byte
            Dim outstream As System.IO.Stream = Context.Response.OutputStream
            Using stream As System.IO.Stream = File.OpenRead(path)
                bytes = stream.Read(buffer, 0, buffer.Length)
                While len > 0 And bytes > 0
                    outstream.Write(buffer, 0, bytes)
                    bytes = stream.Read(buffer, 0, buffer.Length)
                    len -= bytes
 
 
                End While
                'context.Response.Write(bytes)
            End Using
 
        Else
            Context.Response.Write("404: file not found")
        End If
 
        Context.Response.Flush()
        Context.Response.Close()
        Context.Response.End()
    End Sub
 
 
إعلان ... لأصحاب المتجار فقط - برنامج تنفيذي وليس سورس كود
تحميل برنامج مبيعات وجرد المستودعات

 
 
الصفحة الرئيسية
اتصل بنا
نبذة عن هذا الموقع
خارطة الموقع
مشاريع برمجة متنوعة مفتوحة المصدر
مواضيع ودروس تعليمية
 
 
نظام YAZSYS لإدارة المبيعات