Søg
Avatar billede jpe Nybegynder
19. februar 2004 - 16:12 Der er 13 kommentarer og
2 løsninger

ASP Image Igen igen igen forsæt selv

Jeg har kigget på en del spørgsmål og besvarelser. Fulgt guider, læst og prøvet selv, men med samme resultat. Jeg kan ikke få det til at virke. Spørgmålet er hvorfor viser der ikke et billede men kun et kryds???? Jeg fatter det simpelthen ikke. Kan man teste om serveren har aspimage.dll installeret det rigtigt???

<%

'Dim FileName, size

'FileName=Request("FileName")
FileName="g:\fkkolle.dk\images\key.jpg"

'size=request("size")
size= 100



If FileName <> "" Then
Set FileObject = CreateObject("Scripting.FileSystemObject")

'If FileObject.FileExists(Request("FileName")) Then
If FileObject.FileExists(FileName) Then
 
  If Request("size") <> "" Then
  size = Int(Request("size"))
  Else
  size = 50
  End if
 
  Response.Expires = 0
  Set Image = Server.CreateObject("AspImage.Image")
  Response.ContentType = "image/jpeg"
  'Image.LoadImage (Request("FileName")
  Image.LoadImage "g:\fkkolle.dk\images\key.jpg"
 
  Width = Image.MaxX
  Height = ImageMaxY
 
  If Width < size Then size = Width
  If Width > Height Then
    NewWidth = Round(size/Width,2)
    NewHeight = Int(NewWidth*Height)
    Image.Resize size,NewHeight
  Else
    NewHeight = Round(size/Height,2)
    NewWidth = Int(NewHeight*Width)
  End If
 
  Image.CreateButton 5,true
  Image.ImageFormat = 1
  Image.JPEGQuality = 50
  ProgressiveJPEGEncoding = true
  Response.BinaryWrite Image.Image
  Set Image = nothing
Else
Response.Write("Ingen fil")
End If
Set FileObject = nothing
End If
 
%>

Og jeg er 100% sikker på at stien er rigtig. Koden har jeg taget fra http://www.mpa-lifetech.de/Forum/aspObjects/Dynamic%20Image%20Thumbnails%20Using%20ASPImage%20and%20the%20FileSystemObject.htm såvidt jeg husker.

Hvad gør en klog og hvad gør jeg?
Avatar billede nmh Nybegynder
19. februar 2004 - 17:26 #1
Jeg gætter på, at serveren ikke har aspimage installeret.
Jeg har desværre ingen erfaring med dette produkt.
Du må nok spørge om det hos den systemansvarlige for den server, hvor du har dine asp-ting liggende.
Avatar billede jpe Nybegynder
19. februar 2004 - 20:38 #2
jeg er selv den ansvarlige og mener jeg har installeret produktet rigtigt. Da jeg har kunne genere noget binært kode undervejs, da jeg først troede at jeg skulle bruge siden med aspimage og ikke linke til aspimage side.
Avatar billede hnteknik Novice
19. februar 2004 - 21:27 #3
Det har som regel noget at gøre med den møde man får vist sit billede på. Prøv denne her, den virker for mig:

---- sim easp file ------
...
<img src='thumbnail.asp?FileName=" & rs("eventpic1") & "&size=150' alt='" &  rs("Eventtitle") &"' border='0' ></a>
....

----- thumbnail.asp -----------
<% FileName=request.querystring("FileName")
size=Cint(request.querystring("size")) %>
<%
    Response.ContentType = "image/jpeg"
    '*** get width/height of original image
    Set Image = Server.CreateObject("AspImage.Image")
    Myfolder ="pics"
    'Response.Write (Server.MapPath(MyFolder) & "\" & FileName)
    'Image.LoadImage Server.MapPath(MyFolder) & "\" & FileName
    'Image.LoadImage "d:\home\solit4udk\www\booking\pics" & "\" & FileName
    Image.LoadImage "d:\home\solit4udk\www\booking\pics" & "\" & FileName
    ImageHeight = Image.MaxY
    ImageWidth = Image.MaxX
    Image.CreateButton 5,true
    Image.ImageFormat = 1
    Image.JPEGQuality = 80
   
if ImageHeight > size then
    NewHeight = Cint(ImageHeight*size/ImageWidth)
    NewWidth = size
    Image.ResizeR NewWidth,NewHeight
end if
    Response.BinaryWrite Image.Image
    Set Image = Nothing

%>
Avatar billede jpe Nybegynder
19. februar 2004 - 22:35 #4
Det virker heller ikke. Er der en stump kode der kan tjekke om det stadig virker. Koden skal bare vise et eller andet?
Avatar billede jpe Nybegynder
19. februar 2004 - 22:47 #5
'Dim FileName, size

'FileName=Request("FileName")
FileName="g:\fkkolle.dk\images\key.jpg"

'size=request("size")
size= 100

%>
<body>
<%
If FileName <> "" Then
Set FileObject = CreateObject("Scripting.FileSystemObject")

'If FileObject.FileExists(Request("FileName")) Then
If FileObject.FileExists(FileName) Then
 
  If Request("size") <> "" Then
  size = Int(Request("size"))
  Else
  size = 50
  End if
 
  Response.Expires = 0
  Set Image = Server.CreateObject("AspImage.Image")
  Response.ContentType = "image/jpeg"
  'Image.LoadImage (Request("FileName")
  Image.LoadImage "FileName"
 
  Width = Image.MaxX
  Height = ImageMaxY
 
  'If Width < size Then size = Width
  'If Width > Height Then
  '  NewWidth = Round(size/Width,2)
  '  NewHeight = Int(NewWidth*Height)
  '  Image.Resize size,NewHeight
  'Else
  '  NewHeight = Round(size/Height,2)
  '  NewWidth = Int(NewHeight*Width)
  'End If
 
  'Image.CreateButton 5,true
  Image.ImageFormat = 1
  Image.JPEGQuality = 50
  ProgressiveJPEGEncoding = true
  Response.BinaryWrite Image.Image
  Set Image = nothing
Else
Response.Write("Ingen fil")
End If
Set FileObject = nothing
End If
 
når jeg skriver sådan for jeg og køre thumbnail.asp :

ASPImage.Image error '8000ffff'

Bitmap image is not valid

/aspimage/thumbnail.asp, line 56

linie 56 =  Response.BinaryWrite Image.Image
Avatar billede jpe Nybegynder
20. februar 2004 - 09:39 #6
hmmm jeg har testet med:

Set Image = Server.CreateObject("AspImage.Image")
Image.GetImageFileSize Server.MapPath("test.jpg"), intX, intY
Response.Write "<p>Billedets størrelse er: " & intX & "x" & intY & ".</p>"
Set Image = Nothing

Det virker fint???? Jeg fatter ikke lige hvad der sker.....
Avatar billede jpe Nybegynder
20. februar 2004 - 10:12 #7
hmmm hvis jeg thumbnail.asp?FileName=key-1600.jpg&size=100 i browseren så kommer det binary godt nok frem.... hntekniks virker ikke men måske en anden måde at kalde "thumbnailen" ?
Avatar billede jpe Nybegynder
20. februar 2004 - 10:24 #8
hvis jeg h. klikker på krydset(der hvor thumbnailen skulle have være) får jeg at vide stien er god nok
thumbnail.asp?FileName=key-1600.jpg&size=150 (ved godt at size er forskellig)
jeg fat jo ud af før at når jeg skrev thumbnail.asp?FileName=key-1600.jpg&size=150 i adresselinien kom den binary kode frem, så på sin hvis er det ok kode, men hvorfor vil den ikke vise billedet?
Avatar billede jpe Nybegynder
20. februar 2004 - 15:12 #9
det virker også som om det tænker noget, er der time out på?
Avatar billede hnteknik Novice
23. februar 2004 - 10:10 #10
Hallo - min kode virker udmærket - den kører hver dag.
Når du siger, at det ikke virker, er det så ikke fordi du modererer det
udover at ændre stien ned til billedet ?

1. Viser  du som et billede ?
<img src='thumbnail.asp?FileName=" & rs("eventpic1") & "&size=150' alt='" &  rs("Eventtitle") &"' border='0' ></a>

2. Undlader du at blande andet binært ind i det end det, der danner billedet ?
ASPImage kan ikke håndtere, at du blander billedbinært og f.eks. tekst sammen ( Udover det, som ASPImage selv kan sammenføje i et billede.
... Undgå sådan noget.
Else
Response.Write("Ingen fil")
..
Beklager, men der er ikke altid logik i den måde ASPImage håndterer tingene, det er nok derfor, det ikke er så udbredt.
Avatar billede jpe Nybegynder
23. februar 2004 - 21:15 #11
hmmm
http://www.fkkolle.dk/aspimage/
der kan du se hvad jeg får af resultat
Avatar billede hnteknik Novice
23. februar 2004 - 22:18 #12
prøv at se her
http://www.web4it.dk/aspimage/vispic.htm
Avatar billede jpe Nybegynder
24. februar 2004 - 09:09 #13
Hmmm nu virker det, jeg kan ikke forstå det, men det virker så mange tak for hjælpen. Jeg er dig (næsten) evigt taknemlig :-)
Avatar billede hnteknik Novice
24. februar 2004 - 09:29 #14
Jeg tror det ligger i, at du ikke har haft en korrekt sti ned til billedet. Mappath kan godt snyde lidt.
brug derfor en direkte sti ned til billederne eller

Image.LoadImage Request.ServerVariables("APPL_PHYSICAL_PATH")& "aspimage\" & FileName
Avatar billede jpe Nybegynder
24. februar 2004 - 17:05 #15
det tror jeg du har helt ret i :D
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 21:38 webui_forge_cu121_torch231 med AMD Grafikkort. Af jonpet i Andet software
I går 20:06 email adresse Af Malm i Forslag til ændringer
I går 19:54 problem med google crome Af Malm i Andet software
I går 09:36 Alternativ holder til to skærme... Af Don G i Skærme
20/0815:01 Samsung smart TV Af postpeter@outlook.dk i Fri debat
White papers
Flere white papers »