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:> logout....