| Autor |
Beitrag |
darksign
 
Beiträge: 58
|
Verfasst: So 25.02.07 15:38
Hallo Leute!
Gibt es eigentlich eine Möglichkeit, eine Grafik im Bmp-Format in ein anderes Format umwandelt (z.B. in Gif oder Jpeg...)! Leider hab ich noch keinen Befehl dafür gefunden, da müsste es aber doch irgendetwas geben, oder!
Ich hoffe, ihr könnt mir helfen
danke schon mal im vorraus
|
|
elundril
Beiträge: 3747
Erhaltene Danke: 123
Windows Vista, Ubuntu
Delphi 7 PE "Codename: Aurora", Eclipse Ganymede
|
Verfasst: So 25.02.07 15:43
mit einem Image.
Du lädst ein BMP ins Image hinein und speicherst es als JPEG oder Gif! 
lg el _________________ This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.
|
|
Blackheart666
Beiträge: 2195
XP
D3Prof, D6Pers.
|
Verfasst: So 25.02.07 15:46
_________________ Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)
|
|
Marco D.
Beiträge: 2750
Windows Vista
Delphi 7, Delphi 2005 PE, PHP 4 + 5 (Notepad++), Java (Eclipse), XML, XML Schema, ABAP, ABAP OO
|
Verfasst: So 25.02.07 15:47
:mrgreen: Aus dem Easy Helper: Folgende Prozedur konvertiert eine Bitmap-Datei in eine JPEG-Datei. Dem ersten Parameter wird dabei der komplette Dateiname (inkl. Pfad!) des Bitmaps übergeben. Die neu erstellte Bilddatei trägt den gleichen Dateinamen, nur dass sie die Dateiendung ".jpg" besitzt. Dem zweiten Parameter wird ein Wert zwischen 1 und 100 übergeben. Je höher dieser Wert ist, desto besser ist die Dateiqualität, wodurch die Dateigröße allerdings erhöht wird. Die Unit JPEG muss eingebunden werden.   Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
| uses JPEG;
Procedure BmpToJpg(const Filename: String; Quality: TJPEGQualityRange=100);
var
Bmp: TBitmap;
Jpg: TJpegImage;
begin
Bmp:=TBitmap.Create;
Jpg:=TJpegImage.Create;
try
Bmp.LoadFromFile(Filename);
Jpg.CompressionQuality:=Quality;
Jpg.Assign(Bmp);
Jpg.SaveToFile(ChangeFileExt(Filename, '.jpg' ));
finally
Jpg.Free;
Bmp.Free;
end;
end; | _________________ Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot
|
|
elundril
Beiträge: 3747
Erhaltene Danke: 123
Windows Vista, Ubuntu
Delphi 7 PE "Codename: Aurora", Eclipse Ganymede
|
Verfasst: So 25.02.07 15:49
funktioniert doch meine idee oder??
lg el
_________________ This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.
|
|
wulfskin
Beiträge: 1349
Erhaltene Danke: 1
Win XP
D5 Pers (SSL), D2005 Pro, C, C#
|
Verfasst: So 25.02.07 16:06
 elundril hat folgendes geschrieben: | funktioniert doch meine idee oder??
lg el |
Ja sie funktioniert, ist aber nicht schön, da du eine resourcenfressende Komponente erstellst, die eigentlich nicht gebraucht wird.
Grundsätzlich kann man mit Delphi nur Dateien ins JPEG und die Windows Meta Formate (*.?) erstellen. Für alles andere brauchst du zusätzliche Units/Komponenten.
Edit: Funktioniert wohl doch nicht, siehe Beitrag von Blackheart666.
Gruß Hape! _________________ Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.
Zuletzt bearbeitet von wulfskin am So 25.02.07 16:26, insgesamt 1-mal bearbeitet
|
|
Blackheart666
Beiträge: 2195
XP
D3Prof, D6Pers.
|
Verfasst: So 25.02.07 16:14
Das einzigste was du damit machst ist die Dateiendung von bmp in jpg zu ändern, deswegen bleibt es aber trotzdem eine bmp Datei. _________________ Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)
|
|
Blackheart666
Beiträge: 2195
XP
D3Prof, D6Pers.
|
Verfasst: So 25.02.07 16:15
Das einzigste was du damit machst ist die Dateiendung von bmp in jpg zu ändern, deswegen bleibt es aber trotzdem eine bmp Datei.
|
|
Blackheart666
Beiträge: 2195
XP
D3Prof, D6Pers.
|
Verfasst: So 25.02.07 16:17
| elundril hat folgendes geschrieben: | funktioniert doch meine idee oder??
lg el |
Das einzigste was du damit machst ist die Dateiendung von bmp in jpg zu ändern, deswegen bleibt es aber trotzdem eine bmp Datei. _________________ Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)
|
|
elundril
Beiträge: 3747
Erhaltene Danke: 123
Windows Vista, Ubuntu
Delphi 7 PE "Codename: Aurora", Eclipse Ganymede
|
Verfasst: So 25.02.07 16:24
@Blackheart666: Nö wenn ichs in die Kompo reinlade und dann wieder aus der Kompo speichere?
Das einzige was wirklich ist ist das er ressourcenfressend ist.
P.S: einmal hätte genügt! _________________ This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.
|
|
Blackheart666
Beiträge: 2195
XP
D3Prof, D6Pers.
|
Verfasst: So 25.02.07 16:41
Stimmt, einmal hätte auch gereicht.
Da hatt irgend etwas beim abschicken nicht so geklappt.
Vieleicht kanns ja jemand Löschen.
_________________ Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)
|
|
