[delphi] image.savetofile doet raar

[Hardcell]

Hoi,

Ik heb een probleempje met delphi. Ik laad een plaatje in van een ftp en laat deze zien op een form. Vervolgens wil ik deze naar een bestand wegschrijven en dan bouwt hij een bestand wat 10x de grootte van het origineel heeft! Deze kan ik uiteraard niet openen.. (Het zijn overigens allemaal jpeg-bestanden)

Hieronder de code

voor het openen:

code:

image := TPicture.Create;
url := '**************' + filename;
ms := TMemoryStream.Create;
fIdHTTP.Get(url, ms);
ms.Position := 0;
OleGraphic := TOleGraphic.Create;
OleGraphic.LoadFromStream(ms);
image.Assign(OleGraphic);
ms.Free;

voor het opslaan:
:

code:

  if sdImage.Execute then
    iPreview.Picture.SaveToFile(sdImage.FileName);

Suggesties?

[QuasaR]

Volgens mij sla je het bestand alleen maar op met de .jpg extensie maar is het in werkelijkheid een .bmp. Dat zou wel de grootte verklaren.
Bekijk de header van het bestand eens met een hex-editor.

[ Voor 10% gewijzigd door QuasaR op 16-09-2005 10:22 ]

[Hardcell]

Het bestand staat als jpeg op de ftp-server waar ik het vanaf zuig dus dan zou delphi er zelf een bitmap van moeten hebben gebouwd..

edit:

ook als ik hem rename naar .bmp krijg ik hem trouwens niet geopend

[ Voor 25% gewijzigd door Hardcell op 16-09-2005 10:29 ]

[SeatRider]

Hardcell schreef op vrijdag 16 september 2005 @ 10:26:
Het bestand staat als jpeg op de ftp-server waar ik het vanaf zuig dus dan zou delphi er zelf een bitmap van moeten hebben gebouwd..

Ja, dat doet ie volgens mij ook. Is het datatype van een Timage niet een bmp?

[Hardcell]

Maar goed, ook als ik het als bmp opsla krijg ik die bestanden niet geopend dus er klopt toch ergens iets niet..

[QuasaR]

Ik heb het vermoeden dat er bij het inladen al iets niet goed gaat.

kijk eens of je iets met onderstaande code kunt
hierin staat een voorbeeld voor het inladen van een .jpg

code:

uses
  JPEG;

procedure JPEGtoBMP(const FileName: TFileName);
var
  jpeg: TJPEGImage;
  bmp:  TBitmap;
begin
  jpeg := TJPEGImage.Create;
  try
    jpeg.CompressionQuality := 100; {Default Value}
    jpeg.LoadFromFile(FileName);
    bmp := TBitmap.Create;
    try
      bmp.Assign(jpeg);
      bmp.SaveTofile(ChangeFileExt(FileName, '.bmp'));
    finally
      bmp.Free
    end;
  finally
    jpeg.Free
  end;
end;

en hier een stukje code om een .bmp image als .jpg op te slaan.

code:

uses
  Jpeg, ClipBrd;

procedure TfrmMain.ConvertBMP2JPEG;
  // konvertiert ein Bitmap, z.B. die Grafik eines TCharts in ein JPEG
  // converts a bitmap, the graphic of a TChart for example, to a jpeg
var 
  jpgImg: TJPEGImage;
begin
  // copy bitmap to clipboard
  chrtOutputSingle.CopyToClipboardBitmap;
  // get clipboard and load it to Image1
  Image1.Picture.Bitmap.LoadFromClipboardFormat(cf_BitMap,
    ClipBoard.GetAsHandle(cf_Bitmap), 0);
  // create the jpeg-graphic
  jpgImg := TJPEGImage.Create;
  // assign the bitmap to the jpeg, this converts the bitmap
  jpgImg.Assign(Image1.Picture.Bitmap);
  // and save it to file
  jpgImg.SaveToFile('TChartExample.jpg');
end;

[ Voor 41% gewijzigd door QuasaR op 16-09-2005 10:52 ]

[Hardcell]

Bedankt!
Deze werkt wel inderdaad. Denk dat dat TOleGraphic het probleem was.

[Tomatoman]

Ik denk dat Hardcell het probleem was . Je sloeg zoals gezegd een bitmap op, niet een JPEG-bestand. Zie ook [rml][ Delphi] Compressed jpeg naar bitmap werkt niet[/rml].