Tilføj billeder til database

Jeg lytter lige med :-)

det er ok, men jeg ville selvfølgelig foretrække at du kunne svare på mit ? he he

odegaard>> det er nok bare at trykke udfør uden at skrive hverken et svar eller kommentar

Jeg tror sgu næsten at jeg har løst det, der kommer en post i aften eller i morgen.  fedt manner.

SÅ er det fikset,så jeg tager selv pointene. Her er koden.

<%@ Page Language="vb" debug="true"%>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace=System.Drawing %>
<script language="vb" runat="server">

Sub UploadImage(sender as object, e as EventArgs)
   
    '-----------------------------------------------------------------------------------------------------   
    'VARIABLES
    '-----------------------------------------------------------------------------------------------------   
    Dim aImgOrginal, aImgThumb As System.Drawing.Image
    Dim inp As New IntPtr()
    Dim aIntWidth, aIntHeight As Integer
    Dim aIntTempMultiplier As Integer
    Dim strFileNamePath as string = ImageFile.PostedFile.FileName    'Gets the filename and Path
    Dim strFileName As String = Path.GetFileName(strFileNamePath)    'Gets the filename
   
    aImgOrginal = aImgOrginal.FromFile(strFileNamePath)       
   
    Dim ImgStream As Stream = ImageFile.PostedFile.InputStream
    Dim OriginalImage(ImageFile.PostedFile.ContentLength) As Byte
   
    ImgStream.Read(OriginalImage, 0, ImageFile.PostedFile.ContentLength)
   
           
    '-----------------------------------------------------------------------------------------------------   
    'DEFINE THUMBNAIL SIZE, BASED ON ORIGINAL IMAGE SIZE
    '-----------------------------------------------------------------------------------------------------   
    If aImgOrginal.Height > aImgOrginal.Width then ' portrait 
        aIntTempMultiplier = 100 / aImgOrginal.Height 
    Else  'landscape
        aIntTempMultiplier = 100 / aImgOrginal.Width
    End if 
   
    aIntWidth = aImgOrginal.Width * aIntTempMultiplier
    aIntHeight =  aImgOrginal.Height * aIntTempMultiplier

    '-----------------------------------------------------------------------------------------------------   
    'SAVE THUMBNAIL TO DISK
    '-----------------------------------------------------------------------------------------------------   
    aImgThumb = aImgOrginal.GetThumbnailImage(aIntWidth, aIntHeight, Nothing, inp)

    aImgThumb.Save(Server.Mappath(strFileName), Imaging.ImageFormat.Jpeg)
   
    '-----------------------------------------------------------------------------------------------------   
    'CREATE A FILESTREAM, SO WE CAN CONVERT THE THUMB TO BYTE
    '-----------------------------------------------------------------------------------------------------   
    Dim fs as FileStream = New FileStream(Server.Mappath(strFileName),FileMode.OpenOrCreate,FileAccess.Read)
    Dim ThumbNail(fs.Length) As Byte
    fs.Read(ThumbNail, 0, Convert.ToInt32(fs.Length))
    fs.Close()
   
    '-----------------------------------------------------------------------------------------------------   
    'INSERT INFO INTO YOUR DATABASE
    '-----------------------------------------------------------------------------------------------------   
    Dim objConn as New SQLClient.SQLConnection("server=localhost;uid=sa;pwd=;Database=BetFiguerasCOM")
   
    Dim cmdText = "INSERT INTO pclPROJECTS_PICTURES(Picture,ThumbNail) VALUES(@image,@ThumbNail)"
   
    Dim objcmd As New SqlClient.SqlCommand(cmdText, objConn)
   
    Dim imgparam As New SqlClient.SqlParameter("@image", SqlDbType.Image)
    Dim imgthumb As New SqlClient.SqlParameter("@ThumbNail", SqlDbType.Image)

    imgparam.Value = OriginalImage
    imgthumb.Value = ThumbNail

    objcmd.Parameters.Add(imgparam)
    objcmd.Parameters.Add(imgthumb)

    objconn.Open()
    objcmd.ExecuteNonQuery()
    objconn.close()
   
    '-----------------------------------------------------------------------------------------------------   
    'Now we are finished, delete the temporary thumbnail
    '-----------------------------------------------------------------------------------------------------   
    If (File.Exists(Server.Mappath(strFileName))) Then
        File.Delete(Server.Mappath(strFileName))
    End If
   
End Sub
</script>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
  <head>
    <title></title>
    <meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0">
    <meta name=vs_defaultClientScript content="JavaScript">
    <meta name=vs_targetSchema content="http://schemas.microsoft.com/intellisense/ie5">
  </head>
  <body>
<form enctype="multipart/form-data" runat="server" id="frmUpload">
<input id="ImageFile" runat="server" type="file" /><p>
<asp:button runat="server" OnClick="UploadImage" text="Upload pictures"/>
</form>
  </body>
</html>

Og her er kode til at oprette tabellen i DB:

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[image]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[image]
GO

CREATE TABLE [dbo].[image] (
    [ID] [int] IDENTITY (1, 1) NOT NULL ,

    [Picture] [image] NULL ,
    [Thumbnail] [image] NULL ,
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
GO

ALTER TABLE [dbo].[image] WITH NOCHECK ADD
    CONSTRAINT [PK_image] PRIMARY KEY  NONCLUSTERED
    (
        [ID]
    )  ON [PRIMARY]
GO