Office: (Office 2016) Bilddaten aus Speicher direkt ins Image control laden

Hallo daolix,

sooo schön kurz :-), doch Access stürzt leider ohne Meldung ab in der vierten CopyMemory-Zeile
CopyMemory VarPtr(B(55)), VarPtr(BmpData(0, 0)), InfoHead.biSizeImage

Ist die Deklaration von B als Variant richtig?

Code:

 

Ergänzung:
InfoHead.biSizeImage = 107956
UBound(BmpData,1) = 547
UBound(BmpData,2) = 196

 

nö. Weg damit

 

ok, entfernt. Doch es bleibt dabei, daß Access beim letzten CopyMemory abstürzt.

 

Dann weis ich nicht. Kann ich nicht bestätigen. Wenn ich die Zeilen in deine ganz oben genannten Funktion einsetze stürtzt da nix ab.

 

Habe jetzt das probiert und den FileHeader weggelassen:
Da kommt beim letzten CopyMemory ein "Index außerhalb des gültigen Bereiches"

Code:

Ist es richtig, daß Len(FileHead) trotzdem in die Dimensionierung von B() eingerechnet werden muß und InfoHead beginnend ab B(15) eingeschrieben wird?

 

nö

ReDim B(1 To Len(InfoHead) + (InfoHead.biSizeImage)) As Byte
CopyMemory VarPtr(B(1)), VarPtr(InfoHead), 40
CopyMemory VarPtr(B(41)), VarPtr(BmpData(0,0)), InfoHead.biSizeImage

Forms!CO2!Bild2.PictureData = B()

 

weiterhin "Index außerhalb des gültigen Bereiches" bei
CopyMemory VarPtr(B(41)), VarPtr(BmpData(0, 0)), InfoHead.biSizeImage

Ich habe das Gefühl, zu kompliziert zu denken und das Einfache zu übersehen ... :-)
Hatte zwischendurch mit dem 1-dimensionalem Array buff2() probiert, hat aber das gleiche Ergebnis.

 

frag sich nur welches der beiden Arrays (b() oder BmpData()) jetzt ausserhalb des gültigen bereichs angesprochen wird. vor nen Copymem check mal L- & Ubound der arrays.

 

Gute Frage! Es liegt an B()
Nach der ReDim-Anweisung stimmen LBound(B) und UBound(B).
Frage ich die jedoch nach dem ersten CopyMemory wieder ab, erhalte ich die Fehlermeldung wegen ungültigem Index

 

lol
Ich vermute mal die Deklaration für CopyMemory ist bei dir ne andere als bei mir.

entweder
CopyMemory Byval VarPtr(B(1)), Byval VarPtr(FileHead.bfType), 2
CopyMemory Byval VarPtr(B(3)), Byval VarPtr(FileHead.bfSize), 12
CopyMemory Byval VarPtr(B(15)), Byval VarPtr(InfoHead), 40
CopyMemory Byval VarPtr(B(55)), Byval VarPtr(BmpData(0, 0)), InfoHead.biSizeImage

oder nimm alle varptr's samt den umschliessenden Klammern aus den entsprechenden Zeilen.

 

Hallo daolix,

Das wars! Vielen herzlichen Dank! Das ist wie ein Weihnachtsgeschenk :-)
Mit den ByVals funktioniert es.

In der ersten Zeile nimmt er InfoHead ohne alles an (ohne ByVal also ByRel, und ohne Pointerverweise VarPtr().
In der zweiten Zeile kann BmpData nur mit ByVal und VarPtr() übergeben werden. Alles andere crasht.
B() erfordert immer ByVal und VarPtr().
Code:

Auf was für einem System hast Du getestet? Ich überlege, vorsichthalber für die Weitergabe der accde an die User (von Access 2013 an aufwärts) das ByVal und das VarPtr() bei InfoHead zu belassen. Was denkst Du?

Und wie Du sicherlich schon bemerkt hast, habe ich tatsächlich schon ohne den FileHeader getestet und es läuft.
Hier erlaube bitte noch eine Frage für mein Verständnis:
Ich wundere mich daß es in der Form ohne FileHeader läuft und die InfoHead-Daten beginnend ab B(1) gespeichert werden und nicht wie im anderen Fall beginnend ab B(15). Ist es nicht so, daß in B() nur die Werte gespeichert werden, aber nicht die Namen der Variablen, aus denen sie kommen?
Woher weiß also der nächste Schritt, wo welche Daten in B() liegen?

Nochmals vielen vielen Dank!