1. 개발/실행 플랫폼

(1) OS :

(2) 개발툴 :

(3) 사용 Database :

2. 개발 중인 프로그램

3. 질문 내용

 

안녕하세요 현재 델파이7 indy10 사용중이고 이카운트 open api 를 연동하려고 합니다 

POST방식으로 요청시에 응답은 오긴오는데 에러응답이 와서 요청데이타가 문제인거 같은데 무었인지 

못찾아서 답답합니다 ㅜㅜ 

 

procedure TForm1.btn1Click(Sender: TObject);

var sUrl: Widestring;
    Code, searchword,result_type : AnsiString;
    Data, DResult : TStringStream;
    i,j, nTotCnt, k: integer;
    sData: TStringList;
    ssIOHandler : TIdSSLIOHandlerSocketOpenSSL;
begin

  Data := TStringStream.Create('');
  sData := TStringList.Create;
  DResult := TStringStream.Create('');
  idhtp1.Create;
  ssIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  ssIOHandler.SSLOptions.Method := sslvSSLv23;
  ssIOHandler.SSLOptions.Mode   := sslmClient;
  idhtp1.IOHandler := ssIOHandler;

  try
    Code := HTTPEncode(UTF8Encode('601879'));          //회사코드

    sUrl := 'https://oapi.ecounterp.com/OAPI/V2/Zone'; //API 요청 URL
    idhtp1.Request.Referer := 'https://oapi.ecounterp.com/OAPI/V2/Zone';

    idhtp1.Request.Host := sUrl;
    idhtp1.HTTPOptions := [];
    sData.Add('COM_CODE:'+Code);                      // 데이터
    idhtp1.Request.ContentType := 'application/json;';

    try

      idhtp1.Post(sUrl, sData, DResult);
    except
      mmo1.Lines.Add(idhtp1.ResponseText); //응답
    end;
  finally
     mmo1.Lines.Add('크기'+ IntToStr(DResult.Size));
     mmo1.Lines.Add(DResult.DataString);

     ssIOHandler.Free;
     DResult.Free;
     sData.Free;
     Data.Free;
  end;

 

이렇게 보냈을시 응답은 

'invalid argument to date encode' 에러나고 여기서 다시 실행 시키면 

크기294
{"Status":"500","Errors":[{"ProgramId":"",
"Name":"",
"Code":"EXP00001",
"Message":"Unsupported Media Type",
"Param":null}],

"Error":{
"Code":0,
"Message":"Unsupported Media Type",
"MessageDetail":""
},
"Timestamp":null,
"RequestKey":null,
"IsEnableNoL4":false,
"RefreshTimestamp":"0",
"AsyncActionKey":null}

 

 

이렇게 응답은 오는데 에러가 뭔지 모르겠어요 ㅠㅠ