Projektowanie Grafiki (2003) 

29 

Uruchamianie zewnętrznych aplikacji - Open  
 

on

 exitFrame

 me

 

  open

 "doc/test.avi"

 with

 "players/VPlayer"

 

end 

 
Funkcja nie jest dostępna dla: 

− 

trybu Shockwave  

− 

dokumentu projektora przy włączonym trybie bezpiecznym safePlayer=TRUE 

 
 
Pobieranie dokumentów 

 
downloadNetThing 

  downloadNetThing URL

, localFile 

np.

 

  downLoadNetThing

(

"http://www.cos.pl/cos.cst"

,

 the

 applicationPath

&

"cos.cst"

)

 

  castLib

(

"Cast Cos"

).

fileName

 =

 the

 applicationPath

&

"cos.cst" 

 

importFileInto 

importFileInto member

 whichCastMember,

 fileName

 {, [

#dither

: TrueOrFalse,

 #trimWhiteSpace

: 

TrueOrFalse]}

 

importFileInto member

 whichCastMember

 of

 castLib

 whichCast,

 fileName

 {, [

#dither

: TrueOrFalse,

 

#trimWhiteSpace

: TrueOrFalse]}

 

importFileInto member

 whichCastMember,

 URL

 {, [

#dither

: TrueOrFalse,

 #trimWhiteSpace

: 

TrueOrFalse]}

 

 

Umożliwia podmianę elementów obsady z plików zewnętrznych  
– dla danych bitmapowych dostępne są opcje #dither (dom.FALSE) i #trimWhiteSpace (dom. TRUE). 
np.  

on

 exitFrame 

    tempURL =

 "http://www.cos.pl/cos.gif"

 

    importFileInto

 new

(

#bitmap

), tempUrl

 

end 

 

on

 exitFrame 

   importFileInto member

 "Memory"

,

 "Wind.wav"

 

end 

 

 

preloadNetThing() 
 

preloadNetThing

 (

url

) 

 

Funkcja pobiera dokument do lokalnego cache’a tak, aby można było go w przyszłości otworzyć bez zwłoki czasowej 
związanej z pobieraniem. Funkcja zwraca identyfikator sieciowy, dzięki któremu można w przyszłości sprawdzić, czy 
plik został już pobrany oraz zastosować w aplikacji dane z pobranego pliku. Funkcja działa w tle aplikacji  Directora – 
film dalej jest odtwarzany według ustalonego scenariusza. Możliwe jest pobieranie wielu plików jednocześnie, ale nie 

zaleca się przekraczać liczby czterech jednoczesnych połączeń.  
Uwaga: połączenia sieciowe Lingo mogą zakłócać dotwarzanie strumieniowego dźwięku Shockwave Audio (SWA). 
np. 

  set

 mynetid =

 preloadNetThing

(

"http://www.yourserver.com/mymovie.dir"

)

 

Projektowanie Grafiki (2003) 

30 

 

netDone() 

 

 netDone

()

 

 netDone

(netID) 

 
Funkcja daje możliwość sprawdzenia stanu operacji sieciowej Lingo przeprowadzanych w tle. 
(getNetText, preloadNetThing, gotoNetMovie, gotoNetPage, putNetText) 
Gdy operacja została zakończona powodzeniem lub błędem, funkcja zwraca wartość TRUE. 

Jeśli operacja nadal trwa, funkcja zwraca wartość FALSE. 
Jeśli operacja została ukończona, informację zwrotną operacji sieciowej Lingo otrzymamy z wykorzystaniem funkcji 
netTextResult. 
Funkcja netDone() bez parametru dotyczy ostatnio wywołanej operacji sieciowej Lingo. 

np. 

on

 exitFrame

 

    if

 netDone

() =

 1

 then 

        member

(

"Display Text"

).

text

 =

 netTextResult

() 

 

    end if 

end 

 

on

 exitFrame

 

    global

 mynetID

 

    if

 netDone

(mynetID) =

 FALSE then 

        go

 to the

 frame

 

    end if 

end 

 

 

 

getNetText() 
 

getNetText

(

URL

 {, serverOSString} {,

 characterSet

})

 

getNetText

(

URL

, propertyList {, serverOSString} {,

 characterSet

})

 

 

Funkcja używana przy pobieraniu informacji tekstowej z serwerów HTTP i FTP. 
Funkcja umożliwia przekazywanie parametrów do aplikacji sieciowej np. CGI. 
Parametr serverOSString definiuje sposób kodowania znaku Return/Enter w propertylist.  
(dom. UNIX, może być Win lub Mac)- parametr ten jest rzadko używany. 

Parametr characterSet używany jest przy uruchamianiu aplikacji Directora w środowisku shift-JIS (system Japoński). 
Możliwe ustawienie parametru to JIS, EUC, ASCII, and AUTO. Lingo konwertuje wtedy przesyłane dane z shift-JIS do 
podanego typu.  

np. 

property

 spriteNum

 

property

 theNetID

 

on

 mouseUp

 me 

    theNetID =

 getNetText

 (

"http://BigServer.com/sample.txt"

)

 

end 

on

 exitFrame

 me 

    if

 netDone

(theNetID)

 then 

        sprite

(

spriteNum

).

member

.

text

 =

 netTextResult

(theNetID)

 

    end if 

end

  

 

getNetText

(

"http://www.yourserver.com/cgi-bin/query.cgi?name=Bill"

) 

getNetText

(

"http://www.yourserver.com/cgi-bin/query.cgi"

, [

#name

:

"Bill"

])

 

  

Projektowanie Grafiki (2003) 

31 

netError() 

 

netError

()

 

netError

(netID) 

 

Umożliwia detekcję kodu błędu powstałych przy operacjach sieciowych Lingo. 

np.  

on

 exitFrame 

    global

 mynetID

 

    if

 netError

(mynetID)<>

"OK"

 then

 beep 

end 

 

 

 

 

netTextResult() 
 

netTextResult

(netID) 

netTextResult

() 

 
Zwraca wynik operacji sieciowej Lingo. 

np.  

global

 gNetID

 

on

 exitFrame

 

    if

 (

netDone

(gNetID) =

 TRUE

)

 and

 (

netError

(gNetID) =

 "OK"

)

 then 

        member

(

"Display Text"

).

text

 =

 netTextResult

() 

    end if 

end 

 

 

postNetText() 

 

postNetText

(

url

, propertyList {,serverOSString} {,serverCharSetString})

 

postNetText

(

url

, postText {,serverOSString} {,serverCharSetString})

 

 
Funkcja służy do wysyłania zapytań typu POST do wskazanego URL’a. 
Odpowiedź serwera można odczytać funkcją netTextResult(netID), stan wykonania funkcją netDone(netID) oraz 
powodzenie operacji funkcją netError(netID).  

Uwaga: generowana odpowiedź serwera powinna używać MIME type "text/plain.". 
Funkcja postNetText() używana jest do obszerniejszych zapytań. Metoda GET zwykle jest limitowana pod względem 
objętości przekazywanego zapytania – zazwyczaj jest to 1 lub 4 KB. 
 

np.  

lastName =

 member

(

"Last Name"

).

text 

firstName =

 member

(

"First Name"

).

text 

totalScore =

 member

(

"Current Score"

).

text 

infoList = [

"FName"

:firstName,

 "LName"

:lastName,

 "Score"

:totalScore]

 

netID =

 postNetText

(

"www.mydomain.com\userbase.cgi"

, infoList)