[vlkc]

Здрасте. Прошу помощи. Немогу решыть одну задачу. Есть картинка в битмапе и я хочу ее передать для дальнейшей обработки в поток. Програму пишу на Делфи.

Ко который передет в поток:

Код:

NewThread := Numeris.Create(True);
          NewThread.FreeOnTerminate := True;
          //Sukuriame kintamuosius kuriuos naudosime programoje aliarmo aktyvavimui
          NewThread.Set_Failas:= strFilePath;
          NewThread.Set_bmp:= FrameBitmap;  - тут проблема
          NewThread.Resume;

Код который принимает

Код:

unit F_Numeris;

interface

uses
  pngimage,
  Classes {$IFDEF MSWINDOWS} , Windows {$ENDIF};

type
  Numeris = class(TThread)
  private
    Thr_Set_bmp: TBitmap;
    Thr_Set_Failas: string;
  protected
    procedure Execute; override;
    procedure UpdateCaption;
  public
    property Set_bmp: TBitmap write Thr_Set_bmp;
    property Set_Failas: String write Thr_Set_Failas;
  end;

Var
  engine: Engine;

implementation

uses MainForm;


{ Numeris }

procedure Numeris.Execute;
begin

  Visa_Pradzia:
  Try

    ...
    //engine.ReadFromFile(Thr_Set_Failas,0);
    engine.ReadFromBitmap(Thr_Set_bmp.Handle,0);

    ...
  except
    //
  end;

end;

procedure Numeris.UpdateCaption;
begin

  frmMainForm.Memo2.Lines.Add(engine.plates.Item[0].Text);

end;

end.

Проблема в - [DCC Error] MainForm.pas(2520): E2010 Incompatible types: 'tagBITMAP' and 'TBitmap'

Может кто сталкивалса?

[M.A.D.M.A.N.]

На какой конкретно строчке ругается? На 40?

[vlkc]

на 5 в первом блоке

[madMonia]

Какой тип имеет FrameBitmap?

[vlkc]

Тип TBitmap

[madMonia]

Покажите код где определяется и инициализируется FrameBitmap

[phomm]

Incompatible types tagBitmap and TBitmap бывает из-за того, что перепутаны местами модуль Windows и Graphics (ваш вариант - модуль Graphics отсутствует вовсе). Надо чтобы Graphics стоял после Windows в списке uses, так как в Windows свой псевдоним (TBitmap) для структуры tagBitmap, а при коллилзии имён берётся последнее из объявлений.

[M.A.D.M.A.N.]

Или явно писать graphic.tbitmap