| Autor |
Beitrag |
robox
Hält's aus hier
Beiträge: 9
|
Verfasst: Mi 27.09.06 10:39
Kann mir mal bitte jemand einen Queltext geben, mit dem man ein jpg-Bild in ein Bitmap umwandeln kann?
Hab hier schon gesucht, aber irgendwie hat das noch nicht richtig geklappt.
Schon mal vielen Dank. 
|
|
mkinzler
 
Beiträge: 4106
Erhaltene Danke: 13
Delphi 2010 Pro; Delphi.Prism 2011 pro
|
Verfasst: Mi 27.09.06 10:40
Das macht eigentlich Delphi automatsich. Sobald man ein Bild in eine TImage-Komponenet lädt, wird es intern in ein Bitmap umgewandelt.
_________________ Markus Kinzler.
|
|
robox 
Hält's aus hier
Beiträge: 9
|
Verfasst: Mi 27.09.06 11:38
Ich möchte aber nicht, dass das jpeg nur intern umgewadelt wird, sondern die jpg-datei, die irgendwo in einem ordner liegt, soll nach dem programm weg sein, und durch das gleiche bild, aber als Bitmap ersetzt wurden sein.
|
|
Kroko
Beiträge: 1284
W98 W2k WXP
Turbo D
|
Verfasst: Mi 27.09.06 11:42
  Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| var
J: TJPEGImage;
B: TBitmap;
begin
J := TJPEGImage.Create;
J.LoadFromFile (AFileName);
B := TBitmap.Create;
B.Width := J.Width;
B.Height := J.Height;
B.Canvas.Draw (0,0,J);
J.Free;
B.SaveToFile (ANewFileName);
B.Free;
end; |
löschen musst Du das JPEG-Bild noch!
EDIT: Fehler beseitigt! _________________ Die F1-Taste steht nicht unter Naturschutz und darf somit regelmäßig und oft benutzt werden! oder Wer lesen kann, ist klar im Vorteil!
Zuletzt bearbeitet von Kroko am Mi 27.09.06 12:14, insgesamt 2-mal bearbeitet
|
|
mkinzler
Beiträge: 4106
Erhaltene Danke: 13
Delphi 2010 Pro; Delphi.Prism 2011 pro
|
Verfasst: Mi 27.09.06 11:48
Wie gesagt, wird das JPEG-Bild beim laden in ein Bitmap konvertiert:
Delphi-Quelltext
1:
| j.Picture.Bitmap.SaveToFile('Bild.bmp'); | _________________ Markus Kinzler.
|
|
Regan
Beiträge: 2157
Erhaltene Danke: 72
Java (Eclipse), Python (Sublimetext 3)
|
Verfasst: Mi 27.09.06 11:50
Oder so: von hier
 Fighter#1 hat folgendes geschrieben: | Also,
mit der Procedure lade ich ein Bild, egal ob jpeg oder bitmap.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| var endung:String;
jpeg:TJPegImage;
bitmap:Tbitmap;
begin
jpeg:=TJpegimage.Create;
If OpenDialog1.Execute
THen Image1.Picture.LoadFromFile(OpenDialog1.Filename);
Endung:=Copy(OpenDialog1.Filename,Pos('.',OpenDialog1.Filename),Length(OpenDialog1.Filename));
Endung:=LowerCase(Endung);
If (Endung='.jpg') Or (Endung='.jpeg') Then begin
bitmap:=TBitmap.Create;
jpeg.LoadFromFile(OpenDialog1.Filename);
bitmap.Assign(jpeg);
image1.Picture.Bitmap:=bitmap;
end; |
|
MfG
Regan
|
|
robox
Hält's aus hier
Beiträge: 9
|
Verfasst: Mi 27.09.06 11:57
Wenn ich den Quellcode von Kroko nehme kommt bei mir "Undefinierter Bezeichner: TJPEG" (bei der variablendeklaration), obwohl ich bei uses jpeg dazugeschrieben hab.
Was muss ich denn da anders machen?
|
|
Kroko
Beiträge: 1284
W98 W2k WXP
Turbo D
|
Verfasst: Mi 27.09.06 11:59
sorry, es muss TJPEGImage heißen
_________________ Die F1-Taste steht nicht unter Naturschutz und darf somit regelmäßig und oft benutzt werden! oder Wer lesen kann, ist klar im Vorteil!
|
|
mkinzler
Beiträge: 4106
Erhaltene Danke: 13
Delphi 2010 Pro; Delphi.Prism 2011 pro
|
Verfasst: Mi 27.09.06 11:59
| Zitat: | | Was muss ich denn da anders machen? |
Der Jpeg Filter wird nicht automatisch installiert. Befindet sich aber auf der delphi-Cd und kann Nachinstalliert werden. _________________ Markus Kinzler.
|
|
robox
Hält's aus hier
Beiträge: 9
|
Verfasst: Mi 27.09.06 12:11
also auf meiner delphi7-cd find ich nix, was ich dafür noch extra installieren könnte
und der quellcode von kroko klappt leider immer noch nicht. Da kommt der fehler mit einer zugriffsverletzung
die zeile 7 hab ich mal weggenommen, weil da auch ein fehler kam
|
|
Kroko
Beiträge: 1284
W98 W2k WXP
Turbo D
|
Verfasst: Mi 27.09.06 12:15
in Zeile 7 muss Du die Bitmap createn, sonst geht es natürlich nicht,
 Fehler oben beseitigt! _________________ Die F1-Taste steht nicht unter Naturschutz und darf somit regelmäßig und oft benutzt werden! oder Wer lesen kann, ist klar im Vorteil!
|
|
robox
Hält's aus hier
Beiträge: 9
|
Verfasst: Mi 27.09.06 12:24
Vielen Dak, jetzt geht's.
|
|
