Здравствуйте, Sergey Ten, Вы писали:
ST>Неработающий фрагмент кода в студию вместе с ответами на вопросы:
Да, собственно, весь код и состоит из одной строки.
Image.Picture.LoadFromFile('d:\img.bmp');
ST>- Не битый ли битмап? Открывается ли он нормально, скажем, в Paint-е?
Файл открывается любым граф.редактором.
ST>- Если создать тривиальный проект, бросив на форму TImage и TButton, прописав на OnClick TButton-у тот самый LoadFromFile — тоже валится? Это позволит выявить, виновата ли Delphi или же это твой рабочий проект чудит.
Как раз так и сделан проект (я пока только пробую).
ST>- Трассировался ли исходный код TBitmap-а (включался ли "Use debug DCU" на закладке "Compiler" проекта)? Если да, на каком месте он валится?
процедура из Graphics.pas (стр.5800)
procedure TBitmap.ReadDIB(Stream: TStream; ImageSize: LongWord);
const
...
var
...
begin
...
BMHandle := CreateDIBSection(DC, BitmapInfo^, DIB_RGB_COLORS, BitsMem, 0, 0);
...
end;
Дальше не смотрел — там ассемблерный код.
ST>- Что означает "Я уже и потоками пробовал"? Как это выглядело?
FileStream.Create(MyFileName);
Image.Picture.BitMap.LoadFromStream(FileStream);
ST>- Какие еще меры принимались по нахождению причины?
Все. А больше просто не знаю куда копать...
ST>http://rsdn.ru/howtoask.htm