TJPEG

[WOLFak]

Вот пытаюсь загружать JPEG в Buf
загружаю все нормально... потом делаю еще раз тоже самое этой же процедурой и тут ошибку выдает
я плохо знаю как с этим JPEG работать так что не судите строго))

var
  Bmp:TBitMap;
  Patch:String;
  Buf:TJPEGImage;

.....


procedure OpenPhoto;
var
 S:String;
begin
 form1.LabeledEdit1.Enabled:=True;
 form1.LabeledEdit2.Enabled:=True;
 if form1.OpenPictureDialog1.Execute then
  begin
   Patch:=form1.OpenPictureDialog1.FileName;
   if copy(Patch,length(Patch)-2,3)<>'bmp' then
    begin
     Buf.LoadFromFile(Patch); // вот тут вроде бы
     Bmp.Assign(Buf);
     Buf.Free;
    end else
    Bmp.LoadFromFile(Patch);
    Original.Width:=Bmp.Width;
    Original.Height:=Bmp.Height;
    S:=form1.Label1.Caption;
    delete(S,18,length(S));
    S:=S+IntToStr(Original.Width)+'x'
     +IntToStr(Original.Height);
    form1.Label1.Caption:=s;
    EditPhoto;
  end;
end;

[alexBlack]

Buf.Free; вижу, а где создается ?
Почему бы не сделать переменную buf локальной ?

[WOLFak]

создается в при создании формы .. ща попробую
клас спасибо помогло
и еще вопрос вот я где то подцепил этот для картинок .Free а зачем он нужен так и не понимаю

[WOLFak]

и еще вопрос
как перевести пиксели картинки в мм?

[alexBlack]

Не понял что куда перевести.
Вы про это:

DPI:TPoint;
DPI.X := Windows.GetDeviceCaps(Canvas.Handle , LOGPIXELSX);
DPI.Y := Windows.GetDeviceCaps(Canvas.Handle , LOGPIXELSY);

<inPixel> = <mm> * DPI.X / 25,4;
<mm> = <inPixel> / DPI.X * 25,4;

[WOLFak]

я имел ввиду 1 пиксель картинки(картинка из файла, не на экране) равен на бумаге 1 мм?

[alexBlack]

Сообщение от WOLFak

я имел ввиду 1 пиксель картинки(картинка из файла, не на экране) равен на бумаге 1 мм?

нет, не равен.
У рисунка (JPEG) есть свойство DPI (Например 314 точек/на дюйм).
Вот, используя это значение и пересчитываем пиксели в дюймы/мм.

[WOLFak]

с bmp тоже самое?
дюйм - сколько это мм?

[alexBlack]

Сообщение от WOLFak

с bmp тоже самое?
дюйм - сколько это мм?

Насколько я знаю, в bitMap DPI не хранится. Остается только размер рисунка в пикселах.

Дюйм ~25.4 мм

Что Вы собираетесь сделать ? Зачем нужен этот перевод ? Рисунок ведь легко масштабируется под любой размер.

[WOLFak]

ну вообщем я наверное зашел в дремучий лес
я хочу обрезать по кроям картинку чтобы вывести потом на бумагу 1 к 1 тоесть к томуже размеру что вижу на экране