Streamaufnahme - Code ergänzen

[AlexII]

Hallo,
ich verwende für die Streamaufnahme (netradio - Beispiel von bass.dll) folgenden Code:

Delphi-Quellcode:

var
  FileStream :   TFileStream;
  FileNeme   :   String;      // <= C:\test.mp3


function Get_AppPath : string;
begin
  result:= ExtractFilePath( ParamStr( 0 ) );
end;


procedure StatusProc(buffer: Pointer; len, user: DWORD); stdcall;
begin
  if (buffer <> nil) and (len = 0) then
    SendMessage(win, WM_INFO_UPDATE, 8, DWORD(PChar(buffer)));

  if (FileNeme = '') then
    exit;
  if (FileStream = nil) then
      FileStream:= TFileStream.Create(FileNeme, fmCreate); // create the file
  if (buffer = nil) then
      FileStream.Free // finished downloading
  else
      FileStream.Write(buffer^, len);
end;


function OpenURL(url: PChar): Integer;
var ....
begin
  FileNeme:=  Get_AppPath + Form1.Filename_Edit.Text;
  ...
end;

Jetzt würde ich mal wissen wie ich am besten die Aufnahme stoppen kann und wieder Aufnehmen. Hab mit das Stoppen mit

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
FileStream.Free;
end;

versucht, aber das Prog stürzt ab.

[AlexII]

Kann mir denn keiner einen verständlichen Tipp geben?
Ich bin Hobby Programmierer, hab schon alle meine Bücher abgeguckt, aber nix vernünftiges gefunden.

[Gausi]

Wie ich im DF schon sagte: Speichere in einer Property oder einer Variable, ob du gerade aufnimmst oder nicht. Und dementsprechend führst du den Code zum Speichern aus oder halt nicht.

[AlexII]

Hab gestern wie ein irrer versucht diese Lösung zu realisieren, aber nix ging. Wie gesagt ich bin Hobby Programmierer und das ist doch ne Nummer zu groß für mich...

[wicht]

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).