Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Bild zu Bitmap (https://www.delphipraxis.net/121828-bild-zu-bitmap.html)

Larsi 5. Okt 2008 15:04


Bild zu Bitmap
 
Hi,
kennt ihr eine kostenlose Komponente oder Funktionen, welche sämtliche Dateiformate (also alle, die eine TImage Komponente in Delphi kann) in ein Bitmap (*.bmp) verwandeln kann. Ich weiß es gibt bei Tipps und Tricks Seiten solche Funktionen die dann zum Beispiel .jpg in .bmp oder .ico zu .bmp machen aber ich dachte mir ner Komponente der man einfach nur den Pfad und das AusgabeBitmap als Parameter gibt wäre einfacher.

MFG Lars Wiltfang

Matze 5. Okt 2008 15:21

Re: Bild zu Bitmap
 
FreeImage

Crazy Ivan 5. Okt 2008 15:22

Re: Bild zu Bitmap
 
um jetzt mal auf einen anderen thread anzuspielen: such doch mal bei torry.net, da gibt's bestimmt was :stupid:

z.B. hier: http://www.torry.net/authorsmore.php?id=1314

Larsi 5. Okt 2008 15:26

Re: Bild zu Bitmap
 
Ich hatte gerade eine andere Idee. Könnte man nicht einfach die entsprechenden Formate in ein Image laden und dann das Graphics des Images zu nem Bitmap machen?

Ich habe hier in der CL folgenden Code gefunden:
Delphi-Quellcode:
procedure GetBitmap(const Graphic: TGraphic; out Bitmap: TBitmap);
begin
  if Bitmap = nil then
    Bitmap := TBitmap.Create;
  Bitmap.SetSize(Graphic.Width,Graphic.Height);
  Bitmap.Canvas.Draw(0,0,Graphic);
end;
Könntet ihr mis sagen wie ich den anwende?

Das hier:
Delphi-Quellcode:
GetBitmap(Image1.picture.Graphic, image2.picture.bitmap);
geht nicht. Kommen Fehler.

NickelM 5. Okt 2008 15:32

Re: Bild zu Bitmap
 
mach ne bitmap variable

Delphi-Quellcode:
var Bild : TBitmap;
begin
GetBitmap(Image1.picture.Graphic, Bild);
Bild.SaveToFile('test.bmp');
end;
Ist ausm Kopf, also nicht auf fehler geprüft aber müsste so gehen. Ab das mit SetSize geht und so ka.. hab ich noch nie gebraucht

Dani 5. Okt 2008 15:37

Re: Bild zu Bitmap
 
Delphi-Quellcode:
var Bild : TBitmap;
begin
Bild := TBitmap.Create();
{oder}
Bild := nil;
//sonst Zugriffsverletzung.
GetBitmap(Image1.picture.Graphic, Bild);
Bild.SaveToFile('test.bmp');
end;

Larsi 5. Okt 2008 15:40

Re: Bild zu Bitmap
 
Danke geht.

Apollonius 5. Okt 2008 15:41

Re: Bild zu Bitmap
 
Ich halte es nicht für sinnvoll, Bitmap als out-Parameter zu deklarieren. Out bedeutet, dass man den alten Wert nicht benötigt, also erfordert die Überprüfung if Bitmap = nil eigentlich einen var-Parameter. Ich würde es hier aber sogar vorziehen, das Bitmap als const zu deklarieren und auf ein nil-Bitmap mit einer Access Violation zu reagieren.


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:34 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz