Resource in Designtime Package

[uligerhardt]

Schuss ins Blaue: Vielleicht kommt Delphi mit der Art des Bitmaps nicht klar? Probier's doch mal mit einem "primitiveren" Bitmap - z.B. nur 16 Farben.

[backdraft]

Zitat von uligerhardt:

Schuss ins Blaue: Vielleicht kommt Delphi mit der Art des Bitmaps nicht klar? Probier's doch mal mit einem "primitiveren" Bitmap - z.B. nur 16 Farben.

Hier ist die Resource Datei, es sind ja nur 16 Farben (4 bit).

Es fehlen ja auch sämtliche Anderen Resourcen, da sind ja noch viel mehr drin. Ich hab es sonst immer so gemacht, k.a. was da schief läuft.
Hab ich vielleicht was beim Package umgestellt?

[backdraft]

Ich habe gerade mal, alles ausser die Unit aus dem Package gelöscht, dann geht es!?!
Was kann sowas verursachen?

[stahli]

Zitat:

hab ich schon alles probiert. auch nen namen den es nicht gibt, dann sagt er das auch.
in dem anderen resourceeditor seh ich sie ja auch ...

Da solltest Du mal nachhaken...
Wenn Du {$R xyz.res} angibst und die Datei nicht existiert, sollte eigentlich schon der Compiler meckern und nicht erst das Programm zur Laufzeit...

Stahli

[uligerhardt]

Zitat von backdraft:

Ich habe gerade mal, alles ausser die Unit aus dem Package gelöscht, dann geht es!?!
Was kann sowas verursachen?

Hm, bei mir (BDS2006) geht's mit ner simplen VCL-App auch - zwei Biuttons, ein TImage und folgender Code:

Delphi-Quellcode:

unit MainF;

interface

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  StdCtrls,
  ExtCtrls;

type
  TForm65 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form65: TForm65;

implementation

{$R *.dfm}
{$R iBTVHeader.res}

procedure TForm65.Button1Click(Sender: TObject);
begin
  if FindResource(HInstance, PChar('IBTVHEADERDESCBMP'), RT_BITMAP) = 0 then
    //raise Exception.Create('Resource MEINBILD nicht gefunden');
    ShowMessage('Resource MEINBILD nicht gefunden');
end;

procedure TForm65.Button2Click(Sender: TObject);
var
  TextBitmap: TBitmap;
begin
  TextBitmap := TBitmap.Create;
  TextBitmap.LoadFromResourceName(HInstance, 'IBTVHEADERDESCBMP');
  Image1.Picture.Assign(TextBitmap);
  TextBitmap.Free;
end;

end.

Versuche doch mal, dein Package soweit zu verkleinern wie möglich, ohne dass der Fehler verschwindet. Vielleicht merkst du ja dabei schon, wo's hakt. Anderenfalls poste dein Ergebnis mal.

[backdraft]

Ich hab die Lösung. Durch rauswerfen habe ich die Unit gefunden, und diese enthielt nur eine Resource.

Eine andere Resourcedatei enthielt ein Bild namens iBERGRM_INF.
Wenn ich diese Resource mit in das Package gepackt habe, dann krachte es.
Ich habe die Resource nun umbenannt in IBERDIAGRAMM_INF. Jetzt geht es. Kann es sein, dass er sich an dem kleinen "i" vorne gestört hat?