[Delphi] Ma perchè non funziona?

[w_iuhiiuhi]

Nella stringa d2 dovrei trovarmi lo stream dei byte della jpg convertita in bmp, invece è vuota. raw.size mi restituisce correttamente le dimensioni dello stream, ma i = 0 e d2 =''.

JPG := TJPEGImage.Create;

JPG.LoadFromFile(OpenDialog1.FileName);

with TBitmap.Create do
begin
Assign(JPG);
raw := TmemoryStream.Create;
SaveToStream(raw) ;
end ;

SetLength(d2,raw.size);
i:=raw.Read(d2[1],raw.size);

Invece così funziona:

with TBitmap.Create do
begin
Assign(JPG);
raw := TstringStream.Create(d2);
SaveToStream(raw) ;
end ;

d2:=raw.DataString;


Perche? Non riesco a capire...


Grazie

[w_iuhiiuhi]

up