Q&A
- SHGetPathFromIDList 함수에 관한 질문..
안녕하세요..^^
요즘..Shell API를 공부하고 있는 델파이..초보입니다..^^
질문 내용은 아래와 같습니다.. 많은 도움 부탁드립니다.. -_-;;
예를 들어 아래와 같은 간단한 함수를 만들어 봤는데요..
function Form1.GetPath : string;
var
bi : TBrowseInfo;
folder : PItemIDList;
directory : PChar;
begin
ZeroMemory(@bi, SizeOf(TBrowseInfo));
bi.hwndOwner := Self.Handle;
folder := SHBrowseForFolder(bi);
SHGetPathFromIDList(folder, directory);
Result := StrPas(directory);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetPath);
end;
실행을 시켜보면 ShowMessage가서 디렉토리 표시하는데까지는 잘 갑니다..
근데..OK 하면...
어쩔때는 잘 됩니다.. 근뎅.. 어쩔때는 꼭 에러가 나걸랑요.. -_-;;
공포의 에러메시지... Access violatoin 어쩌구..저쩌구.. T.T;;
SHGetPathFromIDList 함수와 연관이 있는거..같은데..잘..몰겠어용..
왜..이런..걸까여?? 갈카주세요..고수님들.. ^^;;
이만... ^^
요즘..Shell API를 공부하고 있는 델파이..초보입니다..^^
질문 내용은 아래와 같습니다.. 많은 도움 부탁드립니다.. -_-;;
예를 들어 아래와 같은 간단한 함수를 만들어 봤는데요..
function Form1.GetPath : string;
var
bi : TBrowseInfo;
folder : PItemIDList;
directory : PChar;
begin
ZeroMemory(@bi, SizeOf(TBrowseInfo));
bi.hwndOwner := Self.Handle;
folder := SHBrowseForFolder(bi);
SHGetPathFromIDList(folder, directory);
Result := StrPas(directory);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetPath);
end;
실행을 시켜보면 ShowMessage가서 디렉토리 표시하는데까지는 잘 갑니다..
근데..OK 하면...
어쩔때는 잘 됩니다.. 근뎅.. 어쩔때는 꼭 에러가 나걸랑요.. -_-;;
공포의 에러메시지... Access violatoin 어쩌구..저쩌구.. T.T;;
SHGetPathFromIDList 함수와 연관이 있는거..같은데..잘..몰겠어용..
왜..이런..걸까여?? 갈카주세요..고수님들.. ^^;;
이만... ^^
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 왕초보
- •
- 2000.03.07 05:12
- 1 COMMENTS
- /
- 0 LIKES
-
류동균•2000.03.07 10:25왕초보님 안녕. 왕초보님이 원하시는 대로 사용할 수가 없네요. 우선 SQL서버는 Window NT에서만 작동을 ...
-
- 왕초보
- 2000.03.07 05:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 송수현
- 2000.03.07 04:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- 2000.03.07 04:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 임성환
- •
- 2000.03.07 04:15
- 1 COMMENTS
- /
- 0 LIKES
-
김정선•2000.03.07 12:51이렇게 하시면 어떠하실지... with qry_jmpgumem do begin Close; SQL.Clear; ...
-
- 정연
- •
- 2000.03.07 02:26
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.03.07 02:36한델 자료실에 가보시면 예제프로그램이 있습니다.. 정연 wrote: > 동그란 버튼 만드는법좀 갈켜주세요...
-
- 뭔가요
- •
- 2000.03.07 02:22
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•2000.03.08 03:42당근히 됩니다. 그냥 Agent를 ActiveX를 Import하신 후 사용하시면 됩니다. 물론 사용방법은 MicroSo...
-
- 이상주
- 2000.03.07 02:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 이상주
- •
- 2000.03.07 02:00
- 1 COMMENTS
- /
- 0 LIKES
-
임형호•2000.03.07 18:46이상주 wrote: > 아래코드를보면 begin,end;이2개있는데 어떠한용도인가요??? > 첵에서는 프로시저에 beg...
-
- 김병철
- 2000.03.07 01:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금이
- •
- 2000.03.07 01:01
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요..^^ 요즘..Shell API를 공부하고 있는 델파이..초보입니다..^^ 질문 내용은 아래와 같습니다.. 많은 도움 부탁드립니다.. -_-;; 예를 들어 아래와 같은 간단한 함수를 만들어 봤는데요.. function Form1.GetPath : string; var...-
최용일•2000.03.07 01:18SHGetPathFromIDList(folder, directory); 안녕하세요..^^ > 요즘..Shell API를 공부하고 있는 델파이.....
-
- 최재원
- •
- 2000.03.07 00:54
- 1 COMMENTS
- /
- 0 LIKES
-
류동균•2000.03.07 10:39최재원님 보세요. Delphi 4.0 or 5.0의 BDE는 mdb를 지원한답니다. 물론 DAO(Delphi 5.0)을 쓰서도 되...
-
-
- 이두용
- •
- 2000.03.07 00:12
- 1 COMMENTS
- /
- 0 LIKES
-
김성식•2000.03.07 23:57물론 가능합니다. ODBC로 연결하여 저도 TQuery,TTable component를 사용하여도 모두 잘 되고 있습니다
-
- 허진
- •
- 2000.03.06 23:29
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.03.07 01:03똑같이 사용하시면 됩니다... 예) unit GlobalFunc; interface function func(a: integer): bo...
-
- neocity
- •
- 2000.03.06 23:18
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.03.07 01:36만일 98의 윈도 시스템 DLL에서 익스포트했다면 2000에 맞게 다시 익스포트해야 합니다. 2000에서 변경된 ...
-
- neocity
- 2000.03.06 23:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 전성덕
- 2000.03.06 23:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 유승진
- 2000.03.06 22:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 강민주
- •
- 2000.03.06 22:20
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.03.06 23:54안녕하세요 하얀까마구 입니다. TDataTime format에서 Data형은 정수 값이 날짜이고 소숫점 이하가 시간...
에러입니다... 함수 호출전에 PChar(directory)의 메모리를 할당받아야
합니다. 그렇지 않으면 에러가 생길수도 있고 안생길수도 있는 잠재적인
위험을 감수해야하죠... 먼저 충분한 메모리를 할당받으세요. 그리고 끝
나면 꼭 프리해주는거 잊지마시고...
할당 - GetMem(Directory, MaxDirPathSize);
해제 - FreeMem(Directory, MaxDirPathSize);
궁금이 wrote:
> 안녕하세요..^^
> 요즘..Shell API를 공부하고 있는 델파이..초보입니다..^^
> 질문 내용은 아래와 같습니다.. 많은 도움 부탁드립니다.. -_-;;
>
> 예를 들어 아래와 같은 간단한 함수를 만들어 봤는데요..
>
> function Form1.GetPath : string;
> var
> bi : TBrowseInfo;
> folder : PItemIDList;
> directory : PChar;
> begin
> ZeroMemory(@bi, SizeOf(TBrowseInfo));
> bi.hwndOwner := Self.Handle;
> folder := SHBrowseForFolder(bi);
> SHGetPathFromIDList(folder, directory);
> Result := StrPas(directory);
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> ShowMessage(GetPath);
> end;
>
> 실행을 시켜보면 ShowMessage가서 디렉토리 표시하는데까지는 잘 갑니다..
> 근데..OK 하면...
> 어쩔때는 잘 됩니다.. 근뎅.. 어쩔때는 꼭 에러가 나걸랑요.. -_-;;
> 공포의 에러메시지... Access violatoin 어쩌구..저쩌구.. T.T;;
> SHGetPathFromIDList 함수와 연관이 있는거..같은데..잘..몰겠어용..
> 왜..이런..걸까여?? 갈카주세요..고수님들.. ^^;;
>
> 이만... ^^