AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Zwei Probleme mit OpenPictureDialog und SavePictureDialog
Thema durchsuchen
Ansicht
Themen-Optionen

Zwei Probleme mit OpenPictureDialog und SavePictureDialog

Ein Thema von delphianfänger123 · begonnen am 4. Jan 2011 · letzter Beitrag vom 4. Jan 2011
 
delphianfänger123

Registriert seit: 2. Jan 2011
15 Beiträge
 
#1

Zwei Probleme mit OpenPictureDialog und SavePictureDialog

  Alt 4. Jan 2011, 20:15
Hallo!

Ich habe erneut ein bzw. zwei riesige Probleme, bei denen ihr mir hoffentlich helfen könnt!
Mein Zeichenpogramm hat einmal diese Prozedur
Code:
procedure TForm1.Button5Click(Sender: TObject);
begin // .bmp-Bild laden
 if OpenPictureDialog1.Execute then
     Bitmap:=TBitmap.create;
     Bitmap.Width:=704;
     Bitmap.Height:=603;

     Bitmap.Canvas.Brush.Color:=ColorDialog1.Color;
     Bitmap.Canvas.Fillrect(Rect(0,0,704,603));
     Bitmap.LoadFromFile(OpenPictureDialog1.FileName);

  BitBlt(Paintbox1.Canvas.Handle, 0, 0, Bitmap.Width, Bitmap.Height, Bitmap.Canvas.Handle, 0, 0, SrcCopy);
  Bitmap.Free;


end;
mit der man ein bmp-Bild laden kann und diese
Code:
procedure TForm1.Button4Click(Sender: TObject);
begin // Speichert den Inhalt der Paintbox an eine beliebige Stelle
 if SavePictureDialog1.Execute then
    Bitmap:=TBitmap.Create;
    Bitmap.PixelFormat := pf32bit;
    Bitmap.Width:=Paintbox1.Width;
    Bitmap.Height:=Paintbox1.Height;

  Bitmap.Canvas.CopyRect(Bounds(0,0,bitmap.Width, Bitmap.Height),
   PaintBox1.Canvas, PaintBox1.ClientRect);

  Bitmap.SaveToFile(SavePictureDialog1.FileName);
  Bitmap.Free;
end;
mit der man das Gemalte Kunstwerk speichern kann.

Nun habe ich folgende Probleme:
1. Wenn ich beim "Bild laden" bzw. "Bild speichern" auf abbrechen klicke kommt folgende Fehlermeldung:
Zitat:
---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project2.exe ist eine Exception der Klasse EAccessViolation aufgetreten. Meldung: 'Zugriffsverletzung bei Adresse 0042217C in Modul 'Project2.exe'. Lesen von Adresse 00000028'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------
2.Wenn ich ein Bild speichere, dann wird es nicht als .bmp-Bild gespeichert. Wie bekomme ich es hin, das Bild als .bmp zu speichern?

Für Hilfe wäre ich sehr dankbar!
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:58 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz