Bilder aus einer externen Datei laden

[himitsu]

hierbei sollte die Bitmap-Variable inizialisiert sein

entweder die übergebene Variable steht auf NIL oder sie enthält ein gültiges Bitmap.

[Whatever]

Hm....irgendwie versteh ichs nicht....

[Andreas L.]

Delphi-Quellcode:

var
  bmp: TBitMap;
begin
  bmp := TBitmap.Create;
  try
    //Bild mit dem Index 0 in bmp laden
    GetCard(0, bmp);
    //irgendwas mit bmp machen, z. B.
    Image1.Picture.Bitmap.Assign(bmp);
  finally
    bmp.Free;
  end;
end;

[Whatever]

Das interessante ist ja, dass es scheinbar nicht daran liegt :gruebel:

[himitsu]

Zitat:

Zitat von Andreas L.

Delphi-Quellcode:

var
  bmp: TBitMap;
begin
  bmp := TBitmap.Create;
  try
    //Bild mit dem Index 0 in bmp laden
    GetCard(0, bmp);
    //irgendwas mit bmp machen, z. B.
    Image1.Picture.Bitmap.Assign(bmp);
  finally
    bmp.Free;
  end;
end;

oder eben

Delphi-Quellcode:

var
  bmp: TBitMap;
begin
  bmp := nil;
  try
    //Bild mit dem Index 0 in bmp laden
    GetCard(0, bmp);
    //irgendwas mit bmp machen, z. B.
    Image1.Picture.Bitmap.Assign(bmp);
  finally
    bmp.Free;
  end;
end;

Zitat:

Zitat von Whatever

Das interessante ist ja, dass es scheinbar nicht daran liegt :gruebel:

Dann gibt es da etwas Pratisches, weches sich Debuggen nennt.

- man legen einen Haltepunkt (F5) an den Anfang dieser Prozedur
- starte sas Programm (F9)
- und geht dann mit F7 oder F8 schrittweise weiter
- und sage uns dann wo genau es knallt und kann gleichzeitig selber mal schauen was eventuell schief läuft

[Whatever]

Der Fehler sitzt in dieser Zeile:

Delphi-Quellcode:

r := TResourceStream.CreateFromID(h, CardIndex, 'Bitmap');

Nen BP musste ich dafür aber nicht setzen da die Exception einen sowieso immer an die jeweilige stelle wirft...
Das mit dem Initialisieren verhindert diese auch nicht.
:gruebel:

[himitsu]

Wie genau heißt denn die Exception?

So wie es aussieht, wird wohl die Resource nicht gefunden. :gruebel:

[Whatever]

Eine Zugriffsverletzung. Also die DLL wird auf jeden Fall gefunden, aber die Ressource in ihr wohl nicht, was sich an der Adresse, die nicht gelesen werden kann sehen lässt.(00000002 für Ressource 2; 00000003 für Ressource 3; usw.)
Aber warum werden diese nicht gefunden.... Ich habe mir meine DLL nochmal mit einem Programm angesehen und.... naja die Ressourcen liegen an ihren Plätzen...
:gruebel:

[himitsu]

schau einfach mal, was alles in der DLL drin ist

Delphi-Quellcode:

uses Types;

function EnumResTypeProc(hModule: THandle; lpszType: PChar; lParam: Integer): LongBool; StdCall;
var
  arr: ^TStringDynArray absolute lParam;
begin
  SetLength(arr^, Length(arr^) + 1);
  if Cardinal(lpszType) > $FFFF then arr^[High(arr^)] := lpszType
  else arr^[High(arr^)] := Format('#%d', [Integer(lpszType)]);
  Result := True;
end;

function EnumResNameProc(hModule: THandle; lpszType, lpszName: PChar; lParam: Integer): LongBool; StdCall;
begin
  TMemo(lParam).Lines.Add(lpszType + '  ' + lpszName);
  Result := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  h: THandle;
  i: Integer;
  ResTypes: TStringDynArray;
begin
  h := HInstance;  // hier dein DLL-Handle setzen
  EnumResourceTypes(h, @EnumResTypeProc, Integer(@ResTypes));
  for i := 0 to High(ResTypes) do
    EnumResourceNames(h, PChar(ResTypes[i]), @EnumResNameProc, Integer(Memo1));
end;

Memo1 = TMemo

[Whatever]

Wow vielen Dank!! :shock:

Zitat:

#10 DVCLAL
#10 PACKAGEINFO

Das ist in der DLL...Aber...Wo sind meine Bilder