Аналог StretchBlt

[darkwellroad]

Привет всем. Вот интересуюсь, есть ли в природе функции для изменения размера изображения, реализованных не через WinAPI. Изображения представляют собой черные и белые пиксели. Нужно, чтобы при растягивании/сужении пиксели округлялись до черного и белого. Говорить что не нужно изобретать колесо и т.п. не надо. Просто хочу спросить знающих людей. Заранее спасибо

[min@y™]

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

[darkwellroad]

Сообщение от min@y™

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

Ну, что и думал услышать.. Дело в том, что при использовании StretchBlt после некоторого времени работы программы получаю ошибку о переполнении Header'ами. Как не пытался использовать ReleaseDC, как рекомендовали на форумах - ошибка продолжает лезть. А функция нужна, т.к. почти все изображения в приложении хранятся в массивах. Вот думал написать функцию изменения размера массива из 0 и 1, но решил спросить, может таковые есть. Почти всю работу закончил. Успешно распознаю 90% изображений, но эта ошибка не решилась. Если ты знаешь - направь просто в нужную сторону. Я не совсем толковый программист, но все когда-то учатся

[vlad1389]

Дело в том, что при использовании StretchBlt после некоторого времени работы программы получаю ошибку о переполнении Header'ами. Как не пытался использовать ReleaseDC, как рекомендовали на форумах - ошибка продолжает лезть

Выкинь кусок кода на форум, вдруг кто найдёт ошибку

[TaLadno]

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

Дело в том, что при использовании StretchBlt после некоторого времени работы программы получаю ошибку о переполнении Header'ами. Как не пытался использовать ReleaseDC, как рекомендовали на форумах - ошибка продолжает лезть.

Код покажешь?

[darkwellroad]

JPEG.LoadFromStream(MemStream);
PNG := Tpngimage.CreateBlank(COLOR_RGB, 8, JPEG.Width, JPEG.Height);
PNG.Canvas.Draw(0, 0, JPEG);
ToBlackWhiteImage(PNG, 220);
GetLetters(PNG, Letters, 32);
CombineLetters(Letters, 40, 5);
DeleteLittleRegions(5, Letters);
for I := 0 to Length(Letters) - 1 do
  begin
    StretchBlt(LetterBitmap.Canvas.Handle, 0, 0, LetterBitmap.Width, LetterBitmap.Height, PNG.Canvas.Handle, Letters[I].MinX, Letters[I].MinY, Abs(Letters[I].MaxX - Letters[I].MinX), Abs(Letters[I].MaxY - Letters[I].MinY), SRCCOPY);
    answer := answer + CompareWithBase(CaptchaBase, LetterBitmap);
  end;

Все что до цикла - преподготовка и сегментация. Там все отлажено. Просто StretchBlt комментировал и запускал прогу без этой функции. Работало все на ура. Все освобождаю через FreeAndNil. Проверял через ReportMemoryLeaksOnShutdown := true; Letters - массив, содержащий координаты и вес

[vlad1389]

CompareWithBase что это?

[darkwellroad]

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

CompareWithBase что это?

Сравнение изображения, кусок которого мы обрезали с массивом. Сравнение сходства и вычисление наиболее схожей записи. Массив - 0-255 из 0 и 1

function CompareWithBase(const CaptchaBase: TCaptchaBase; const IntroLetter: TBitMap): String;
var
  I, I2: Byte;
//-------//
begin
  for I := 0 to Length(CaptchaBase) - 1 do
    begin
      Current := 0;
      for I2 := 0 to Length(CaptchaBase[I]) - 1 do
        if IntroLetter.Canvas.Pixels[I2 mod 16, I2 div 16] = clBlack then
          begin
            //-------//
          end
        else
          begin
            //-------//
          end;
      //-------//
    end;
  Result := ''; //-------//
end;

Работа с изображением - это только получение цвета пикселя. В //-------// чисто математические действия, сравнение массивом нейрона. Там ошибок тоже нет

[darkwellroad]

StretchBlt выполняется в программе около 10к раз и после этого получаю http://programmersforum.ru/showthread.php?t=289008

[vlad1389]

Там ошибок тоже нет

Если ты так уверен, что ошибок ни где нет, то как ты объяснишь ошибку, из за которой создал этот топик? Сама по себе появилась? Ошибка в твоём коде. В том, что ты предоставил, я ошибок не вижу. Значит ошибка в том коде, который ты не предоставил.