김혜진 wrote:

> 안녕하세요? 저는 델파이를 거의 사용 못하는 왕 초보입니다.

> 근데 회사에서 시키니 어쩔 수 없네요.

> 저두 큰맘 먹구 델파이라는 프로그램을 공부하긴 했는데...

> 쉬운 일은 아니더군요.

> 그래서 이렇게 자문을 구하고자 글을 올립니다.

> 고수님들! 제발 좀 도와주세요.

> 만들어야 하는 것은 웹브라우저의 주소(D) 기능.

> 콤보박스를 이용해서 url를 입력하고 엔터하면 익스플로어가 실행되어 화면을

> 출력하는 거죠.

> 단, 검색어가 url이면 바로 연결시키고,

> 그냥 단어이면 검색 결과를 출력하는 그런 프로그램.

> 그러니까 한마디로 익스플로어의 주소 표시줄 기능과 같이 만들어야 하거든요.

> 무슨 좋은 방법 없나요?

> 제발 도와주세요.



음..URL연결은 최용일님 답변처럼 하시면 되구요

검색한다는건 파일검색인지 DB검색인지 구분이 안가는군여.

머 어떤 검색이든지 간단하게 우선 URL과 단어를 구분하는

루틴을 작성하시면 됩니다.

URL은 http나 www로 시작하니까..이 두문자로 시작하는 입력을

받으면 URL로 판단하고 두문자가 아니면 그냥 단어로 판단하시면 되겠네요..



str = copy(tmp,1,4);

if(str = "http" or str = "www.")

//브라우저 실행

else

//검색 루틴

간단히 위처럼 생각하시고 코딩하시면 될것같군요...

물론 위는 예를 든겁니다....

질문을 반밖에 이해를 못해서... 뒷부분의 그냥 단어이면 검색결과를

출력한다는데 이부분을 잘이해를 못해서 앞부분만 설명하겠습니다.



델파이에서 다른 프로그램을 실행할때 많이 사용되는 함수는 바로

ShellExecute입니다. 콤보박스에 서 url을 넣고 엔터를 칠때 이 함수를

이용해서 익스플로러를 띄워주면되죠..



먼저 uses절에 ShellAPI를 추가합니다. 그리고 콤보박스의 OnKeyPress

이벤트를 다음과 같이 적는거죠



procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);

var

Url: array[0..1023] of char;

begin

if Key = Char(vk_Return) then

begin

StrPCopy(Url, ComboBox1.Text);

ShellExecute(Handle,'Open','C:Program FilesInternet ExplorerIEXPLORE.EXE',

Url, '', SW_SHOW);

end;

end;



ShellExecute의 파라메터들에 대한 설명은 헬프를 보시면 됩니다.



뒤의 단어이면 검색결과를 출력한다는 것은 제가 이해를 못해서

생략합니다.



김혜진 wrote:

> 안녕하세요? 저는 델파이를 거의 사용 못하는 왕 초보입니다.

> 근데 회사에서 시키니 어쩔 수 없네요.

> 저두 큰맘 먹구 델파이라는 프로그램을 공부하긴 했는데...

> 쉬운 일은 아니더군요.

> 그래서 이렇게 자문을 구하고자 글을 올립니다.

> 고수님들! 제발 좀 도와주세요.

> 만들어야 하는 것은 웹브라우저의 주소(D) 기능.

> 콤보박스를 이용해서 url를 입력하고 엔터하면 익스플로어가 실행되어 화면을

> 출력하는 거죠.

> 단, 검색어가 url이면 바로 연결시키고,

> 그냥 단어이면 검색 결과를 출력하는 그런 프로그램.

> 그러니까 한마디로 익스플로어의 주소 표시줄 기능과 같이 만들어야 하거든요.

> 무슨 좋은 방법 없나요?

> 제발 도와주세요.

>

>

최용일 wrote:

> 질문을 반밖에 이해를 못해서... 뒷부분의 그냥 단어이면 검색결과를

> 출력한다는데 이부분을 잘이해를 못해서 앞부분만 설명하겠습니다.

>

> 델파이에서 다른 프로그램을 실행할때 많이 사용되는 함수는 바로

> ShellExecute입니다. 콤보박스에 서 url을 넣고 엔터를 칠때 이 함수를

> 이용해서 익스플로러를 띄워주면되죠..

>

> 먼저 uses절에 ShellAPI를 추가합니다. 그리고 콤보박스의 OnKeyPress

> 이벤트를 다음과 같이 적는거죠

>

> procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);

> var

> Url: array[0..1023] of char;

> begin

> if Key = Char(vk_Return) then

> begin

> StrPCopy(Url, ComboBox1.Text);

> ShellExecute(Handle,'Open','C:Program FilesInternet ExplorerIEXPLORE.EXE',

> Url, '', SW_SHOW);

> end;

> end;

>

> ShellExecute의 파라메터들에 대한 설명은 헬프를 보시면 됩니다.

>

> 뒤의 단어이면 검색결과를 출력한다는 것은 제가 이해를 못해서

> 생략합니다.

>



답변해 주셔서 정말루 감사합니다.

검색결과를 출력하는 부분을 설명해 드리려구요.

일반 검색엔진인 www.naver.com 또는 www.yahoo.co.kr에 연결하여 검색결과를

출력하는 방법을 알고 싶습니다.

다시한번 부탁드립니다.

그리고 익스플로어의 주소 표시줄 처럼 그전에 입력했던 주소값을 어떻게 계속

갖고 있죠?

이부분도 해결해 주시면 정말루 정말루 감사하겠습니다.

히스토리기능은 값이 입력될때마다 Add나 Insert메소드를 써서 넣어주시면됩니다.

검색할때는 검색엔진마다 검색하는 방법이 다르니까 검색엔진에 따라서 다르게

해야합니다. 검색엔진의 검색창에 검색어를 넣어보시고 주소가 어떻게 바뀌는가를

살펴보시기 바람니다.



// 입력한 단어가 검색어인가 URL인가를 판단하는 함수입니다.

// 여기서는 그냥 'http://'로 시작하면 URL이라고 판단하겠습니다.

// 이 부분은 제대로 만드세요...

function IsUrl(Url: string): Boolean;

begin

Result := False;

if Pos('http://', Url) = 1 then

Result := True;

end;



procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);

var

Url: array[0..1023] of char;

begin

if (Key = Char(vk_Return)) and (ComboBox1.Text <> '') then

begin

// 히스토리 설정하는 부분입니다.

// Insert대신에 Add를 사용하시면 콤보박스의 끝에 추가됩니다.

ComboBox1.Items.Insert(0, ComboBox1.Text);

ComboBox1.SelectAll;



if IsUrl(ComboBox1.Text) then // 입력된 단어가 URL이면...

begin

StrPCopy(Url, ComboBox1.Text);

ShellExecute(Handle,'Open','C:Program FilesInternet ExplorerIEXPLORE.EXE',

Url, '', SW_SHOW);

end



else // URL이 아니면...

begin

// 이 부분은 검색엔진마다 다름니다. 야후 코리아는

// http://kr.search.yahoo.com/bin/search?p= 다음에 검색어를 넣어서 검색합니다.

// 네이버는 http://dir.naver.com/search.naver?where=2&query= 다음에 검색어를

// 넣어서 검색하더군요. 라이코스나 익사이트와 같은 다른 검색엔진도 찾아보시기

// 바랍니다. 아래는 야후 코리아에서 검색합니다. 적당히 바꾸어주면 다른

// 검색엔진도 이용하실 수 있습니다.

StrPCopy(Url, 'http://kr.search.yahoo.com/bin/search?p=' + ComboBox1.Text);

ShellExecute(Handle,'Open','C:Program FilesInternet ExplorerIEXPLORE.EXE',

Url, '', SW_SHOW);

end;

end;

end;



김혜진 wrote:

> 답변해 주셔서 정말루 감사합니다.

> 검색결과를 출력하는 부분을 설명해 드리려구요.

> 일반 검색엔진인 www.naver.com 또는 www.yahoo.co.kr에 연결하여 검색결과를

> 출력하는 방법을 알고 싶습니다.

> 다시한번 부탁드립니다.

> 그리고 익스플로어의 주소 표시줄 처럼 그전에 입력했던 주소값을 어떻게 계속

> 갖고 있죠?

> 이부분도 해결해 주시면 정말루 정말루 감사하겠습니다.