Kako da pri startovanju program automatski proveri da li kompjuter na kome se izvrsava ima instaliranu flash kontrolu ili ne.
Provera Flash OCX-a u VB-u
Zaključano
Zakačeno
Citat:
Wlada: Kako da pri startovanju program automatski proveri da li kompjuter na kome se izvrsava ima instaliranu flash kontrolu ili ne.
Nikako.
Kada se startuje program, i on dođe do klijentske mašine da bi ispitao da li ima podršku za Flash, nema načina da ti onda iznova startuješ serverski kód. Ideja za realizovanje tako nečega bi morala da se svede na sledeće: kada (klijentski) skript detektuje da (klijentska) mašina ima mogućnost prikazivanja flash-a, onda treba da se "skoči" na (serversku) stranicu koja je urađena u flash-u. Kód koji bi to realizovao bi mogao otprilike ovako da izgleda (neprovereno):
Code:
<script language="JavaScript">
<!--
var useFlash = navigator.mimeTypes && navigator.mimeTypes["application/x-shockwave-flash"] && navigator.mimeTypes["application/x-shockwave-flash"].enabledPlugin;
//-->
</script>
<script language="VBScript">
<!--
On Error Resume Next
useFlash = Not IsNull(CreateObject("ShockwaveFlash.ShockwaveFlash"))
-->
</script>
<script language="JavaScript">
<!--
if (useFlash)
window.location = "FlashPage.html";
else
window.location = "NoFlashPage.html";
//-->
</script>
<script language="JavaScript">
<!--
var useFlash = navigator.mimeTypes && navigator.mimeTypes["application/x-shockwave-flash"] && navigator.mimeTypes["application/x-shockwave-flash"].enabledPlugin;
//-->
</script>
<script language="VBScript">
<!--
On Error Resume Next
useFlash = Not IsNull(CreateObject("ShockwaveFlash.ShockwaveFlash"))
-->
</script>
<script language="JavaScript">
<!--
if (useFlash)
window.location = "FlashPage.html";
else
window.location = "NoFlashPage.html";
//-->
</script>
Potpis
possibly the biggest joker among his local crowd and perhaps a future book author on that subject
Code:
Private Function UsingFlash() As Boolean
Dim objFlash As Object
On Error Resume Next
Set objFlash = CreateObject("ShockwaveFlash.ShockwaveFlash")
UsingFlash = Not (objFlash Is Nothing)
End Function
Private Function UsingFlash() As Boolean
Dim objFlash As Object
On Error Resume Next
Set objFlash = CreateObject("ShockwaveFlash.ShockwaveFlash")
UsingFlash = Not (objFlash Is Nothing)
End Function