|
@@ -86,6 +86,7 @@ begin
|
|
// Picture type
|
|
// Picture type
|
|
AStream.ReadByte;
|
|
AStream.ReadByte;
|
|
// Description
|
|
// Description
|
|
|
|
+ AData:= 0;
|
|
repeat
|
|
repeat
|
|
AStream.ReadBuffer(AData, AInc);
|
|
AStream.ReadBuffer(AData, AInc);
|
|
until (AData = 0);
|
|
until (AData = 0);
|
|
@@ -101,6 +102,9 @@ begin
|
|
else if AMimeType = 'image/jpeg' then
|
|
else if AMimeType = 'image/jpeg' then
|
|
begin
|
|
begin
|
|
ABitmap:= TJPEGImage.Create;
|
|
ABitmap:= TJPEGImage.Create;
|
|
|
|
+ end
|
|
|
|
+ else begin
|
|
|
|
+ ABitmap:= nil;
|
|
end;
|
|
end;
|
|
if Assigned(ABitmap) then
|
|
if Assigned(ABitmap) then
|
|
try
|
|
try
|