AW: Nach CopyMemory werden Daten nicht übernommen
Ohne die SaveArrays jetzt wirklich zu kennen: Wie ich das sehe, reicht es nicht einfach per
Delphi-Quellcode:
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
PpixelDataArr.pvData := Bmp.bmBits
Delphi-Quellcode:
ausreichen, um die Daten zu kopieren. Abschließend aber SafeArrayUnaccessData nicht vergessen.
CopyMemory(PtrFromAccessDataAPI, Bmp.bmBits, size)
|
AW: Nach CopyMemory werden Daten nicht übernommen
Zitat:
Danke.. Ich habe schon das Problem mit dem Header der kommt auch schon nicht an.
Delphi-Quellcode:
Danach sende ich die Daten das Resultat siehe Anhang..
var
BitmapInfo : Pointer; ..... BitmapStream.Position := 0; Background.LoadFromStream(BitmapStream); BitmapStream.Position := 0; BitmapInfo := @BitmapInfoHeader; SafeArrayAccessData(PbitmapInfoArr, BitmapInfo); SafeArrayUnaccessData(PbitmapInfoArr); 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 |
AW: Nach CopyMemory werden Daten nicht übernommen
Du schreibst den Header ja auch nirgendwo in das Array rein :P Probiers mal so:
Delphi-Quellcode:
Die SafeArrayAccessData liefert dir als Output Parameter einen komplett neuen Pointer. Du weißt zwar vor dem Aufruf
var
BitmapInfo: TBitmapInfoHeader; Data: Pointer; { ... } SafeArrayAccessData(PbitmapInfoArr, Data); CopyMemory(Data, @BitmapInfo, SizeOf(BitmapInfo)); SafeArrayUnaccessData(PbitmapInfoArr);
Delphi-Quellcode:
zu, aber nach dem Aufruf von SafeArrayAccessData, wurde der Zeiger bereits wieder überschrieben.
BitmapInfo := @BitmapInfoHeader
|
AW: Nach CopyMemory werden Daten nicht übernommen
Danke du bist wirklich hilfsbereit.. ohne den unnötigen Schnick,schnack Drumherum ;)
Ich hatte die Funktion ja schon geschrieben
Delphi-Quellcode:
Was sich nicht vertragen hat war diese Umsetzung auf die mir niemand geantwortet hat als ich danach fragte. ;)
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); 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;
Delphi-Quellcode:
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 :oops::wall: Im Moment fällt mir nichts mehr ein. gruss und Danke.. |
AW: Nach CopyMemory werden Daten nicht übernommen
Kannst du mal den Code zeigen, den du für das Kopieren der Pixeldaten verwendest? Eigentlich sollte das ja analog zum Header funktionieren.
|
AW: Nach CopyMemory werden Daten nicht übernommen
Zitat:
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 |
AW: Nach CopyMemory werden Daten nicht übernommen
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); |
AW: Nach CopyMemory werden Daten nicht übernommen
Zitat:
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:
Hab auch noch ein paar Speicherlecks die ich finden muss.
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); 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 |
AW: Nach CopyMemory werden Daten nicht übernommen
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 |
AW: Nach CopyMemory werden Daten nicht übernommen
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. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:45 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz