VoyForums

[ Login ] [ Contact Forum Admin ] [ Main index ] [ Post a new message ] [ Search | Check update time | Archives: 1, 2, 3, 4, 5, 6, [7], 8, 9, 10 ]

[ Next Thread | Previous Thread | Next Message | Previous Message ]

Date Posted: 18:41:00 10/25/01 Thu
Author: Tim Griffin
Subject: Invalid Pointer Operation

The following Delphi 5 code generates a 1/2 size JPG and produces an "Invalid Pointer Operation" upon closing the program. This happens with our without Delphi running. The problem does not occur if this code is skipped.

AGraphic is defined globally and Transform is defined locally but the problem also occured when AGraphic was also defined locally.

Also, ImageScrollBox1 is enabled but not visable.

Please advise.

Thanks much!

Transform := TResizeTransform.Create;

ImageScrollBox1.LoadFromFile(InFileName,0);
AGraphic.assign(ImageScrollBox1.Graphic);
TJpegGraphic(AGraphic).SaveQuality := thumbs2jpgquality;

h := ImageScrollBox1.Graphic.Height;
w := ImageScrollBox1.Graphic.Width;

ratio := 0.5;

try
Transform.Width := trunc(w * ratio);
Transform.Height := trunc(h * ratio);
Transform.ApplyOnDest(AGraphic, ImageScrollBox1.Graphic);

ImageScrollBox1.SaveToFile(OutFileName);
finally
Transform.Free;
end;

[ Next Thread | Previous Thread | Next Message | Previous Message ]

Replies:

[ Contact Forum Admin ]

Forum timezone: GMT-5
VF Version: 3.00b, ConfDB:
Before posting please read our privacy policy.
VoyForums(tm) is a Free Service from Voyager Info-Systems.
Copyright © 1998-2019 Voyager Info-Systems. All Rights Reserved.