Moderator: Moderatoren
Code: Alles auswählen
//
// DBESYS "plain" FOXCDX like we say before
//
USE ("C:\_DEVCON\DATA\BioLife.DBF") VIA "FOXCDX"
...
oBmp := XbpBitmap():new():create(oPS)
...
DO WHILE !EOF()
SELECT BIOLIFE
//
// that shoud "load" Memo Type "V" into Bitmap Object
//
oBmp:setBuffer(BIOLIFE->GRAPHIC)
a1 := oBmp:xSize
a2 := oBmp:ySize
a3 := oBmp:planes
a4 := oBmp:bits
a5 := oBmp:setBuffer()
Code: Alles auswählen
#IFDEF China
a1 := 146
a2 := 27
#ELSE
a1 := 250
a2 := 150
#ENDIF
oDraw := oDlg:drawingArea
oBmp := XbpBitmap():new()
oBmp:create(oPS)
oStatic := XbpStatic():new( oDraw ,;
,;
{100,20} ,;
{a1,a2} ,;
{{XBP_PP_BGCLR,GRA_CLR_YELLOW}} )
oStatic:caption := oBmp
oStatic:type := XBPSTATIC_TYPE_BITMAP
oStatic:create():show()
DO WHILE !EOF()
#IFDEF China
oBmp:setBuffer(CHINABMP->BITMAP)
#ELSE
oBmp:setBuffer(SUBSTR(BIOLIFE->GRAPHIC,(14+9),LEN(BIOLIFE->GRAPHIC)-(14+8)))
#ENDIF
oStatic:Setcaption( oBmp )
#IFDEF China
#ELSE
nHandle := FCreate( ".\PIC\F"+STRZERO(RECNO(),7)+".BMP",;
FC_NORMAL )
FWrite( nHandle, SUBSTR(BIOLIFE->GRAPHIC,;
9,;
LEN(BIOLIFE->GRAPHIC)-8) )
FClose( nHandle )
#ENDIF
SKIP
ENDDO
Ja ... das war schon am Anfang meine VermutungLewi hat geschrieben: SetBuffer() liest eine Bitmap ein wobei der Puffer dann dem Inhalt der Image-Datei ohne dem Datei-Header (ersten 14 Bytes) entspricht.
Wenn Du nur den Puffer wiederum in eine Datenbank abspeichers, fehlt der Datei-Header. FRAX kann dann den Feld-Inhalt für die Anzeige des Bitmaps nicht korrekt interpretieren.
In diesem Zusammenhang scheint Dein Problem zu liegen.
Ja ich habe gestern bei Alaska angerufen und per Email an Combit/FRAXJan hat geschrieben: PS: Till hat gerade eine ausführliche Abhandlung über das "Warum" inkl. Codebeispiel für eine korrekte Lösung in der Newsgroup gepostet (wishcollector - :getHND() (without "W" ))
Die Msg hatte ich eben noch nicht gesehen. Ich muss mir den Code vonJan hat geschrieben: Doch, schon.
Aber schau nach: Er hat da eine 2. Variante gepostet, weil die 1. Xbase++-Features vorweg nimmt, die es noch nicht gibt.
JA das ist der Hauptgrund !Martin Altmann hat geschrieben: Mhh,
ich habe das im Prinzip so verstanden, dass die Header des Images fehlen und es deshalb nicht klappt, die Grafik intern zu übergeben.
JA ... aber genau das Beispiel geht eben nicht wenn man den Inhalt desMartin Altmann hat geschrieben: So wie ich Andreas verstanden habe, musst Du ein leeres (aber korrekt aufgebautes) Bild erstellen und dann die internen Bilddatein "reinmischen" - das, was Du dann bekommst, kannst Du an L&L übergeben...
Code: Alles auswählen
FUNCTION CreateBitmapHandle(MyContens)
/*
** Load a bitmap from disk and
** create an OS-level bitmap
** object (HBITMAP)
*/
// Load bitmap from disk
oBmp := XbpBitmap():New():Create()
* oBmp:LoadFile( cFile )
// Retrieve OS-level image data
* cBuf := oBmp:SetBuffer( , XBPBMP_FORMAT_WIN3X )
// NEW from Memo
cBuf := oBmp:SetBuffer( MyContens , XBPBMP_FORMAT_WIN3X )
// Create a blank OS-level bitmap
// with the required dimensions
nHandle:= CreateDIBSection( 0, cBuf, DIB_RGB_COLORS, 0, 0, 0 )Wenn ich das Konzept von L & L verstehe wird doch extra eine AufteilungMartin Altmann hat geschrieben: wo ist das Problem, aus dem Inhalt der Memodatei eine temporäre Datei zu erzeugen und diese dann einzulesen in das Bitmapobjekt und dann intern an L&L zu übergeben?
Du kannst ja für alle 97.000 Grafiken in Deinem Report die selbe temporäre Datei zu Aufbereitung nutzen...
Code: Alles auswählen
LlDefineVariableExt(hJob,;
"@BILD2",;
ZPATH+"PIC"+LTRIM(BILDNR)+".BMP",;
LL_DRAWING,0)
Code: Alles auswählen
oBmp1:LoadFile( cFile )
// Retrieve OS-level image data
cBuf1 := oBmp1:SetBuffer( , XBPBMP_FORMAT_WIN3X )
// from Memo
cBuf2 := oBmp2:SetBuffer( MyContens , XBPBMP_FORMAT_WIN3X )
IF cBuf1 == cBuf2
Code: Alles auswählen
cBuffer := oBmp:setBuffer()
cFileHeader := "BM" + U2Bin( len( cBuffer ) + 14 ) + ;
U2Bin(0) + U2Bin(oBmp:bufferOffset + 14 )
Datei->Memofeld := cFileHeader+cBufferDAS war die "gesuchte" Formel. Ich habe die gestern ebenfalls gefundenGünter Beyes hat geschrieben: probier mal (falls du mit dem BMP-Format pur auskommen kannst)Code: Alles auswählen
cBuffer := oBmp:setBuffer() cFileHeader := "BM" + U2Bin( len( cBuffer ) + 14 ) + ; U2Bin(0) + U2Bin(oBmp:bufferOffset + 14 ) Datei->Memofeld := cFileHeader+cBuffer
somit ist FRAX nun in der Lage Alaska "konforme" Memo Bitmaps zuLewi hat geschrieben: dass eine neue Version verfügbar ist, die das Problem mit dem fehlenden Header löst.
Im Designer ist nunmehr ein neues Objekt "AlaskaBmpNoHeader" enthalten.
... und ich schaffe es nicht ...Lewi hat geschrieben: Im Designer ist nunmehr ein neues Objekt "AlaskaBmpNoHeader" enthalten.
Mit diesem Objekt können in Memofeldern abgespeicherte Bitmaps im Report gedruckt werden.
Übrigens, ich habe dies mit Jimmy´s Beispieldatei erfolgreich getestet.
DANKE erstmal für deine Mühe. Ich hab es mir angesehen und auch denLewi hat geschrieben: ich maile Dir ein Beispiel.