새로운 글
새로운 덧글

자유롭게 질의 및 응답을 할 수 있는 게시판이며 어느 누구도 답변을 달아야만 하는 의무는 없습니다. 
  • 제품설치/등록/제품 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------

안녕하세요, 델파이 초초초급 개발자입니다.

 

클라이언트에서 REST 서비스로 HTTPS 통신하는 것에 대한 질문입니다.

(며칠 동안 구글링을 했으나 레퍼런스를 찾기가 어려워서요ㅠ)

 

현재 3가지 방식으로 시도하고 있습니다.

 

1. TIdHTTP

function RESTPostCall(inputJsonStr: string; url: string): string;

var

  restClient: TIdHTTP;

  jsonStrList: TStringStream;

  IdSSL: TIdSSLIOHandlerSocketOpenSSL;

  TRST_ID: string;

begin

  try

    TRST_ID := '';

    IdSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

    IdSSL.SSLOptions.Mode := sslmClient;

    IdSSL.SSLOptions.VerifyMode := [sslvrfPeer];

    IdSSL.SSLOptions.CertFile := 'C:\private.p12';

//    IdSSL.OnGetPassword := SSLGetPassword;

//    IdSSL.OnVerifyPeer := SSLOnVerifyPeer();

    restClient := TIdHTTP.Create(nil);

    restClient.IOHandler := IdSSL;

    restClient.ReadTimeout := 60000;

    restClient.ConnectTimeout := 60000;

    restClient.Request.Method := 'POST';

    restClient.Request.Accept := 'application/json';

    restClient.Request.ContentType := 'application/json';

    restClient.Request.CustomHeaders.Values['TRST_ID'] := TRST_ID;

    jsonStrList := TStringStream.Create(inputJsonStr);

    Result := restClient.Post(url, jsonStrList);

  finally

    restClient.Free;

  end;

end;

 

2. TRESTClient

// RESTPostCall(between XE5 and XE8)

function RESTPostCallXE5(inputJsonStr: string; url: string): string;

var

  restClient: TRESTClient;

  restRequest: TRESTRequest;

  TRST_ID: string;

begin

  try

    TRST_ID := '';

    restClient := TRESTClient.Create(url);

    restRequest := TRESTRequest.Create(nil);

    restRequest.Method := TRESTRequestMethod.rmPOST;

    restRequest.Accept := 'application/json';

    restRequest.Timeout := 60000;

    restRequest.AddParameter('TRST_ID', TRST_ID);

    restRequest.AddBody(inputJsonStr, ctAPPLICATION_JSON);

    restRequest.Client := restClient;

    restRequest.Execute();

    Result := restRequest.Response.JSONText;

  finally

    restRequest.Free;

    restClient.Free;

  end;

end;

 

3. TNetHTTPClient

// RESTPostCall(XE8 and above)

function RESTPostCallXE8(inputJsonStr: string; url: string): string;

var

  restClient: TNetHTTPClient;

  restRequest: TNetHTTPRequest;

  jsonStrList: TStringStream;

  TRST_ID: string;

begin

  try

    TRST_ID := '';

    jsonStrList := TStringStream.Create(inputJsonStr);

    restClient := TNetHTTPClient.Create(nil);

    restRequest := TNetHTTPRequest.Create(nil);

    restRequest.Client := restClient;

    Result := restRequest.Post(url, jsonStrList).ContentAsString;

  finally

    restClient.Free;

  end;

end;

 

--------------------------------------------------------------------------------------------------------------------------------

 

여기서 질문입니다.

 

1. 클라이언트에서 서버 인증서를 체크하는 로직

-> 이건 아래와 같은 코드가 TidHTTP 에서 있기는 한데, 어디서 이 함수를 호출하는지 모르겠습니다ㅠ

function SSLOnVerifyPeer(Certificate: TIdX509; AOk: Boolean; ADepth, AError: Integer): Boolean;

begin

  Result := True;

end;

 

2. 클라이언트에서 인증서를 넣어 서버로 전송하는 로직

-> 이것도 제가 부족하여 도움을 받고자 합니다ㅠㅠ

 

 

감사합니다!

 

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2019.8~2019.12 관리자 2015.01.22 6453
공지 유용한 관련 사이트 관리자2 2014.03.20 43800
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 85028
2385 Motion Sensor 사용 [1] 오사씨 2018.10.30 53
2384 개발툴 버전업(Delphi 7 -> Tokyo) : ocx 등록 관련 [1] 김기 2018.10.30 93
2383 안드로이드 한글 중복 입력 문제로 문의 합니다. [4] lcarus76 2018.10.24 171
2382 이미지 컴포넌트 추천 해 주세요... [1] 굿맨 2018.09.05 70
2381 터치 이벤트를 임의로 발생시키는 방법 100jk 2018.10.29 101
2380 DCU 파일을 어떻하면 오픈할 수 있는지 몰라서, 바보스럽게 질문드립니다- 친절한 답변 부탁드려요~ (꾸벅^^) [1] 유박사 2018.10.29 105
2379 한번에 개발하는 안드로이드/iOS 앱 with 델파이 1편 기초다지기 [1] file 한니발 2018.10.26 124
2378 만보기 구현 오사씨 2018.10.27 84
2377 TMemo 동적 생성 시 Caret 보이지 않는 문제가 있습니다 [1] 지병철 2018.10.23 53
2376 안드로이드앱 사용시간을 알고 싶습니다. [2] LSM 2018.10.23 660
2375 android socket error [2] devdev 2018.10.17 111
2374 stringstream 에 배열 넣기 [2] devdev 2018.10.23 107
2373 Delphi 10.2 버전에 DevExpress 18.1.6 버전 설치 관련 문의사항입니다. [1] 비사걸 2018.10.22 200
2372 프로그램 실행시 del1.mb 와같은 파일이 생겨요 [1] file 맛재현 2018.10.23 31
2371 FireDAC. FDMEMTable의 txt 반출관련 속도개선 문의드립니다. [4] 오바라미 2018.10.16 90
2370 No provisioning profile found for the selected build configuration 에라가 나는데요? [3] file 화이부동 2018.10.12 119
2369 [DCC Error] E2597 c:\program files (x86)\embarcadero\studio 문의 [1] file lcarus76 2018.10.17 133
2368 폼을 가로로 고정하는법 [2] 100jk 2018.10.15 117
2367 빌더 오늘 갑자기 이상한 곳으로 링크되고 실행하기 어려울 정도로 나타납니다. [1] file 개성산전 2018.10.12 107
2366 델파이 10.2 사용중인데 알람이 자꾸 뜹니다. [3] 테리 2018.10.12 145



광고 모듈이 설치되어 있지 않아 실행을 중단합니다..