Zitat von
Tropby:
Oh hab vergessen die Screenshots zu komprimieren
Dann mach es jetzt noch
Zitat von
Tropby:
Ä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.
Der Original Source ist nachlässig programmiert, das war nicht gegen Dich, ich weiß, das Du n Neuling bist
Schau Dich mal bei
Result um, Rückgabewerte sollten überprüft werden, sonst hat es gar keinen Sinn diese zu speichern.
Zitat von
Tropby:
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;
Ich meine, genau da hakts, Editiere mal da alles raus, obs dann auch zu nem Fehler kommt,
IMHO darfste genau das nicht machen.