PrtScSysRq vs Memory

[JoanM]

При первом же срабатывании таймера:

Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 0041FA1C in module 'Project1.exe'. Read of address 0000002C'. Process stoped. И дальше всё как полагается.

[Stilet]

А на каком операторе срабатывает?
У меня все отлично работает.

Вот сохранение в JPEG

unit Unit1;

interface

uses         jpeg,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var    h:hdc; i:TBitmap;j:TJPEGImage;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 StretchBlt({Form1.Canvas.Handle}i.Canvas.Handle,0,0,Width,Height,h,0,0,Screen.Width,Screen.Height,SRCCOPY);
 StretchBlt(Form1.Canvas.Handle,0,0,Width,Height,h,0,0,Screen.Width,Screen.Height,SRCCOPY);
 j.Assign(i);
 j.SaveToFile('c:\temp\img'+inttostr(Form1.tag)+'.jpg');
 Form1.tag:=Form1.tag+1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
h:=GetDC(GetDesktopWindow);i:=TBitmap.Create;
j:=TJPEGImage.Create;
i.Width:=Screen.Width;i.Height:=Screen.Height;
end;

end.

Еще раз повторюсь что у меня все работает прекрасно. И памяти всего 512М и комп не особо новый.

[JoanM]

Он не показывает оператор, указывает только на "end." в конце программы

[Карась]

У меня тоже ошибка.
Брекпоинты показывают что происходит это на первойже строке таймера...

И ссылается на End. В конце dpr файла...

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[Stilet]

А поставить бряк на первый оператор таймера и пошагам пройтись что не судьба??

[JoanM]

Фигня это всё - бряки, вотчи. Мне нужно действующее предложение. Если пошагово смотреть прогу, то всё равно можно не понять, чё ей надо.

[JoanM]

Умные люди! Посоветуйте что-нибудь мне! Ну надо, блин, программу мне сделать!

[Квэнди]

если для вас debug фигня, то посоветовать можно только сменить профессию.