Nach CopyMemory werden Daten nicht übernommen

[jaenicke]

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

[EWeiss]

Zitat von jaenicke:

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.

[Zacherl]

Ohne die SaveArrays jetzt wirklich zu kennen: Wie ich das sehe, reicht es nicht einfach per PpixelDataArr.pvData := Bmp.bmBits die Daten zuweisen zu wollen. Ich würde hier SafeArrayAccessData verwenden, um mir einen Zeiger auf die tatsächlichen Daten zu holen. Danach sollte ein CopyMemory(PtrFromAccessDataAPI, Bmp.bmBits, size) ausreichen, um die Daten zu kopieren. Abschließend aber SafeArrayUnaccessData nicht vergessen.

[EWeiss]

Zitat von Zacherl:

Ohne die SaveArrays jetzt wirklich zu kennen: Wie ich das sehe, reicht es nicht einfach per PpixelDataArr.pvData := Bmp.bmBits die Daten zuweisen zu wollen. Ich würde hier SafeArrayAccessData verwenden, um mir einen Zeiger auf die tatsächlichen Daten zu holen. Danach sollte ein CopyMemory(PtrFromAccessDataAPI, Bmp.bmBits, size) ausreichen, um die Daten zu kopieren. Abschließend aber SafeArrayUnaccessData nicht vergessen.

Funktioniert leider nicht..
Danke..

Ich habe schon das Problem mit dem Header der kommt auch schon nicht an.

Delphi-Quellcode:

var
  BitmapInfo : Pointer;
.....
BitmapStream.Position := 0;
Background.LoadFromStream(BitmapStream);

BitmapStream.Position := 0;
BitmapInfo := @BitmapInfoHeader;
SafeArrayAccessData(PbitmapInfoArr, BitmapInfo);
SafeArrayUnaccessData(PbitmapInfoArr);

Danach sende ich die Daten das Resultat siehe Anhang..
Na egal dauert halt seine zeit bis ich weis wie es funktioniert.

ops.. der falsche punkt im Anhang aber spielt keine rolle ist überall 0

gruss

[Zacherl]

Du schreibst den Header ja auch nirgendwo in das Array rein Probiers mal so:

Delphi-Quellcode:

var
  BitmapInfo: TBitmapInfoHeader;
  Data: Pointer;
{ ... }
SafeArrayAccessData(PbitmapInfoArr, Data);
CopyMemory(Data, @BitmapInfo, SizeOf(BitmapInfo));
SafeArrayUnaccessData(PbitmapInfoArr);

Die SafeArrayAccessData liefert dir als Output Parameter einen komplett neuen Pointer. Du weißt zwar vor dem Aufruf BitmapInfo := @BitmapInfoHeader zu, aber nach dem Aufruf von SafeArrayAccessData, wurde der Zeiger bereits wieder überschrieben.

[EWeiss]

Danke du bist wirklich hilfsbereit.. ohne den unnötigen Schnick,schnack Drumherum

Ich hatte die Funktion ja schon geschrieben

Delphi-Quellcode:

var
   size: Integer;
   header: BITMAPINFOHEADER;
   pHeader: Pointer;

begin
   if Assigned(PpixelDataArr) then
     SafeArrayDestroy(PpixelDataArr);

   if Assigned(PbitmapInfoArr) then
     SafeArrayDestroy(PbitmapInfoArr);

     size := width * height * bytePerPixel;
     PpixelDataArr := SafeArrayCreateVector(VT_UI1, 0, size);

     PbitmapInfoArr := SafeArrayCreateVector(VT_UI1, 0, sizeof(BITMAPINFOHEADER));

     pHeader := @Header;

     SafeArrayAccessData(PbitmapInfoArr, pHeader);
     Header.biSize := sizeof(BITMAPINFOHEADER);
     Header.biWidth := width;
     Header.biHeight := height;
     Header.biBitCount := bytePerPixel*8;
     Header.biCompression := FourCC;
     SafeArrayUnaccessData(PbitmapInfoArr);

Was sich nicht vertragen hat war diese Umsetzung auf die mir niemand geantwortet hat als ich danach fragte.
Nun habe ich diese Verändert da die Konvertierung "pHeader := @Header" tatsächlich nicht funktioniert hat.
Jetzt kommen die Daten auch richtig an. Zumindest was den Header betrifft mit dem anderen muss ich noch schaun.

Delphi-Quellcode:

procedure TAtmoCtrlLib.AtmoCreateTransferBuffers(header: PBITMAPINFOHEADER; FourCC, bytePerPixel, width,
  height: Integer);
var
  size: Integer;

begin
  if Assigned(PpixelDataArr) then
    SafeArrayDestroy(PpixelDataArr);

  if Assigned(PbitmapInfoArr) then
    SafeArrayDestroy(PbitmapInfoArr);

    size := width * height * bytePerPixel;
    PpixelDataArr  := SafeArrayCreateVector(VT_UI1, 0, size);

    PbitmapInfoArr := SafeArrayCreateVector(VT_UI1, 0, sizeof(BITMAPINFOHEADER));

    SafeArrayAccessData(PbitmapInfoArr, Pointer(Header));
    Header.biSize := sizeof(BITMAPINFOHEADER);
    Header.biWidth := width;
    Header.biHeight := height;
    Header.biBitCount := bytePerPixel*8;
    Header.biCompression := FourCC;
    SafeArrayUnaccessData(PbitmapInfoArr);
end;

AtmoCtrlLib.AtmoCreateTransferBuffers(@BitmapInfoHeader, BI_RGB, 4, 64, 48);

Wie gesagt ich muss den Kram alles selber machen da gibt es nichts vergleichbares.
War wohl nur für C++ C# gedacht!

EDIT:
Eigentlich müssten doch die Pixel inklusive der Farben in Bmp.bmBits vorhanden sein oder?
Hmm wenn nicht muss ich diese wohl noch zu psa.rgsabound[0] hinzufügen sehe ich das richtig?

Das will irgendwie nicht mit den PixelArray
Im Moment fällt mir nichts mehr ein.

gruss und Danke..

[Zacherl]

Kannst du mal den Code zeigen, den du für das Kopieren der Pixeldaten verwendest? Eigentlich sollte das ja analog zum Header funktionieren.