---
title: "Hjälp med bildscript..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/94427-hjälp-med-bildscript"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "Hembrink"
published: "2004-01-09T21:57:16.000Z"
updated: "2004-01-10T00:25:35.000Z"
replies: 3
views: 202
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/94427-hjälp-med-bildscript"
---

# Hjälp med bildscript...

## #1 — Hembrink, 2004-01-09T21:57Z

Frågade efter ett script där jag kunde streama bilder genom image.aspx som gjorde dem till tumnaglar. ex \<img src="image.aspx?src=bild.jpg&height=100&width=100"\> Fick denna koden;

\<%@ Page Language="vb" %\>
\<%@ import namespace="System" %\>
\<%@ import namespace="System.IO" %\>
\<%@ import namespace="System.Drawing" %\>
\<%@ import namespace="System.Drawing.Imaging" %\>
\<script runat="server"\>

Sub sendFile()
    dim g as System.Drawing.Image = System.Drawing.Image.FromFile(server.mappath(request.querystring("src")))
    dim thisFormat = g.rawformat
    dim imgOutput as New Bitmap(g, cint(request.querystring("width")), cint(request.querystring("height")))

    if thisformat.equals(system.drawing.imaging.imageformat.Gif) then
        response.contenttype="image/gif"
    else
        response.contenttype="image/jpeg"
    end if

    imgOutput.save(response.outputstream, thisformat)

    g.dispose()
    imgOutput.dispose()
end sub

Sub sendError()
    dim imgOutput as New bitmap(100, 120, pixelformat.format24bpprgb)
    dim g as graphics = graphics.fromimage(imgOutput)
    
    g.clear(color.Silver)
    g.drawString("Det blev fel", New font("verdana",10,fontstyle.bold),systembrushes.windowtext, New pointF(2,2))

    response.contenttype="image/gif"

    imgOutput.save(response.outputstream, imageformat.Jpeg)

    g.dispose()
    imgOutput.dispose()
end sub

Sub Page_Load()

    response.clear

    if request.querystring("src")="" or request.querystring("height")="" or request.querystring("width")="" then
        call sendError()
    else
        if file.exists(server.mappath(request.querystring("src"))) then
            call sendFile()
        else
            call sendError()
        end if
    end if
    
    response.end
End Sub
\</script\>

Jag kan ingen .net så jag frågade en jag känner om hon kunde hjälpa mig att göra om det lite så att om querystringen "height" är tom så ska scriptet räkna ut höjden själv med hjälp av följande formel; höjden = orginalhöjden \* bredden / orginalbredden (höjden och bredden är det som angets i querystringarna och orginalbredd och orginalhöjd är då höjden och bredden som bilden har egentligen...). Men hon lyckades inte, så jag undrar om nån snäll kunde förklara hur man gör detta!

Permalänk: https://www.webforum.nu/p/94427

## #2 — Ingrid, 2004-01-09T22:02Z

Exakt....VAD är det du behöver hjälp med?

Permalänk: https://www.webforum.nu/p/1246560

## #3 — Hembrink, 2004-01-09T22:03Z

Om du läser lite nedanför scriptet så ser du att jag behöver hjlp med att om querystringen "height" är tom så ska scriptet räkna ut höjden själv med hjälp av följande formel; höjden = orginalhöjden \* bredden / orginalbredden (höjden och bredden är det som angets i querystringarna och orginalbredd och orginalhöjd är då höjden och bredden som bilden har egentligen...).

Permalänk: https://www.webforum.nu/p/1246561

## #4 — Pace, 2004-01-10T00:25Z

Under förutsättning att du anger en fast bredd på tumnagel-bilderna är detta ett alternativ:

```
[red]Dim Width As Integer = Request.QueryString("width")
Dim Height As Integer = Request.QueryString("height")
Dim ThumbWidth As Integer = 200 'px
Dim ThumbHeight As Integer = (Height * ThumbWidth) / Height[/red]

dim imgOutput as New Bitmap(g, ThumbWidth, ThumbHeight)
```

Permalänk: https://www.webforum.nu/p/1246656

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/94427-hjälp-med-bildscript