문영철 께서 말씀하시기를...

> 탐색기를 API 호출 후 거기서 선택된 화일의 화일명 및 패스를

> DB에 저장하고 싶습니다. 방법좀 가르쳐 주세요.



이건 이런 방법으로 하면 되겠군요...^^

제가 어떤 도움말을 보고 작성한 것인데 풀소스를 보여드리죠..

그럼 분석해 보세요...^^

(1) 이건 폼이 생성될때 (2)에서 호출한 프로시져로서 안에 있는 데이터(파일)을 찾는 것이죠...)

procedure TfrmTMMain.OAListFiles(D, Name, SearchName: String);

var

SR: TSearchRec;



begin

if D[Length(D)] <> '' then

D := D + '';

if FindFirst(D+Name, faAnyFile, SR) = 0 then

repeat

if (SR.Attr <> faDirectory) and (SR.Name[1] <> '.') then

begin



//여기서 설정을 해주는데 ExtractFileExt는 확장자에 대해 찾는데

// 여기에 대한 도움말을 보시면 파일명에 대한 것도 있습니다.

//ExtractFileName인가 ?? 모르겠습니다



if AnsiUpperCase(ExtractFileExt(SR.Name)) = AnsiUpperCase(SearchName) then

begin

inc(findOACount);

OARemember[findOACount] := D+SR.Name; {파일을 찾으면 label1.Caption에 디렉토리를 표시}

end;

end;

Until (FindNext(SR)<>0);

FindClose(SR);



if FindFirst(D+'*.*', faDirectory, SR) = 0 then

begin

repeat

if ((Sr.Attr and faDirectory) = faDirectory) and

(SR.Name[1]<>'.')

then

OAListFiles(D+SR.Name+'', Name, SearchName); // 재귀적 호출을 한다

until (FindNext(SR) <> 0);

end;

FindClose(SR);

end;



(2) 이건 폼이 생성될때 불러온것을 받도록 하는 것입니다.

findOACount := 0;

OAListFiles('c:','*.*','.OA');



그럼 잘분석해 보시고

꼭 도움이 되었으면 싶군요....^^

최현일 께서 말씀하시기를...

> 문영철 께서 말씀하시기를...

> > 탐색기를 API 호출 후 거기서 선택된 화일의 화일명 및 패스를

> > DB에 저장하고 싶습니다. 방법좀 가르쳐 주세요.

>

> 이건 이런 방법으로 하면 되겠군요...^^

> 제가 어떤 도움말을 보고 작성한 것인데 풀소스를 보여드리죠..

> 그럼 분석해 보세요...^^

> (1) 이건 폼이 생성될때 (2)에서 호출한 프로시져로서 안에 있는 데이터(파일)을 찾는 것이죠...)

> procedure TfrmTMMain.OAListFiles(D, Name, SearchName: String);

> var

> SR: TSearchRec;

>

> begin

> if D[Length(D)] <> '' then

> D := D + '';

> if FindFirst(D+Name, faAnyFile, SR) = 0 then

> repeat

> if (SR.Attr <> faDirectory) and (SR.Name[1] <> '.') then

> begin

>

> //여기서 설정을 해주는데 ExtractFileExt는 확장자에 대해 찾는데

> // 여기에 대한 도움말을 보시면 파일명에 대한 것도 있습니다.

> //ExtractFileName인가 ?? 모르겠습니다

>

> if AnsiUpperCase(ExtractFileExt(SR.Name)) = AnsiUpperCase(SearchName) then

> begin

> inc(findOACount);

> OARemember[findOACount] := D+SR.Name; {파일을 찾으면 label1.Caption에 디렉토리를 표시}

> end;

> end;

> Until (FindNext(SR)<>0);

> FindClose(SR);

>

> if FindFirst(D+'*.*', faDirectory, SR) = 0 then

> begin

> repeat

> if ((Sr.Attr and faDirectory) = faDirectory) and

> (SR.Name[1]<>'.')

> then

> OAListFiles(D+SR.Name+'', Name, SearchName); // 재귀적 호출을 한다

> until (FindNext(SR) <> 0);

> end;

> FindClose(SR);

> end;

>

> (2) 이건 폼이 생성될때 불러온것을 받도록 하는 것입니다.

> findOACount := 0;

> OAListFiles('c:','*.*','.OA');

>

> 그럼 잘분석해 보시고

> 꼭 도움이 되었으면 싶군요....^^



혹시나 해서 다시 적습니다. ^^; 죄송



도움말을 보시면 paramStr[i] 형식이 있습니다.

제가 전에 탐색기에서 더블 클릭하면 바로 델파이로 만든 실행파일이 뜨면서

파일이 로드 되게 하느라고 한참 고생을 했거든요...

paramStr형식을 이용하면 탐색기에서 클릭한 파일의 정보를 델파이에서 잡아낼수 있읍니다.

여기는 제가 소스가 지금 지워버렸는지 없어서 이것만 적어 드립니다.

죄송하구요 ^^

한번 찾아 보세요..

F1키는 가까운데 있어요....

꼭 도움이 되었으면 싶네요.....이번에는 정말로.....^^