Форум: "Начинающим";
Текущий архив: 2007.04.08;
Скачать: [xml.tar.bz2];
ВнизTImage - невозможна загрузка ...?? Найти похожие ветки
← →
Boker (2007-03-17 10:55) [0]Привет всем. Значит, когда я хочу подгрузить картинку типа JPEG в режими Run-time, TImage не хочет, пишет что файла не существует и более того я так понял , что он только bmp файлы в режими run -time подгружает. Вообщем не могли бы подсказать, что нужно сделать , чтобы JPEG загрузить и показать на форме. Заранее спасибо.
← →
-=Le][=- © (2007-03-17 13:15) [1]Попробуй TJPEGImage.
← →
Wind © (2007-03-17 13:56) [2]Выдрано прям из хелпа:
procedure TForm1.Button1Click(Sender: TObject);
var
jp: TJPEGImage; //Requires the "jpeg" unit added to "uses" clause.
begin
jp := TJPEGImage.Create;
try
with jp do
begin
Assign(Image1.Picture.Bitmap);
SaveToFile("c:\oneeye.jpg")
end;
finally
jp.Free;
end;
end;
← →
Wind © (2007-03-17 14:10) [3]Вернее в твоем случае наоборот
procedure TForm1.Button1Click(Sender: TObject);
var
jp: TJPEGImage; //Äîáàâü "jpeg" unit â "uses" .
begin
jp := TJPEGImage.Create;
try
with jp do
begin
LoadFromFile("c:\oneeye.jpg");
Image1.Picture.Bitmap.Assign(jp);
end;
finally
jp.Free;
end;
end;
← →
Boker (2007-03-17 14:15) [4]procedure TForm1.Button1Click(Sender: TObject);
var
jp: TJPEGImage; //Äîáàâü "jpeg" unit â "uses" .
begin
jp := TJPEGImage.Create;
try
with jp do
begin
LoadFromFile("c:\oneeye.jpg");
Image1.Picture.Bitmap.Assign(jp); ---Вот на этой сточке дает ошибку
end;
finally
jp.Free;
end;
end;
← →
Leonid Troyanovsky © (2007-03-17 15:17) [5]
> Boker (17.03.07 14:15) [4]
> Image1.Picture.Bitmap.Assign(jp); ---Вот на этой сточке
А создавать битмап будет Пушкин?
--
Regards, LVT.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.04.08;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.045 c