access violation TImage

[kuldiegor]

Всем доброго времени суток! Обнаружил проблему, связанную с загрузкой изображения в TImage.

Если загружать изображения с хард диска очень быстро, то как будто TImage не поспевает и вываливает access violation. Delphi xe7 Fire Monkey 64 bit Windows.

val:=round(360*value/max); //узнаём какова часть байт в градусах 
improgressbar.Bitmap.LoadFromFile(ExtractFilePath(paramstr(0))+'Pictures\ProgressBar\'+inttostr(val)+'.png');  
labprogressbar.Text:=strtool.intbytetostr(value,1)+'Б'+#$D#$A+'/'+#$D#$A+strtool.intbytetostr(max,1)+'Б';
Application.ProcessMessages; 

[Brovin Yaroslav]

Зачем здесь Application.ProcessMessages?

[Alexander]

Brovin Yaroslav, могу только догадываться...

Видимо там цикл по Value до max, поэтому чтоб надпись выводилась во время работы цикла. 

Этот отрывок кода не даёт представления где возникает ошибка.

kuldiegor, отладчиком проходили код? в какой строке ошибка?

[kuldiegor]

uldiegor, отладчиком проходили код? в какой строке ошибка?

 

Да, ошибка в модуле FMX.Canvas.D2D. строка 2342 

В общем история такая отправляю файл через idhttp1 в событии OnIdHTTP1Work делаю прогрессбар сделанный из своих картинок. Всего 361 картинка (0-360) формата PNG. Провел небольшое тестирование в цикле ошибок нет, а вот с  idhttp1 вываливает. Похоже на то что bitmap не поспевает за idhttp1. Подскажите в чем может проблема и как её решить.

P.S. На VCL работает отлично.

P.S.S. 

 

 

Зачем здесь Application.ProcessMessages?

Что бы прога не подвисала. 

[kami]

OnIdHTTP1Work случайно не в отдельном потоке работает?

Откажитесь от Indy, переходите на System.Net.*.pas

[umkes]

А с инди сейчас все так плохо?

[kuldiegor]

OnIdHTTP1Work случайно не в отдельном потоке работает?

Откажитесь от Indy, переходите на System.Net.*.pas

Точно сказать не могу, в общем, лежит на form1 idhttp компонент, а картинки грузятся на другой форме (form2)

P.S. У меня тоже такие подозрения были, возможно, без Synchronize вызывается событие

Изменено 17 февраля, 2016 пользователем kuldiegor

[AngryOwl]

Попробуйте сделать просто:

improgressbar.Bitmap.Canvas.BeginScene;
try
  improgressbar.Bitmap.LoadFromFile(........................
finally
  improgressbar.Bitmap.Canvas.EndScene;
end;

[kami]

А с инди сейчас все так плохо?

Пардон, а когда с ними было хорошо?

до 10 версии - постоянные проблемы с версиями OpenSSL.

В отличие от других компонентов влезть в код Indy, покопаться чтобы понять где возникает глюк - практически нереально, слишком много всего наворочено.

Да и взять самое простое - на кой idHTTP (который клиент) возбуждает исключение на коды 400-599 вместо того, чтобы просто отдать HTTPStatusCode  в ответе? В результате приходится городить многоэтажные конструкции try-except, что явно не способствует читабельности уже собственного кода.

Единственный плюс (который значим для меня, т.е. читать как имхо) у http-компонентов Indy - более-менее нормальная работа с multipart-form-data. В System.Net.Mime это немного недоработано, пришлось делать собственную надстройку.

 

P.S. на RadStudio Seattle Tour в СПб неофициально рекомендовали не использовать Indy, а действовать через System.Net.HttpClient

Изменено 18 февраля, 2016 пользователем kami

[kuldiegor]

 

Попробуйте сделать просто:

improgressbar.Bitmap.Canvas.BeginScene;
try
  improgressbar.Bitmap.LoadFromFile(........................
finally
  improgressbar.Bitmap.Canvas.EndScene;
end;

Огромное спасибо! Только вот теперь выяснилось что глючит в довесок TLabel. Но это удалось решить костылём sleep(10);

И еще такой вопрос: как убрать мерцание?

Изменено 18 февраля, 2016 пользователем kuldiegor

[AngryOwl]

 

 

Попробуйте сделать просто:

improgressbar.Bitmap.Canvas.BeginScene;
try
  improgressbar.Bitmap.LoadFromFile(........................
finally
  improgressbar.Bitmap.Canvas.EndScene;
end;

Огромное спасибо! Только вот теперь выяснилось что глючит в довесок TLabel. Но это удалось решить костылём sleep(10);

И еще такой вопрос: как убрать мерцание?

 

С TLabel ситуация точно та же.

Сначала BeginUpdate, потом EndUpdate.

А если проблема не в этом - тогда все (вывод в GUI) загнать в

TThread.Syncronize(TThread.CurrentThread, procedure
begin
 .................
end);

С мерцанием - не понял, что именно и когда мерцает?

[kuldiegor]

 

 

 

Попробуйте сделать просто:

improgressbar.Bitmap.Canvas.BeginScene;
try
  improgressbar.Bitmap.LoadFromFile(........................
finally
  improgressbar.Bitmap.Canvas.EndScene;
end;

Огромное спасибо! Только вот теперь выяснилось что глючит в довесок TLabel. Но это удалось решить костылём sleep(10);

И еще такой вопрос: как убрать мерцание?

 

С TLabel ситуация точно та же.

Сначала BeginUpdate, потом EndUpdate.

А если проблема не в этом - тогда все (вывод в GUI) загнать в

TThread.Syncronize(TThread.CurrentThread, procedure
begin
 .................
end);

С мерцанием - не понял, что именно и когда мерцает?

 

Огромнейшие спасибо! Всё работает и мерцание исчезло.