Autor:
Bernhard Elbl
Erstellt am:
29 Jan 2002 17:38
|
Windows Imaging - vergessene Controls
|
|
Bilder JPG TIF GIF BMP
|
|
Windows Imaging ist bestandteil von Win95, Win98, WinNT und Windows 2000. Mit Windows Imaging wird schwierige Grafikbearbeitung zum Kinderspiel; nicht für Benutzer, sondern mehr für Entwickler:-). In VB arbeiten wir meist mit der PictureBox oder mit Image. Diese können Grafiken darstellen. Wenn es aber darum geht, Grafiken zu bearbeiten, dann sieht es wohl schon etwas schlechter aus. Im übrigen gibt es sicher bessere Komponenten als Windows Imaging, allerdings KEINE kostenlosen! Windows Imaging im Überblick
4 Steuerelemente werden uns für Bildbearbeitung bereitsgestellt
- Kodak Image Edit Control
- Kodak Image Admin Control
- Kodak Image Thumbnail Control
- Kodak Image Scan Control Wo finden Sie diese?
Im System32-Verzeichnis von Windows müssen einige Dateien, die mit "img*.ocx" beginnen liegen, wie z.B. "imgedit.ocx" für das Image Edit Control. Was tun, wenn die Datei (bzw die Controls) nicht da ist?
Die Dateien...
imgedit.ocx
oiadm400.dll
oigfs400.dll
oidis400.dll
oifil400.dll
imgcmn.dll
von...
http://www.treiber-archive.de
runterladen.
Hier können Sie alle 4 Controls runterladen, die Dateien oben, stellen die ImgEdit.ocx und alle ihre benötigten Komponenten dar. Was können Sie mit den Windows Imaging Controls tun?
Mit diesen können Sie z.B. Bilder vergrössern, verkleinern, rotieren, zoomen, scannen, Thumbnails darstellen Bilder konvertieren in JPG, BMP, GIF, TIF usw. Wie kann ich Sie ihn ASP einsetzen?
Da Sie die Controls serverseitig nicht mit ASP benutzen können, müssen Sie mit Hilfe einer ActiveX-Komponente ein COM-Interface bereitstellen.
Hier einige Grundkenntnisse zur Komponenten Entwicklung mit VB...
http://www.devtrain.de/news.asp?artnr=427 So können sie alle Features für ASP bereitstellen.
Hier ein Beispiel: VB-Komponente, die das konvertieren von Bildern unterstützt. VB-DLL:
- ActiveX-DLL Project anlegen
- Form hinzufügen
- auf die Form ein Image Edit Control setzen und ihm den Namen "imgedit1" geben
- in die Klassen folgendes Code schreiben
| Option Explicit Public Enum ePicType
enBMP = wiFileTypeBMP
enJPG = wiFileTypeJPG
enGIF = wiFileTypeGIF
enTIF = wiFileTypeTIFF
enAWD = wiFileTypeAWD
enPCX = wiFileTypePCX
enWIF = wiFileTypeWIFF
enXIF = wiFileTypeXIF
enDCX = wiFileTypeDCX
End Enum
Public Function ConvertPicture(ByVal sPicPath As String, ByVal sNewPicPath As String, ByVal ConvertTo As ePicType)
On Error Resume Next
With frmPictureLayer.ImgEdit1
.Image = sPicPath
.Display
.SaveAs sNewPicPath, ConvertTo
.CompressionType
End With
If Err.Number <> 0 Then
ConvertPicture = Err.Number & " : " & Err.Description
End If
End Function
|
- Komponente kompilieren
- ASP Seite erstellen und folgenden Code schreiben...
<%@ Language=VBScript %>
<%
const enJPG = 6
sPic = Server.MapPath("./") & "images est.bmp"
sNewPic = Server.MapPath("./") & "images est-new.jpg"set oPic = Server.CreateObject("Picture.CConverter")
oPic.ConvertPicture sPic, sNewPic, enJPG
set oPic = nothing Response.Write "Sie haben " & sPic & " in " & sNewPic & " convertert!"
%>
|
So wie dieses Beispiel gestaltet ist können Sie alle Features für ASP implementieren.
|
|