как без ошибки загрузить jpeg в image

[Neeter]

Ну вот примерчик
Создай процедуру:

procedure Highlight(aSource, ATarget: TBitmap);
var
 i, j: Integer;
 s, t: pRGBTriple;
begin
 aSource.PixelFormat := pf24bit;
 ATarget.PixelFormat := pf24bit;
 ATarget.Width := aSource.Width;
 ATarget.Height := aSource.Height;
 for i := 0 to aSource.Height - 1 do
 begin
  s := ASource.Scanline[i];
  t := ATarget.Scanline[i];
  for j := 0 to aSource.Width - 1 do
   begin
    if (t^.rgbtBlue = ColorToRGB(clBlack)) and
      (t^.rgbtRed = ColorToRGB(clBlack)) and
      (t^.rgbtBlue = ColorToRGB(clBlack)) then
      begin
       t^.rgbtBlue := ColorToRGB(clWhite);
       t^.rgbtGreen := ColorToRGB(clWhite);
       t^.rgbtRed := ColorToRGB(clWhite);
      end;
    inc(s);
    inc(t);
   end;
  end;
end;

И например при нажатии кнопку:

procedure TForm1.BitBtn2Click(Sender: TObject);
var
 Bitmap: TBitmap;
begin
 Bitmap:=Image1.Picture.Bitmap;
 Bitmap.PixelFormat := pf24Bit;
 Highlight(Bitmap,Bitmap);
 Image1.Refresh;
end;

Все черные пикселы меняет на белые

[beemoto]

o_0 спс за примерчик(ток процедура большая =D)
===========
плиз помогите в теме:
http://programmersforum.ru/showthread.php?p=262987 !!!

[Neeter]

Ну там в основном присваивания всякие

[DomiNick]

я немогу понять куда быстрей!? он неподвисает сразу выдает!

Ну если у Вас картинка 200х200, то может быть и не заметно...
А если 1024х1024, то будет ещё как виснуть...