[volod3000]

Добрый день .
Возникла маленькая проблема, не пойму как решить.
Пробую, до момента создания формы, из ресурса извлечь файл.
Извлечь файл нужно обязательно до создание формы

Почему ни чего не происходит .

Делаю так :

Код:

{$R dll.RES}



//=================  Редактор ресурсов 

procedure ExtractRes(ResType, ResName, ResNewName : String);
var Res : TResourceStream;
begin
  Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
  Res.SavetoFile(ResNewName);
  FreeAndNil(Res);
  FreeMemory(Res);
end;

begin

     CreateDir('C:\ProgramData\dll');
     ExtractRes('RES', 'ba', 'C:\ProgramData\dll\my.dll');
     Sleep(1000);

     Application.Initialize;
     Application.MainFormOnTaskbar := True;
     Application.CreateForm(TForm1, Form1);
     Application.Run;

end;

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

скорее всего папка не создается.
попробуй CreateDirForce (вроде так зовется ф-я).

[volod3000]

Сообщение от M.A.D.M.A.N.

скорее всего папка не создается.
попробуй CreateDirForce (вроде так зовется ф-я).

А , что это за функция CreateDirForce

Вы неверное имели ввиду ForceDirectories

[angvelem]

Но ведь CreateDir функция, вот и проверь возвращаемое значение.

[volod3000]

Решил немного переписать bass.pas (т.е. тот файл который я подключаю для загрузки DLL ) под себя, т.е. сделать
динамическую загрузку и оставить только необходимые (для моего проекта) функции.
После подключаю его (mybass.pas) к основной форме, но ....

Посмотрите, что не так, почему не работает, где ошибка (хотя компилятор молчит, Dll создается)


Воспроизвожу так:

Код:

    procedure TForm1.FormActivate(Sender: TObject);
    begin
      if bass_Init(-1, 44100,0, handle,nil) = false then
         Label1.Caption := 'Не могу инициализировать поток ';
         stream:=Bass_streamCreateFile(false, Pchar(ExtractFilePath(Application.ExeName)+'zas1.mp3'),0,0,BASS_UNICODE);
    end;
     
    procedure TForm1.Button1Click(Sender: TObject);
    begin
        Bass_ChannelPlay(stream, false);
    end;

Но звука нет, честно не пойму, где собака зарыта .

[angvelem]

А какой смысл переделывать? В папке DYNAMIC уже есть готовый файл.