Autor Beitrag
Sirke
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 208
Erhaltene Danke: 2



BeitragVerfasst: Di 29.11.05 18:58 
Hallo zusammen,

ich weiß, dass es bereits 1000 und 1 Themen zu diesem gibt, doch habe ich in keinem eine passende oder funktionierende Antwort gefunden:

Ich möchte ein Programm schreiben, dass JPGs kleinrechnen und anschließend uploaded. Ich suche jetzt bereits seit einer Woche nach bibliotheken, mit denen ich Bilder klein rechnen kann, doch funktionieren diese nicht richtig oder ich koomme mit diesen nicht klar.

Daher meine Frage: Könnt ihr mir bitte eine Bibliothek empfehlen mit der ich Bilder kleinrechnen kann ? Und vllt einen Codeschnipsel dazugeben, wie diese Bibliothek funktioniert, denn das war bis jetzt meist mien größtes Problem !

Danke für eure nun 1000 und 2 Mühen =)

MfG Sirke
F34r0fTh3D4rk
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 5285
Erhaltene Danke: 28

Win Vista (32), Win 7 (64)
Eclipse, SciTE, Lazarus
BeitragVerfasst: Di 29.11.05 19:02 
was meinst du mit "kleinrechen"; verkleinern ? dazu solltest du erstmal gucken welchen algo du nimmst, es gibt da verfahren mit mehr oder weniger guten ergebnissen, einfach mal googlen. vielleicht findest du hier im forum auch was dazu ;)
Sirke Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 208
Erhaltene Danke: 2



BeitragVerfasst: Di 29.11.05 19:27 
Ich habe schon meherer Algos gefunden und getested, doch haben keine von diesen Ergebnisse gebracht. Entweder gab es kein Ergebnis oder das Bild wurde nicht kleiner, einmal sogar größer :?
Daher zielte meine Frage eher darauf, welche Algos ihr verwendet und welche dann auch funzen !
Gausi
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 8554
Erhaltene Danke: 481

Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
BeitragVerfasst: Di 29.11.05 19:42 
Hallo und :welcome: in der EntwicklerEcke!

Was spricht denn gegen die Verwendung von TJPEG und der Eigenschaft CompressionQuality? Damit sollte sich das gewünschte Ergebnis erzielen lassen.
Mehr dazu in der Hilfe.

Oder willst du das selbst nachprogrammieren?

_________________
We are, we were and will not be.
Sirke Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 208
Erhaltene Danke: 2



BeitragVerfasst: Di 29.11.05 19:49 
Oh, ne ich meinte nicht die Dateigröße verkleinern, da hab ich mich wohl ungeschickt ausgedrückt.

Ich meinte schon die Bildgröße verkleinern. Darauf bezog sich meine Frage. Oder kan ich das mit CompressionQuality auch machen ? Ne oder ?
Lossy eX
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 1048
Erhaltene Danke: 4



BeitragVerfasst: Mi 30.11.05 09:23 
Also zum Verkleinern eines Bildes solltest du einen Resample Algorithmus benutzen.
Bei diesem kann es allerdings sein, dass du deine JPEGs erst einmal in ein TBitmap konvertieren musst. In etwa so.

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
procedure TForm1.Button1Click(Sender: TObject);
var
  jpg: TJPEGImage;
  bmp: TBitmap;
begin
  jpg := TJPEGImage.Create;
  try
    jpg.LoadFromFile(...);

    bmp := TBitmap.Create;
    try
      bmp.Assign(jpg);

      // Resample

      jpg.Assign(bmp);
      jpg.CompressionQuality := 95;

      jpg.SaveToFile(...);
    finally
      bmp.Free;
    end;
  finally
    jpg.Free;
  end;
end;

_________________
Nur die Menschheit ist arrogant genug, um zu glauben sie sei die einzige intelligente Lebensform im All. Wo nicht mal das nachhaltig bewiesen wurde.
Sirke Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 208
Erhaltene Danke: 2



BeitragVerfasst: Mi 30.11.05 10:09 
oh, cool in der Schule auf Delphi 5 klappt es wunderbar, hoffe bei mir zu Hause auf Delphi 6 auch!

Vielen Dank für eure Hilfe !