Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[15304] Re:Re:Re:https 페이지 get 관련 질문드립니다.
gomsun2 [vhrvnd723] 2409 읽음    2014-10-05 21:50
실행파일과 같은 위치에 놓으시면 됩니다.

델파이싫어 님이 쓰신 글 :
: 답변 감사합니다.
: libeay32.dll, ssleay32.dll 2개 파일이 받아서
: 어떻게 해야되는 건가요??
:
:
:
: gomsun2 님이 쓰신 글 :
: : SSL통신은 https://www.facebook.com/ 과 같은 곳으로 테스트 해볼 수 있습니다.
: : 작성하신 코드에 문제는 없어 보이고요, 해당 URL도 잘 읽혀집니다.
: :
: : 혹시 libeay32.dll, ssleay32.dll 2개 파일이 누락되지는 않았나요 ?
: : 여기에서 http://www.indyproject.org/sockets/ssl.en.aspx 다운로드 할 수 있습니다.
: :
: : 제가 테스트한 코드는 아래와 같습니다.
: :
const
: : 	RSP_200_OK = 200;
: : var
: :   LHttp: TIdHttp;
: :   LSSL: TIdSSLIOHandlerSocketOpenSSL;
: :   LRcv: TStringStream;
: : begin
: :   LHttp := TIdHttp.Create(nil);
: :   try
: :   	LSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
: :     try
: :       LRcv := TStringStream.Create(EmptyStr, TEncoding.UTF8);
: :       try
: :         LSSL.SSLOptions.Mode := sslmClient;
: :         LHttp.IOHandler := LSSL;
: :         LHttp.Get('https://esta.cbp.dhs.gov/esta/', LRcv);
: :         if LHttp.ResponseCode = RSP_200_OK then
: :           Memo1.Lines.Text := LRcv.DataString;
: :       finally
: :       	FreeAndNil(LRcv);
: :       end;
: :     finally
: :       FreeAndNil(LSSL);
: :     end;
: :   finally
: :     FreeAndNil(LHttp);
: :   end;
: : end;

: :
: :
: :
: :
: :
: : 델파이싫어 님이 쓰신 글 :
: : : idhttp와 idSSLIOHANDLERSocketOpenSSL을
: : : 이용하여 https 페이지를 가져오려고 하는데
: : : 어떻게 해야되나요??
: : :
: : : 아래는 작성한 코드인데
: : : "Socket Error # 10060 Connection timed out."이 발생합니다.
: : :
: : : procedure TForm1.btnRequestClick(Sender: TObject);
: : : var
: : :   s: string;
: : :   lHTTP: TIdHTTP;
: : :   lIOHandler: TIdSSLIOHandlerSocketOpenSSL;
: : :
: : : begin
: : :   lHTTP := TIdHTTP.Create(nil);
: : :   lIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
: : :   try
: : :     lHTTP.IOHandler := lIOHandler;
: : :     lHTTP.HandleRedirects := True;
: : :     s := lHTTP.Get('https://esta.cbp.dhs.gov/esta/');
: : :     Memo.Text := s;
: : :   finally
: : :     lHTTP.Free;
: : :     lIOHandler.Free;
: : :   end;
: : : end;
: : :

+ -

관련 글 리스트
15298 https 페이지 get 관련 질문드립니다. 델파이싫어 1979 2014/10/02
15299     Re:https 페이지 get 관련 질문드립니다. gomsun2 2051 2014/10/02
15300         Re:Re:https 페이지 get 관련 질문드립니다. 델파이싫어 2120 2014/10/02
15304             Re:Re:Re:https 페이지 get 관련 질문드립니다. gomsun2 2409 2014/10/05
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.