FindFirstでリソース不足に陥る (ID:39218)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 igyさん sr : TSearchRec; です。投稿時タイプミスでした。 >FileAttrs には値が設定されていませんが、正しく動作しますか？ 省略しすぎました。下記のとおりです。 処理の内容は、jpg画像とExif情報を取り込みをしています。 これらの機能をしないようにしてもおきるので、FindFirstが原因ではないかと考えています。 >FindClose 関数の位置を FindClose(sr);の位置は、Webでいろいろな意見がありました どちらでも同じ症状です。 var sr : TSearchRec; FileAttrs : Integer; begin ： FileAttrs := faAnyFile; P := EditFolderShitei.Text + '\*.jpg'; if FindFirst(P, FileAttrs, sr) = 0 then begin repeat : until FindNext(sr) <> 0; end; //if FindClose(sr); ----ソース------- //--- フォルダからJpegファイルを読んでテーブルに保存 （共通ルーチン） procedure TFormImageViewer.ShashinYomidashi; var sr : TSearchRec; FileAttrs : Integer; i : Integer; begin with DataModule1 do begin StatusBar1.Panels[1].Text := '0枚'; Screen.Cursor := crHourGlass; // 絞り込みダイアログボックスの初期化 with ShiborikomiDlg do begin ListBoxCamera.Items.Clear; ListBoxGasosuu.Items.Clear; MaskEditSatsueibiStart.Text := DateToStr(Date); MaskEditSatsueibiEnd.Text := ''; end; ShashinTable.Filtered := False; if ShashinTable.RecordCount > 0 then begin ShashinTable.Active := False; ShashinTable.EmptyTable; ShashinTable.Active := True; end; //画像をテーブルに登録 DCount := 1; FileAttrs := faAnyFile; P := EditFolderShitei.Text + '\*.jpg'; if FindFirst(P, FileAttrs, sr) = 0 then begin repeat if not ((sr.Name = '..')or(sr.Name = '.')) then begin // DBに追加する ShashinTable.Append; ShashinTableNo.Value := DCount; ShashinTableFileName.Value := sr.Name; ShashinTableSatsueibi.Value := ''; ShashinTableSatsueiJikan.Value := ''; ShashinTableSentaku.Value := False; P := EditFolderShitei.Text + '\' + sr.Name; ShashinTablePath.Value := P; // --- イメージの縮小 240*160 240*180 にする JpegImg.LoadFromFile(P); Shashin.Assign(JpegImg); if Shashin.Width > Shashin.Height then begin if Shashin.Width / Shashin.Height > 1.4 then HSize := 160 else HSize := 180; if Shashin.Width > 240 then Shashin := Stretch(Shashin, 240, HSize) //Shrink end else begin if Shashin.Height / Shashin.Width > 1.4 then WSize := 120 else WSize := 135; if Shashin.Height > 180 then Shashin := Stretch(Shashin, WSize, 180) //Shrink end; //if // Exif情報があるかどうか,あれば写真情報を書き込み,なければーを書き込む // モデル、撮影日、撮影時間、画素数 try ExifInfo1.ImageFileName := P; with ExifInfo1 do begin if IsExif(ImageFileName) = True then begin if Model <> '' then ModelMake := Model + ' <' + Make + '>'; ShashinTableModal.Value := ModelMake; S := Copy(DateTimeOriginalText, 1, 4) + '/' + Copy(DateTimeOriginalText, 6, 2) + '/' + Copy(DateTimeOriginalText, 9, 2); ShashinTableSatsueibi.Value := S; Satsueibi := FormatDateTime('yyyy/mm/dd', StrToDate(S)); ShashinTableSatsueiJikan.Value := Copy(DateTimeOriginalText, 12, 8); Gasosuu := IntToStr(ImageWidth) + ' × ' + IntToStr(ImageLength); ShashinTableGasosuu.Value := Gasosuu; // 回転角の取得 case ExifInfo1.Orientation of eoBottomRight : Kaitenkaku := '180度回転'; eoRightTop : Kaitenkaku := '270度回転'; eoLeftBottom : Kaitenkaku := '90度回転'; else Kaitenkaku := ''; end; ShashinTableKaitenKaku.Value := Kaitenkaku; end; end; except GetFileInfo; ShashinTableSatsueibi.Value := FormatDateTime('yyyy/mm/dd',ADateTime); ShashinTableSatsueiJikan.Value := FormatDateTime('hh:nn:ss',ADateTime); ShashinTableModal.Value := '-'; ShashinTableGasosuu.Value := IntToStr(JpegImg.Width) + ' × ' + IntToStr(JpegImg.Height); end; //try // テーブルに縮小Bitmapを書き込む ShashinTableShashin.Assign(Shashin); // 絞り込みリスト作成 撮影日、カメラの機種 画素数 with ShiborikomiDlg do begin if MaskEditSatsueibiStart.Text > Satsueibi then MaskEditSatsueibiStart.Text := Satsueibi; if MaskEditSatsueibiEnd.Text < Satsueibi then MaskEditSatsueibiEnd.Text := Satsueibi; // カメラのモデルをリストに登録済みかどうか見て追加する i := 1; while (i <= ListBoxCamera.Items.Count)and(ModelMake <> ListBoxCamera.Items[i - 1]) do Inc(i); if (i > ListBoxCamera.Items.Count)and(Length(ModelMake) > 5) then ListBoxCamera.Items.Add(ShashinTableModal.Value); // 画素数をリストに登録済みかどうか見て追加する i := 1; while (i <= ListBoxGasosuu.Items.Count)and(Gasosuu <> ListBoxGasosuu.Items[i - 1]) do Inc(i); if (i > ListBoxGasosuu.Items.Count)and(Length(Gasosuu) > 5) then ListBoxGasosuu.Items.Add(ShashinTableGasosuu.Value); end; ShashinTable.Post; Inc(DCount); end; //if not until FindNext(sr) <> 0; end; //if FindClose(sr); ShashinTable.First; StatusBar1.Panels[1].Text := FormatFloat('#,##0枚', DCount - 1); Screen.Cursor := crDefault; end; end;