Nach CopyMemory werden Daten nicht übernommen

[EWeiss]

Nach dem kopieren des einen auf das andere Array werden die Daten im neuen nicht korrekt übernommen.
Was könnte hier schief laufen.?

Delphi-Quellcode:

    BitmapStream.Position := 0;
    Background.LoadFromStream(BitmapStream);
    GetObject(Background.Handle, SizeOf(Bmp), @Bmp);

    size := Bmp.bmWidth * Bmp.bmHeight * Bmp.bmBitsPixel;
    psa  := SafeArrayCreateVector(VT_UI1, 0, size);

    psa.cDims := 2;
    psa.cbElements := 1;
    psa.fFeatures := 0;
    psa.cLocks := 0;
    psa.pvData := Bmp.bmBits;
    psa.rgsabound[0].lLbound := 0;
    psa.rgsabound[0].cElements := Bmp.bmWidth;

    CopyMemory(PpixelDataArr, psa, Bmp.bmBitsPixel);

Eigentlich sollten jetzt alle Daten vom psa Array sich im PpixelDataArr befinden.
Die ersten 4 Einträge ja.. der rest aber nicht.

gruss

[Uwe Raabe]

Dann gib doch einfach die passende Größe an und nicht die Farbtiefe.

Zitat:

bmBitsPixel
The number of bits required to indicate the color of a pixel.

[EWeiss]

Zitat:

Zitat von Uwe Raabe (Beitrag 1242282)

Dann gib doch einfach die passende Größe an und nicht die Farbtiefe.

Zitat:

bmBitsPixel
The number of bits required to indicate the color of a pixel.

Wo ist der Unterschied?`
ob ich nun 4 oder Bmp.bmBitsPixel = 4 angebe bleibt sich doch gleich.

4 ist 4

rgsabound ist 64
wird aber im neuem Array mit 12288 beziffert.

ab psa.pvData werden die Daten nicht übernommen.


gruss

[Uwe Raabe]

Du kopierst aber nur die ersten 4 Byte der Struktur psa und nicht die Inhalte der einzelnen Array-Elemente. CopyMemory kopiert ja nur eine Anzahl Bytes von einer Speicheradresse zu einer anderen - was auch immer sich dahinter verbirgt. Mit ziemlicher Sicherheit ist es der falsche Ansatz um ein SafeArray zu kopieren (dafür gibt es SafeArrayCopy und SafeArrayCopyData).

Ein SafeArray ist halt etwas völlig anderes als ein normales Delphi Array. Der Typ von PpixelDataArr ist aus dem Code-Abschnitt ja nicht zu ersehen, aber selbst wenn es auch ein PSafeArray ist, wird mit dem CopyMemory die Speicherverwaltung von Windows einfach unterlaufen. Du könntest zwar mit

Delphi-Quellcode:

CopyMemory(PpixelDataArr, psa, Sizeof(psa^));

eine Kopie des SafeArray herstellen, aber das ginge mit

Delphi-Quellcode:

PpixelDataArr^ :=  psa^

viel einfacher. Der Speicher für die Daten ist aber nur einmal angelegt und da muss man schon aufpassen, wer den dann wann wieder freigibt.

Warum überhaupt das SafeArray? Brauchst du das anderweitig irgendwo?

[EWeiss]

Ja mich nervt das auch sehr aber die Ole-Schnittstelle an der ich das Array senden muss ist nun mal auf SafeArray ausgelegt.
In Delphi gibt es da fast keine Informationen drüber wie man ein PixelArray einer Bitmap in ein SafeArray kopiert.

gruss

[Furtbichler]

Wieviel Bytes werden denn hier kopiert?

Delphi-Quellcode:

CopyMemory(PpixelDataArr, psa, Bmp.bmBitsPixel);

wenn

Delphi-Quellcode:

Bmp.bmBitsPixel=4

ist

[EWeiss]

Zitat:

Zitat von Furtbichler (Beitrag 1242311)

Wieviel Bytes werden denn hier kopiert?

Delphi-Quellcode:

CopyMemory(PpixelDataArr, psa, Bmp.bmBitsPixel);

wenn

Delphi-Quellcode:

Bmp.bmBitsPixel=4

ist

Ich habe es ja geändert aber es hilft nichts :oops:
Auch wenn ich das eine auf das andere Caste.

gruss

[jaenicke]

Wie sieht es denn aktuell aus, wenn du schreibst du hast es geändert?

[EWeiss]

Zitat:

Zitat von jaenicke (Beitrag 1242314)

Wie sieht es denn aktuell aus, wenn du schreibst du hast es geändert?

Delphi-Quellcode:

    GetObject(Background.Handle, SizeOf(Bmp), @Bmp);

    size := Bmp.bmWidth * Bmp.bmHeight * Bmp.bmBitsPixel;
    PpixelDataArr  := SafeArrayCreateVector(VT_UI1, 0, size);

    PpixelDataArr.cDims := 2;
    PpixelDataArr.cbElements := 1;
    PpixelDataArr.fFeatures := 0;
    PpixelDataArr.cLocks := 0;
    PpixelDataArr.pvData := Bmp.bmBits;
    PpixelDataArr.rgsabound[0].lLbound := 0;
    PpixelDataArr.rgsabound[0].cElements := Bmp.bmWidth;

Hab das Temporäre gelöscht dann kann mir das casten sparen..
Aber funktioniert trotzdem nicht.. Ich vermisse das PixelArray innerhalb des SafeArray
Versteh die Technik wohl nicht die dahinter steckt.


gruss

[jaenicke]

Da du schreibst, dass es in Delphi nicht so viele Informationen dazu gibt:
Das liegt daran, dass du direkt mit der API arbeitest. Delphi selbst hat Funktionen wie VarArrayCreate um mit solchen Arrays zu arbeiten.
Ein wenig Material dazu findest du hier:
http://www.gekko-software.nl/Delphi/index.htm

Und hier noch ein Beispiel zu der API selbst in Delphi (erste Antwort):
https://forums.embarcadero.com/threa...threadID=53288
Bei dir fehlt jetzt das Kopieren der Daten würde ich mal sagen. Du musst nur die richtige Anzahl Bytes kopieren.