CopyPTRtoBYTES alternative in Delphi

[Assertor]

Hi,

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