[ASP]JPEG grootte bepalen serverside

[daanmsvl]

Ik heb al wat zitten zoeken naar een simpel probleem. Ik wil serverside de grootte (dimensie) van een JPEG bepalen zodat ik de <TD> grootte kan aanpassen.

Visual Basic .NET:

    Img = ObjRS("Image")
    if Img <> "" then
          dim iWidth, iHeight
          dim myImg, fs    
         Set fs= CreateObject("Scripting.FileSystemObject")
         set myImg = loadpicture ("pictures/" & Img)
         iWidth = round(myImg.width / 26.4583)
         iHeight = round(myImg.height / 26.4583)
      response.write ("<TD background='pictures/" & Img & "' width=325 height=400>")
      end if

Dit werkt niet. Fout die ik krijg: Kan het pad niet vinden (LoadPicture).
Klinkt als een folder/directory fout zou je denken. Echter, dit is de juiste directory. Als ik dezelfde naam hardcodeer in een <img> werkt het nl wel. Maar ik wil per sé de dimensies kunnen bepalen en dan ipv handmatig width=325 en height=400 de variabelen iWidth en iHeight gebruiken.

Wat ik al heb gedaan:
• Zoeken mbv google, waarbij dit stukje script de voorkeur lijkt te hebben
• Alle vormen van het pad hardcoderen, zowel C:\Inetpub\wwwroot (ja weet ik heb ik weinig aan zometeen op m'n server, maar het was om te testen), als nou ja, andere opties. Kan het wel allemaal herhalen maar geloof me.
• Er is wel een veelvoud aan C# oplossing maar daar heb ik geen ervaring mee. Volgens mij kan je ASP/VBScript en C# ook niet zo makkelijk mixen
• Ik vond ook nog Deze link maar daar heb ik wat functies van geprobeerd (MapURL om het pad te bepalen) maar die geven niet het gewenste resultaat.
• in de FAQ gekeken.

Hopelijk hier iemand die mij op weg kan helpen? Wat zie ik over het hoofd?

[TeeDee]

Wat is je testplatform? 32bits of 64bits?
Wat staat er in Img?
Als je stukken code ergens vandaan haalt, gebruik het dan ook volledig. (if not fs.fileExists(img) etc. etc.)

.Net met legacy mixen is wel te doen, alleen inderdaad komt er wat meer bij kijken.

offtopic:
zoektip om alleen asp te krijgen in google

[ Voor 39% gewijzigd door TeeDee op 08-05-2008 11:07 ]

[daanmsvl]

TeeDee schreef op donderdag 08 mei 2008 @ 11:04:
Wat is je testplatform? 32bits of 64bits?
Wat staat er in Img?
Als je stukken code ergens vandaan haalt, gebruik het dan ook volledig. (if not fs.fileExists(img) etc. etc.)

32 bits, in Img staat een JPG bestandsnaam zonder pad. In het kader van hou je code leesbaar, heb ik de fileExist eruit gehaald en alleen de code gepost die relevant is voor het probleem, in lijn met het beleid alhier

[TeeDee]

* TeeDee vraagt zich af of LoadPicture in asp wel te gebruiken is. Als dat zo was, had ik (en mijn collega's) het vele jaren terug al gebruikt in plaats van dure componenten te gebruiken. Voor advanced editing is het natuurlijk niet te gebruiken

Edit: kijk eens naar de rechten van de verschillende users.

[ Voor 36% gewijzigd door TeeDee op 08-05-2008 11:14 ]

[daanmsvl]

Volgens deze post dus wel alleen ik krijg het niet aan de praat

[daanmsvl]

TeeDee schreef op donderdag 08 mei 2008 @ 11:12:

Edit: kijk eens naar de rechten van de verschillende users.

Ja al gedaan, dat is het probleem niet. Dat is overigens ook niet de foutmelding die hij geeft, het probleem zit 'em in het pad. (Kan het pad niet vinden).

[bigbeng]

Is het niet gewoon een kwestie van een Server.MapPath gebruiken?

edit:
had je blijkbaar al geprobeerd in een andere vorm (absoluut pad)

Welke user probeert het pad te benaderen? Kun je met het filesystemobject wel bij de image komen?

[ Voor 58% gewijzigd door bigbeng op 08-05-2008 11:27 ]

[daanmsvl]

bigbeng schreef op donderdag 08 mei 2008 @ 11:26:
Is het niet gewoon een kwestie van een Server.MapPath gebruiken?

Je hebt gelijk en ik had dat al eerder geprobeerd maar het werkte niet vanwege een stomme fout aan mijn kant.

Visual Basic .NET:

'Dit gebruik ik nu en dit werkt
    set myImg = LoadPicture (Server.Mappath("pictures/" & Img))
'Dit had ik al getest en werkt om obvious reasons niet
    set myImg = LoadPicture (Server.Mappath("pictures/") & Img)

Foutje mijnerzijds, excuses maar wel opgelost!

[TeeDee]

In een test scriptje krijg ik prima resultaat.

Visual Basic:

dim iWidth, iHeight
dim myImg, fs    
Set fs= CreateObject("Scripting.FileSystemObject")
dim pad
pad = Server.Mappath("t1.jpg")
Response.write pad&"<br>"
set myImg = loadpicture (pad)
iWidth = round(myImg.width / 26.4583)
iHeight = round(myImg.height / 26.4583) 
response.write iWidth & "<br>"
response.write iHeight & "<br>"

Edit: laat

* TeeDee vraagt zich af of je in de hardcoded paden ook tikfouten had. Als ik 'E:\InetPub\wwwroot\Test\t1.jpg' gebruik krijg ik ook prima results.

[ Voor 17% gewijzigd door TeeDee op 08-05-2008 11:36 ]

[daanmsvl]

TeeDee schreef op donderdag 08 mei 2008 @ 11:34:
I

* TeeDee vraagt zich af of je in de hardcoded paden ook tikfouten had. Als ik 'E:\InetPub\wwwroot\Test\t1.jpg' gebruik krijg ik ook prima results.

Ik zal dan idd bij het hardcoded pad wel een tikfout hebben gemaakt