Einzelnen Beitrag anzeigen

Benutzerbild von entwickler
entwickler

Registriert seit: 16. Feb 2011
Ort: Herten
78 Beiträge
 
Delphi 5 Professional
 
#16

AW: PNGs oder Dateien allgemein in EXE einbinden und auslesen

  Alt 13. Nov 2011, 14:52
Okay, soweit schon einmal ein herzliches Dankeschön an euch alle!

Ich habe die Komponente TPNGButton bei mir installieren können und die bringt auch keine Fehler hervor. Hier einmal der Text:

Delphi-Quellcode:
procedure GetPokemon(Pokemon : TPokemon; Image : TImage);
var
  Bitmap : TBitmap;
  x, y : Integer;
  ResStr : TResourceStream;
begin
    ResStr := TResourceStream.Create(HInstance, 'Pokedex', RT_RCDATA);
  try
    Pokemon_Pictures.PNGButton1.ImageNormal.LoadFromStream(ResStr);
  finally
    ResStr.Free;
  end;
    Pokemon_Pictures := TPokemon_Pictures.Create(Application);
      try
        Bitmap := TBitmap.Create;
          try
            Bitmap.Assign(Pokemon_Pictures.PNGButton1.ImageNormal.Canvas);
            Pokemon_Pictures.Image1.Picture.Bitmap := Bitmap;
            if (Pokemon>=Bisasam) and (Pokemon<=Arceus) then
                begin
                y := Ord(Pokemon) div 25;
                x := Ord(Pokemon) Mod 25;
                Image.Canvas.CopyRect(rect(0, 0, 80, 80), BitMap.Canvas, rect(x*80,y*80, (x+1)*80,(y+1)* 80));
                end
              else
            if Pokemon = Arceus then Image.Canvas.CopyRect(rect(0, 0, 80, 80), BitMap.Canvas, rect(1520, 1080, 17*80, 17*80))
            else
                raise Exception.Create('Angefordertes Pokemon konnte nicht gefunden werden!');
        finally
          Bitmap.Free;
        end;
    finally
      Pokemon_Pictures.Free;
    end;
end;
Nun bekomme ich immer die Fehlermeldung, dass die Ressource nicht gefunden werden kann. In der Ressourcendatei steht:

Pokedex PNG "Pokedex2.png"

Wo liegt hier wieder der Fehler, und wie kann ich die PNG- Grafik in einen Bitmap konvertieren?
Traue einem PC nur soweit, wie du ihn werfen kannst.
  Mit Zitat antworten Zitat