Ich habe es jetzt geschafft, dass er mir das Flash anzeigt, aber ich will ja die
entsprechenden swf aus xml auslesen, das klappt leider noch nicht
mein xml:
<AufgabenListe>
<Aufgabe>
<Id>1</Id>
<Frage>1.Frage</Frage>
<Task>Bitte klicken Sie auf die Elle</Task>
<Flash>Flash 01.swf</Flash>
</Aufgabe>
<Aufgabe>
<Id>2</Id>
<Frage>2.Frage</Frage>
<Task>Bitte klicken Sie auf das Mondbein</Task>
<Flash>Flash 02.swf</Flash>
</Aufgabe>
</AufgabenListe>
und so lese ich es mit aspx aus:
Dim Counter As Integer
Dim ds As New DataSet()
Dim iRow As DataRow
Dim anzahl As Integer
Dim i As Integer
ds.ReadXml(Server.MapPath("AufgabeFlash.xml"))
Counter = CType(ViewState("Counter"), Integer)
If CType(ViewState("Counter"), Integer) <= ds.Tables(0).Rows.Count - 1 Then
iRow = ds.Tables("Aufgabe").Rows(Counter)
fill_Controls(iRow)
Counter = Counter + 1
ViewState("Counter") = Counter
Else
Label2.Text = "keine weiteren Fragen"
End If
End Sub
Private Sub fill_Controls(ByVal iRow As DataRow)
Label2.Text = iRow.Item(1)
Response.Write("<object style=""Z-INDEX: 102; LEFT: 40px; POSITION: absolute;
TOP: 130px"" classid=""CLSID:D27CDB6E-AE6D-11cf-96B8-444553540000""")
Response.Write("codebase =
""http://active.macromedia.com/flash2/cabs/swflash.cab#version=4,0,0,0""";)
Response.Write("width=""350"" height=""270"">")
Response.Write("<param name=""movie"" VALUE=")
Response.Write(iRow.Item(2)) !!!!!Mit diesem Befehl lese ich es aus!!!!!
Response.Write("<param name=""quality"" value=""high"">")
Response.Write("<param name=""scale"" value=""exactfit"">")
Response.Write("<param name=""menu"" value=""true"">")
Response.Write("</object>")
Warum funktioniert das nicht??? Ich find den Fehler einfach nicht!!!!!
Danke
Christina
[EMAIL PROTECTED] schrieb am 03.12.03 09:56:58:
>
> Hallo,
>
> Er l�d leider gar nichts, d.h er l�d schon aber absolut langsam und irgendwann h�rt
> er auf. Muss ich es vielleicht doch mit einem HtmlTextWriter machen??
>
> Danke
>
> [EMAIL PROTECTED] schrieb am 02.12.03 14:12:55:
> >
> > Hallo Christina,
> >
> > das \" ist C basierend. Unter VB macht man doppelte Anf�hrungszeichen.
> >
> > Response.Write("<PARAM NAME=""_cx"" VALUE=""9260"">")
> >
> > Gr��e
> > Ren�
> >
> > > -----Original Message-----
> > > From: [EMAIL PROTECTED]
> > > [mailto:[EMAIL PROTECTED] On Behalf Of Christina Ehrmann
> > > Sent: Tuesday, December 02, 2003 1:49 PM
> > > To: [EMAIL PROTECTED]
> > > Subject: [Asp.net] Response.Write ?????
> > >
> > > Hallo,
> > >
> > > Was ist an diesem Code falsch?? Ich will, dass er ein swf aus
> > > dem DataSet ausliest und auf der HTML - Seite ausgibt. Hier
> > > mal der komplette Code:
> > >
> > > Private Sub submit_btn_ServerClick(ByVal sender As
> > > System.Object, ByVal e As System.EventArgs) Handles
> > > submit_btn.ServerClick
> > >
> > >
> > > Dim Counter As Integer
> > > Dim ds As New DataSet()
> > > Dim iRow As DataRow
> > > Dim anzahl As Integer
> > > Dim i As Integer
> > >
> > >
> > > ds.ReadXml(Server.MapPath("AufgabeFlash.xml"))
> > >
> > > Counter = CType(ViewState("Counter"), Integer)
> > >
> > > If CType(ViewState("Counter"), Integer) <=
> > > ds.Tables(0).Rows.Count - 1 Then
> > >
> > > iRow = ds.Tables("Aufgabe").Rows(Counter)
> > >
> > > fill_Controls(iRow)
> > > Counter = Counter + 1
> > > ViewState("Counter") = Counter
> > >
> > > Else
> > > Label2.Text = "keine weiteren Fragen"
> > >
> > >
> > > End If
> > >
> > > End Sub
> > >
> > > Private Sub fill_Controls(ByVal iRow As DataRow)
> > >
> > > Label1.Text = iRow.Item(1)
> > >
> > > Response.Write("<OBJECT style=\"Z-INDEX: 102; LEFT:
> > > 40px; POSITION: absolute; TOP: 130px\"
> > > codeBase=\"http://download.macromedia.com/pub/shockwave/cabs/F
> > > lash/swFlash.cab#version=4,0,2,0\" height=\"350\"
> > > width=\"350\"
> > > classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" VIEWASTEXT>")
> > > Response.Write("<PARAM NAME=\"_cx\" VALUE=\"9260\">")
> > > Response.Write("<PARAM NAME=\"_cy\" VALUE=\"9260\">")
> > > Response.Write("<PARAM NAME=\"FlashVars\" VALUE=\"9260\">")
> > > Response.Write("<PARAM NAME=\"Movie\"
> > > VALUE=<\""+iRow.Item(2)+"\">")
> > > Response.Write("<PARAM NAME=\"Src\"
> > > VALUE=<\""+iRow.Item(2)+"\">")
> > > Response.Write("<PARAM NAME=\"WMode\" VALUE=\"Window\">")
> > > Response.Write("<PARAM NAME=\"Play\" VALUE=\"0\">")
> > > Response.Write("<PARAM NAME=\"Loop\" VALUE=\"-1\">")
> > > Response.Write("<PARAM NAME=\"Quality\" VALUE=\"High\">")
> > > Response.Write("<PARAM NAME=\"SAlign\" VALUE=\"\">")
> > > Response.Write("<PARAM NAME=\"Menu\" VALUE=\"-1\">")
> > > Response.Write("<PARAM NAME=\"Base\" VALUE=\"\">")
> > > Response.Write("<PARAM NAME=\"Scale\" VALUE=\"ShowAll\">")
> > > Response.Write("<PARAM NAME=\"DeviceFont\" VALUE=\"0\">")
> > > Response.Write("<PARAM NAME=\"EmbedMovie\" VALUE=\"0\">")
> > > Response.Write("<PARAM NAME=\"BGColor\" VALUE=\"\">")
> > > Response.Write("<PARAM NAME=\"SWRemote\" VALUE=\"\">")
> > > Response.Write("</OBJECT>")
> > >
> > > End Sub
> > >
> > >
> > > Die Anf�hrungszeichen muss man doch so \" angeben, oder???
> > >
> > > Oder muss ich statt Response.Write lieber
> > > HttpTextWriter.Write machen?? -- Klappt allerdings auch nicht :-(
> > >
> > > Vielleicht f�llt euch ja was ein
> > >
> > > Christina
> > > --
> > > Christina�Ehrmann
> > > Mobil:�0170�/�3�06�31�33
> > > eMail:[EMAIL PROTECTED]
> > > ______________________________________________________________
> > > ________________
> > > Horoskop, Comics, VIPs, Wetter, Sport und Lotto im WEB.DE
> > > Screensaver1.2 Kostenlos downloaden:
> > > http://screensaver.web.de/?mc=021110
> > >
> > > _______________________________________________
> > > Asp.net mailing list
> > > [EMAIL PROTECTED]
> > > http://www.glengamoi.com/mailman/listinfo/asp.net
> > >
> >
> > _______________________________________________
> > Asp.net mailing list
> > [EMAIL PROTECTED]
> > http://www.glengamoi.com/mailman/listinfo/asp.net
>
> --
> Christina�Ehrmann
> Mobil:�0170�/�3�06�31�33
> eMail:[EMAIL PROTECTED]
> ______________________________________________________________________________
> Horoskop, Comics, VIPs, Wetter, Sport und Lotto im WEB.DE Screensaver1.2
> Kostenlos downloaden: http://screensaver.web.de/?mc=021110
>
> _______________________________________________
> Asp.net mailing list
> [EMAIL PROTECTED]
> http://www.glengamoi.com/mailman/listinfo/asp.net
--
Christina�Ehrmann
Mobil:�0170�/�3�06�31�33
eMail:[EMAIL PROTECTED]
______________________________________________________________________________
WEB.DE FreeMail wird 5 Jahre jung! Feiern Sie mit uns und
nutzen Sie die neuen Funktionen http://f.web.de/features/?mc=021130
_______________________________________________
Asp.net mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/asp.net
