---

Hej.

Jeg har forsøgt at bruge komponenten ImgSize på følgende måde:


<%
Dim Img

Sub CheckFile (strFileName)
Set objImg = Server.CreateObject("ImgSize.Check")
objImg.FileName = strFileName
If objImg.Error = "" Then
Response.Write "<p>Billedfil <b>" & strFileName & "</b> korrekt
læst.<br>"
Response.Write "Billedhøjde i pixels = <b>" & objImg.Height &
"</b><br>"
Response.Write "Billedbredde i pixels = <b>" & objImg.Width &
"</b></p>"
End If
Set objImg = nothing

End Sub
%>



Så laver jeg et andet sted i dokumentet følgende:

<%
CheckFile ("minsti" & Image.Name)
%>


Dette virker også fint, men nu vil jeg så hente objImg.Height og
objImg.Width et andet sted i koden (uden for min Sub).

Og så får jeg en "Microsoft VBScript runtime error '800a01a8' Object
required: ''

Er det fordi at jeg ikke kan hente denne variabel uden for min Sub og
hvordan gør jeg det ellers?




Mvh. Brian
--
Min private babeside - nu med IPIX billeder.
http://www.patricia-brinch.dk (Ved e-mail, slet 2xBEDSTE)
Zelinski fanside: http://www.zelinski.dk

---

> Er det fordi at jeg ikke kan hente denne variabel uden for min Sub
Det er fordi du har lukket objImg ( Set objImg=Nothing) til sidst i din sub.
det er også (efter min overbevisning)den korrekte måde at gøre det på.


> hvordan gør jeg det ellers?
Du kunne lave det til en function i stedet...

Function CheckFile (strFileName)
Set objImg = Server.CreateObject("ImgSize.Check")
objImg.FileName = strFileName
If objImg.Error = "" Then
Checkfile= objImg.Height & "," & objImg.Width
End If
Set objImg = nothing
End Function

Så har du et array med højde,bredde. det kan så hentes ved fx:
arrdimensions = Split(Checkfile("stil/til/dit/billede.jpg"),",")

Response.Write "Højde: " & arrdimensions(0) & "<br>Bredde: " &
arrdimensions(1)

Dette er blot en af måderne at hente variablerne ud på. håber du kan bruge
det.

\Henrik

---

"Brian B. Christensen" wrote:
[klip]
> <%
> Dim Img
>
> Sub CheckFile (strFileName)
> Set objImg = Server.CreateObject("ImgSize.Check")
[klip]

> Dette virker også fint, men nu vil jeg så hente objImg.Height og
> objImg.Width et andet sted i koden (uden for min Sub).
>
> Og så får jeg en "Microsoft VBScript runtime error '800a01a8' Object
> required: ''

Du skal blot skrive "Dim objImg " i stedet for "Dim Img"


Rune

---

On Thu, 3 Oct 2002 09:44:09 +0200, "Rune Baess" <rune@(fjern)baess.dk>
wrote:

>Du skal blot skrive "Dim objImg " i stedet for "Dim Img"

Prøvede jeg lige. Det hjalp desværre ikke.

Mvh. Brian
--
Min private babeside - nu med IPIX billeder.
http://www.patricia-brinch.dk (Ved e-mail, slet 2xBEDSTE)
Zelinski fanside: http://www.zelinski.dk

---

On Wed, 02 Oct 2002 11:05:46 +0200, Brian B. Christensen
<BEDSTEfar@BEDSTEpatricia-brinch.dk> wrote:

>Dette virker også fint, men nu vil jeg så hente objImg.Height og
>objImg.Width et andet sted i koden (uden for min Sub).

Så fandt jeg ud af det. Jeg lavede bare to nye globale variabler i min
sub, hvor jeg siger bredden = objImg.Width og hojden=objImg.Height

Disse 2 nye variabler kan jeg så bruge det andet sted i koden.


Men takker for hjælpen.

Mvh. Brian
--
Min private babeside - nu med IPIX billeder.
http://www.patricia-brinch.dk (Ved e-mail, slet 2xBEDSTE)
Zelinski fanside: http://www.zelinski.dk