Einzelnen Beitrag anzeigen

Benutzerbild von wicht
wicht

Registriert seit: 15. Jan 2006
Ort: Das schöne Enger nahe Bielefeld
809 Beiträge
 
Delphi XE Professional
 
#5

Re: Streamaufnahme - Code ergänzen

  Alt 24. Mär 2009, 12:58
Weiß nicht ob ich dich richtig verstehe, aber versuch mal in dem Button folgenden Code:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  FileStream.Free;
  FileStream := nil;

  // ODER:
  FreeAndNil(FileStream);
end;
Sehr verspäteter Edit: Das ist natürlich quark, passt nicht zu deinem Code, habe mich verlesen schätze ich mal Mach es wie Gausi es sagte - nimm dir eine zusätzliche Variable, die du beim Start der Aufnahme auf true setzt und prüfe oben in StatusProc, ob diese durch einen Klick auf den Button auf false gesetzt wurde (= Aufnahme anhalten).
http://streamwriter.org

"I make hits. Not the public. I tell the DJ’s what to play. Understand?"
  Mit Zitat antworten Zitat