Нужен совет ваш.

@Nicola · Регистрация: 16.04.2009

Author24 — интернет-сервис помощи студентам

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Edit1: TEdit;
    Button2: TButton;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses GBlur2;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  b: TBitmap;
begin
  if not openDialog1.Execute then
    exit;
 
  b := TBitmap.Create;
  b.LoadFromFile(OpenDialog1.Filename);
  b.PixelFormat := pf24Bit;
  Canvas.Draw(0, 0, b);
  GBlur(b, StrToFloat(Edit1.text));
  Canvas.Draw(b.Width, 0, b);
   b.Free;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
   if SaveDialog1.Execute then
    b.SaveToFile(SaveDialog1.FileName);
end;
 
end.

Созданна кнопка "сохранить" и после чего выходит ошибка(
Подскажите в чём может быть загвоздка в этом коде уже всё перепробывал.... Большое Спасибо!

raxper · 21.03.2012, 00:35

Delphi
1
b.Free;

...объект то локальный. Cделайте b- глобальной переменной и вынесите создание матрицы в OnCreate(), а уничтожение в OnDestroy() формы.

@Nicola · 21.03.2012, 01:15 **[ТС]**

Сообщение от raxp

Delphi
1
b.Free;

...объект то локальный. Cделайте b- глобальной переменной и вынесите создание матрицы в OnCreate(), а уничтожение в OnDestroy() формы.

А можете уточнить что за что браться?.

raxper · 21.03.2012, 08:24

...ответ дан прямым текстом.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
var
  Form1: TForm1;
  b: TBitmap;
 
implementation
 
uses GBlur2;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 
begin
  if not openDialog1.Execute then
    exit;
 
 
  b.LoadFromFile(OpenDialog1.Filename);
  b.PixelFormat := pf24Bit;
  Canvas.Draw(0, 0, b);
  GBlur(b, StrToFloat(Edit1.text));
  Canvas.Draw(b.Width, 0, b);
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
   if SaveDialog1.Execute then
    b.SaveToFile(SaveDialog1.FileName);
end;
 
procedure TForm1.OnCreate(Sender: TObject);
begin
  b := TBitmap.Create;
...
 
procedure TForm1.OnDestroy(Sender: TObject);
begin
   b.Free;
...

@Nicola · 21.03.2012, 10:22 **[ТС]**

Всё ровно таже история... выходит ошибка(

@LegionnaireFH · 21.03.2012, 11:17

Напишите текст самой ошибки, на что она ссылается?

@Nicola · 21.03.2012, 17:05 **[ТС]**

Подскажите пожалуйста как в эту программу( в архиве находится) поставить кнопку "сохранить".. Большое вам спасибо!!!!

@LegionnaireFH · 21.03.2012, 17:30

Смотрите вложение.

@Nicola · 21.03.2012, 17:34 **[ТС]**

Спасибо большое дружище!

Новые блоги и статьи Все статьи Все блоги /
Вопросы на собеседованиях по микросервисам ArchitectMsa 27.03.2025 Работодатели ищут не просто разработчиков, знающих базовые концепции, а специалистов, разбирающихся в тонкостях масштабирования, отказоустойчивости и производительности. Сейчас на первый план выходят. . .	Взаимодействие Python с REST API py-thonny 27.03.2025 REST API - это архитектурный стиль взаимодействия компонентов распределённого приложения в сети. Python располагает функциональным набором инструментов для работы с REST API и основная библиотека для. . .	sshd restrictions, ssh access limitations jigi33 26.03.2025 sshd restrictions \| ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel	Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .
SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .

@Nicola 1 / 1 / 1 Регистрация: 16.04.2009 Сообщений: 26
	21.03.2012, 10:22 [ТС]
	Всё ровно таже история... выходит ошибка( 1

@LegionnaireFH 8 / 8 / 1 Регистрация: 20.03.2012 Сообщений: 28
	21.03.2012, 11:17
	Напишите текст самой ошибки, на что она ссылается? 0

@Nicola 1 / 1 / 1 Регистрация: 16.04.2009 Сообщений: 26
	21.03.2012, 17:34 [ТС]
	Спасибо большое дружище! 0

Опции темы