Moin!
Tja, das kommt davon, wenn sich Software nicht an Standards hält. Ich habe das ganze nun so umgebaut, das er auch "image/jpg" als "image/jpeg" anerkennt. Ändere in der frmCAMainForm.pas die Zeile 270 ab und füge die darauffolgende Zeile ein, dann klappt es. Es war nur ein Fehler der Erkennung. Laut Doku sollte immer "image/jpeg" drinne stehen und nicht "image/jpg"... Naja, was wolls.
Delphi-Quellcode:
// Bitmap
267: If ( LowerCase(lAPICTag.MIME) = MIMETypeIDs[1].MIMEIDString ) Then
268: lFileExt := MIMETypeIDs[1].MIMEDefaultExt
269: // JPEG
270: Else If ( LowerCase(lAPICTag.MIME) = MIMETypeIDs[0].MIMEIDString ) Or
---: ( LowerCase(lAPICTag.MIME) = 'image/jpg' ) Then
271: lFileExt := MIMETypeIDs[0].MIMEDefaultExt
MfG
Muetze1