Форум: "Начинающим";
Текущий архив: 2014.02.16;
Скачать: [xml.tar.bz2];
Внизgdi+ error Найти похожие ветки
← →
quart (2013-04-07 15:16) [0]Hi All!
Пытаюсь выполнить следующий код (взят из примера с сорцами GDI+), но получаю ошибку:
First chance exception at $756BC41F. Exception class EGdipError with message "(GDI+ Error) Out of Memory". Process Project1.exe (7932)
Подскажите, в чем может быть дело? D2010, GDIPlus1.2unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Controls, Forms,
Dialogs, gdiplus, gdiplushelpers, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
img: TImage;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Graphics : IGPGraphics;
gImage : IGPImage;
R : TGPRectF;
begin
gImage := TGPImage.Create("d:\1.jpeg");
Graphics := TGPGraphics.Create(gImage);
R.Initialize(0, 0, gImage.Width, gImage.Height);
Graphics.CompositingMode := CompositingModeSourceCopy;
Graphics.DrawImage(gImage, R);
Graphics := TGPGraphics.Create(Form1.Img.Canvas.Handle);
Graphics.DrawImage(gImage, R, 0, 0,
gImage.Width,
gImage.Height,
UnitPixel);
end;
← →
MBo © (2013-04-07 15:18) [1]размер картинки какой?
← →
quart (2013-04-07 15:20) [2]960x720 214 Кбайт
← →
clickmaker © (2013-04-07 17:25) [3]> но получаю ошибку
вот так сразу, при первой попытке?
а gImage и Graphics освобождать не надо?
← →
quart (2013-04-08 11:38) [4]
> а gImage и Graphics освобождать не надо?
Согласен, надо, но как это поможет побороть ошибку?
← →
quart (2013-04-08 11:55) [5]Ошибка вываливается уже на данном этапе:
var
gImage : IGPImage;
begin
gImage := TGPImage.Create("d:\1.jpeg");
end;
← →
clickmaker © (2013-04-08 12:30) [6]может, нестандартный формат, типа jpeg2000?
← →
brother © (2013-04-08 14:32) [7]IGPImage что-то такого не встречал...
← →
KilkennyCat © (2013-04-08 23:04) [8]
> brother © (08.04.13 14:32) [7]
и я дже щнаю, почему.
← →
brother © (2013-04-09 09:00) [9]почему?
← →
Kilkennycat © (2013-04-09 09:35) [10]сторонний компонент
← →
brother © (2013-04-09 09:41) [11]а, ну дык это понятно. просто вообще не на слуху...
← →
Афонтий (2013-04-12 15:58) [12]
var
gImage : IGPImage;
begin
gImage := TGPImage.Create("d:\1.jpeg");
end;
Никто ничего не видит?
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2014.02.16;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.003 c