Проблема с жпег в имэйдже.

← →
Cr@sh (2002-09-21 09:07) [0]

Мастера, помогите.
Я делаю так:
procedure TForm1.ElPopupButton1Click(Sender: TObject);
begin
image1.Picture.loadfromfile("1.jpg");
end;
Почему он мне выдает ошибку о неправильном формате файла?
Может жпеги по другому грузятся?
Заранее спасибо.

← →
AlexT1000 (2002-09-21 13:37) [1]

этот код срабатывает не для всех jpegoв . не знаю почему!

но мы побороли это так

if (AnsiLowerCase(ExtractFileExt(Filename)) = ".jpg" )
or (AnsiLowerCase(ExtractFileExt(Filename)) = ".jpeg" ) then begin
jp := TJpegImage.Create;
try
jp.LoadFromFile(FileName);
Image.Picture.Assign(jp);
finally
jp.Free;
end;
end;

что то вроде этого

← →
Cr@sh (2002-09-21 13:53) [2]

Такие-то приколы я и сам знаю... Другое дело, мне надо без создания доп. джепег-имэйджев :(

← →
PaRL (2002-09-21 14:54) [3]

Модуль JPEG добавил?

← →
Cr@sh (2002-09-21 15:29) [4]

2PaRL
Я вобще-то не совсем ламер:)
Мне просто надо без создания доп. джепег-имэйджев.

Проблема с жпег в имэйдже. Найти похожие ветки