Forum: Multimedia
by capo,
2. Nov 2010
Hallo,
ich habe mitlerweile eine Lösung gefunden, leider sehen die Thumbs entweder zu pixeli oder zu unscharf aus.
Hat jemand eine Idee?
So sieht mein Code momentan aus:
procedure SquareMyJPG(JPGFilePathSource, JPGFilePathDest: string;
SquareLengthPx: Integer);
var
JPGOrig, JPGThumbSquare: TJPEGImage;
BMPThumbNoSquare, BMPThumbSquare: TBitmap;
Forum: Multimedia
by capo,
23. Okt 2010
Hehe danke...und ich hatte extra schon darauf geachtet. Stress!
Forum: Multimedia
by capo,
23. Okt 2010
Merkwürdig, aber deinen Beitrag habe ich die ganze Zeit nicht gesehen.
Gruss
Forum: Multimedia
by capo,
22. Okt 2010
Hallo,
das wir dbei mir angemeckert:
SaveBMPasJPG
frmMain.pas(214): E2003 Undefinierter Bezeichner: 'SaveBMPasJPG'
Woran liegt das?
Danke!
Forum: Multimedia
by capo,
22. Okt 2010
Gute Idee, das macht der Simpleviewer auch, verkleinert und nimmt sich irgendein Quadrat aus dem Foto heraus.
Das würde mir absolut reichen!
Allerding nicht händisch. Es sind relativ viele Bilder zu bearbeiten.
Danke für deine Ergänzung
Forum: Multimedia
by capo,
22. Okt 2010
Geht es auch ohne Weissraum?
Es wäre nicht so schlimm wenn ein Teil fehlen würde.
Wie mache ich das hiermit?
Gruss
capo
Forum: Multimedia
by capo,
22. Okt 2010
Danke, ihr seid der Hammer! :-D
Jetzt kann ich weiter machen.
Gruß
Capo
Forum: Multimedia
by capo,
22. Okt 2010
Hallo,
hier im Forum sind unzählige Beispiele wie Thumbnails erstellt werden z.B.
http://www.delphipraxis.net/105189-thumbnail-erstellung-und-bilder-verkleinern.html
Oder dieses:
procedure SaveImage(inBmp: TBitmap32; filename: string);
var jpeg: TJPEGImage;
bmp: TBitmap;
begin
jpeg := TJPEGImage.Create;