Hallo,
ich habe eine ASP Website in ASP (vor vielen Jahren selbst erstellt) und als Upload-Komponente Persits aspupload und Persits aspjpeg benutzt. Nun habe ich das Problem, keinen (funktionierenden) Webserver mit diesen Komponenten mehr zu finden. Da ich selbst keine Ahnung von ASP.Net habe hier die Frage an die Spezialisten:
Läßt sich der nachfolgende Code einigermassen in aspx realisieren bzw. wäre jemand bereit, gegen Bezahlung dies zu übernehmen.
Im Grundsatz soll eine Bilddatei in den upload, heruntergerechnet und gespeichert werden. Eine Beschriftung wie im Original ist nicht notwendig.
Danke
Johann
Hier ein Teil des asp-Codes:
'On error resume next
kennung=request.querystring("kennung")
Code=request.querystring("Code")
pfad = server.mappath("kundenbilder") & "\"
Set Upload = Server.CreateObject("Persits.Upload")
Upload.SetMaxSize 1200000, True
count=Upload.SaveToMemory
' 8 is the number of "File too large" exception
If Err.Number = 8 Then
Response.Write "Die Datei ist zu groß"
Else
If Err <> 0 Then
Response.Write "Ein Fehler ist aufgetreten: " & Err.Description
End If
'Set File = Upload.Files("FILE1")
'If File.ImageType <> "UNKNOWN" Then
'##########################neue Größe und speichern
Set jpeg = server.createObject("Persits.Jpeg")
For Each File in Upload.Files
'response.write file.imagetype
If File.ImageType <> "UNKNOWN" Then
' Open uploaded file from memory
jpeg.OpenBinary(File.Binary)
'neue Breite und Höhe
if Jpeg.OriginalWidth > 800 then
L = 800
Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth
end if
'zuviel des guten
'Jpeg.Sharpen 1,120
'Schrift einfügen
'rot, weißer Hintergrund ###########
'Jpeg.Canvas.Font.Color = &HFF0000 ' Red
'Jpeg.Canvas.Font.Family = "Courier New"
'Jpeg.Canvas.Font.Bold = True
'Jpeg.Canvas.Font.Quality = 4 ' Antialiased
'Jpeg.Canvas.Font.BkMode = "Opaque" ' to make antialiasing work
'Jpeg.Canvas.Print 5, 5, "www.imker-boerse.de"
'################################
Jpeg.Canvas.Font.Color = &HFF0000
Jpeg.Canvas.Font.Family = "Courier New"
'Jpeg.Canvas.Font.Bold = True
' size in Pixel angeben!
Jpeg.Canvas.Font.Size = 15
Jpeg.Canvas.Font.Quality = 4 ' Antialiased
Jpeg.Canvas.Font.BkMode = "Opaque" ' to make antialiasing work
beschriftung = "www.xxxx / " & kennung
Jpeg.Canvas.Print 5, 5, beschriftung
'speichern
bildname = pfad & kennung & "." & file.imagetype
Jpeg.Save bildname
'########################Ende resize und speichern
'File.SaveAs pfad & kennung & "." & file.imagetype
'Response.Write "Datei erfolgreich übertragen:" & "<br>"
Bild=kennung & "." & file.imagetype
'Response.Write Bild & "<BR>"
bOk = "true"
else Response.Write "Dies ist keine Bilddatei"
End If
next
End If
set Upload = nothing
set jpeg = nothing
%>