3042 писал(а):
что в коде компонента проводит к ошибке?Скорее всего, вот это:
FWavHeader := NewMemoryStream;
Ты создаешь экземпляр PStrem, а удалять его кто будет
В таком случае, лучше всего добавить секции Constructor и Destructor
public
constructor Create;
destructor Destroy; override;
end;
constructor THIWaveHeader.Create;
begin
inherited;
FWavHeader := NewMemoryStream;
end;
destructor THIWaveHeader.Destroy;
begin
FWavHeader.free;
inherited;
end;
//....
procedure THIWaveHeader._work_doCreate;
begin
FWavHeader.Size := 0; // вместо FWavHeader := NewMemoryStream;
//...
end;
Поиск
Друзья
Администрация