Определение цвета пикселя

[Artem]

Не получается определить цвет нужного пикселя у TImage:
Этот код не помогает:

...
var Color:TColor;
begin
color:=image1.Canvas.Pixels[10,10];
...

[mrandrey]

почему не помагает?
или вернее почему ты так решил?

[Artem]

помагает только с bmp файлами, а с jpg нет!

[Сильванович Михаил]

преобразуй jpeg в bmp и будет тебе счастье!

[Artem]

Всем спасибо, последний вопрос и отстану от всех)))
Как преобразовать тип byte в hex, а hex в string???

[Alex21]

HEX ---> INTEGER

var 
  i: integer 
  s: string; 
begin 
  s := '$' + ThatHexString; 
  i := StrToInt(a); 
end; 
 
--------------------------------------------------------------------------------
const HEX: array['A'..'F'] of INTEGER = (10, 11, 12, 13, 14, 15); 
var str: string; 
    Int, i: integer; 
begin 
  READLN(str); 
  Int := 0; 
  for i := 1 to Length(str) do 
    if str[i] < 'A' then 
      Int := Int * 16 + ORD(str[i]) - 48 
    else 
      Int := Int * 16 + HEX[str[i]]; 
  WRITELN(Int); 
  READLN; 
end.

Взято из Советов по Delphi от Валентина Озерова
Сборник Kuliba

[Artem]

спасибо, тема закрыта!

[mrandrey]

Как это

byte в hex, а hex в string

может byte в string?
тогда: s:='$'+IntToHex(a,8);

[Artem]

mrandey, извини, я просто неопытный ещё!!!