| Autor |
Beitrag |
DelphiNoobCoder
 
Beiträge: 98
Win XP SP1
|
Verfasst: So 24.12.06 15:56
Hallo ich hab schon in Easy Helper nachgeschaut doch dortmit komm ich leider nicht klar.
  Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
| 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; |
Wie oder was muss man machen das es zu JPG wird?
Ich hab es schon mir OpenDialog Probiert ging aber auch nicht.
Kann mir PLS wer Erklären wie das geht also es soll danach nix verändert werden wie Größe usw.
MFG Martin
Ich wünsch euch noch ein Frohes Weihnachts Fest Moderiert von  Gausi: Topic aus Sonstiges (Delphi) verschoben am So 24.12.2006 um 16:05
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: So 24.12.06 16:01
Na was muss man wohl als Parameter der Prozedur übergeben, wenn da ein Parameter Filename heißt? Und was für eine Datei muss das wohl sein, wenn die Prozedur BmpToJpg heißt? Und als was und wo wird das konvertierte Bitmap wohl gespeichert, wenn man sich mal diese Zeile anguckt:
Delphi-Quelltext
1:
| Jpg.SaveToFile(ChangeFileExt(Filename, '.jpg' )); |
Einfach nur mal etwas nachdenken. 
|
|
marconist
Beiträge: 25
xp sp2
D5 pers
|
Verfasst: So 24.12.06 16:42
Hallo Martin,
das funktioniert, so wie es da steht.
Du musst nur deine uses Klausel ergänzen.
Delphi-Quelltext
1:
| uses ..., ..., ..., jpeg; |
und die Prozedur aufrufen. Angenommen die bitmap Datei heisst unbenannt18.jpg, dann funktioniert
Delphi-Quelltext
1:
| bmptojpg('unbenannt18.bmp',100); |
srs,
marconist
Moderiert von Christian S.: Delphi-Tags hinzugefügt
|
|
Ironwulf
Beiträge: 733
Erhaltene Danke: 2
|
Verfasst: Di 26.12.06 05:17
ich glaub du hättest auch den text im easy helper lesen können und nicht einfach nur den code rauskopiern
| Zitat: | | 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. |
ich glaub das ist schon recht eindeutig und leicht verständlich
|
|
DelphiNoobCoder 
Beiträge: 98
Win XP SP1
|
Verfasst: Di 26.12.06 11:19
Endschuldigung bin hald bloß nen Anfänger ich arbeite mich schritt für schritt vor
|
|
marconist
Beiträge: 25
xp sp2
D5 pers
|
Verfasst: Di 26.12.06 12:45
Titel: Fragen stellen ist OK
Ich denke, niemand braucht sich zu entschuldigen, wenn er in einem Gebiet ein Anfänger ist und entsprechende Fragen stellt. Genau dazu sind unter anderem solche Foren da.
Auf die Anfänger- und Amateurfragen kann es unterschiedliche Reaktionen geben: direkte Antworten oder freundliche (oder auch knappe) Hinweise darauf, wo die Information zu finden ist.
Entschuldigen sollten sich eher die Poster, die in ihren Antworten einen abwertenden, sarkatischen Oberlehrerton anschlagen. Der ist ja nicht nötig, da die Möglichkeit besteht, die Fragen die nicht interessieren, zu ignorieren.
Mich würde sehr interessieren, ob die jpg Umwandlung jetzt bei dir - Martin - funktioniert.
srs,
marconist
|
|
Blackheart666
Beiträge: 2195
XP
D3Prof, D6Pers.
|
Verfasst: Di 26.12.06 14:55
| marconist hat folgendes geschrieben: | Ich denke, niemand braucht sich zu entschuldigen, wenn er in einem Gebiet ein Anfänger ist und entsprechende Fragen stellt. Genau dazu sind unter anderem solche Foren da.
Auf die Anfänger- und Amateurfragen kann es unterschiedliche Reaktionen geben: direkte Antworten oder freundliche (oder auch knappe) Hinweise darauf, wo die Information zu finden ist.
Entschuldigen sollten sich eher die Poster, die in ihren Antworten einen abwertenden, sarkatischen Oberlehrerton anschlagen. Der ist ja nicht nötig, da die Möglichkeit besteht, die Fragen die nicht interessieren, zu ignorieren.
Mich würde sehr interessieren, ob die jpg Umwandlung jetzt bei dir - Martin - funktioniert.
srs,
marconist |
@marconist Ich zumindest schau Mir ab und zu mal an, was dabei rumkommt ob man sich bemüht, ob man auf seine Fragen antwortet ob man die Fragen als beantwortet markiert usw. falls nicht reagiere Ich auch nicht mehr - warum auch !?
|
|
Mindforce
Beiträge: 358
Win XP Pro / MCE, Win 98, Slax (Linux)
Delphi 07 PRO, Delphi 3+7 (mit Prdx)
|
Verfasst: Mi 03.01.07 20:59
Hi,
altes Thema aufmisch:
Ich hab ne frage zu dieser Funktion! Und zwar hab ich diesen Code auch aus dem Easy Helper.
Doch bei mir verwandelt er die BMP Datei nicht richtig in eine JPG Datei.
Kann es daran liegen das der die Datei gar nicht komprimiert? Sondern einfach nur umbenennt? oder mach ich was falsch???
Thx!
M!ndforce
---EDIT---
Ok. Es hat sich erledigt ich habs geschafft!
_________________ Our force; in mind.
|
|
marconist
Beiträge: 25
xp sp2
D5 pers
|
Verfasst: Do 04.01.07 05:54
Hi
@Blackheart666:
Ja, das sehe ich auch so. Warum sollte man jemanden antworten, der frühere Antworten nicht beachtet hat?
@Mindforce:
Es ist ja schön für dich, dass du deine Frage selbst beantworten kannst. Für die Leute mit ähnlichen Fragen wäre es informativ, reinzuschreiben, woran es gelegen hat.
srs
marconist
|
|
