AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Bitmaps in DLL..

Ein Thema von movax · begonnen am 12. Jul 2002 · letzter Beitrag vom 12. Jul 2002
 
Benutzerbild von movax
movax

Registriert seit: 12. Jul 2002
Ort: phobos
15 Beiträge
 
#4
  Alt 12. Jul 2002, 22:11
also, ich hab's jetzt so gemacht:

Code:
[b]procedure[/b] TForm1.FormCreate(Sender: TObject);
[b]var[/b]
  hLib: THandle;
[b]begin[/b]
  hLib := LoadLibrary(PChar('Tiles.dll'));
  [b]if[/b] hLib <> 0 [b]then[/b]
  [b]try[/b]
    ImageList1.ResInstLoad(hLib, rtBitmap, 'StrasseOben', clFuchsia);
  [b]finally[/b]
    FreeLibrary(hLib);
  [b]end[/b];
[b]end[/b];
"Tiles.dll" ist halt die DLL mit den Bitmaps drin und ImageList1 soll die ImageList-Komponente sein, in der die Bilder geladen werden.

die .rc-datei sieht so aus:
Code:
StrasseOben BITMAP "StrasseOben.bmp"
StrasseUnten BITMAP "StrasseUnten.bmp"
die .rc-datei liess sich auch so kompillieren.

Um das alles dann zu testen hab ich mir auf meine Form ein Image1 und einen Button gemacht, mit folgendem Code:
Code:
[b]procedure[/b] TForm1.Button1Click(Sender: TObject);
[b]var[/b] bild: tbitmap;
[b]begin[/b]
  bild := tbitmap.Create;
  Tiles.GetBitmap(0, bild);
  Image1.Canvas.Draw(0, 0, bild);
[b]end[/b];
wenn ich das programm dann starte und auf den button klicke passiert.. überhaupt nichts. Ja, okay, Image1 wird weiss, wegen dem Canvas-Zugriff.. aber das Bitmap wird nicht angezeigt!
Was hab ich falsch gemacht?

greetz,
-movax-
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:32 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz