หากมีคำถาม ขอให้ไปโพสต์ลง เว็บบอร์ดจีทูจีเน็ตดอตคอม ตัวใหม่แทนน่ะครับ

หรือติดต่อเข้ามาทาง Inbox ที่ เฟซบุ๊ค ผมครับ

หน้าหลัก
ข่าวสาร - บทความ ทั้งหมด
VB 6/VB.Net
ASP/ASP.Net
จับฉ่ายคอมพิวเตอร์
เรียนรู้ผ่าน Flash Movie
บทความที่มีผู้ตอบล่าสุด  
 RSS Feeds
 ดาวน์โหลดโปรแกรม RSS Reader ได้ที่นี่ ...   Download โปรแกรม RSS Reader

Forum - www.g2gnet.com
Webmaster - www.g2gnet.com
Visitors - Session views
 4 7 6 3 6 4 5

7 ธันวาคม พ.ศ.2549
111 Users On-Line.
Visitors - Page views
 7 9 8 8 3 1 7
1 กุมภาพันธ์ พ.ศ.2551

Google   
เว็บ g2gnet.com
ขนาดตัวอักษร:  

แจกฟรีโค้ดในการดู Flash Video On line ผ่าน Web Browser (VB6+HTML)

Category »  VB 6/VB.Net
โดย : Webmaster เมื่อ 25/2/2554   เวลา: 11:20
(อ่าน : 17093) 
บทความนี้จะเป็นการนำเอา Media ต่างๆในเหล่าตระกูลที่ต้องใช้งาน Adobe Flash จากเว็บไซต์ต่างๆ (รวมทั้ง YouTube ด้วย) มาฝัง หรือ Embed เข้าไปในเอกสาร HTML แล้วเปิดดูใน WebBrowser (Microsoft Internet Controls) ภายในโปรแกรมของเราเอง ขอย้ำว่าไม่ได้เปิดดู Flash โดยตรงน่ะครับ ... แต่อาศัย Tag ที่แต่ละเว็บไซต์ให้มา (คำว่า Tag คือ รูปแบบคำสั่งภายในเอกสาร HTML) ... และ Flash ก็ถือว่าเป็น Object หรือ วัตถุ ที่สามารถนำเข้ามาใช้งานได้เลยภายในเอกสาร HTML ซึ่งจะมีรูปแบบของ Tag ที่ขึ้นต้นด้วย <Object> และ ปิดท้ายด้วย </Object> ส่วนที่อยู่ภายในก็จะมี Option อื่นๆอีกเช่น ตั้งค่าความกว้าง ความสูง ให้เล่นอัตโนมัติ หรือ ให้แสดงผลเต็มจอหรือไม่ และอื่นๆอีก ผมขอแนะนำให้ไปศึกษาเพิ่มเติมโดยเฉพาะเรื่อง Tag ด้วย เพราะเราจะสามารถทะลุก้าวข้ามการทำงานลักษณะ Off Line แบบเดิมๆไปได้ครับ ... ยิ่งผสมผสานความรู้ระบบ DataBase, XML และ ASP/PHP Script เข้าไปอีก ซึ่งหลายท่านก็คงได้ประจักษ์แก่สายตาตัวเองไปแล้ว ว่าอานุภาพของ MS Visual Basic 6 มันร้ายกาจขนาดไหน 55555+ (หากใช้งานได้ และ ต้องใช้ให้เป็น) ...
    วิธีการง่ายๆสำหรับผู้ใช้งานทั่วไปที่ไม่มีความรู้ด้าน Programming
  • คัดลอก Tag (ซึ่งปกติเขาจะมีคำว่า Embed นั่นแหละครับมา)

    การคัดลอก Tag เพื่อนำมา Embed ในเอกสาร HTML

    แปะไว้ใน Notepad ธรรมดาๆนี่เอง แล้วบันทึกให้ไฟล์มีนามสกุล htm หรือ html ก็ได้ ... จาก Tag ที่เห็นเราก็ปรับความกว้าง ความสูงเอาตามใจชอบครับ
    ตั้งแต่คำว่า <embed> ไปจนถึง </embed> พวกนี้จะตัดทิ้งออกไปเลยก็ได้

    จากนั้นก็เปิดดูผ่านทางเว็บเบราเซอร์ได้เลย ... ก็จะโหลดได้เร็วขึ้น เพราะไม่มีส่วนอื่นๆที่ไม่ต้องการโผล่มา
    จะได้รีบไปหาหมีให้น้องเขา 55555+ ... น้องการ์ตูนกางเกงเขียว น่ารักดีครับ อิอิอิอิอิ
    วิธีการใช้ VB6 Programming สำหรับอ่านเอกสาร HTML
  • ต้องเพิ่ม Component คือ Microsoft Internet Controls เข้ามาใช้งาน

    ไปที่ Project --> Components ...

    การออกแบบหน้าจอ (Design Time) ... ลาก WebBrowser จาก ToolBox เข้ามาวางไว้บนฟอร์ม
      สามารถเรียกใช้งานได้หลักๆที่เห็นได้ทั่วไป คือ
    1. WB.Navigate App.Path & "\ชื่อไฟล์.html" ... เป็นการอ่านเอกสาร HTML ในเครื่องของเราตาม Path/ชื่อไฟล์ ที่ระบุ ... เหมาะแก่การนำไปประยุกต์ใช้งานแบบ Off Line ครับ
    2. เขียน Tag ของเอกสาร HTML อยู่ภายในตัวโปรแกรม ... วิธีการนี้ยุ่งยาก (แต่ก็จะขอนำเสนอ 55555+)
    3. จำลองเครื่องเป็น Web Server (หรือใช้งานกับ Web Server จริงๆก็ได้)
      เป็นการอ่านไฟล์เอกสาร HTML จาก Web Server ซึ่งจะทำให้เครื่องคอมฯของเราเอง หรือ เครื่องอื่นๆสามารถดู Flash Video ได้พร้อมกัน
    4. ใช้ HTML Object Library ... ยังไม่ขอกล่าวถึง เหมาะกับการทำงานที่สมบูรณ์แบบของตัว Web Browser (เขียนยาก)
ดาวน์โหลด Source Code สำหรับผู้ใช้งาน Visual Basic 6
ดาวน์โหลด Source Code สำหรับ MS Visual Basic 6.0 - Service Pack 6
 ดาวน์โหลด Visual Basic 6.0 SP5: Run-Time Redistribution Pack
 ดาวน์โหลด Microsoft Data Access Object (MDAC) และ Jet 4.0 Update
 ดาวน์โหลด Microsoft Visual Basic Service Pack 6
ข้อมูลเพิ่มเติม
เรียนรู้ XML กับ Visual Basic 6.0 ภาค 1
เรียนรู้ XML กับ Visual Basic 6.0 ภาค 2
เรียนรู้ XML กับ Visual Basic 6.0 ภาค 3 (แปลงร่าง XML ให้กลายเป็น HTML)
เรียนรู้ XML กับ Visual Basic 6.0 ภาค 4 (แจกโค้ดทำโปรแกรมดูทีวีออนไลน์ VB6+XML)
แจกฟรี ... Source Code โปรแกรมดูทีวีออนไลน์ ด้วย VB.Net (2008)
ตรวจสอบรายชื่อสถานี/รายการแบบ Real Time
มาดูโค้ดกันเถอะ ...

Option Explicit

Private Sub Form_Load()
    Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
    
    ' เปิดหน้าว่างเปล่า (Blank Page) ที่เก็บเอาไว้ใน Folder ของโปรเจคนี้
    ' ประโยชน์ คือ
    ' 1. เปิดโปรแกรมขึ้นมาแล้ว มันจะไม่แสดง Error ให้เห็น
    ' 2. ใช้กับการสร้างเอกสาร HTML แบบ Run Time (ดูที่ปุ่ม cmdUCFlashPage)
    WB.Navigate App.Path & "\Blank.html"
    
End Sub

'---------------------------------------------------------------------------------------------------------
' เป็นการอ่านเอกสาร HTML จาก Server โดยตรง จึงไม่จำเป็นต้องมีไฟล์ HTML มารองรับ
'---------------------------------------------------------------------------------------------------------
Private Sub cmdUCFlashHTML_Click()
    
    ' การอ่านไฟล์เอกสาร HTML จาก Path และ ชื่อไฟล์ที่กำหนดไว้ในเครื่องของเราเอง
    ' นั่นคือ ... นำไปประยุกต์ใช้งานรูปแบบการทำงานในลักษณะ Off Line
    WB.Navigate App.Path & "\TestFlashWeb.html"
    
    ' การจำลอง Server
    'WB.Navigate "http://localhost/g2gnet/UCFlashWeb.html"
    
    ' กรณีที่ไม่ได้จำลอง Server เอาไว้ ให้อ่านข้อมูลจากเว็บไซต์โดยตรง (ทดลองได้เลย)
    'WB.Navigate "http://www.g2gnet.com/UCFlashWeb.html"

End Sub

'---------------------------------------------------------------------------------------------------------
' ก่อนจะใช้งานส่วนนี้ได้ เราจะต้องมีเอกสาร HTML มารองรับก่อน นั่นคือ
' ตรง Form_Load ได้เปิดไฟล์ Blank.html เอาไว้ก่อนล่วงหน้าแล้ว
' (เราสามารถใช้งาน HTML Object Library แทนก็ได้ครับ แต่วิธีการจะยุ่งยาก)
'---------------------------------------------------------------------------------------------------------
Private Sub cmdUCFlashPage_Click()
    Dim HTML As String
    
    ' เคลียร์ค่า HTML
    HTML = ""
    
    ' เวลาที่เราคัดลอก Tag มาใช้งานในกรณีนี้ อย่าลืมต้องเอาเครื่องหมาย Double Quote (")
    ' ที่อยู่ภายในออกไปให้หมดก่อนด้วยล่ะครับ ... อีกทั้งยังต้องเชื่อมต่อ Tag ให้ดีๆด้วย
    ' มันไม่สะดวกเหมือนใช้ HTML โดยตรง แต่จะใช้งานจริงๆในกรณีที่เราเก็บไว้ในระบบฐานข้อมูล
    ' ขอแนะแนวทางล่วงหน้า ... ใช้คำสั่ง (หรือ ฟังค์ชั่น) Replace เข้าช่วยก็ได้ครับ อิอิอิอิอิ
    HTML = _
    "<object classid=clsid:d27cdb6e-ae6d-11cf-96b8-444553540000 " & _
    "codebase=http://fpdownload.macromedia.com/pub/shockwave/" & _
    "cabs/flash/swflash.cab" & _
    "#version=10,0,0,0 width=315 height=300>" & _
    "<param name=movie " & _
    "value=http://tv2.truelife.com/assets/flash/bestplayer.swf?stream_url=" & _
    "http://services.truelife.com/contentEngine/contents/mobile/utf-8/" & _
    "091013160948005.xml&config=" & _
    "http://tv2.truelife.com/assets/flash/config2.xml&contentType=" & _
    "truemusic&smooth=true&playerType=tv&" & _
    "scope=truelife&autoStart=true&e=true></param>" & _
    "<param name=wmode " & _
    "value=transparent>" & _
    "</param>" & _
    "<param name=allowFullScreen " & _
    "value=true>" & _
    "</param></object>"
    
    ' เขียนเอกสาร HTML ลงใน WebBrowser
    WB.Document.write HTML
    
End Sub

Private Sub Form_Resize()
    WB.Move 0, 0, Me.ScaleWidth - cmdUCFlashHTML.Width - 300, Me.ScaleHeight
End Sub

Private Sub cmdExit_Click()
    Set frmUCFlashWeb = Nothing
    End
End Sub
Conclusion:
จุดเริ่มต้นของการเรียนรู้ระหว่าง Application + Web Page ธรรมดาๆ ที่ไม่มีอะไรซับซ้อนเลย เพราะหากพี่น้องพยายามทำความเข้าใจ ในกระบวนการทำงานของทั้ง 2 แบบแล้ว ผมคิดว่าทุกๆท่านก็คงจะมองออก (เหมือนผม) แหละว่า จะสามารถนำไปประยุกต์ใช้งานอะไรได้บ้าง เพราะนอกเหนือไปจากเรื่องของความบันเทิงแล้ว เรายังสามารถนำไปใช้ประโยชน์ต่อระบบการศึกษาได้เลย (ผมทำเอาไว้บางส่วนแล้ว) ... ขั้นตอนต่อไปก็ต้องศึกษาเรื่องของระบบฐานข้อมูล เรื่องของ XML และ เรื่องของ Script (เช่น ASP/PHP) ... แหละนี่คือเทคโนโลยีที่เขาเรียกว่าเก่า เต่า ล้าสมัย 55555+

จี ทู จี เน็ต ดอต คอม - g2gNet Dot Com
เลขทะเบียนพาณิชย์อิเล็กทรอนิกส์ 0407314800231
CopyLeft © 2004 - 2099 g2gNet.Com All rights reserved.
Email: [email protected] หรือ โทร. 08-6862-6560