자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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. 클라이언트에서 인증서를 넣어 서버로 전송하는 로직

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

 

 

감사합니다!

 

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 15924
공지 유용한 관련 사이트 관리자2 2014.03.20 54727
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 98182
939 Firemonkey의 Webbrowser에서 로컬 Pdf 파일 읽기 [1] 슈퍼맨 2018.06.22 849
938 [마이그레이션][팁] 파라독스, dBase 데이터베이스 연결(FireDAC 이용) [1] file 험프리 2016.06.29 849
937 WebBrowser 샘플코드 질문입니다. ScorpioM 2015.01.15 850
936 [세미나] 기존에 모바일 개발을 위해 안드로이드와 iOS 를 각각 개발해 왔습니다. 파이어몽키에서 이 코드를 재사용할 수 있나요? [1] 관리자 2015.01.30 850
935 델파이 기본 글꼴을 변경하는 방법이 궁금합니다. [4] 맛재현 2019.09.04 852
934 catalina10.15.3 paserver20.0 실행에러 원인좀 알려주세요.. xe10.3 [3] 네오마스 2020.03.20 854
933 Modal 창이 뒤로 숨는 현상 원인이 무엇일까요? file 도의 2016.12.02 855
932 모바일 키보드타입 문의입니다. [1] 최민철 2014.12.29 857
931 C#으로 개발된 프로젝트를 델파이로 넘어가고 싶습니다. 험프리 2017.04.14 858
930 모바일 Android 앱에서 PC에설치된 Database 서버에 직접연결이 가능한가요?? [1] 트리야 2019.10.08 859
929 ListView 질문드립니다. [2] file 육식육식 2020.04.08 859
928 Edit창에 SelectAll 전체선택 김하나 2015.04.17 859
927 [질문] cannot initialize oci environment 오류가 납니다. [2] Xiong 2016.04.19 864
926 FireDAC으로 Oracle 클라이언트 프로그램 배포시 [3] file 나도몰라 2017.05.29 864
925 [질문]FastReport 리소스 파일을 한글로 바꿨는데, 이 리소스를 어떻게 적용을 시키는 거죠? [2] file 바람돌이 2015.12.01 868
924 델파이(10.4.1) ios App 전체화면 안되는 부분 질문드립니다. 쟝히 2021.03.04 869
923 웹뷰 브라우저 컨트롤 가능한가요? [2] 굿맨 2018.03.20 872
922 안녕하세요 컨트롤들을 일정하게 정렬시키려고 하는데요. [2] file Vincent 2017.09.25 873
921 델파이 컴파일 옵션 관련 문의 드립니다 [2] 손보라 2017.04.05 874
920 앱 개발시 HTML 미리보기 [1] 사랑남 2015.02.12 875