Oh hab vergessen die Screenshots zu komprimieren
Das ist mein OnData :
Delphi-Quellcode:
procedure TForm1.OnData(const aStream: TMemoryStream);
var header: TWaveHdr;
begin
header.lpData := aStream.Memory;
header.dwBufferLength := cWaveBufferSize;
header.dwFlags := 0;
waveOutPrepareHeader(fhandle, @header, cWaveBufferSize);
waveOutWrite(fhandle, @header, cWaveBufferSize);
end;
Zitat:
Hmm, hab jetzt den Code kompiliert, läuft ohne Fehler Grübelnd...
Mal abgesehen von den Compilermeldungen, etwas sehr nachlässig programmiert...
Ähm ja ich bin ja noch nicht wirklich drin was das alles mit den pointern und so angeht ^^
und das ist eher bei mir im Moment ein ausprobieren als ein wissen.