Текущий архив: 2005.02.27;
Скачать: CL | DM;
Вниз
файл Найти похожие ветки
← →
Кирилл © (2005-02-13 15:55) [0]Уважаемые мастера! Помогите пожалуйста разобраться! Хочу чтобы картинка грузилась из файла, который не может быть просмотрен пользователем.
Вот код проги, создающей файл:procedure TForm1.Button1Click(Sender: TObject);
var
bmp: TBitMap;
f: file of TBitMap;
begin
OpenDialog1.Execute;
SaveDialog1.Execute;
bmp:=TBitMap.Create;
bmp.LoadFromFile(OpenDialog1.FileName);
AssignFile(f, SaveDialog1.FileName+".tex");
Rewrite(f);
Write(f, bmp);
closefile(f);
end;
А вот код проги, читающей файл:procedure TForm1.FormCreate(Sender: TObject);
var
bmp: TBitMap;
f: File of TBitMap;
begin
bmp:=TBitMap.Create;
AssignFile(f, "C:\New\tex1.tex");
Reset(f);
Read(f, BMP);
CloseFile(f);
Image1.Canvas.Draw(0,0,BMP);
end;
Выделенная строка вызывает динамическую ошибку. Никак не пойму, в чём тут дело?
← →
Kerk © (2005-02-13 15:59) [1]А хочешь угадаю сколько байт файл занимает? Четыре? :)
← →
begin...end © (2005-02-13 16:00) [2]> Кирилл © (13.02.05 15:55)
Проблема, по-видимому, в том, что в файле находится не изображение, как хотелось бы Вам, а указатель на экземпляр TBitmap. Посмотрите на размер используемого Вами файла - вероятно, его размер составляет 4 байта. Вряд ли изображение в формате BMP может занимать такой маленький объём, не правда ли? :-)
Используйте методы TBitmap.SaveToFile и TBitmap.LoadFromFile.
← →
panov © (2005-02-13 16:01) [3]Тема вопроса не оформлена.
Страницы: 1 вся ветка
Текущий архив: 2005.02.27;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.037 c
