SaveToStream de TFPMemoryImage
Bonjour,
Je ne connais pas Free Pascal et j'aimerai savoir ce que fait le code suivant :
Code:
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
