Det script som Sysop skrivit i Tips&Tricks delen fungerar inte för alla bilder, eller snarare olika storlekar?!?

Oftast blir det rätt men ibland blir det 0,0 och ibland flera tusen för mycket!

Är det någon som kan förklara varför det blir så?

Hejsan!

Nu vet jag inte riktigt vilket tips du syftade på, men här finns ASP-kod för att ta reda på höjd och vidd för GIF-, PNG-, BMP- och JPG-bilder.

http://www.4guysfromrolla.com/webtech/011201-1.shtml


Annars kan du ta reda på höjd och vidd med hjälp av JavaScript, exempelvis så här:

<img src="dinbild.jpg" name="bild">

<script>
alert("vidd: " + document.bild.width + "\nhöjd: " + document.bild.height);
</script>


Hoppas det löser sig!
Tom S.

Det är detta tips jag syftar på!

<code>
Function GetPicSize (fn)
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists(Server.MapPath(fn)) = false then exit function
pn = Server.MapPath(fn)
tstr = ""
Set f = fso.OpenTextFile(pn)

Select Case UCase(Right(fn,4))
Case ".GIF",".JPG"
If NOT f.AtEndOfStream Then
If UCase(Right(fn,4))=".GIF" Then
chars = f.read(10)
width = asc(mid(chars,8,1))*256 + asc(mid(chars,7,1))
height = asc(mid(chars,10,1))*256 + asc(mid(chars,9,1))
hw = " WIDTH=" & width & " HEIGHT=" & height
Else
chars = f.read(200)
height = asc(mid(chars,164,1))*256 + asc(mid(chars,165,1))
width = asc(mid(chars,166,1))*256 + asc(mid(chars,167,1))
If (height>600) OR (height<3) OR (WIDTH<3) OR (WIDTH>600) Then
Else
hw = " WIDTH=" & width & " HEIGHT=" & height
End If
End If
End If
GetPicSize = "W : " & width & " H :" & height
End Select
f.Close
Set f = Nothing
Set fso = Nothing
End Function
</code>

Det blir som sagt totalt fel bredd och höjd för vissa bilder!

Hej!

> Det är detta tips jag syftar på!
<code>
> Function GetPicSize (fn)
> ...
> End Function
</code>

Okej.


> Det blir som sagt totalt fel bred

Det blev fel på vissa när jag testade den där funktionen också.

Men den här fungerade för mig:

http://www.4guysfromrolla.com/webtech/050300-1.shtml

Lycka till och lev väl,
Tom S.

Scriptet fungerar inte på JPG biler skapade i Photoshop. Trash har gjort ett script som grejar alla bilder. Du kan söka i forumet efter lösningen.

Jag har letat lite i forumet och jag måste säga att det är ett stort forum!

Det jag hittade handlade om activex kontroller och när vi kommer in på sådan verkar det bli lite för avancerat! Du kanske syftade på något annat script?!

Den är upplagd i filarean, se Programarkivet:*Uppdaterat* ImageSizes, en liten activex-dll som luskar ut dimensionerna på en bild.

Det tipset är väl till VB?!?

Jag försöker åstadkomma något i asp till en hemsida och jag har inte sådana VB-kunskaper att jag kan göra något vettigt utifrån den angivna filen!