Nach CopyMemory werden Daten nicht übernommen

[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.

[EWeiss]

Zitat von Zacherl:

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

So wie ich das verstehe muss ich meinen Zeiger von .bmBits in den Array Deskriptor setzen nur wie wo an welcher stelle.
Ohne das die Daten zwischenzeitlich wieder überschrieben werden.

gruss

[Zacherl]

Sollte analog zum Header folgendermaßen funktionieren:

Delphi-Quellcode:

var
  Data: Pointer;
{ ... }
  size := width * height * bytePerPixel;
  PpixelDataArr := SafeArrayCreateVector(VT_UI1, 0, size);
  SafeArrayAccessData(PpixelDataArr, Data);
  CopyMemory(Data, Pointer(NativeUInt(BitmapStream.Memory) + SizeOf(TBitmapFileHeader) + SizeOf(TBitmapInfoHeader)), size);
  SafeArrayUnaccessData(PpixelDataArr);

[EWeiss]

Zitat von Zacherl:

Sollte analog zum Header folgendermaßen funktionieren:

Delphi-Quellcode:

var
  Data: Pointer;
{ ... }
  size := width * height * bytePerPixel;
  PpixelDataArr := SafeArrayCreateVector(VT_UI1, 0, size);
  SafeArrayAccessData(PpixelDataArr, Data);
  CopyMemory(Data, Pointer(NativeUInt(BitmapStream.Memory) + SizeOf(TBitmapFileHeader) + SizeOf(TBitmapInfoHeader)), size);
  SafeArrayUnaccessData(PpixelDataArr);

Danke dir..

Ich habe es mittlerweile gelöst es gibt aber noch ein paar kleine Probleme mit der Bitmap.
Ich denke 1 Pixel als Rahmen gezeichnet ist einfach zu wenig werde da mal stufenweise erhöhen da er mir sonst
alle Fenster als Magenta anzeigt.

Ich musste den Zeiger von .bmBits in den Array Deskriptor setzen.
Das ging nur über OLEVariant zusätzlich mußte ich das Bitmap auf 24Bit setzen (ohne Alpha Channel).

Delphi-Quellcode:

  if AtmoInitialize then
  begin
    BitmapStream := TMemoryStream.Create;
    Background.SaveToStream(BitmapStream);
    BitmapStream.Position := 0;

    Background.LoadFromStream(BitmapStream);

    BitmapStream.Position := 0;
    BitmapStream.Read(BitmapFileHeader, SizeOf(TBitmapFileHeader));
    BitmapStream.Read(BitmapInfoHeader, SizeOf(TBitmapInfoHeader));

    pheader := @BitmapInfoHeader;

    AtmoCtrlLib.AtmoCreateTransferBuffers( BI_RGB, 3, BitmapInfoHeader.biWidth,
      BitmapInfoHeader.biHeight);

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

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

    bitMapSize := Bmp.bmWidth * Bmp.bmHeight;

    VariantInit(ValOUT);
    TVariantArg(ValOUT).VT := VT_ARRAY or VT_UI1;

    rgsabound[0].cElements := bitMapSize;
    rgsabound[0].lLbound := 0;

    TVariantArg(ValOUT).parray := SafeArrayCreate(VT_UI1, 1, rgsabound);
    if Assigned(TVariantArg(ValOUT).parray) then
    begin
      SafeArrayAccessData(TVariantArg(ValOUT).parray, pArrayData);
      CopyMemory(pArrayData, Bmp.bmBits, bitMapSize);
      SafeArrayCopy(TVariantArg(ValOUT).parray, PpixelDataArr);
      SafeArrayUnaccessData(TVariantArg(ValOUT).parray);
      VariantClear(ValOUT);
    end;
    AtmoCtrlLib.AtmoSendPixelData;

    DeleteObject(Background.Handle);
    FreeAndNil(BitmapStream);
  end;
  FreeAndNil(Background);

Hab auch noch ein paar Speicherlecks die ich finden muss.
Nach dieser Änderung.

Bei der ganzen Sache ist halt das Problem das man nicht oder sehr wenig Informationen über diese Thematik hat.
Aber wie man sieht geht es wenn man nur am Ball bleibt

gruss

[EWeiss]

Kann mir jemand sagen warum innerhalb von ein paar Minuten die Funktion im Post eins höher^
Der Speicher innerhalb von Minuten auf ein paar 100 MB hochgeht?

Ich kann doch nicht mehr machen als den Stream und die Bitmap Daten freizugeben.
Vielleicht noch irgendwas vergessen\Übersehn?

Habe den Atmo Kram auskommentiert trotzdem steigt der Speicher.
Deaktiviere ich die ganze Abfrage bleibt der Speicher konstant.

gruss

[himitsu]

Wie wäre es, wenn man sich mal mit dem dafür nötigen Debugwissen beschschäfftigt?

Angefangen bei ReportMemoryLeaksOnShutdown über die vollen Logging-Funktionen vom großen FastMM bis hin zu spezialisierten Frameworks (Delphi Speicherlecks finden).



Aber du kannst ja auch einfach mal prüfen, ob du alles, was DU da reservierst/erstellst, auch wieder freigibst, was sich nicht selber freigibt.
> Bmp, PpixelDataArr, pArrayData usw.


Du kannst natürlich auch einfach von innen nach außen die Funktionen so weit Stück für Stück auskommentieren bis der Speicher konstant bleibt.