Bilder aus einer externen Datei laden

[Whatever]

Hm.... Hat zufällig jemand eine Idee warum ich nicht an meine Ressourcen komme?

*Push*

[himitsu]

Kannst du mal die DLL hochladen?

[Whatever]

Jup das ist sie...

[himitsu]

blöd daß die Exceptions einfach unterschlagen werden
#2 = Bitmap
#10 = RCData

die Bilder sind also doch da

Delphi-Quellcode:

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
  if Cardinal(lpszName) > $FFFF then TMemo(lParam).Lines.Add(lpszType + '  ' + lpszName)
  else TMemo(lParam).Lines.Add(lpszType + '  ' + Format('#%d', [Integer(lpszName)]));
  Result := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  h: THandle;
  i: Integer;
  ResTypes: TStringDynArray;
begin
  h := LoadLibrary('C:\Dokumente und Einstellungen\Administrator\Desktop\CardsDLL.dll');
  EnumResourceTypes(h, @EnumResTypeProc, Integer(@ResTypes));
  for i := 0 to High(ResTypes) do
    EnumResourceNames(h, PChar(ResTypes[i]), @EnumResNameProc, Integer(Memo1));
end;

jetzt mal gucken warum der nicht läd

nutze mal RT_BITMAP statt 'Bitmap'

[edit]
so geht's
r := TResourceStream.CreateFromID(h, CardIndex, RT_BITMAP);

[Whatever]

Aaaaah vielen Dank! Jetzt wird das Bild gefunden... allerdings kommt gleich die nächste Exception hinterher, die sagt, dass die Bitmap ungültig ist

[Whatever]

Hallo,

leider muss ich nochmal pushen, da mir einfach nicht klar ist warum die geladene Bitmap ungültig sein soll. Die Exception tritt beim Anzeigen des Bildes auf:
Image1.Picture.Bitmap.Assign(bmp); Vielleicht hat ja jemand eine idee...

[DeddyH]

Wie wäre es denn mal mit mehr Quellcode?

[Andreas L.]

Die Bilder die du in der ressource abgelegt hast sind auch ganz sicher vom Typ Bitmap? Nicht Jpeg oder so?

[Whatever]

Ich würde gerne mehr Code zeigen allerdings besteht dieses Projekt bis jetzt nur aus dieser Funktion
Es sind ganz sicher Bitmaps... zählen bei diesen noch andere Faktoren/Eigenschaften der Bitmap an denen es liegen könnte?
Vielen Dank übrigens

[Whatever]

Könnte es sein, dass ich versuche den "Ordner" in der DLL zu laden. Ich habe einen Screenshot angehängt, in dem man die Struktur der DLL sieht. Das Markierte sieht ja schwer nach Pfad aus und demnach... naja lade ich den Ordner als Bitmap. Ich hab keine Ahnung ob da was dran ist, ich arbeite zu ersten mal mit Dlls