__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
tlist = new TList();
TImage *pImg[]= {Image1,Image2,Image3,Image4,Image5,Image6};
}
---------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
int n = 0;
TSearchRec sr;
int iAttributes = 0;
if(LMDDirDlg1->Execute())
{
//폴더내의 jpg파일만 불러오기
String path = LMDDirDlg1->Path + "\\*.jpg";
if(FindFirst(path, faAnyFile, sr) == 0)
{
do
{
//불러온 파일을 리스트에 저장
(sr.Attr & iAttributes) == sr.Attr;
list = new List();
Image[n+1] = new TImage(this);
list->i = sr.Name;
tlist->Add(list);
//저장된 리스트의 파일을 이미지로 출력하기
list = (List*) tlist->Items[n];
pImg[n]->Picture->LoadFromFile(LMDDirDlg1->Path + "\\" + list->i);
n++;
}
while(FindNext(sr) == 0);
}
FindClose(sr);
}
//폴더 경로를 Edit에 표시
Edit1->Text = LMDDirDlg1->Path;
제가 이미지 리스트에 이미지를 다같이 출력할려고 하는데 보시다시피 코드는 위에 처럼 짜놔둔 상태에서 실행을 하면 실행은 정상적으로 되지만 폴더에 있는 이미지 파일을 가져올때 첨부파일과 같은 오류가 나오면서 이미지 출력이 되지 않습니다.
혼자서 여러방법으로 해보고는 있는데 해결이 되지않아요.
간략한 해결팁이라도 주시면 감사합니다.
|