Czemu nie dziala to:

procedure TMainForm.WczytajMiesiac(ZPliku: String);
var
Pak: TPakCommander; *to taki moj komponent :)
Lista: TStringList;
Mem: TMemoryStream;
begin
if FileExists(ZPliku) then
begin
Pak:=TPakCommander.Create(nil); * towrzenie
Pak.OpenPakFile(ZPliku); * otwracie pliku
Mem:=TMemoryStream.Create; *tworzenie memorystream
Pak.WypakujDoMemory('topics.db',Mem);

  • ta funkcja na bank dziala poniewaz
  • byla testowana na BASSie, a BASS ma mozliwosc odtwarzania mp3 z pamieci
  • podaje mu sie wtedy BASS_StreamCreateFile(False,Mem.Memory,.....);
  • jej deklaracja to
  • function TPakCommander.WypakujDoMemory(FileFromPak: String; var Stream: TMemoryStream): Boolean;
    Lista:=TStringList.Create;
    Lista.LoadFromStream(Mem); * no i tu sie nic nie chce wczytac :(
    WydobadzTopic(Lista.Text); // a potem nic sie nie dzieje bo Lista.Text jest rowna ''
    Lista.Free;
    Mem.Free;
    Pak.Free;
    end;
    end;

No i denerwuje mnie to :( tak samo jest z np TBitmap.LoadFromStream. Kompilator nie wywala bledu wiec chyba powinno chodzic. A moze nie da sie wcyztac do TStringList niczego z pamieci??--sys:&gt logout....