|
@@ -108,6 +108,7 @@ var r : integer;
|
|
|
d : TIHData;
|
|
d : TIHData;
|
|
|
startPos: Int64;
|
|
startPos: Int64;
|
|
|
begin
|
|
begin
|
|
|
|
|
+ msg := '';
|
|
|
startPos := str.Position;
|
|
startPos := str.Position;
|
|
|
with ImageHandlers do
|
|
with ImageHandlers do
|
|
|
try
|
|
try
|
|
@@ -116,7 +117,9 @@ begin
|
|
|
begin
|
|
begin
|
|
|
d := GetData(r);
|
|
d := GetData(r);
|
|
|
if assigned (d) then
|
|
if assigned (d) then
|
|
|
- h := d.FReader;
|
|
|
|
|
|
|
+ h := d.FReader
|
|
|
|
|
+ else
|
|
|
|
|
+ h := nil;
|
|
|
if assigned (h) then
|
|
if assigned (h) then
|
|
|
begin
|
|
begin
|
|
|
reader := h.Create;
|
|
reader := h.Create;
|
|
@@ -127,6 +130,7 @@ begin
|
|
|
FStream := str;
|
|
FStream := str;
|
|
|
FImage := self;
|
|
FImage := self;
|
|
|
InternalRead (str, self);
|
|
InternalRead (str, self);
|
|
|
|
|
+ msg := '';
|
|
|
break;
|
|
break;
|
|
|
except
|
|
except
|
|
|
on e : exception do
|
|
on e : exception do
|
michael