[ART]

Код, который не работает:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

type  TMyClass = class  private   FURL: string;   FFile: TFileStream;   procedure StatusProc(buffer: Pointer; len, user: DWORD); stdcall;  public   property URL: string read FURL write FURL;   procedure Play;     constructor Create();   destructor Destroy; override;  end;   constructor TMyClass.Create(); begin   inherited;   FURL := '';   if not BASS_Init(-1, 44100, 2, 0, nil) then    raise Exception.Create('Не могу инициализировать звук') else   BASS_Start; end;   destructor TMyClass.Destroy; begin   BASS_Free;   inherited; end;   procedure TMyClass.StatusProc(buffer: Pointer; len, user: DWORD); stdcall; begin  if (buffer <> nil) and (len = 0) then   FFile.Write(Buffer^, Len); end;   procedure TMyClass.Play; var  Stream: HSTREAM; begin  FreeAndNil(FFile);  FFile := TFileStream.Create('C:\temp.mp3', fmCreate);  Stream :=  BASS_StreamCreateURL(PAnsiChar(FURL), 0, BASS_STREAM_STATUS, @TMyClass.StatusProc, nil); //Ошибка  if BASS_ErrorGetCode = 0 then begin    BASS_ChannelPlay(Stream, true);  end; end;   procedure TForm1.SpeedButton1Click(Sender: TObject); var  My: TMyClass; begin  My := TMyClass.Create;  My.URL := 'http://cs4587.vkontakte.ru/u2026045/audio/62c024dfa750.mp3';  My.Play; end;

Код который работает (без класса):

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

var   FS: TFileStream;   ....   procedure StatusProc(buffer: Pointer; len, user: DWORD); stdcall; begin  if (buffer <> nil) and (len = 0) then   FS.Write(Buffer^, Len); end;   procedure TForm1.SpeedButton1Click(Sender: TObject); var  Stream: HSTREAM; begin  if not BASS_Init(-1, 44100, 2, 0, nil) then    raise Exception.Create('Не могу инициализировать звук')  else begin   BASS_Start;   FS := TFileStream.Create('C:\temp.mp3', fmCreate);   Stream :=  BASS_StreamCreateURL('http://cs4587.vkontakte.ru/u2026045/audio/62c024dfa750.mp3', 0, BASS_STREAM_STATUS, @StatusProc, nil);   if BASS_ErrorGetCode = 0 then begin    BASS_ChannelPlay(Stream, true);   end;  end; end;

И в чем ошибка?

[M.A.D.M.A.N.]

Жээсть, а чего у тебя на деструкторе объекты не грохаются?
Конкретно, на какой строчке сваливается?
Возможно, что на строчке FreeAndNil(FFile);

[Aristarh Dark]

Валится скорее всего вот на этой строчке:

Код:

1	FreeAndNil(FFile);

Потому что переменная никак не инициализирована.

[ART]

Я же написал что на строчке BASS_StreamCreateURL )

И как это не грохаются? Деструктор же есть. А не вызывал я его потому что это только пример. Или я что-то не понял?

P.S. убирай не убирай FreeAndNil все тоже самое

[PhoeniX]

Вы всмотритесь в исходник то, там же показано место свала.

Код:

1 2	Stream :=  BASS_StreamCreateURL(PAnsiChar(FURL), 0, BASS_STREAM_STATUS, @TMyClass.StatusProc, nil); <b>//Ошибка</b>

Скорее всего, нельзя по указателю передавать в dll методы классов.

[Aristarh Dark]

Код:

1	@TMyClass.StatusProc

Вот так нельзя делать

[ART]

Я пробовал и так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure TMyClass.Play;   procedure StatusProc(buffer: Pointer; len, user: DWORD); stdcall; begin  if (buffer <> nil) and (len = 0) then   FFile.Write(Buffer^, Len); end;   var  Stream: HSTREAM; begin  FFile := TFileStream.Create('C:\temp.mp3', fmCreate);  Stream :=  BASS_StreamCreateURL(PAnsiChar(FURL), 0, BASS_STREAM_STATUS, @StatusProc, nil); <font color="Red">//Ошибка</font>  if BASS_ErrorGetCode = 0 then begin    BASS_ChannelPlay(Stream, true);  end; end;

[PhoeniX]

А так она вложена в метод класса. Сделай её отдельной вообще. Там же есть параметр user, вот и передавай через него указатель на объект (self), и... дальше догадаешься, как.

[ART]

Спасибо. Почему-то не подумал на user ))