Bildefiler

http://delphi.about.com/library/weekly/aa021301a.htm

Stoney

jeg er bange for at stoneys måde er den eneste... jeg ville selv have forslået det :(

Men hvad er der i vejen med at bruge RXLib, det bruger jeg og har ingen problemer med det what-so-ever

Det jeg fant på stoney\'s link var vel og bra, men jeg kunne ikke se hvordan man gjorde det med bildefiler.

RXLib er også bra, men jeg bruker Delphi6. Jeg har ikke funnet noe RXLib-komponenter for D6 ennå. Har hørt at det kan være mulig å bruke RXLib-komponentene som hører til D5, men siden installasjonsrutinene er så strenge velger jeg å ikke legge inn RXLib for D5 i D6.

Så, stoney... bra svar, men det hjelp med ikke så my som jeg håpet.

// theHollow

Det er ikke så svært

lav en .rc fil i stil med dette:

T11 JPEG D:\\Website\\Gallery\\Thumbnails\\T11.jpg
T12 JPEG D:\\Website\\Gallery\\Thumbnails\\T12.jpg
T13 JPEG D:\\Website\\Gallery\\Thumbnails\\T13.jpg
T14 JPEG D:\\Website\\Gallery\\Thumbnails\\T14.jpg
T15 JPEG D:\\Website\\Gallery\\Thumbnails\\T15.jpg

Du kan herefter bruge dine jpg\'s på denne måde:

procedure GetJpegResource(AName: string; APicture: TPicture);
var
  jpgImage: TJPEGImage;
  resStream: TResourceStream;
begin
  resStream := TResourceStream.Create(HInstance, UpperCase(AName), \'JPEG\');
  if resStream.Size > 0 then
    try
      jpgImage := TJPEGImage.Create;
      try
        jpgImage.LoadFromStream(resStream);
        APicture.Assign(jpgImage);
      finally
        jpgImage.Free;
      end;
    finally
      resStream.Free;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetJpegResource(\'T11\', Image1.Picture);
end;

Stoney

Takk. Det burde virke :)

God Jul, alle sammen!

// theHollow