Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Dynamisches Array Grenze? (https://www.delphipraxis.net/167418-dynamisches-array-grenze.html)

Sir Rufo 29. Mär 2012 01:27

AW: Dynamisches Array Grenze?
 
Im MSDN reiten die für hSection so auf NULL herum, dann würde die API auch den Speicher reservieren. Wenn nicht NULL, dann muss man den Speicher selber bereitstellen.

Also evtl. so?
Delphi-Quellcode:
hDirectBitmap := CreateDIBSection(hDirectDC, bmInfo, DIB_RGB_COLORS, Pointer(Pixels), NULL, 0);

EWeiss 29. Mär 2012 02:10

AW: Dynamisches Array Grenze?
 
Das werd ich mal testen Danke.
Nur wo ist NULL deklariert .. hmm OK in Variants

Leider nicht
Zitat:

Erste Gelegenheit für Exception bei $7715B9BC. Exception-Klasse EVariantTypeCastError mit Meldung 'Variante des Typs (Null) konnte nicht in Typ (Int64) konvertiert werden'. Prozess DimmedTest.exe (344)
Zitat:

dann muss man den Speicher selber bereitstellen.
Wenn ich jetzt wüßte wie, bezogen auf diese function, dann wäre es ja gut ;)

EDIT:
Sieht so aus
Zitat:

If hSection is not NULL, it must be a handle to a file mapping object created by calling the CreateFileMapping function.
Mein Problem das ich aber habe verfüge nur über ein HBitmap und lade keine Datei.
Könnte den hFile parameter mit INVALID_HANDLE_VALUE befüllen aber ob es damit getan ist?
Warum stellt Delphi den Parameter NULL zur verfügung wenn es nicht damit umgehen kann.
Oder ich bin einfach zu :stupid::wall:

In C++ sieht es so aus
Code:
HBITMAP hBitmap = CreateDIBSection(hDC, (BITMAPINFO*)&bmi, DIB_RGB_COLORS,(void**)&ppvBits , NULL, 0);
Anders hab ich es auch nicht, abgesehen von "NULL"
Hab mit CreateDIBSection schon viel gemacht aber das schlägt dem Fass den Boden aus. :pale:

gruss

himitsu 29. Mär 2012 08:11

AW: Dynamisches Array Grenze?
 
Zitat:

Nur wo ist NULL deklariert .. hmm OK in Variants
Fast, das NULL ist Variants ist ein Variant mit dem Wert NULL,
aber das hat mit diesem NULL nichts gemeinsam.

nil oder 0, je nach dem, ob der Parameter als Zeigertyp oder als ordinaler Typ deklariert ist.

Blup 29. Mär 2012 08:14

AW: Dynamisches Array Grenze?
 
Das ist in erster Linie ein Problem des Grafiktreibers.
Je nach Grafikkarte und Hersteller kann auch schon bei 1024x768 Schluss sein.
Allgemein kann man sich nicht darauf verlassen das man größere geräteabhängige Bitmaps erzeugen kann, als die maximal darstellbar Auflösung der Hardware hergibt.

EWeiss 29. Mär 2012 13:22

AW: Dynamisches Array Grenze?
 
Zitat:

Zitat von Blup (Beitrag 1159177)
Das ist in erster Linie ein Problem des Grafiktreibers.
Je nach Grafikkarte und Hersteller kann auch schon bei 1024x768 Schluss sein.

Wäre es ein Grafikkarten problem dann würde diese Abfrage fehlschlagen.
Delphi-Quellcode:
  ClientDC := GetWindowDC(ParentHandle);
  if (GetDeviceCaps(ClientDC, RASTERCAPS) and RC_PALETTE = RC_PALETTE) then
  begin
    Result := False;
    exit;
  end;
Zumal bei einer Grafikkarte Gforce gtx 460 1GB (GPU Ram)eingestellter Auflösung von 1920x1200
8GB ram / Speicher kein Problem sein dürfte.

Zitat:

Allgemein kann man sich nicht darauf verlassen das man größere geräteabhängige Bitmaps erzeugen kann, als die maximal darstellbar Auflösung der Hardware hergibt.
Tue ich auch nicht wenn überhaupt dann die aktuelle größe des Desktop.

Außerdem habe ein programm in C++ getestet ohne Bildmanipulation und dort wird der Speicher
bzw.. die richtige anzahl von Pixeln auf meinem System ohne Probleme verwaltet.

Zitat:

nil oder 0, je nach dem, ob der Parameter als Zeigertyp oder als ordinaler Typ deklariert ist.
Jo und das habe ich ja also 0 für Cardinal.

gruss

TiGü 29. Mär 2012 15:01

AW: Dynamisches Array Grenze?
 
Hau doch mal den ganzen Quelltext von der DLL raus, sonst kann doch keiner richtig debuggen.
Sonst stocheren wir hier nur so rum und das Problem ist vielleicht ganz woanderes.

EWeiss 29. Mär 2012 15:24

AW: Dynamisches Array Grenze?
 
Zitat:

Zitat von TiGü (Beitrag 1159265)
Hau doch mal den ganzen Quelltext von der DLL raus, sonst kann doch keiner richtig debuggen.
Sonst stocheren wir hier nur so rum und das Problem ist vielleicht ganz woanderes.

Deinen Wunsch wurde entsprochen ;)

gruss

Blup 29. Mär 2012 16:14

AW: Dynamisches Array Grenze?
 
Das Problem scheint zumindest ähnlich zu sein:
http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx
Zitat:

Systemwide size limitations
Windows apparently may enforce systemwide limits on available memory for CreateCompatibleBitmap. (According to some sources, this is because device-dependent bitmaps must reside in video card RAM.) If you're getting ERROR_NOT_ENOUGH_MEMORY errors when calling CreateCompatibleBitmap, the solution is to use device-independent bitmaps (DIBs) instead.

brechi 29. Mär 2012 16:21

AW: Dynamisches Array Grenze?
 
Ähm du solltest keine Dyn. Arrays als Output einer Funktion verwenden, da u.a. z.b. noch die Laenge gespeichert wird. (Genau müsste ich da jetzt auch erstmal nachschauen)
Du kannst eher sowas nehmen:
Delphi-Quellcode:
type
   TMyPixels = array[0..4096*4096-1] of Cardinal;
   PMyPixels = ^TMyPixels;
var
  Pixels: PPixels;
CreateDIBSection(....,Pixels,....);
Pixels[0]...
Außerdem solltest du in deinem Code mal die globalen Variablen entfernen. Und zu guter letzt: Lies dir nochmal meinen 2. Post mit meinem Beispiel KOMPLETT durch, da solltest die Lösung finden.

Ubrigens hast du da noch mehr Fehler im Code. Bei:
Delphi-Quellcode:
          nSize := bm.bmWidth * bm.bmHeight;

          for IntI := 0 to nSize do
fehlt mit Sicherheit ein -1
und statt einem "array of cardinal" bietet sich wohl auch ein "array of TRGBQuad" oder eine eigene Definition an.

EWeiss 29. Mär 2012 18:08

AW: Dynamisches Array Grenze?
 
Zitat:

Und zu guter letzt: Lies dir nochmal meinen 2. Post mit meinem Beispiel KOMPLETT durch, da solltest die Lösung finden.
Habe deinen Thread schon gelesen aber lösungen sind da keine was den Speicher angeht.
Zitat:

Delphi-Quellcode:
type
    TMyPixels = array[0..4096*4096-1] of Cardinal;
    PMyPixels = ^TMyPixels;
 var
   Pixels: PPixels;
 CreateDIBSection(....,Pixels,....);
 Pixels[0]...

Eine alternative aber kein muss ;) Verstehe hier den zusammenhang nicht in verbindung mit dem Speicher.
CreateDibSection gibt die Pixelanzahl selbst zurück also dimensioniert den Speicher im normalfall selbst.
Wenn aber hSection nicht gleich NULL ist benötige ich ein mapping.
Das geht aber über HBitmap nicht.

Zitat:

Delphi-Quellcode:
nSize := bm.bmWidth * bm.bmHeight;
for IntI := 0 to nSize do
fehlt mit Sicherheit ein -1
Ok wo du Recht hast .. hast du recht.

bmInfo.bmiHeader.biBitCount kannst du nicht einfach so festlegen (bzw. selbst berechen) dafür gibt es vorgaben abhängig vom Bitmap
also 1,4,8,16,24 bis Win98 und 1,4,8,16,24,32 Bit ab Win2000

Siehe BitCount

Quelltext ist ja oben..
Wenn zeit hast kannst es ja berichtigen.

Kannst das bitte im Thread Dimmed Sample posten ?
Da es ja jetzt nicht mehr um das Array alleine geht.
Danke.

EDIT:
Es lag wirklich nur an nSize -1

gruss


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:15 Uhr.
Seite 2 von 3     12 3      

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