Ошибка при загрузке BMP

[DarkHacker]

Сообщение от Аватар

bmp2.free и FindClose(sRec) наиболее вероятный источник ошибки в приведенном коде.Ога, и все ошибки с просторов. Думаешь кто-то тщательно отлаживается выкладывая в этот самый простор чего-то

Хорошо. Тогда если вдруг у вас есть отложенный вариант такой функции, помогите пожалуйста. Все что мне нужно это поиск файлов во всех директориях с поддиректориями в указанном пути.

с фрии проверял, с файндклоус нет.

[min@y™]

Все что мне нужно это поиск файлов во всех директориях с поддиректориями в указанном пути.

этого добра у нас - вагон!
в архиве - модуль dwFiles.pas, в модуле процедура:

procedure dwListFilesRecursive(const APath, AMask: String; AShowPath: Boolean; AList: TStrings);

и ещё куча функций разной степени ненужности.

[DarkHacker]

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

этого добра у нас - вагон!
в архиве - модуль dwFiles.pas, в модуле процедура:

procedure dwListFilesRecursive(const APath, AMask: String; AShowPath: Boolean; AList: TStrings);

и ещё куча функций разной степени ненужности.

На скорую руку переделал под себя:

function dwListFilesRecursive_2(bmp:TBitmap; const APath, AMask: String):string;
var
  SR: TSearchRec;
  slDir: TStringList;
  IsFound: Boolean;
  I: integer;
  SPath: String;
  //fSize: DWORD;
  bmp2:TBitmap;
begin

bmp2:=TBitmap.Create();
SPath:= IncludeTrailingPathDelimiter(APath);
   IsFound:= (FindFirst(SPath + AMask, faAnyFile - faDirectory, SR) = 0);

   // добавлено сохранение размера найденного файла, © min@y™ - 21.04.2015
   while IsFound do
     begin

        bmp2.LoadFromFile(SPath +'\'+ sR.Name);
        cut_blank(bmp2);

         	if(simple_search_img(bmp,bmp2)>=1) then
						begin
                if(length(GetLastDir(ExcludeTrailingPathDelimiter(SPath)))<2) then
                  begin
                  Result:=GetLastDir(ExcludeTrailingPathDelimiter(SPath));
                  break;
                end;
					  end;

       IsFound := FindNext(SR) = 0;
     end; // while

   FindClose(SR);
   slDir := TStringList.Create;
   IsFound := FindFirst(SPath + '*.*', faAnyFile, SR) = 0;
   while IsFound do begin
      if ((SR.Attr and faDirectory) <> 0) and (SR.Name[1] <> '.') then
      begin
    			slDir.Add(SPath + SR.Name);
           
      end;
      IsFound := FindNext(SR) = 0;
   end;
   FindClose(SR);
   for I:= 0 to slDir.Count - 1 do begin
      result:=dwListFilesRecursive_2(bmp,slDir[I], AMask);
   end;
   slDir.Free;
   bmp2.free;
   //AList.EndUpdate;
end;

Результат такой же: работает кое какое время.

[min@y™]

На скорую руку переделал под себя:

не надо так!
не переделывай, иначе не найдёшь ошибку. юзай оригинал dwListFilesRecursive().

[DarkHacker]

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

не надо так!
не переделывай, иначе не найдёшь ошибку. юзай оригинал dwListFilesRecursive().

И так, оформил след вариантом. чтоб 100% увериться в траблах загрузки. Ваш алгоритм ищет и сохраняет список.
Потом мой только сравнивает по подготовленному списку и не ищет сам, только сравнивает.

И опять через какое-то время ошибки полезли, проверил, список корректный.

Проверяю так:

function make_simple_check_1(bmp:TBitmap;AList:TStrings):string;
var
i:integer;
bmp2:TBitmap;
begin

bmp2:=TBitmap.Create();

for i:=0 to AList.Count-1 do
begin

        bmp2.LoadFromFile(AList[i]);
        //cut_blank(bmp2);

         	if(simple_search_img(bmp,bmp2)=1) then
						begin
                  result:=GetLastDir(ExtractFileDir(AList[i]));
                  break;
                end;
            end;
            bmp2.Free;
end;

[min@y™]

simple_search_img() показывай.

[DarkHacker]

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

simple_search_img() показывай.

А зачем?) Закоментил проверку, оставив только загрузку, ошибка есть..

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

[min@y™]

оставив только загрузку, ошибка есть..

загрузка падает на одном и том же файле или на разных?

[DarkHacker]

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

загрузка падает на одном и том же файле или на разных?

на разных файлах

притом если я потом отдельно загружаю тот файл на котором ошибку словил - все ок

[min@y™]

ты меня устал, я иссяк.
а что, вообще, за задача? может переформулировать её?