Discussion :

[free07]

Bonjour,

Je ne connais pas Free Pascal et j'aimerai savoir ce que fait le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
uses Classes, SysUtils, FPimage, PWriteJPEG, FPReadJPEG, LCLProc;
...
var
  l_ImgReader: TFPCustomImageReader;
  l_WrtJPEG: TFPWriterJPEG;
  l_Img: TFPMemoryImage;
 
begin
  try
    l_ImgReader := TFPReaderJPEG.Create
    l_Img := TFPMemoryImage.Create(1, 1);
    l_WrtJPEG := TFPWriterJPEG.Create;
    l_Img.LoadFromFile('c:\photo.jpg', l_ImgReader);
    Result.imgSource := TMemoryStream.Create;
    l_Img.SaveToStream(Result.imgSource, l_WrtJPEG);
    ...

Je ne sais pas ce que fait TFPMemoryImage.LoadFromFile en utilisant le 2nd paramètre qui est un TFPReaderJPEG.
Et aussi TFPMemoryImage.SaveToStream avec son 2nd paramètre qui est un TFPWriterJPEG.
Je suppose que ces paramètres formatent l'image mais comment ?

Merci pour votre aide

[free07]

C'est bon j'ai trouvé, cela encode bien l'image au format jpeg.