|
#1
|
|||
|
|||
TBitmap и потоки
Здрасте. Прошу помощи. Немогу решыть одну задачу. Есть картинка в битмапе и я хочу ее передать для дальнейшей обработки в поток. Програму пишу на Делфи.
Ко который передет в поток: Код:
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' Может кто сталкивалса? |
#2
|
||||
|
||||
На какой конкретно строчке ругается? На 40?
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
|||
|
|||
на 5 в первом блоке
|
#4
|
||||
|
||||
Какой тип имеет FrameBitmap?
Невозможно заточить карандаш тупым топором. Столь же тщетно пытаться сделать это десятком тупых топоров |
#5
|
|||
|
|||
Тип TBitmap
|
#6
|
||||
|
||||
Покажите код где определяется и инициализируется FrameBitmap
Невозможно заточить карандаш тупым топором. Столь же тщетно пытаться сделать это десятком тупых топоров |
#7
|
|||
|
|||
Incompatible types tagBitmap and TBitmap бывает из-за того, что перепутаны местами модуль Windows и Graphics (ваш вариант - модуль Graphics отсутствует вовсе). Надо чтобы Graphics стоял после Windows в списке uses, так как в Windows свой псевдоним (TBitmap) для структуры tagBitmap, а при коллилзии имён берётся последнее из объявлений.
|
Этот пользователь сказал Спасибо phomm за это полезное сообщение: | ||
vlkc (24.05.2014)
|
#8
|
||||
|
||||
Или явно писать graphic.tbitmap
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |