DLL Перестает работать функция

[IvaniuS]

Создавал тему :
http://programmersforum.ru/showthread.php?t=284453
В итоге сам решил все свои вопросы, видимо никто с этим не сталкивался.
Длл дописана и работает, но переодически при частых вызовах, тащит изображение старое из памяти, а не то которое я ему даю подгружать.
Вродебы все локально обрабатывается и все внутри длл и достаточно быстро, но проблема есть.
Вот код ее:

//Распаковка DXT1 текстуры в BMP
procedure DecodeDXT (const Texture:TGETexture; var Buf:TMemoryStream; ctype:byte);
var
    i,j,k,n : integer;
        pix : byte;
      Color : array [0..3] of TRGB;
begin
  Buf.SetSize(BMP_FILE_SIZE);
  Buf.Position:=0;
  Buf.Write(BMP_HEAD, Length(BMP_HEAD));                                        //пишем заголовок BMP
  for i := 0 to length(Texture.DXT1)-1 do
  for j := 0 to length(Texture.DXT1[0])-1 do
  begin
    GetColors(Texture.DXT1[i,j].Color0, Texture.DXT1[i,j].Color1, Color);       //определяем опорные цвета для блока
    pix:=0;
    for k := 0 to 3 do
    for n := 0 to 3 do
    begin
      case ctype of
        0:begin
          if j>=12 then Buf.Position:=54+((4*i+k)*256+4*(j-12)+n)*3 else
          if i>=1 then Buf.Position:=54+((4*(i-1)+k)*256+4*(j+52)+n)*3
          else Buf.Position:=54+((4*(i+63)+k)*256+4*(j)+n)*3;
        end;
        else Buf.Position:=54+((4*i+k)*256+4*j+n)*3;
      end;
     Buf.Write(Color[GetColorID(Texture.DXT1[i,j].BitMask, pix)], 3);           //для каждого пикселя из блока, записываем его реальный цвет
     inc(pix);
    end;
  end;
end;

procedure DecodeDDS (const tex: PWIDECHAR; cType:byte);stdcall;
var
  Buf:TMemoryStream;
  fWidth, fHeight:integer;
  img:TBitmap;
  Texture:TMemoryStream;
  //PosCaptcha:TPoint;
begin
   if not FileExists(tex) then exit;
   Texture:=TMemoryStream.Create;
   Buf:=TMemoryStream.Create;
  try
    Texture.LoadFromFile(tex);
    Texture.Seek($0C,soFromBeginning);
    Texture.Read(fHeight,4);
    Texture.Read(fWidth,4);
    Texture.Position:=0;
    DecodeDXT(TGETexture(Texture.Memory^),Buf,cType);
    Texture.Clear;
    Texture.Position:=0;
    Buf.Position:=0;
    Texture.LoadFromStream(Buf);
    Texture.Position:=0;
    img := TBitmap.Create;
    try
      img.LoadFromStream(Texture);
      flip(img.Handle,false,true);
      img.Width:=fWidth;
      img.Height:=fHeight;
      img.SaveToFile(ChangeFileExt(tex,'.bmp'));
    finally
      img.Free;
    end;
  finally
   Buf.Free;
   Texture.Free;
  end;
end;

function EncodeDDS2BMP (const tex: PWIDECHAR; cType:integer):boolean;stdcall;
var
  Buf:TMemoryStream;
  fWidth, fHeight:integer;
  img:TBitmap;
  JPEG: TJPEGImage;
  Texture:TMemoryStream;
begin
  result:=false;
   if not FileExists(tex) then exit;
   Texture:=TMemoryStream.Create;
   Buf:=TMemoryStream.Create;
  try
    Texture.LoadFromFile(tex);
    Texture.Seek($0C,soFromBeginning);
    Texture.Read(fHeight,4);
    Texture.Read(fWidth,4);
    Texture.Position:=0;
    DecodeDXT(TGETexture(Texture.Memory^),Buf,0);
    Texture.Clear;
    Texture.Position:=0;
    Buf.Position:=0;
    Texture.LoadFromStream(Buf);
    Texture.Position:=0;
    img := TBitmap.Create;
    try
      img.LoadFromStream(Texture);
        flip(img.Handle,false,true);
        img.Width:=fWidth;
        img.Height:=fHeight;
        img.SaveToFile(ChangeFileExt(tex,'.bmp'));
        result:=true;
    finally
      img.Free;
    end;
  finally
   Buf.Free;
   Texture.Free;
  end;
end;

А возможно я вообще зря заморачиваюсь и вы меня ткнете носом на уже готовую подобную библиотеку еще и использующую ресурсы видеокарты

[ResourceSpace]

Видеокарты же должны сами уметь читать DDS, не?

Перестает работать функция

Судя по описанию не перестаёт, а не просто не всегда делает то что вы ожидали.
А зачем там вообще загрузка/сохранение через файлы? Какова цель?

[IvaniuS]

Да именно, перестает "правильно" работать функция
Работы с файлами нету по сути, только считывание DDS и сохранение в JPEG\BMP.
Хороших библиотек я не нашел к сожалению, рабочих, сейчас разбираюсь с последним вариантом это https://code.google.com/p/libsquish/

[Пепел Феникса]

вы бы проверили на чем функция фейлится, может там закономерно все?

[IvaniuS]

А подпись у вас хорошааа...
Я уже дебажил как мог даже приложение отдельное написал для этого, проблема может быть только в двух местах или в подгрузке:
Texture.LoadFromFile(tex);
Что маловероятно ну не может он тут старое изображение подгружать.
А вот в памяти почему-то хранятся последние 2-4 Изображений
И он почему-то обрабатывает не мое, а предыдущее, почему пока не смог разобраться, есть вариант сделать динамическую подгрузку длл чтобы она освобождала ресурсы, возможно тогда не будет проблем, но постоянно ее подгружать по моему - плохой тон.