새로운 글
새로운 덧글

자유롭게 질의 및 응답을 할 수 있는 게시판이며 어느 누구도 답변을 달아야만 하는 의무는 없습니다. 
  • 제품설치/등록/제품 오류 문의: 설치/등록 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. 클라이언트에서 인증서를 넣어 서버로 전송하는 로직

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

 

 

감사합니다!

 

번호 제목 글쓴이 날짜 조회 수
공지 [연말 이벤트] 개발자 Q&A 게시판을 가장 잘 활용해주신 분 상품 증정 관리자 2018.11.12 18
공지 [프로그래밍 강의] 2018.10~2018.12 관리자 2015.01.22 6124
공지 유용한 관련 사이트 관리자2 2014.03.20 43375
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 84947
2369 델파이 10.2 사용중인데 알람이 자꾸 뜹니다. [3] 테리 2018.10.12 110
2368 앱에서 글자가 위아래 잘려 보이는 현상 해결 방안 문의 [8] file 지병철 2018.10.05 95
2367 delphi 베를린 android database 에러 질문합니다. [4] devdev 2018.10.05 47
2366 RAD Studio 사용 중 [1] file 초코코초 2018.10.08 58
2365 이미 존재하는 데이터 타입이나 클래스에 Helper가 존재하는지 체크방법 [3] 100jk 2018.10.05 37
2364 iOS 11.4 아직 불가능한가요? [2] 엽기토끼이요 2018.09.17 144
2363 안드로이드 API Level 26 문제 [1] 토끼왕 2018.10.06 64
2362 앱스토어 심사거부건 도움 부탁합니다. [1] 돌팅 2018.10.06 84
2361 여러 Package 작성시 특정 유닛을 공유하는 방법 100jk 2018.10.05 26
2360 TMS FMX ZBar Reader 사용하신분 계시나요? 생각 2018.10.04 31
2359 FireDAC사용 쿼리하는 동안 진행중 표시 어떻게..? [2] 공감 2018.10.01 59
2358 IOS 12 대응에 관해서 [1] 돌팅 2018.10.01 75
2357 C++Builder 최신업데이트(30831)불구 Kinvey 푸시 토큰을 받지 못합니다. 개성산전 2018.10.01 40
2356 delphi 10.2.3 +Xcode 10 + IOS 12 환경에서 빌드시 왜 에라메세지가 뜨는지요? [1] file 화이부동 2018.09.26 102
2355 퀀텀그리드 이벤트 관련 문의드립니다. [1] BW 2018.09.19 76
2354 카메라 컴포넌트 관련 문의드립니다. [6] 최봉원 2018.09.10 116
2353 윈도우10 에서 XE7 Fastreport5 오류 문의 [1] juljoo 2018.09.18 58
2352 VCL 컴포넌트를 FMX용으로 바꾸고 싶습니다. [6] 쿠리 2018.09.12 125
2351 FMX Component 생성시 오류 [2] file 100jk 2018.09.04 63
» Client 에서 REST Request 시, server certificate 체크 질문드립니다. [2] Joon 2018.09.11 80



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