CopyPTRtoBYTES alternative in Delphi

[EWeiss]

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

gruss Emil