Welche alternative bietet sich hier an ?

markieren

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!

markieren

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.

markieren

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

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

Die oben referenzierte Methode wird als CopyMemory() angeboten.

Hi,

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

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

zusammenfalten · markieren

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.
CopyPTRtoBYTES(ia[0, 0], pAddr, 49152); hmmm....

gruss Emil

Hi,

Zitat von EWeiss:

zusammenfalten · markieren

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

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

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.

zusammenfalten · markieren

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

markieren

Delphi-Quellcode:

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

Zitat von Blup:

markieren

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
DC := GetDC(frmDraw.PicBB.Handle); Und freigegeben !

markieren

Delphi-Quellcode:

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

gruss Emil