Announcement

**Hagen Reddmann** · 17.08.2000, 09:18

Hi

Um die Speicherung etc. mu�t Du Dich k�mmern.

<pre>

function Adjust4K(P: Pointer): Pointer;
begin
Result := nil;
if (P <> nil) and (Integer(P) and $0FFF <> 0) then
Result := (PChar(P) + $0FFF) and not $0FFF;
end;

</pre>

Das justiert immer aufw�rts, rundet also immer auf $1000 (4k) Grenzen.
Auch bei der Allozierung des Pointers mit GetMem() etc. mu�t Du darauf achten IMMER die Gr��e mit $0FFF Bytes gr��er zu veranlagen.

Gru� Hage

**Hagen Reddmann** · 17.08.2000, 09:24

Hi

Nochwas, g�nstig f�r Dich: Du solltest den eigentlichen Pointer als Struktur definieren.

<pre>

type
T4KPtr = packed record
Ptr: Pointer;
Size: Integer;
4kPtr: Pointer;
end;

var
4KPtr: T4KPtr;
begin
4KPtr.Size := $1000 + $0FFF;
4KPtr.Ptr := AllocMem(4KPtr.Size);
4KPtr.4kPtr := PChar(4KPtr.Ptr) + $0FFF and not $0FFFF;
.... weiter wird mit .4kPtr gearbeitet
end;

</Pre>

Gru� Hage

**Hagen Reddmann** · 17.08.2000, 10:18

Hi

Oder, Du nutzt diese beiden Funktionen (dachte ich k�nnte sie vielleicht selber mal gebrauchen

. Diese allozieren einen "ausgerichteten" Zeiger /Speicherblock und geben diesen auch wieder frei. ALLES vollst�ndig transparent f�r den User. Im ung�nstigsten Fall werden genau Align + 8 Bytes zuviel f�r einen Block alloziert, ist aber rel. unwahrscheinlich. Im Gegensatz zu obigen funktionen, kann diese Funktion auch z.B. auf einer 13 Byte Grenze ausrichten, Align kann also JEDEN wert annehmen.

<pre>

procedure GetMemAlign(var P: Pointer; Size, Align: Cardinal);
var
S: Pointer;
I: Cardinal;
begin
P := nil;
if Size = 0 then Exit;
// allocated overestimated memory
GetMem(S, (Size + Align -1) div Align * Align + SizeOf(Integer) * 2 + Align);
// calculate aligned memoryaddress
P := PChar(Cardinal(PChar(S) + Align -1) div Align * Align);
// check iff P and S are good aligned, but bad for us
if P = S then Inc(PChar(P), Align);
// calulate relative offset to aligned memoryaddress
I := PChar(P) - PChar(S);
// check iff enough space to store 2 Integers
if I >= SizeOf(Integer) * 2 then
begin
// calculate real used memorysize
Inc(I, Size);
// Free rest of unused space after (P + Size)
ReallocMem(S, I);
// store fields, before P, first Size of complete Block
Dec(PChar(P), SizeOf(Integer));
Integer(P^) := I;
// next, real Memoryaddress of complete Block
Dec(PChar(P), SizeOf(Integer));
Pointer(P^) := S;
// restore P to align address
Inc(PChar(P), SizeOf(Integer) * 2);
// I - Size = overallocated memoryspace
end else
// should be never raise
raise Exception.Create('error');
end;

procedure FreeMemAlign(var P: Pointer);
var
Size: Cardinal;
begin
if P = nil then Exit;
// first give size of complete Block
Dec(PChar(P), SizeOf(Integer));
Size := Integer(P^);
// next give original Address of complete Block
Dec(PChar(P), SizeOf(Integer));
P := Pointer(P^);
// now, free the complete Block
FreeMem(P, Size);
end;

Nutzung:

var
P: Pointer;
begin
GetMemAlign(P, 4096, $1000);
try
finally
FreeMemAlign(P);
end;
end;

</pre>

Gru� Hage

**Harald Binder** · 17.08.2000, 19:11

Hi Hagen. 
Ja ich mu� den Speicher selber anlegen. dieser Speicher wird von einer Videokarten mit Bilddaten gef�llt. 
Danke f�r dein Hilfe. Mit dem was du mir so geschrieben hast, kann ich ein gutes St�ck weiterkommen. 
 
Gru� 
Harald Binde

**Hagen Reddmann** · 21.08.2000, 16:42

Hi

Per DMA ? Ich wei� nicht ob Du da einfachen "virtuellen" Delphi Speicher nutzen kannst. Fr�her, unter DOS, als ich die DMA Controller f�r die Soundblaster programmierte, konnte man nur ausgew�hlte Adressen nutzen. Diese mussten im unteren 640K Segment auf 4096 Bytes ausgereichtet werden, da der normale DMA nur 12 Bit Adressregister hat. Dies bedeutet aber auch das die PHYSIKALISCHE Speicheradresse unterhalb von 640K liegen mu�. Ich wei� leider nicht wie's in Windows aussieht, die Hardware (DMA Controller) habe sich aber NICHT ge�ndert.

Gru� Hage

**Harald Binder** · 22.08.2000, 06:13

Hi Hagen, 
der Buffer wird wie folgt&nbsp ;angelegt: 
 
 var 
    h : HGLOBAL; 
    pb : Pointer; 
 
 begin 
    h := GlobalAlloc (GMEM_MOVEABLE, Buf[BufferNr].hMem); 
    if h <>&nb sp;0 then begin 
    // try to lock the buffer&n bsp;in memory (MUST be done&nb sp;!!!) 
    pb := GlobalLock (h); 
    if pb = nil  then begin 
      GlobalFree(h); 
    end else begin
       ........ .. 
PS 
   Wenn Du dich auch  mit Threads und Events a uskennst, 
   den Schau doch bi tte mal unter Threads nach. 
   Da habe ich auch& nbsp;noch ein Problem. 
 
Gruß 
Harald Binder 
</font&gt

**Hagen Reddmann** · 23.08.2000, 10:32

Hi

Ob, Du GloablAlloc/LocalAlloc/VirtualAlloc oder Delphi's GetMem() etc. nutzt, ALLES gibt Dir virtuellen Speicher oberhalb 640K zur�ck !!
Wie gesagt, ich kenne Dein Problem nicht genau genug, z.b. Hardwaredocus usw. Willst Du etwa den DMA Controller selber programmieren ? Unter Windows ? Hoffentlich doch nicht f�r eine Software die Du dann verkaufst, oder

Gru� Hage

Announcement

Wer kan mir helfen diese MS C++ Funktion in Delphi5 zu uebersetzen

Wer kan mir helfen diese MS C++ Funktion in Delphi5 zu uebersetzen

Comment

Comment

Comment

Comment

Comment

Comment

Comment