Einzelnen Beitrag anzeigen

EWeiss
(Gast)

n/a Beiträge
 
#5

Re: CopyPTRtoBYTES alternative in Delphi

  Alt 22. Apr 2009, 21:35
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
  Mit Zitat antworten Zitat