Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Skriva över fil på servern

Postades av 2005-10-16 11:41:46 - Fredrik Pettersson, i forum asp.net generellt, Tråden har 1 Kommentarer och lästs av 362 personer

Jag håller på att utveckla en funktion där användaren kan ladda upp en bild som servern automatiskt ska göra en mindre variant av och sedan ta bort sden "stora" bilden. Problemet är att jag inte kan ta bort den gamla bilden eftersom det finns en process. Alternativet är att skriva över den gamla bilden med den mindre men det vet jag inte hus jag ska göra. Koden ser ut så här.

<code>

If Not (UploadFile.PostedFile Is Nothing) Then

Dim FilePath As String = UploadFile.PostedFile.FileName
Dim FileSize As Long = UploadFile.PostedFile.ContentLength
Dim FileName As String = System.IO.Path.GetFileName(FilePath)

Try
UploadFile.PostedFile.SaveAs(Server.MapPath("bilder/" + FileName))

Response.Write("Filen sparades som: bilder/" & FileName & "<br>")
Response.Write("Filens storlek: " & FileSize & "kb")


''--THUMBNAIL----------------------
Dim bm As Bitmap = System.Drawing.Image.FromFile(Server.MapPath("bilder/" & FileName))
Dim newWidth As Integer = 90
Dim newHeight As Integer = (newWidth / bm.Width) * bm.Height
'Create the new image as a blank bitmap
Dim resized As Bitmap = New Bitmap(newWidth, newHeight)
'Create a new graphics object with the contents of the origional image
Dim g As Graphics = Graphics.FromImage(resized)
'Resize graphics object to fit onto the resized image
g.DrawImage(bm, New Rectangle(0, 0, resized.Width, resized.Height), 0, 0, bm.Width, bm.Height, GraphicsUnit.Pixel)

'Get rid of the evidence
g.Dispose()

'Create new path and filename for the resized image

'--Ger den nya filen ett nytt namn eftersom det inte går att skriva över--

Dim newStrFileName As String = "bilder/" & "T_" & FileName

'Save the new image to the same folder as the original

'--Här vill jag kunna skriva över den gamla filen istället för att skapa en ny fil--

resized.Save(Server.MapPath(newStrFileName), ImageFormat.Jpeg)
Catch Exp As Exception

Response.Write("Ett fel uppstod<br>" & Exp.Message)

End Try

Else

Response.Write("Ingen fil skickades.")
end if
</code>


Svara

Sv: Skriva över fil på servern

Postades av 2005-10-17 12:43:52 - Göran Andersson

Du måste anropa dispose på den bitmap som läser filen innan du kan ersätta filen.

Du har för övrigt glömt att göra dispose på bägge bildobjekten.


Svara

Nyligen

  • 09:09 Vill du köpa medicinska tester?
  • 12:47 Vem beviljar assistansen – kommune
  • 14:17 Någon med erfarenhet av hemstädnin
  • 14:14 Bör man använda sig av en båtförme
  • 14:12 Finns det någon intressant hundblo
  • 14:25 Tips på verktyg för att skapa QR-k
  • 14:23 Tips på verktyg för att skapa QR-k
  • 20:52 Fungerer innskuddsbonuser egentlig

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 569 604
27 953
271 705
6 356
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies