Re[2]: Загрузка рисунка в TImage
От: Callisto  
Дата: 23.01.03 05:54
Оценка:
Здравствуйте, 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
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.