Jak dodać i odczytać z zasobów JPEG, GIF

Pliki te dodajemy jako RCDATA. Więc otwórz notatnik i wpisz do niego np.:

obrazek1 RCDATA twojobraz.jpg
obrazek2 RCDATA twojobraz.gif

Zapisz(najlepiej w katalogu projektu) jako costam.rc. Następnie używając kompilatora zasobów o nazwie brcc32.exe, znajdującego się w katalogu $DELPHI$\Bin, kompilujemy:
brcc32 costam
Otrzymamy plik costam.res, który trzeba połączyć z naszym projektem, więc wpisujemy w pliku np. *.dpr {$R costam.res}. Teraz odczytamy te pliki. Pokażę jedynie JPEG, z GIF jest analogicznie. Zrobimy to przez czytanie ze strumienia: 


 
procedure TForm1.Button1Click(Sender: TObject);
var
zasoby: TResourceStream;
begin
zasoby :=TResourceStream.Create(hinstance, 'obrazek1', RT_RCDATA);
 //tworzymy strumień
Image1.Picture.Graphic := TJPEGImage.Create; //tworzymy obraz
image1.Picture.Graphic.LoadFromStream(zasoby);  //ładujemy
zasoby.free; //zwalniamy
end;
 


Zobacz też:


Kategoria: Delphi » FAQ

6 komentarzy

Brak avatara
Napisany 2007-02-24 17:04 przez JackUzi

Dzięki wielkie, wsio śmiga :D

Avatar: wotek
Napisany 2003-09-12 08:55 przez wotek

lofix dnia 09-06-2003
ale ja ciebie zupełnie nie rozumiem....
 
Mam na myśli typy JPEG oraz GIF

Avatar: Japcok
Napisany 2003-07-18 02:36 przez Japcok

Wotek: Naprawde niemam nigdzie tego pliku, ale mam za to visual c++, i tym sobie skompilowałem. Działa.
Lofix: może powinieneś dodać że, aby wyświetlić plik jpg to do uses należy dopisać: JPEG, ktoś może sie nie domyślić

Avatar: wotek
Napisany 2003-07-15 11:21 przez wotek

Japcok, kompilator zasobów masz dokładnie w tym samym miejscu, gdzie siedzi plik delphi32.exe

Avatar: Japcok
Napisany 2003-07-14 00:09 przez Japcok

hmmm, ja niemam nigdzie pliku: brcc32.exe co robić ? :)

Avatar: lofix
Napisany 2003-06-09 11:46 przez lofix

ale ja ciebie zupełnie nie rozumiem....

Facebook
4programmers.net