JPEG Error #53

[sklazer]

Эта ошибка появляется при загрузке изображения с жесткого диска.
Ошибка возникает из-за того, что программа скачивает файл вида

http://site/image.gif

и сохраняет его под именем

C:\image.jpg

Искал способы решения, и нашел способ с потоками, только вот его не понял.
Подскажите пожалуйста способ, как решить эту проблему.

[Titan123]

попробуйте добавить модуль jpeg в uses
а вообще delphi очень скандально работает с этим форматом. я всегда пользуюсь bmp картинками

[Stilet]

просто sklazer

Как загружаем? Код в студию.

[А. Долматов]

procedure TForm1.proverka(a,put:string;d:TImage);
var result:byte;
begin
{$R-}
if a='jpg' then
begin
d.Picture.LoadFromFile(put);
end
else
begin
try
d.Picture.LoadFromFile(put);
Except
on EReadError do  result:=1;
end;
if result=1 then MessageDlg('неколрректный формат файла!',mtError,mbOKCancel,mrOk);
end;
{$R+}
end;[

процедуру делал на случай, если файл создан простым присвоением расширения .jpg или .bmp Замени здесь параметр d и все должно работать. Подключенные модули: jpeg

[BOBAH13]

Почему нельзя так сделать ? ( писал прямо тут, так что за 100% корректность не отвечаю ) ну думаю смысл ясен...

uses jpeg;

const
  // ну на фанарь взял, можете так перебрать все форматы...
  fmtJpeg = 1;
  fmtBmp = 2;

function ImageIsLoaded(FileName: String; Format: Byte; var Image: TGraphic);
var 
  f: TFileStream;
begin
  f := TFileStream.Create(FileName, fmOpenRead);
  try
    if (Image <> NIL) then
    begin
      Image.Free;
      Image := NIL;
    end;

    case Format of
      fmtJpeg:
      begin
        Image := TJpegImage.Create;
        Image.LoadFromStream(f);
      end;
      
      fmtBmp:
      begin
        Image := TBitMap.Create;
        Image.LoadFromStream(f);
      end;

      else
        MessageBox(0, 'Неподдерживаемый формат файла!', 'Error', MB_ICONERROR);
    end;
  finalize
    f.free;
  end;
end;

[sklazer]

BOBAH13,
мне твой код больше понравился. тут несколько ошибок - если можно - исправь.

[Error] Unit1.pas(75): Function needs result type
[Error] Unit1.pas(104): '(' expected but identifier 'f' found
[Error] Unit1.pas(105): EXCEPT or FINALLY expected
[Fatal Error] Project1.dpr(9): Could not compile used unit 'Unit1.pas'