Добрые люди помогите пож. Гружу bmp? читаю РГБ, и в ето время картинка пропадает в разных местах цикла, читается 000.

procedure TForm1.MakeWork;
var
i2,j2,k2,K,px,py:integer;
kkx,kky:Double;
msg : AnsiString;

begin
kkx:=0;
kky:=0;
px:=0;
py:=0;
     begin
  for py:=0 to (ImHeight-1) do
       begin
 Memo1.Lines.Add('Îáðàáîòêà ñòðîêè '+IntToStr(py));
   for px:=0 to (ImWidth-1) do
         begin
       Memo1.Lines.Add('Îáðàáîòêà ïèêñåëÿ '+IntToStr(px));
 R1 := GetRValue(ImagePole.Canvas.Pixels[(px),(py)]);
 G1 := GetGValue(ImagePole.Canvas.Pixels[(px),(py)]);
 B1 := GetBValue(ImagePole.Canvas.Pixels[(px),(py)]);

     Memo1.Lines.Add('R='+IntToStr(R1)+' G='+IntToStr(G1)+' B='+IntToStr(B1));
    ****затем три записи в мемо типа
  for k2:=0 to (Round(R1-1)-1) do
  begin
  Memo1.Lines.Add('R='+IntToStr(Round(R1-1)-1);
  end;

end;
end;
end;
  end;

> и в ето время картинка пропадает в разных местах цикла

не верю... проблеммы в другом месте...
зы. код - УЖОС!

> Гружу bmp?

это ты НАС спрашиваешь? я вижу совсем другое...

ребят, я не прогер, а моя первая прога вышла уж более 2000 строк, я конечно осознаю, что многое записано каряво.
гружу бмп безвопроса- очепятка, сори
а поч ужос?? не пинайте:)

зы. выложил не полн-ю, так как там еще много барахла
так гружу картинку
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
 begin
 ImagePole.Picture.Bitmap.LoadFromFile(OpenPictureDialog1.FileName);
 ImagePole.AutoSize:=True;
 ImagePole.AutoSize:=False;
 GetInfoIm();
 end;
end;

подскажите хоть куда копать.

логируй координаты, где "падает" (что ты под этим подразумеваешь не знаю) картинка и анализируй результат...

> читается 000.

это черный цвет, что смущает???

не, обшиб - имел ввиду белый:)
А как залогить, если падает(пропадает и с ImagePole и с TBitmab), а чтение продолжается какогото пустого объекта.
Проверял рефреши картинки и клиар - отсут-ют.

однако если курсор убрать на раб стол, то иногда могет и досканить до конца,
такое чуство что реагирует на частые движения мышью, Однако онмаусмуви везде пусты....

ничего не понял...
> не, обшиб - имел ввиду белый:)

те 255,255,255 ?

> А как залогить,

например в memo

> а чтение продолжается какогото пустого объекта

так не бывает...

в общем, у тебя полный кавардак в коде, но думаю, что
> так как там еще много барахла

ищи "затирание" там. используй трассировку и брекпоинты...
удачи!

да вот застрелите, но нет там затирания! мож прога компилится непрально??
memo и использую - каж точку он там показывает, но в определенный момент цвета мен-ся на 255 255 255, а читаться продолжают, и уследить еле можно... а периоды сброса всегда рандом.
я могу конечно выслать 2700 строк, но не думаю, что комуто будит интересно их все читать.

пробовал читать не с imagepole, а с sBitmap:=TBitmap, результат все тотже

Учебник русского языка и логопеда надо, для начала.

типа подЕ ??? самый умный? я спросил совета, а не хамил тебе лично! так что свои эмоции выплескивай в другом месте!  Проблему решил и она всетаки не в остальном коде оказалась, а именно в цикле.

> а именно в цикле.

врешь ведь?)

нет, загрузка цп 98% - попробовал всего лишь задержку 0,1сек меж каждым оборотом циклов - время чтения не принципиально, загрузка цп сразу 12-15%
и ни разу после многих тестов не вылетела. Буду двигаться дальше.

тема закрыта.

Мне тоже помагла эта операция но через пол годика слетела прошивка. там есть какойто файл который не совместим с системо. я так понял типа вируса!

___________________
http://maxismart.ru/