Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Provera Flash OCX-a u VB-u

[es] :: Visual Basic 6 :: Provera Flash OCX-a u VB-u

[ Pregleda: 3560 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Wlada

Član broj: 14344
Poruke: 171
*.dialup.sezampro.yu.



Profil

icon Provera Flash OCX-a u VB-u01.08.2004. u 19:47 - pre 240 meseci
Kako da pri startovanju program automatski proveri da li kompjuter na kome se izvrsava ima instaliranu flash kontrolu ili ne.
 
Odgovor na temu

DrS
Boris Bjelošević
project manager
Beograd

Član broj: 10226
Poruke: 80
195.252.106.*

Sajt: www.bjelosevic.com


Profil

icon Re: Provera Flash OCX-a u VB-u03.08.2004. u 11:02 - pre 239 meseci
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>

possibly the biggest joker among his local crowd and perhaps a future book author on that subject
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: Provera Flash OCX-a u VB-u08.08.2004. u 11:47 - pre 239 meseci
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

 
Odgovor na temu

[es] :: Visual Basic 6 :: Provera Flash OCX-a u VB-u

[ Pregleda: 3560 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.