Wenn es so ist, dass Dateien fehlen, so musst du diese in eine RES-Datei packen. Zuerst RC-Datei als TXT, die wird mit BRCC32.exe compiliert zu einer RES). Diese RES dann in eine Unit einbinden. Beispiel:
Delphi-Quelltext
1:
2:
3:
4:
| implementation
uses Main;
{$R *.dfm}
{$R BMP.RES} |
Inhalt einer RC-Datei als Beispiel:
//Titel/Type/Pfad
LOGO BITMAP N:\TOPDOC_Projekt\readlink\BitMaps\logo.bmp
Titel RT_FONT N:\TOPDOC_Projekt\readlink\BitMaps\Kr.ttf
Herz RCDATA N:\TOPDOC_Projekt\readlink\BitMaps\alien.GIF
StartR BITMAP N:\TOPDOC_Projekt\readlink\BitMaps\RoundButtonStart3.bmp
InfoLogo BITMAP N:\TOPDOC_Projekt\readlink\BitMaps\InfoLogo.bmp
Im Programm wird die Ressource wie folgt geladen:
Delphi-Quelltext
1:
| FormX.image1.Picture.Bitmap.LoadFromResourceName(hinstance,'LOGO'); |
Vorher Image1 als Platzhalter auf der Form anlegen.
Oder eine GIF- Datei laden:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| uses GIFImage;
.
.
Procedure TForm3.GetGif(ResName:String; IMG:TImage);
Var bild : TGIFImage;
ResStream : TResourceStream;
begin
bild := TGIFImage.Create;
resstream := TResourceStream.Create(hInstance, ResName, RT_RCDATA);
bild.LoadFromStream(ResStream);
Img.Picture.Assign(bild);
bild.free;
ResStream.free;
end; |
Du bekommst sicher noch einige Antworten, die Dir weiterhelfen.
Christian S.
) Mühe macht.