CopyPTRtoBYTES alternative in Delphi

[EWeiss]

Welche alternative bietet sich hier an ?

Code:

Private Declare Sub CopyBYTEStoPTR Lib "kernel32.dll" Alias "RtlMoveMemory" _
                          (ByVal PtrDest As Long, _
                          ByRef ByteSrc As Byte, _
                          ByVal Length As Long)

Private Declare Sub CopyPTRtoBYTES Lib "kernel32.dll" Alias "RtlMoveMemory" _
                          (ByRef ByteDest As Byte, _
                          ByVal PtrSrc As Long, _
                          ByVal Length As Long)

Meine Delphi version!

Delphi-Quellcode:

procedure CopyBYTEStoPTR(PtrDest: Pointer; ByteSrc: Byte; Length: Integer); stdcall;
    external 'kernel32.dll' Name 'RtlMoveMemory';

procedure CopyPTRtoBYTES(ByteDest: Byte; PtrSrc: Pointer; Length: Integer); stdcall;
    external 'kernel32.dll' Name 'RtlMoveMemory';

und die beiden aufrufe.

Code:

    //' Copy The R,G,B Data Into Our Image Array For Rapid Editing/Fading.
    CopyPTRtoBYTES(ia[0, 0], pAddr, 49152);

    //' Copy Edited Image Back To  Dib Section.
    CopyBYTEStoPTR(pAddr, ia[0, 0], 49152);

Denke das müßte in Delphi eleganter zu lösen sein.

gruss Emil

[Assertor]

Hi Emil,

ich würd das direkt über die Move() machen. Schau mal in die Hilfe zu Move(), u.U. sind da einige Beispiele drin. Ansonsten poste einfach wieder hier, wenns irgendwo hakt.

Gruß Assertor

[Muetze1]

Die oben referenzierte Methode wird als CopyMemory() angeboten.

[Assertor]

Hi,

Zitat:

Zitat von Muetze1

Die oben referenzierte Methode wird als CopyMemory() angeboten.

CopyMemory() ist aber auch nur ein Wrapper in der Windows.pas für Move() ;)

Gruß Assertor

[EWeiss]

Zitat:

Zitat von Assertor

Hi Emil,

ich würd das direkt über die Move() machen. Schau mal in die Hilfe zu Move(), u.U. sind da einige Beispiele drin. Ansonsten poste einfach wieder hier, wenns irgendwo hakt.

Gruß Assertor

Danke werde es mal testen..
Habe schon ein problem das der Pointer immer nil bleibt.

Eigentlich sollte hier

Delphi-Quellcode:

procedure MonitorAudio;
var
 hDibSec    : Cardinal;
 hDibSecOld : Cardinal;
 BIH        : BITMAPINFO;
 
begin
    With BIH do
    begin
        BIH.bmiHeader.biSize      := SizeOf(BITMAPINFOHEADER);
        BIH.bmiHeader.biBitCount  := 24;
        BIH.bmiHeader.biWidth     := 256;
        BIH.bmiHeader.biHeight    := -64;  //' Top Down DIB.
        BIH.bmiHeader.biPlanes    := 1;
        BIH.bmiHeader.biSize      := 40;
        BIH.bmiHeader.biSizeImage := 49152;
    end;
    hTempDc := CreateCompatibleDC(0);
    hDibSec := CreateDIBSection(hTempDc, BIH, 0, pAddr, 0, 0);
    hDibSecOld := SelectObject(hTempDc, hDibSec);
        
    DrawData;

    DeleteObject(SelectObject(hTempDc, hDibSecOld));
    DeleteDC(hTempDc);

end;

pAddr gefüllt werden .. bleibt aber nil.
Somit wäre die funktion erstmal ohne resultat.

Delphi-Quellcode:

CopyPTRtoBYTES(ia[0, 0], pAddr, 49152);

hmmm.... :wall:

gruss Emil

[Assertor]

Hi,

Zitat:

Zitat von EWeiss

Delphi-Quellcode:

procedure MonitorAudio;
var
 hDibSec    : Cardinal;
 hDibSecOld : Cardinal;
 BIH        : BITMAPINFO;
 
begin
    ZeroMemory(@bih, sizeof(BITMAPINFO)); // gewohnheit...
    With BIH do
    begin
        BIH.bmiHeader.biSize      := SizeOf(BITMAPINFOHEADER);
        BIH.bmiHeader.biBitCount  := 24;
        BIH.bmiHeader.biWidth     := 256;
        BIH.bmiHeader.biHeight    := -64;  //' Top Down DIB.
        BIH.bmiHeader.biPlanes    := 1;
        BIH.bmiHeader.biSize      := 40; // was soll das hier?
        BIH.bmiHeader.biSizeImage := 49152;
    end;
    ...
end;

Du setzt die Größe der Headerinfo erst auf die korrekte Größe SizeOf(BitmapInfoHeader) dann nachträglich fest auf 40 - warum?

Gruß Assertor

[EWeiss]

Zitat:

Du setzt die Größe der Headerinfo erst auf die korrekte Größe SizeOf(BitmapInfoHeader) dann nachträglich fest auf 40 - warum?

ups..
Ja das ist natürlich quatsch. ;)
Habe es vergessen zu entfernen.

Danke für die Info.

gruss Emil

[EWeiss]

Zitat:

ZeroMemory(@bih, sizeof(BITMAPINFO)); // gewohnheit...

Schaufelt bei mir bei jeden durchlauf 4 MB in den Speicher.
Ohne sind es ein paar K warum versteh ich wieder mal nicht gebe alles frei.

Delphi-Quellcode:

procedure TfrmMain.MonitorAudio;
var
 hDibSec    : HBITMAP;
 BIH        : BITMAPINFO;
 hDibSecOld : HBITMAP;

begin
    ZeroMemory(@bih, sizeof(BITMAPINFO));
    With BIH do
    begin
        BIH.bmiHeader.biSize      := SizeOf(BITMAPINFOHEADER);
        BIH.bmiHeader.biBitCount  := 24;
        BIH.bmiHeader.biWidth     := 256;
        BIH.bmiHeader.biHeight    := -64;  //' Top Down DIB.
        BIH.bmiHeader.biPlanes    := 1;
        BIH.bmiHeader.biSizeImage := 49152;
    end;
    hTempDc := CreateCompatibleDC(0);
    hDibSec := CreateDIBSection(hTempDc, BIH, 0, pAddr, 0, 0);
    hDibSecOld := SelectObject(hTempDc, hDibSec);

    DrawData;

    SelectObject(hTempDc, hDibSecOld);
    DeleteObject(hDibSecOld);
    DeleteDC(hTempDc);

end;

kann jemand sehn ob da irgendwas nicht freigegeben wird ?

gruss EMil

[Blup]

Delphi-Quellcode:

 
SelectObject(hTempDc, hDibSecOld); 
DeleteObject(hDibSec); 
DeleteDC(hTempDc);

[EWeiss]

Zitat:

Zitat von Blup

Delphi-Quellcode:

 
SelectObject(hTempDc, hDibSecOld); 
DeleteObject(hDibSec); 
DeleteDC(hTempDc);

Nö .. genau dann werden mir 4 MB in den Speicher geschaufelt
Frag mich nicht warum aber das ist so.

Meine Schreibweise ist schon korrekt.
Das Problem lag daran das ich das DC .. vom Panel nicht freigegeben habe

Erstelltes DC

Delphi-Quellcode:

DC := GetDC(frmDraw.PicBB.Handle);

Und freigegeben !

Delphi-Quellcode:

DeleteObject(SelectObject(hTempDc, hDibSecOld));
DeleteDC(hTempDc);
DeleteDC(DC);

gruss Emil