Решение проблемы доступа в потоках в Delphi: динамическая форма и загрузка изображений

Delphi , Компоненты и Классы , Потоки

Пользователь столкнулся с ошибкой доступа при работе с потоками в Delphi при динамическом создании формы и загрузке изображений. В контексте вопроса указано, что проблема возникает при попытке доступа к элементам формы из потока, когда форма создана динамически.

Объяснение проблемы:

При динамическом создании формы и использовании потоков для загрузки изображений, возникает проблема доступа к элементам формы из потока. Это происходит, потому что потоки работают независимо от основного потока, в котором был создан интерфейс пользователя. Поэтому, для безопасной работы с элементами формы из потока, необходимо использовать механизмы синхронизации.

Подтвержденный ответ:

Чтобы решить проблему, следует использовать события для обновления состояния формы и элементов управления, вместо прямого доступа к ним из потока. События позволят безопасно обновлять интерфейс пользователя из потока, не вызывая ошибок доступа.

Альтернативный ответ (рекомендуемый):

Лучшим решением является изменение архитектуры потока таким образом, чтобы он не взаимодействовал напрямую с элементами управления, а вместо этого, вызывал события, которые обновляют UI на основном потоке.

Пример измененного класса потока:

unit unit_MyThread;
interface
uses
  Classes, IdHTTP, SysUtils;
type
  TIdHTTPThread = class(TThread)
  private
    FURL: String;
    FOnImageDownloaded: TNotifyEvent;
    FOnProgress: TNotifyEvent;
    procedure Execute; override;
    procedure UpdateProgress(Progress: Integer);
    procedure OnImageDownloaded(Data: TStream);
  public
    constructor Create(AURL: string);
    property OnImageDownloaded: TNotifyEvent read FOnImageDownloaded write FOnImageDownloaded;
    property OnProgress: TNotifyEvent read FOnProgress write FOnProgress;
  end;
implementation
uses
  IdTCPConnection, IdTCPClient, IdHTTP, Vcl.Graphics;
constructor TIdHTTPThread.Create(AURL: string);
begin
  inherited Create(True);
  FreeOnTerminate := True;
  FURL := AURL;
end;
procedure TIdHTTPThread.Execute;
var
  IdHTTP: TIdHTTP;
  MS: TMemoryStream;
begin
  IdHTTP := TIdHTTP.Create(nil);
  try
    MS := TMemoryStream.Create;
    try
      IdHTTP.Get(FURL, MS);
      if Assigned(FOnProgress) then
        UpdateProgress(100);
      Synchronize(procedure
        OnImageDownloaded(MS)
      end);
    finally
      MS.Free;
    end;
  finally
    IdHTTP.Free;
  end;
end;
procedure TIdHTTPThread.UpdateProgress(Progress: Integer);
begin
  if Assigned(FOnProgress) then
    FOnProgress(Self, Progress);
end;
procedure TIdHTTPThread.OnImageDownloaded(Data: TStream);
begin
  if Assigned(FOnImageDownloaded) then
    FOnImageDownloaded(Self, Data);
end;
procedure TIdHTTPThread.UpdateProgressWorker(AWorkMode: TWorkMode; AWorkCount: Int64);
var
  Http: TIdHTTP;
  ContentLength: Int64;
begin
  Http := TIdHTTP(Self);
  ContentLength := Http.Response.ContentLength;
  if ContentLength > 0 then
  begin
    UpdateProgress(100*AWorkCount div ContentLength);
  end;
end;
procedure TIdHTTPThread.OnWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
begin
  UpdateProgressWorker(AWorkMode, AWorkCount);
end;

procedure TfrmIMGDown.Button3Click(Sender: TObject);
var
  HTTPThread: TIdHTTPThread;
begin
  HTTPThread := TIdHTTPThread.Create('URL_ИЗОБРАЖЕНИЯ');
  HTTPThread.OnProgress := ProgressBarUpdate;
  HTTPThread.OnImageDownloaded := ImageDownloaded;
  HTTPThread.Start;
end;

procedure TfrmIMGDown.ProgressBarUpdate(Sender: TObject; Progress: Integer);
begin
  ProgressBar3.Position := Progress;
end;

procedure TfrmIMGDown.ImageDownloaded(Sender: TObject; Data: TStream);
var
  J: TJPEGImage;
begin
  J := TJPEGImage.Create;
  try
    J.LoadFromStream(Data);
    Image3.Picture.Assign(J);
  finally
    J.Free;
  end;
end;

В этом примере поток создает события OnProgress и OnImageDownloaded, которые вызываются в безопасном для потока контексте. Таким образом, форма может подписаться на эти события и обновлять элементы управления в безопасной манере.

Заключение:

При работе с потоками в Delphi важно понимать, что потоки не должны напрямую обновлять элементы интерфейса пользователя. Вместо этого, следует использовать механизмы, такие как события, для безопасного взаимодействия между потоками и интерфейсом пользователя.

Создано по материалам из источника по ссылке.

Проблема в Delphi связана с попыткой доступа к элементам динамически созданной формы из потока для загрузки изображений, что приводит к ошибкам доступа из-за работы потока в отдельном потоке выполнения.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Потоки ::