Einzelnen Beitrag anzeigen

CloudyofSky

Registriert seit: 20. Nov 2006
7 Beiträge
 
#10

Re: Kombi von 2D mit 3D Elementen, auch ohne OpenGL ?

  Alt 22. Nov 2006, 15:02
@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".
-------------------------
Gruß und Dank, Sky.
  Mit Zitat antworten Zitat