[es] - TResourceStream u string

borovac
127.0.0.1

Član broj: 29278
Poruke: 220
*.dlp145.bih.net.ba.

Profil

^{22.10.2005. u 15:57 - pre 225 meseci}

Ovako, ako želim da neki fajl iz TResourceStream-a loadujem u string ili listu stringova ja to radim ovako:
extraktujem taj fajl

Code:

procedure Extract_File(File_Name, Res_Name, Res_Type:string);
var
    rStream: TResourceStream;
    fStream: TFileStream;
begin
  rStream := TResourceStream.Create(hInstance, Res_Name, PChar(Res_Type));
  try
   fStream := TFileStream.Create(File_Name, fmCreate);
  try
   fStream.CopyFrom(rStream, 0);
  finally
   fStream.Free;
  end;
  finally
   rStream.Free;
  end;
end;

zatim idem liniju po liniju i dodajem string u listu.
Ako imam više fajlova onda mi se aplikacije diže sporo (ovo loadovanje u liste radim na OnCreate događaju)
Moj jaran u VisualBasicu loaduje fajlove iz resourca direktno u string a onda taj string stavlja u listu.
I to se sve odvija brzo

Da li e moguće u Delphiju to odraditi da radi brzo??

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

Re: TResourceStream u string

^{22.10.2005. u 23:23 - pre 225 meseci}

Pa, zasto ne iskoristis mogucnos TStrings klasa da ucitavaju podatke direktno iz streama? Uradis nesto ovako:

Code:
procedure Extract_File(File_Name, Res_Name, Res_Type:string; S: TStrings);
var
    rStream: TResourceStream;
begin
  rStream := TResourceStream.Create(hInstance, Res_Name, PChar(Res_Type));
  try
    S.LoadFromStream(rStream);
  finally
   rStream.Free;
  end;
end;

Play Store

Odgovor na temu

borovac
127.0.0.1

Član broj: 29278
Poruke: 220
*.dlp385.bih.net.ba.

Profil

Re: TResourceStream u string

^{23.10.2005. u 12:27 - pre 225 meseci}

Ide sporo, probo sam! (thanx anyway)

Odgovor na temu