xsharp.eu

Code: Select all

PARTIAL CLASS dtwBitmaps INHERIT _dtwBitmaps


CONSTRUCTOR(oWindow,iCtlID,oServer,uExtra)  
   SUPER(oWindow,iCtlID,oServer,uExtra)
   RETURN

METHOD GetImage_Original(oServer)  // original method from Joachim. Works fine.
	// Bild aus dem Server ermitteln
	LOCAL oImage		AS bBitmap
	LOCAL cDibData		AS STRING

	// Bild als String aus dem Server ermitteln
	cDibData := oServer:FieldGet(#IMAGE)	// stattdessen FieldGet() verwendet, bis der Fehler behoben ist.
	IF !Empty(cDibData)
		// Bild in ein Bitmap-Objekt konvertieren
		oImage := bBitmap{bimgCreateBitmapFromDibString(, cDibData)}
	ENDIF
	RETURN oImage
	
	
	
METHOD GetImage(oServer) // adapted method, does not yield any picture in the colum. File exists.
	LOCAL oFabImage AS FabPaintLib.FabPaintLib
	LOCAL cThumbnailName AS STRING

	cThumbnailName := "C:temptest.jpg"
	
	IF File(cThumbnailName) //if thumbnail is already there; just take this one
		oFabImage := FabPaintLib.FabPaintLib{cThumbnailName, SELF}
	ELSE 
		QOut("Error")
	ENDIF
	
RETURN oFabImage

METHOD PostInit() 
	// Fenster und Browser initialisieren
	LOCAL odbsServer		AS OBJECT
	LOCAL oColumn			AS bDataColumn
	LOCAL oFabImage AS FabPaintLib.FabPaintLib

	// Fenster initialisieren
	SUPER:PostInit()
	SetDeleted(TRUE)

	// Server IMAGE öffnen
	odbsServer := bDBServer{"....DataImage", TRUE, FALSE, "DBFCDX"}

	IF odbsServer:Used
		// Browser initialisieren
		SELF:oDCBrowser:EnableRowHeightVariable(TRUE)
		SELF:oDCBrowser:Use(odbsServer,, {#IMAGE_NAME})

		// Spalte IMAGE_NAME initialisieren
		oColumn := SELF:oDCBrowser:GetColumn(#IMAGE_NAME)
		IF oColumn<>NULL_OBJECT
			oColumn:Caption := "Name"
		ENDIF
        
		// Spalte IMAGE initialisieren
		oColumn := bDataColumn{SELF:oDCBrowser, odbsServer, {|Server, Owner| Owner:GetImage(Server)}, #Expression, SELF}
		
		oColumn:Caption := "Image"
		oColumn:ValType := "O"
		oColumn:Alignment := BALIGN_CENTER
		oColumn:Width := 299
		SELF:oDCBrowser:AddColumn(oColumn)
		SELF:oDCBrowser:OpenColumn(oColumn)

		// Browser aktualisieren
		SELF:oDCBrowser:Recalculate()
	ENDIF

	RETURN SELF

END CLASS

Code: Select all

Bitmap bmp = new Bitmap('some.bmp');
Bitmap bmp2 = new Bitmap(bmp, bmp.Width*0.5, bmp.Height*0.5); // 50%

Code: Select all

CLASS bBitmap INHERIT Bitmap

CONSTRUCTOR(uPara1, uPara2) 
	IF PCount()=0
		// mache nichts
	ELSEIF IsPtr(uPara1)
		SELF:hBitmap := uPara1
	ELSE
		SUPER(uPara1, uPara2)
	ENDIF
	RETURN 

METHOD SetHandle(hBitmap) 
	// Bitmap-Handle setzen
	IF SELF:hBitmap<>NULL_PTR
		DeleteObject(SELF:hBitmap)
	ENDIF
	SELF:hBitmap := hBitmap
	RETURN TRUE

END CLASS

Code: Select all

Bitmap bmp = new Bitmap('some.bmp');

Code: Select all

INTERNAL FUNCTION getVOBitmap(cFilename as STRING) AS VO.Bitmap PASCAL

	LOCAL oStream AS System.IO.MemoryStream
	LOCAL oNetBitmap AS System.Drawing.Bitmap
    
    LOCAL aImageData AS BYTE[]
	LOCAL hBitmap AS PTR    
    
    TRY
		aImageData := System.IO.File.ReadAllBytes(cFilename)
	CATCH e AS Exception
		THROW InvalidOperationException{ "Image data not readable.", e }
	END TRY
	    
	IF ( aImageData?:Length ?? 0 ) == 0
		THROW ArgumentException{ "Image data is empty." }
	ENDIF
		
	TRY
		oStream := System.IO.MemoryStream{ aImageData }
		oNetBitmap := System.Drawing.Bitmap{ oStream }
	CATCH e AS Exception
		THROW InvalidOperationException{ "Image data is broken.", e }
	END TRY
	
	hBitmap := CopyImage(oNetBitmap:GetHbitmap(), IMAGE_BITMAP, oNetBitmap:Width, oNetBitmap:Height, LR_COPYDELETEORG)

	RETURN VO.Bitmap{ hBitmap }