Søg
Avatar billede cdc Novice
24. marts 2005 - 09:57 Der er 20 kommentarer og
1 løsning

Problemer med images komponent

Skal have lavet en thumb on the fly men den viser ikke images, kun det røde X:

Bruger dette script, navnet er makethumb.asp:

<%

Dim strFuldeSti, strFilNavn, intSize, intQuality

'disse variabler henter stien og filnavnet i adressen:

strFuldeSti = Request("Path")
strFilNavn = Request("File")

'Størrelsen og kvaliteten af billederne:

intSize = 50
intQuality = 90

'Kalder ASPimage-objektet:

Set MyImage = Server.CreateObject("AspImage.Image")
Dim strOriginal
strOriginal = strFuldeSti & strFilNavn

MyImage.LoadImage strOriginal

'Følgende kode beregner, hvilken side der er størst, og sætter
størrelsen derefter

If Myimage.MaxX > MyImage.MaxY then
IntYSize = 100
IntXSize = (intYSize / MyImage.MaxY) * MyImage.MaxX
Else
IntXSize = 100
IntYSize = (intXSize / MyImage.MaxX) * MyImage.MaxY
End if

'thumbnailen bliver skrevet i binært format:

MyImage.Resize intXSize, intYSize
MyImage.ImageFormat = 1
MyImage.JPEGQuality = intQuality
ProgressiveJPEGEncoding = true
Response.BinaryWrite MyImage.Image
Set MyImage = Nothing
End If
%>

Mit link på siden som skal vise det:
<a href="#" onclick="popWin('<%=Url("url")%>');return false;"><img border="1" src="makethumb.asp?path=/image/&file=<%=Url("demofoto")%>" width="110" style="border-color:#84C5E1;" alt="Klik for fuld størrelse"></a>

/cdc
Avatar billede moejensen Nybegynder
24. marts 2005 - 10:03 #1
får du nogen fejl?
Avatar billede cdc Novice
24. marts 2005 - 10:05 #2
nej den viser alt andet som den skal men den laver ikke en thumb on the fly
Avatar billede moejensen Nybegynder
24. marts 2005 - 10:08 #3
prøv at køre makethumb.asp og bare indsæt en fast sti til et billed epå serveren
Avatar billede cdc Novice
24. marts 2005 - 10:08 #4
begynder at misstænke at webhotellet ikke har aspimage komponentet installeret, kan man tjekke dette, da jeg ikke kan se det på deres side ?

har brugt denne før uden problemer i et andet galleri:

<%
' This script is doing the thumbnail on the fly, using AspImage.
' If you don't have AspImage installed, then don't worry. The script will
' find out and do the thumb in anotherway.

Dim strFuldeSti, strFilNavn, intSize, intQuality
strFuldeSti = Request("Path")
strFilNavn = Request("File")
intSize = 50  ' This is the width and height of the thumbnails
intQuality = 90

If strFuldeSti = "" OR strFilNavn = "" Then
    Response.write "FEJL"
Else
  Set MyImage = Server.CreateObject("AspImage.Image")
  Dim strOriginal, strThumb, ResizedX,ResizedY
  strOriginal = strFuldeSti & strFilNavn
  MyImage.LoadImage strOriginal
  MyImage.Resize intSize,intSize
  MyImage.ImageFormat = 1
  MyImage.JPEGQuality = intQuality
  ProgressiveJPEGEncoding = true
  Response.BinaryWrite MyImage.Image
  Set MyImage = Nothing
End If
%>
Avatar billede cdc Novice
24. marts 2005 - 10:13 #5
denne fejl:

Microsoft VBScript compilation error '800a0408'

Invalid character

/presse/makethumb.asp, line 24

størrelsen derefter
--^

men når den er pinget skulle den vel ikke lave den ballade ?

/cdc
Avatar billede moejensen Nybegynder
24. marts 2005 - 10:14 #6
hvad er det for et webhotel?
Avatar billede cdc Novice
24. marts 2005 - 10:14 #7
den står på to linier så nok derfor, tester lige
Avatar billede cdc Novice
24. marts 2005 - 10:15 #8
nu har jeg slettet alle pinger og får denne: Expected statement

/presse/makethumb.asp, line 36

End If
^
Avatar billede moejensen Nybegynder
24. marts 2005 - 10:17 #9
hvordan ser koden ud nu?
Avatar billede cdc Novice
24. marts 2005 - 10:18 #10
det er webhot.dk

og under asp står der kun aspmail og jmail komponenter. men da jeg har brugt den andet uden problemer ville jeg mene der ikke skulle være problemer med dette som jeg vil bruge nu
Avatar billede cdc Novice
24. marts 2005 - 10:18 #11
<%

Dim strFuldeSti, strFilNavn, intSize, intQuality


strFuldeSti = Request("Path")
strFilNavn = Request("File")


intSize = 50
intQuality = 90


Set MyImage = Server.CreateObject("AspImage.Image")
Dim strOriginal
strOriginal = strFuldeSti & strFilNavn

MyImage.LoadImage strOriginal


If Myimage.MaxX > MyImage.MaxY then
IntYSize = 100
IntXSize = (intYSize / MyImage.MaxY) * MyImage.MaxX
Else
IntXSize = 100
IntYSize = (intXSize / MyImage.MaxX) * MyImage.MaxY
End if


MyImage.Resize intXSize, intYSize
MyImage.ImageFormat = 1
MyImage.JPEGQuality = intQuality
ProgressiveJPEGEncoding = true
Response.BinaryWrite MyImage.Image
Set MyImage = Nothing
End If
%>
Avatar billede moejensen Nybegynder
24. marts 2005 - 10:21 #12
du skal fjerne det sidste end if
Avatar billede moejensen Nybegynder
24. marts 2005 - 10:22 #13
hvis du har brugt det tidligere, så har de sikkert aspImage, enten har de glemt at skrive de på deres komponentliste, ellers har de ikke betalt for den, og derved ikke ønsker at reklamere med at de har den.
Avatar billede moejensen Nybegynder
24. marts 2005 - 10:22 #14
<%
    Dim strFuldeSti, strFilNavn, intSize, intQuality, strOriginal
    strFuldeSti = Request("Path")
    strFilNavn = Request("File")
    intSize = 50
    intQuality = 90
   
    Set MyImage = Server.CreateObject("AspImage.Image")
    strOriginal = strFuldeSti & strFilNavn
   
    MyImage.LoadImage strOriginal
   
    If Myimage.MaxX > MyImage.MaxY then
        IntYSize = 100
        IntXSize = (intYSize / MyImage.MaxY) * MyImage.MaxX
    Else
        IntXSize = 100
        IntYSize = (intXSize / MyImage.MaxX) * MyImage.MaxY
    End if
   
    MyImage.Resize intXSize, intYSize
    MyImage.ImageFormat = 1
    MyImage.JPEGQuality = intQuality
    ProgressiveJPEGEncoding = true
    Response.BinaryWrite MyImage.Image
    Set MyImage = Nothing
%>
Avatar billede cdc Novice
24. marts 2005 - 10:24 #15
Ja så kan man se at aspimage ikke er installeret:
Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/presse/makethumb.asp, line 14

Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.

line 14 er: Set MyImage = Server.CreateObject("AspImage.Image")

så må jeg jo opfinde den dybe tallerken :o)
Avatar billede cdc Novice
24. marts 2005 - 10:27 #16
det andet webgallery som jeg brugte, lavede tumbs, men som det står i toppen:

' This script is doing the thumbnail on the fly, using AspImage.
' If you don't have AspImage installed, then don't worry. The script will
' find out and do the thumb in anotherway.

så må den lave noget andet, hvis aspimage ikke er installeret.
Avatar billede moejensen Nybegynder
24. marts 2005 - 10:28 #17
ja, så er der ikke meget at gøre, men skrev du ikke at det havde virket
Avatar billede moejensen Nybegynder
24. marts 2005 - 10:29 #18
det kan jo ikke passe, det må vidst nærmere være en joke. Hvis man laver et script der bruger aspImage, og det ikke er installeret, så kan den jo ikke gøre det alligevel.
Avatar billede cdc Novice
24. marts 2005 - 10:38 #19
det har du ret i har kigget den igennem nu, og når man sidder på arbejde med en 10mbit forbindelse lægger man jo ikke mærke til det, samt at man har cachet alle billeder :o)
Så det er jo bare badluck...

Smid et svar så er der points på vej

/cdc
Avatar billede moejensen Nybegynder
24. marts 2005 - 10:40 #20
det kommer her :-)
Avatar billede moejensen Nybegynder
24. marts 2005 - 10:55 #21
takker for point
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 13:55 Ukendt sender e-mails fra - og til min e-mail adresse Af mort1 i Andet sikkerhed
24/0711:08 Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel
23/0715:10 WINDOWS KOMPABILITET Af snestrup2000 i Windows
22/0720:19 DVB T2 tuner med optagefunktion Af ErikHg i Andet hardware
20/0716:00 Fildeling mellem 2 windows 11 systemer Af knudg i Windows
White papers
Flere white papers »