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

Delphi-Quellcode:

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

Delphi-Quellcode:

Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName)

eine Bitmap lädst, dann wandert sie sozusagen direkt in

Delphi-Quellcode:

Image1.Picture.Bitmap

. Das Problem ist, wenn man etwas anderes läd, z. B. Icon oder Jpg, das schluckt

Delphi-Quellcode:

Image1.Picture

auch, ist dann aber keine Bitmap. Man kann es aber auch direkt laden mit

Delphi-Quellcode:

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;