Reservering af ram

helt præcis tænker jeg på hvis jeg har 3 avi film som jeg på et givent tidspunkt skal afspille i et program og der må ikke være vente tid i selve program afviklingen. Derfor ville det være fedt hvis det var muligt at kopiere disse 3 avi filer ud i rammen når programmet startes.

Mads

lav et ar5ray stortnok til at indeholde dem oh load dine billeder der op i ...

Jens B

Har du et eks. på det.

Mads

var
  Buffer : array[0..200] of TBitmap;


procedure Hest;
var
  i : Integer;
begin
  for i:= 0 to 200 do
  begin
    Buffer[i] := TBitmap.Create;
    Buffer[i].LoadFromFile(\'Bitmap\'+IntToStr(i)+\'.bmp\');
  end;
end;

Så har du allokeret en hulens bunke ram ....

Jens B

Det er meget fint men jeg prøvede det rent faktisk i fredags eller sådan noget men jeg kunne sku ikke få Tbitmap til at virke er der noget der skal includes for at tbitmap virker.

Mads

Hest !! Mads du er fuld !

Når du lukker din delphi op og skriver det kode jeg gav dig så virker det !

Jens B

Jeg er ked af at du synes jeg er fuld borrisholt. Jeg var måske også lidt for hurtig der. Eks. virker perfekt som du jo skrev.
Jeg har dog et spørgsmål om du ved om det kan lade sig gøre at lave dette nummer med jpg billeder.
Jeg ved godt jeg presser citronen lidt med de 10 point men jeg vil gerne give dig ekstra point.

Mads

ork jo nemt :


uses
  JPEG:

var
  Buffer : array[0..200] of TJPEGImage;


procedure Hest;
var
  i : Integer;
begin
  for i:= 0 to 200 do
  begin
    Buffer[i] := TJPEGImage.Create;
    Buffer[i].LoadFromFile(\'JPEGImage\'+IntToStr(i)+\'.jpg\');
  end;
end;
Jens B

Det virker fint. Men der er en ting jeg ikke forstår det er når jeg afvikler det her

image1.Picture.Graphic := Bufferjpg[i];

allokeres der pludselig en del mere ram. Jeg vil jo mene at rammen skulle være allokeret på forhånd men den images component optager den en del ram eller hvad kan det skyldes.

Mads

prøv med en assign istedet eller kig lidt i onlinehjælpen for TImage ...

Jens B

Kigger på det.
Tak for hjælpen Jens B. Håber 30 point er nok.

Mads 

Min avanceret knap er væk prøver lige igen.

Mads

Mads

Ved egentligt ikke om man kan tildele mere end hvad man på forhånd har fastsat af point. Det ser ikke sådan ud for jeg har i hvert fald ikke mistet flere point hvis ikke du har fået de 30 point, så skriv lige og jeg opretter et nyt spørgsmål med pointne.

mads