выдает ошибку при чтении файлов

[MetR]

пишу простенький мп3 плеер на bass.dll

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, bass;

type
  TForm1 = class(TForm)
    btAdd: TButton;
    btPlay: TButton;
    btPause: TButton;
    btPred: TButton;
    btNext: TButton;
    load: TTrackBar;
    volume: TScrollBar;
    list: TListView;
    lbName: TLabel;
    OpenDialog1: TOpenDialog;
    procedure FormCreate(Sender: TObject);
    procedure play(filename:string);
    procedure btPlayClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Chanel: HStream;
  name:string;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
if not (BASS_Init(-1, 44100, 0,Handle, nil)) then messagebox(0,'îøèáêà èíèöèàëèçàöèè ôàéëà',nil,mb_iconstop or mb_ok);
end;

procedure tform1.play(filename:string);
var Ffilename:pchar;
begin
if not fileExists(filename) then exit;

if chanel <> 0 then
  begin
  bass_channelstop(chanel);
  bass_streamfree(chanel);
  end;

Ffilename:=pchar(filename);
chanel:=bass_streamCreatefile(false,pchar(ffilename),0,0,BASS_UNICODE);
if chanel = 0 then
  begin
  messagebox(0,'chanel=0',nil,mb_iconstop or mb_ok);
  exit;
  end;
if bass_channelplay(chanel,false)=false then messagebox(0,'çâóê',nil,mb_iconstop or mb_ok);
Bass_SetVolume(100);
end;



procedure TForm1.btPlayClick(Sender: TObject);
begin
openDialog1 := TOpenDialog.Create(self);
if OpenDialog1.Execute Then name:=OpenDIalog1.Filename;
form1.play(name);
end;

end.

ошибка при чтении любого файла, не только аудио,

[Hacker19_90]

Точно не скажу! Но есть один момент

Ffilename:=pchar(filename);
chanel:=bass_streamCreatefile(false ,pchar(ffilename),0,0,BASS_UNICODE);

Ffilename:=pchar(filename); вот привел к Pchar
pchar(ffilename) зачем ещё раз?

[MetR]

исправил, но проблема осталась ТА ЖЕ.
ЗЫ тоже интерест(???)но стало почему так))

У нас принято писать грамотно, нормальным русским языком.
Если у вас проблемы с этим, проверяйте сообщения на орфографию в Ворде.
Рискуете набрать 5 штрафов и отправиться в бан.
Модератор.

[Neeter]

Этой библиотекой не пользовался, но меня настораживает флаг BASS_UNICODE. Мне кажется, он указывает на то, что имя файла задано в юникоде, а PChar, как известно, не юникод.

[Hacker19_90]

Попробуй так

channel := BASS_StreamCreateFile(False,  Ffilename, 0, 0, BASS_SAMPLE_LOOP {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});

[baster128]

А где создаем сам поток что-то не видать. Или не весь код выложил?

[MetR]

не, не помогло
кстати, когда ошибка вылезает, выделяется вот эта строчка:

openDialog1.free;

18:24

А где создаем сам поток что-то не видать. Или не весь код выложил?

код весь выложил

chanel:=bass_streamCreatefile(false,pchar(ffilename),0,0,BASS_UNICODE);

это не то?

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом. Это - флуд.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
Модератор

Если правила не будут прочитаны и не будут соблюдаться, то - "красный террор"

[Hacker19_90]

Код:

chanel:=bass_streamCreatefile(false ,pchar(ffilename),0,0,BASS_UNICODE) ;

это не то?

Лучше мой пример

[baster128]

Попробуй if chanel <> nil then
вообще-то HStream - это указатель.

[Пепел Феникса]

а PChar, как известно, не юникод.

зависит от версии Делфи, в юникод версиях(например Д2009) это Юникод а не анси