Einzelnen Beitrag anzeigen

blink182

Registriert seit: 19. Jun 2007
126 Beiträge
 
Delphi 5 Standard
 
#7

Re: Fehler beim Speichern von TImage

  Alt 5. Dez 2008, 23:47
mhm auf die Idee bin ich früher auch gekommen, bringt nur leider nichts^^ du hast dann zwar eine Datei die xyz.jpg heißt aber eigentlich noch ein bmp ist, also musst du die datei umwandeln

Zitat:
BMP2JPG
Delphi-Quellcode:
uses Jpeg;

procedure Bmp2Jpeg(const BmpFileName, JpgFileName: string);
var
  Bmp: TBitmap;
  Jpg: TJPEGImage;
begin
  Bmp := TBitmap.Create;
  Jpg := TJPEGImage.Create;
  try
    Bmp.LoadFromFile(BmpFileName);
    Jpg.Assign(Bmp);
    Jpg.SaveToFile(JpgFileName);
  finally
    Jpg.Free;
    Bmp.Free;
  end;
end;
  Mit Zitat antworten Zitat