Windows GDI und WinAPI

Christian · Beitrag von **Christian** » Do 1. Feb 2007, 13:08

Die Variante mit PColorTableArray müsste doch eigentlich gehen

theo · Beitrag von **theo** » Do 1. Feb 2007, 13:22

Das hatte ich eigentlich auch gedacht.
Theoretisch müsste ja sogar TColorTableArray (Dynamisch) schon klappen, oder?
Übrigens: Hast du die Demo auch mal getestet? Läuft's?

theo · Beitrag von **theo** » Do 1. Feb 2007, 13:31

Sorry, Bock liegt woanders:

procedure TColorQuantizer.GetColorTable(AColorTable: POpenColorTableArray);
var
Qarr: TRGBQuadArray;

Wobei: TRGBQuadArray = array[Word] of TRGBQuad;

Das geht nicht lokal in der Prozedur (ich Dussel)

Christian · Beitrag von **Christian** » Do 1. Feb 2007, 13:53

joa, die lokalen variablen werden ja auch aufm stack abgelegt aber n dynamisches array müsste lokal wieder gehn oder ?

und zum testen, hab gerad kein linux hier mach ich heut abend zuhaus

theo · Beitrag von **theo** » Do 1. Feb 2007, 13:59

Christian hat geschrieben:joa, die lokalen variablen werden ja auch aufm stack abgelegt aber n dynamisches array müsste lokal wieder gehn oder ?

Theoretisch Ja.
Das war aber sowieso ein Schmarrn, ich brauch ja höchstens
array[$FF] of TRGBQuad; und das passt noch auf den Stack.

Christian hat geschrieben: und zum testen, hab gerad kein linux hier mach ich heut abend zuhaus

Danke!

schnullerbacke · Beitrag von **schnullerbacke** » Do 1. Feb 2007, 14:41

24-Bit und läuft völlig problemlos...

theo · Beitrag von **theo** » Do 1. Feb 2007, 14:48

schnullerbacke hat geschrieben:24-Bit und läuft völlig problemlos...

Yae!
Hab soeben noch ein paar Anpassungen gemacht und jetzt läuft auch mit:
{$R+}
{$S+}

War eigentlich alles harmlos und z.B. mit einem byte casting beseitigt.

schnullerbacke · Beitrag von **schnullerbacke** » Do 1. Feb 2007, 14:51

machs per:

Code: Alles auswählen

procedure BlaBla(BufSize: longint; var Buf);

Möglicherweise brauchst du noch Mode: MyType (z.B. Farbtiefe), dann kannst du innerhalb der Prozdur einen TypeCast auf Buf machen:

Code: Alles auswählen

begin
   TMyStruct(Buf){[loopvar]}.Property:= arg;
   arg:= TMyStruct(Buf){[loopvar]}.Property;
end;

Das darf dann auch ein Array sein ({[loopvar]} = optional). Das übergibt genau Anzahl = BufSize Bytes und durch var Buf ist die Rückgabe gesichert.

#Edit

Kam etwas spät der Vorschlag, hilft aber manchmal um Probleme zu umgehen.

theo · Beitrag von **theo** » Do 1. Feb 2007, 14:54

Danke, aber klappt ja jetzt!

schnullerbacke · Beitrag von **schnullerbacke** » Do 1. Feb 2007, 15:04

Der Witz bei var Buf liegt in der Tatsache, das es call by reference läuft, arbeitet also auf den tatsächlichen Daten. Beim call by value kann das bei dyn-Arrays in die Hose gehen.

Man kann im interface aber auch (const MyVar: MyType) angeben, das bewirkt etwa das gleiche.

theo · Beitrag von **theo** » Do 1. Feb 2007, 15:13

schnullerbacke hat geschrieben:Beim call by value kann das bei dyn-Arrays in die Hose gehen.

Wieso das denn? Ich dachte Dynamische Array wären auf dem Heap und es würden sowieso nur Pointer übergeben?

schnullerbacke · Beitrag von **schnullerbacke** » Do 1. Feb 2007, 15:22

Wobei man aber nicht sicher sein kann, das alle Elemente auch genau aufeinander folgen. Bei weiser Voraussicht geht man besser davon aus, das es nicht der Fall ist.

Christian · Beitrag von **Christian** » Do 1. Feb 2007, 16:44

Änderst du immer so schnell deine Meinung ?

schnullerbacke · Beitrag von **schnullerbacke** » Do 1. Feb 2007, 17:45

Die hab ich nicht geändert, ich geh tunlichst immer auf Nummer sicher. Deswegen ja lieber call by reference, so es denn geht. Mit call by value hab ich meine bösen Erfahrungen schon hinter mir, da sollte man schon ziemlich genau wissen was man da tut, sonst gibt es bei pointern schnell eigenwillige Überraschungen.

Christian · Beitrag von **Christian** » Do 1. Feb 2007, 17:53

Ne seite zurück hast noch geschrieben das man dynamische arrays ohne probleme mit move angehen kann ... und jetzt plötzlich auf nummer sicher ?