Fehler gibt es keinen aber beim senden ändern sich die Farben nicht.
Muss mich da bei MP noch mal schlau machen.
Delphi-Quellcode:
PSafeArray = ^TSafeArray;
{$EXTERNALSYM tagSAFEARRAY}
tagSAFEARRAY = record
cDims: Word;
fFeatures: Word;
cbElements: Longint;
cLocks: Longint;
pvData: Pointer;
rgsabound: array[0..0] of TSafeArrayBound;
end;
TSafeArray = tagSAFEARRAY;
{$EXTERNALSYM SAFEARRAY}
SAFEARRAY = TSafeArray;
Gruss und nochmal Danke für deine Hilfe.
Edit:
Ich muss den TMemoryStream an ein PsafeArray übergeben einmal für den Header und eins für die Pixeldaten.