Avatar billede kisbye Nybegynder
16. december 2002 - 11:00 Der er 2 kommentarer og
1 løsning

ASPImage - Cannot create file

Hejsa.
Jeg er ved at lave et script der skal "resize" et billede ved brug af ASPImage.
men den vil ikke gemme det.

Set ASPImage = Server.CreateObject("AspImage.Image")
test = ASPImage.LoadImage("d:/WEB/kragegaard.dk/Images/GalPic/sm_" & StrFilename)
response.Write("<BR>ASPImage.Loadimage: " & test)
ASPImage.ResizeR "150", "150"
test = ASPImage.SaveImage
response.Write("<BR>ASPImage.SaveImage gennemført: " & test)
if test = false then
    response.Write("<BR>Fejlen var: " & ASPImage.Error)
end if
Set ASPImage = nothing

Jeg før følgende svar:

ASPImage.Loadimage: True
ASPImage.SaveImage gennemført: False
Fejlen var: Cannot create file

jeg bruger at almindeligt JPG billede.
Jeg kører desuden ASPUpload, og Copyfile i samme script så det kan ikke være på grund af skriveretighederne.
jeg har prøvet at udkommentere ASPImage.resizeR, men det virker stadig ikke.

Før jeg beklager mig til mit Webhotel vil jeg lige være sikker på at der ikke er noget galt med mit script.

Håber der er nogen der kan hjælpe...
Avatar billede hnteknik Novice
16. december 2002 - 11:28 #1
Skal du have gemt det resizede pic eller skal du blot have vist det ?

Problemet er nok, at du ikke kan fyre tekst af sammen med de binære data:

Ofte viser man pic ved at kalde funktionen sådan:
<img src="PIC.asp" alt="PIC">

Her er der et færdigkog, du kan anvende: Henrik

<div align="center"><a href="3_real/Isbjerg.jpg"><img src='thumbnail.asp?FileName=Isbjerg.jpg&size=200' alt='miniature billede 2'  border="0" ></a></div>

<% FileName=request.querystring("FileName")

size=Cint(request.querystring("size")) %>

thumbnail.asp   
<%
    Response.ContentType = "image/jpeg"
    '*** get width/height of original image
    Set Image = Server.CreateObject("AspImage.Image")
    Image.LoadImage "abs sti til mappe - brug f.eks mappath" & FileName
    ImageHeight = Image.MaxY
    ImageWidth = Image.MaxX
   
    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 kisbye Nybegynder
16. december 2002 - 11:54 #2
Damm det var smart. :D
Så slipper jeg også for at gemme selve thumbnail billederne.

tak for hjælpen :)
Avatar billede hnteknik Novice
16. december 2002 - 12:04 #3
Jeps - jeg takker og bukker-

Henrik
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester