@Der_Unwissende:
Ich habe nun auch deines Ausprobiert und mit dem was du geschrieben hast, klappt es prima, kann sogar sehen das er die Datei anlegt. Was jedoch nicht klappt ist, das ich ein Bild draus lade und dieses dann per TImage ausgeben kann
Meine Prozedure sieht so dazu aus:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
Stream : TStream;
begin
bitmap := TBitmap.Create;
Stream := TStream.Create;
try
Stream := readNextFromContainer(Container);
if Stream <> NIL then
begin
bitmap.LoadFromStream(Stream);
bitblt(Image1.Canvas.Handle, 0, 0, bitmap.Width, bitmap.Height, bitmap.Canvas.Handle, 0, 0, srccopy);
end;
finally
Stream.Free;
bitmap.Free;
end;
end;
Die Fehlermeldung sagt etwas von einer "Privilegierte Anweisung".