TImage zu TBitMap casten

[Elexarie]

Hallo Comm,

ich möchte ein Bild mit Steganographie verschlüsseln. Jetzt möchte ich es einmal visualisieren und einmal damit arbeiten.

Ich möchte also für die Visualisierung TImage verwenden & für die Bearbeitung TBiTMap.

Einlesen tu ich es über Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName) .

Jetzt soll das aus dem TImage in die BiTMap geschrieben werden - wie stell ich es am ressourcenschonensten an?

[Codehunter]

TImage.Picture.Bitmap

[Bummi]

wenn es ein Bitmap ist und kein anderes Format ...

[Popov]

@Elexarie

Also, wenn du in Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName) eine Bitmap lädst, dann wandert sie sozusagen direkt in Image1.Picture.Bitmap . Das Problem ist, wenn man etwas anderes läd, z. B. Icon oder Jpg, das schluckt Image1.Picture auch, ist dann aber keine Bitmap. Man kann es aber auch direkt laden mit Image1.Picture.Bitmap.LoadFromFile(OpenPictureDialog1.FileName) , dann gibt es eine Fehlermeldung wenn es keine Bitmap ist, aber dann ist man sicher, dass es eine Bitmap ist.

[turboPASCAL]

An sonsten die Graphic die ein Jpeg, Png oder anderes enthält, zu einem Bitmap "umbauen".

Delphi-Quellcode:

// ...
begin
  // ... 
  with TPicture.Create do // simple convert any graphic to bitmap
  try
    LoadFromFile({OpenPictureDialog1.}FileName);
    Image1.Picture.Bitmap.Assign(Graphic);
    Image1.Invalidate;
  finally
    Free;
  end;
end;