Hello list,
I would like to make a text and a image download in shockwave.
I'm using the "GetNetText" command to download the text and it works.
After that i try to download the image using "preloadNetThing" and
"ImportFileInto".
It works perfectly in Director but it doesn't work when i try it in
shockwave.
The script that i'm using is this:
property NetID
on mouseUp me
global posini, posH, posV, listaPosCortes, crono, comecou, movimentos,
percent, npecas, relogio, ok
NetID = getNetText ("hoje.txt")
set ok = 1
if sprite(5).visible = True then
set relogio = 1
else
set relogio = 0
end if
set crono = 400
set comecou = 0
set movimentos = 0
set percent = 0
set npecas = 0
member("crono").text = string(crono)
member("movimentos").text = string(movimentos)
member("percent").text = string(percent) & "%"
repeat with a = 11 to 35
sprite(a).visible = FALSE
sprite(a).loc = getat(listaPosCortes, a-10)
sprite(a+30).visible = FALSE
sprite(a+30).loc = getat(listaPosCortes, a-10)
member("corte"& (a-10)).erase()
end repeat
sprite(2).visible = FALSE
set posini = sprite(2).loc
set posH = sprite(2).locH
set posV = sprite(2).locV
end
on exitFrame me
global pz_dia, DwnImg, imagem, ok
if the frame < 9 and ok = 1 and the ClickOn = the SpriteNum of me then
set ok = 0
alert "Vai para netdone"
if netdone(NetID) then
set pz_dia = netTextResult(NetID).line[1]
alert "resultado: " && pz_dia
repeat with i = 1 to the number of members of castLib("puzzles")
set temp = member(i, "puzzles").name
if temp = pz_dia then repetida = 1
end repeat
if repetida = 1 then exit
set DwnImg = preloadNetThing (pz_dia & ".jpg")
end if
repeat while netdone(DwnImg) = 0
exit repeat
end repeat
importFileInto new(#bitmap, castLib "puzzles"), pz_dia & ".jpg"
go frame "baralha"
else if ok = 1 and the ClickOn = the SpriteNum of me then
go frame "baralha"
end if
end
If somenone could help me, i would be very gratefull.
Thanks in advance.
Raquel Pedrosa
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/LUJ/lingo-l.cgi To post messages to the list,
email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED])
Lingo-L is for learning and helping with programming Lingo. Thanks!]
