Webbrowser mit Shockwave probleme

Shootz · 12. März 2010, 14:56

Hi Leute,

Bin jetzt neu hier, meine frage ist wie ich in meinen eigenen Webbrowser (mit VB erstellt) Shockwave und Dvix einbaue das es mir
möglich ist diverse seiten zu öffnen und mir die Videos anschauen kann. Ich suche schon ziemlich lange, irgendwie kann mir niemand so richtig helfen die SuFu hab ich hier schon verwendet hier wird ja beschrieben das man Shockwave einfügen muss. Das Hab ich auch einige mal probiert mit Shockwave AktiveX Control da erscheint leider immer eine fehlermeldung "Es wurde versucht im geschützten Speicher zu lesen,..." (Braucht man da den Shockwave AktiveX control überhaupt?)

Bitte um hilfe

mfg. Shootz :cursing:

Edit by LaMa5:
- hat nichts im Tipps&Tricks Bereich zu suchen
-->*moved* (=> Hauptforum)

Scream · 12. März 2010, 16:28

Zeig mal welchen Link du z.b als Movie angegeben hast..

ChaosBernd · 12. März 2010, 16:46

gegefrage !

würde dir es etwas nutzen wenn du einen flasch player hättest.
ich habe den mal in einem meiner projekte eingebaut. damit kann ich dann z.B. YouTube Videos abspielen,
klappt super.

danke

Shootz · 12. März 2010, 16:51

wenn ich z.b. "kino.to" aufmache das ich speedload.to/FILE4B95762779BD8 abspielen kann.

@ChaosBernd: was meinst du genau?, ein flashplayer in dem ich alle videos abspielen kann ob divx oder etc??
(gibt es sowas überhaupt?

)

sry, ich war mir nicht sicher wo ich es hinposten soll. (hab jetzt nirgends ein Thema gesehen für fragen oder sonstiges.)

ChaosBernd · 12. März 2010, 17:05

Eine Klasse für einen FlashPlayer
damit kann auf das Form ein FlashPlayer mit z.B. YouTube Videos angezeigt werden

Spoiler anzeigen

VB.NET-Quellcode

Option Explicit On
'Option Strict On ' Funkioniert in dieser Klasse nicht
Imports System.IO
Imports System.Net
Imports System.Text
Imports System.ComponentModel
''' <summary>
''' DLL über verweise einfügen:
''' "AxInterop.WMPLib.dll"
''' Programm einmal staten:
''' dann kann aus der ToolBox der "FlashPlayer" in das Form gezogen werden
''' Aufrufbeispiel:
''' If Me.FlashPlayer1.IsPlayerInit Then
''' ProggerFuny CodeBox Vorstellung
''' Me.FlashPlayer1.PlayMovie("http://www.youtube.com/v/Fa_fGBzWaxo")
''' </summary>
''' <remarks></remarks>
Module FlashPlayer
''' <summary>
''' FlashPlayer UserControl
''' </summary>
''' <remarks>
''' Dieses UserControl hosted über LateBinding einen
''' versionsunabhängigen FlashPlayer.
''' Darum kann "Option Strict On" nicht eingeschaltet werden
''' November 2009 - VB-Power.net
''' http://www.vb-power.net
''' </remarks>
Public Class FlashPlayer
Inherits UserControl
Private m_FlashHost As FlashHost
Private m_AutoPlay As Boolean = True
Private m_ColorFrom As Color = Color.Gray
Private m_ColorTo As Color = Color.Gray
Private m_ShowBorder As Boolean = False
Private m_IsPlayerInit As Boolean = False
''' <summary>
''' Controller-Host für den FlashPlayer zur Darstellung
''' in einem UserControl.
''' </summary>
Private Class FlashHost
Inherits AxHost
Public Sub New(ByVal sCLSID As String)
MyBase.New(sCLSID)
End Sub
Public ReadOnly Property Player() As Object
Get
Return Me.GetOcx
End Get
End Property
End Class
''' <summary>
''' Initialisiert das UserControl
''' </summary>
Public Sub New()
Try
' Versionsunabhängiges LateBinding des FlashPlayers
Dim tFlashPlayer As Type = Type.GetTypeFromProgID("ShockwaveFlash.ShockwaveFlash")
If tFlashPlayer IsNot Nothing Then
m_FlashHost = New FlashHost(tFlashPlayer.GUID.ToString)
DirectCast(m_FlashHost, ISupportInitialize).BeginInit()
SuspendLayout()
m_FlashHost.Visible = True
m_FlashHost.Dock = DockStyle.Fill
Controls.Add(m_FlashHost)
DirectCast(m_FlashHost, ISupportInitialize).EndInit()
ResumeLayout(False)
PerformLayout()
m_IsPlayerInit = True
Else
MessageBox.Show("Der FlashPlayer konnte nicht initialisiert werden.", _
"Überprüfung FlashPlayer", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Initialisierung FlashPlayer", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
''' <summary>
''' Legt fest, ob das Video sofort abgespielt werden soll.
''' </summary>
<DefaultValue(GetType(System.Boolean), "True")> _
Public Property AutoPlay() As Boolean
Get
Return m_AutoPlay
End Get
Set(ByVal value As Boolean)
m_AutoPlay = value
End Set
End Property
''' <summary>
''' Legt die erste Verlaufsfarbe für Border und Navigator fest.
''' </summary>
<DefaultValue(GetType(System.Drawing.Color), "Gray")> _
Public Property ColorFrom() As Color
Get
Return m_ColorFrom
End Get
Set(ByVal value As Color)
m_ColorFrom = value
End Set
End Property
''' <summary>
''' Legt die zweite Verlaufsfarbe für Border und Navigator fest.
''' </summary>
<DefaultValue(GetType(System.Drawing.Color), "Gray")> _
Public Property ColorTo() As Color
Get
Return m_ColorTo
End Get
Set(ByVal value As Color)
m_ColorTo = value
End Set
End Property
''' <summary>
''' Zeigt an, ob ein FlashPlayer initialisiert werden konnte.
''' </summary>
<Browsable(False)> _
Public ReadOnly Property IsPlayerInit() As Boolean
Get
Return m_IsPlayerInit
End Get
End Property
''' <summary>
''' Legt fest, ob der Player einen Rahmen angezeigen soll.
''' </summary>
<DefaultValue(GetType(System.Boolean), "False")> _
Public Property ShowBorder() As Boolean
Get
Return m_ShowBorder
End Get
Set(ByVal value As Boolean)
m_ShowBorder = value
End Set
End Property
''' <summary>
''' Spielt das angegebene Video ab.
''' </summary>
''' <param name="URL">Die URL des Videos.</param>
Public Sub PlayMovie(ByVal URL As String)
If Not String.IsNullOrEmpty(URL) Then
Dim sb As New StringBuilder
sb.Append(URL)
sb.AppendFormat("&autoplay={0}", IIf(m_AutoPlay, "1", "0"))
sb.AppendFormat("&color1=0x{0}{1}{2}", String.Format("{0:X2}", m_ColorFrom.R), _
String.Format("{0:X2}", m_ColorFrom.G), String.Format("{0:X2}", m_ColorFrom.B))
sb.AppendFormat("&color2=0x{0}{1}{2}", String.Format("{0:X2}", m_ColorTo.R), _
String.Format("{0:X2}", m_ColorTo.G), String.Format("{0:X2}", m_ColorTo.B))
sb.AppendFormat("&border={0}", IIf(m_ShowBorder, "1", "0"))
m_FlashHost.Player.Movie = sb.ToString
End If
End Sub
End Class
End Module

Option Strict funktioniert bei dieser Klasse nicht. auslagern und fertig.

ansonsten probier mal aus ob er auch MP4 usw. abspielt
also falsh videos habe ich getestet, die funktionieren

Shootz · 12. März 2010, 18:17

leider nicht was ich meine, ich möchte einen code oder einen app. einfügen. das die videos wie bei FireFox abspielt, nicht in einer extra box oder sonstiges einfach auf der Homepage wo das video ist und in welchem format es ist, gibt es sowas oder kann ich es vergessen`?

Webbrowser mit Shockwave probleme

Webbrowser mit Shockwave probleme

VB.NET-Quellcode

Benutzer online 1

Tags

Ähnliche Themen

1 Benutzer hat hier geschrieben