Aktualisierung:
Das Einfügen einer Passage habe ich jetzt alleine hinbekommen. Ich hatte copyfrom total falsch verstanden. Hier der aktualisierte Code bisher:
Delphi-Quellcode:
// Aufnahme je nach Aufnahmemodus
if OverwriteRadioButton.Checked = True
then begin
if WaveStream.Size > 0
then begin
// alte Aufnahme löschen
BASS_StreamFree(chan);
WaveStream.Clear;
end; // if
end
else if InsertRadioButton.Checked = True
then begin
if WaveStream.Size = 0
then begin
end
else
begin
WaveStream.Position := ProgressBar.Position;
BufStream := TMemoryStream.Create;
BufStream.CopyFrom(WaveStream, WaveStream.Size-WaveStream.Position);
WaveStream.Position := ProgressBar.Position;
end;
und dann beim Beenden der Aufnahme:
Delphi-Quellcode:
if InsertRadioButton.Checked = True
then begin
if WaveStream.Size = 0
then begin
end
else
begin
WaveStream.CopyFrom(BufStream, 0);
FreeAndNil(BufStream);
end;
end;
Ich muss jetzt noch rausfinden wie man Teile eines Streams löscht und schon hat sich der Thread von alleine erledigt
MfG