Из чего делают просмотровщики картинок?

[mutabor]

а сейчас глянул пример, который с ней идёт (прекрасный, на делфях) - похоже, придётся иного изучать, и думать

Если нужно просто показывать картинки то не думаю что это сложно. Может в ней есть и другие функции, такие как поворот (Rotate) или обрезка (Crop), тогда многие вопросы снимаются.

Вот только с поворотом и обрезкой, "без потери качества"

Поворот растра без потери качества не бывает, можно сделать почти без потери качества, применив наилучший для этого алгоритм. Совсем без потерь он только при углах поворота 90, 180, 270.
А вот обрезка (без масштабирования) без потерь бывает. Самый простой способ (а моежт и единственный) это распаковать JPEG в несжатый растр, сделать обрезку и запаковать обратно имеющимся кодером. Если использовать тот же кодер или лучший, чем к-рым изначально паковали, и с теми же настройками, то кач-во не потеряется. Непосредственно JPEG в том виде как он есть обрезать нельзя, т.к. он сжатый, по любому надо перепаковывать.

[AnTe]

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

Если нужно просто показывать картинки то не думаю что это сложно.

ннууу....

входные данные - FlushCache, из меню, и Size, один из вариантов: 1:1, 1:2, 1:4, 1:8

рисует на Image.Picture.Bitmap

procedure TForm1.LoadJPG(FileName : string);
const
  sRead : array [Boolean] of String = ('JFILE_READ = ','JBUFF_READ = ');
var
  iWidth, iHeight, iNChannels : Integer;
  iStatus : Integer;
  pBuf : PByte;
  iIndex : Integer;
  bInCache : Boolean;
  R : TRect;
  sFunc : string;
begin
  try
    sFunc := 'Load JPEG';
    Screen.Cursor := crHourGlass;
    sFileName := FileName;
    sFunc := 'ijlInit()';
    iStatus := ijlInit(@jcprops);
    if iStatus < 0 then
      raise Exception.Create('Own: Error in IJL function.');
    sFunc := 'Load JPEG';
    Caption := sMainCaption + ' ('+FileName+')';
    bInCache := False;
    iIndex := 0;
    if CacheList.Count > 0 then
      bInCache := CacheList.Find(AnsiUpperCase(FileName),iIndex);
    if bInCache then
    begin
      jcprops.JPGBytes := PByte(CacheList.Objects[iIndex]);
      jcprops.JPGSizeBytes := 750000;
      sFunc := 'ijlRead(JBUFF_READPARAMS)';
      iStatus := ijlRead(@jcprops,IJL_JBUFF_READPARAMS);
    end
    else
    begin
      jcprops.JPGFile := PChar(FileName);
      sFunc := 'ijlRead(JFILE_READPARAMS)';
      iStatus := ijlRead(@jcprops,IJL_JFILE_READPARAMS);
    end;
    if iStatus < 0 then
      raise Exception.Create('Own: Error in IJL function.');
    sFunc := 'Load JPEG';
    iWidth := (jcprops.JPGWidth+iAdd) div iDiv;
    iHeight := (jcprops.JPGHeight+iAdd) div iDiv;
    //iNChannels := 3;
    iNChannels := jcprops.JPGChannels;
    with Image.Picture.Bitmap do
    begin
      Width := iWidth;
      Height := iHeight;
      if iNChannels = 4 then
        PixelFormat := pf32bit
      else
        PixelFormat := pf24bit;
    end;
    ClientWidth := iWidth;
    ClientHeight := iHeight+StatusBar.Height+ToolBar.Height;
    FillChar(DIB,SizeOf(DIB),0);
    GetObject(Image.Picture.Bitmap.Handle,SizeOf(DIB),@DIB);
    jcprops.DIBWidth := iWidth;
    jcprops.DIBHeight := -iHeight;
    jcprops.DIBChannels := iNChannels;
    if iNChannels = 4 then
      jcprops.DIBColor := IJL_RGBA_FPX
    else
      jcprops.DIBColor := IJL_BGR;
    jcprops.DIBPadBytes := ((((iWidth*iNChannels)+3) div 4)*4)-(iWidth*iNChannels);
    jcprops.DIBBytes := PByte(DIB.dsBm.bmBits);
    if (jcprops.JPGChannels = 3) then
      jcprops.JPGColor := IJL_YCBCR
    else if (jcprops.JPGChannels = 4) then
      jcprops.JPGColor := IJL_YCBCRA_FPX
    else if (jcprops.JPGChannels = 1) then
      jcprops.JPGColor := IJL_G
    else
    begin
      // This catches everything else, but no
      // color twist will be performed by the IJL.
      jcprops.DIBColor := TIJL_COLOR (IJL_OTHER);
      jcprops.JPGColor := TIJL_COLOR (IJL_OTHER);
    end;
    if bInCache then
    begin
      sFunc := 'ijlRead(JBUFF_xxx)';
      iStatus := ijlRead(@jcprops,Succ(iReadCommand));
    end
    else
    begin
      sFunc := 'ijlRead(JFILE_xxx)';
      iStatus := ijlRead(@jcprops,iReadCommand);
    end;
    if iStatus < 0 then
      raise Exception.Create('Own: Error in IJL function.');
    sFunc := 'Load JPEG';
    if jcprops.DIBColor = IJL_RGBA_FPX then
      RGBA2BGRA(jcprops.DIBBytes,iWidth,iHeight);
    R := ClientRect;
    //InvalidateRect(ClientHandle,Addr(R),False);
    Image.Repaint;
    //StatusBar.Repaint;
    //Update;
    if (not bInCache) and (jcprops.DIBColor <> IJL_RGBA_FPX) then
    begin
      pBuf := AllocMem(iWidth*iHeight*iNChannels);
      jcprops.JPGFile := nil;
      jcprops.JPGBytes := pBuf;
      jcprops.JPGSizeBytes := iWidth*iHeight*iNChannels;
      jcprops.JPGWidth := iWidth;
      jcprops.JPGHeight := iHeight;
      jcprops.jprops.JPGFile := nil;
      jcprops.jprops.state.hFile := nil;
      sFunc := 'ijlWrite(JBUFF)';
      iStatus := ijlWrite(@jcprops,IJL_JBUFF_WRITEWHOLEIMAGE);
      if iStatus < 0 then
        raise Exception.Create('Own: Error in IJL function.');
      ReallocMem(pBuf,jcprops.JPGSizeBytes);
      CacheList.AddObject(AnsiUpperCase(FileName),TObject(pBuf));
      if iCacheSize < 1000000 then
        Inc(iCacheSize,jcprops.JPGSizeBytes)
      else
      begin
        FreeMem(PByte(CacheList.Objects[0]));
        CacheList.Delete(0);
      end;
    end;
    ijlFree(@jcprops);
    Screen.Cursor := crDefault;
  except
    on E: Exception do
    begin
      (*
      Application.MessageBox(
        PChar(E.Message +
          #13'Status=' + getErrInfo(iStatus)),
        PChar(sFunc),
        MB_OK or MB_ICONERROR);
      *)
      ijlFree(@jcprops);
      Screen.Cursor := crDefault;
    end;
  end;
end;

[AnTe]

Может в ней есть и другие функции, такие как поворот (Rotate) или обрезка (Crop), тогда многие вопросы снимаются.

после того, как я увидел, что требуется только для вывода..

Поворот растра без потери качества не бывает, можно сделать почти без потери качества, применив наилучший для этого алгоритм. Совсем без потерь он только при углах поворота 90, 180, 270.

Угу, под поворотом я имел в виду именно эти углы.

А вот обрезка (без масштабирования) без потерь бывает. Самый простой способ (а моежт и единственный) это распаковать JPEG в несжатый растр, сделать обрезку и запаковать обратно имеющимся кодером. Если использовать тот же кодер или лучший, чем к-рым изначально паковали, и с теми же настройками, то кач-во не потеряется. Непосредственно JPEG в том виде как он есть обрезать нельзя, т.к. он сжатый, по любому надо перепаковывать.

там вроде что-то, если обрезка по краям кадров (или как в жпег это называется) будет без потери качества. Но... что-то мне подсказывает, что сложностей будет море.

Придётся пересохранять. По крайней мере на первый, длительный, вариант.