자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

Delphi ems서버 에서 post관련

2019.08.26 20:22

종결자 조회 수:231

안녕하세요.

데브기어 강좌를 보고 ems 서버를 하고 있는 중입니다.

 

강좌를 보면 ems 서버를 만든다음 get은 했는데 post가 안되서요.

get부분을 보면 

 

procedure THamletResource1.Get(const AContext: TEndpointContext; const ARequest: TEndpointRequest; const AResponse: TEndpointResponse);

const

  SQL_LIST ='SELECT MAIL_ADDRESS,PWD,ADDRESS,SEX FROM USER_TEST';

var

  Writer : TJsonObjectWriter;

begin

  qryHamlet.Close;

  qryHamlet.SQL.Text := SQL_LIST;

  qryHamlet.Open;

 

 

   Writer := TJsonObjectWriter.Create;

 

  try

 

    Writer.WriteStartObject; // start resource

    Writer.WritePropertyName('Hamlet');

 

 

    Writer.WriteStartObject; // start item

    Writer.WritePropertyName('total');

    Writer.WriteValue(qryHamlet.RecordCount);

 

 

 

    Writer.WritePropertyName('Hamlet');

    Writer.WriteStartArray;

 

    qryHamlet.First;

    while not qryHamlet.Eof do

    begin

      Writer.WriteStartObject;

      Writer.WritePropertyName('MAIL_ADDRESS');

      Writer.WriteValue(qryHamlet.FieldByName('MAIL_ADDRESS').AsString);

 

      Writer.WritePropertyName('PWD');

      Writer.WriteValue(qryHamlet.FieldByName('PWD').AsString);

 

      Writer.WritePropertyName('ADDRESS');

      Writer.WriteValue(qryHamlet.FieldByName('ADDRESS').AsString);

 

      Writer.WritePropertyName('SEX');

      Writer.WriteValue(qryHamlet.FieldByName('SEX').AsString);

 

      Writer.WriteEndObject;

      qryHamlet.Next;

 

    end;

 

 

    Writer.WriteEndArray;

 

    Writer.WriteEndObject;  // end item

    Writer.WriteEndObject;  // end resource

 

    // Sample code

    AResponse.Body.SetValue(Writer.JSON as TJSONValue, True);

 

  except

    Writer.Free;

    raise;

 

  end;

 

위와같이 하면 데이터가 json 형태로 잘나옵니다.

그런데 post를 하면 에러도 안되고 잘 처리 됐다고 하는데 

rest debugger 에 헤더 부분에 

Connection=close

Date=Mon, 26 Aug 2019 11:10:09 GMT

Content-Length=0

이렇게 나오는데 테이블을 뒤져보면 인서트가 되지 않습니다.

 

그리고 디버깅을 할려고 브레이크를 걸어도 그자리가 디버깅이 안됩니다.

 

참고로  post 부분은 

 

procedure THamletResource1.Post(const AContext: TEndpointContext; const ARequest: TEndpointRequest; const AResponse: TEndpointResponse);

const

  SQL_ITEM_INSERT = 'INSERT INTO USER_TEST( MAIL_ADDRESS,PWD) '+' values (:mail_address,:pwd ) ';

var

  mail_address,pwd : String;

  Json : TJSONValue;

begin

  Json := ARequest.Body.GetValue;

 

  mail_address := Json.GetValue<string>('HAMLET.MAIL_ADDRESS');

  pwd := Json.GetValue<string>('HAMLET.PWD');

 

 

 

    qryHamlet.Close;

    qryHamlet.SQL.Text := SQL_ITEM_INSERT;

    qryHamlet.ParamByName('mail_address').AsString := mail_address;

    qryHamlet.ParamByName('pwd').AsString := pwd;

    qryHamlet.ExecSQL;

 

 

end;

 

이렇게 했습니다.

근데 get에서는 디버깅 브레이크가 되는데 왜 post에서는 안될까요?

그리고 위 post는 왜 동작을 했는데도 불구하고 테이블에 입력이 안될까요??

 

위 내용에 답변 부탁 드립니다. 그럼 수고하세요.

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 20049
공지 유용한 관련 사이트 관리자2 2014.03.20 58957
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 102574
2579 dbx error ORALCE11g RAD 10.3.2 버전에러입니다. (평가판 문제입니다 ) [1] file 강순규 2019.08.30 270
2578 IOS 앱실행관련 문의사항입니다. ( 시뮬레이터 관련 ) [2] 궁금한사람 2019.09.02 269
2577 Delphi 10.3 rio 에서 10.2에서 잘되었던 내 전화번호 가져오기가 안됩니다. [2] 델파이_사랑 2019.09.05 13050
2576 델파이로 만든 DLL 내부에 FireDAC 콤퍼넌트의 동작 [2] 막스뮐러 2019.08.08 604
2575 FMX 멀티스레드 문제입니다. [4] file 아크나톤 2019.08.28 891
2574 App Bundle은 Rad Studio에서 무엇을 말하나요? [1] 토끼왕 2019.08.27 308
2573 FMX Linux 에서 화면캡쳐 100jk 2019.09.02 183
2572 DBGRID 질문 드립니다. [2] 초보델팡이 2019.08.23 416
2571 10.3.2 Webbrowser 버그인가요? (iOS) file 돌팅 2019.08.31 221
2570 TWebbrowser가 모든 컴포넌트 위로 뜨는 현상 [1] 스머프 2019.08.30 185
2569 이메일 질문입니다. [2] 희망나라 2019.08.26 435
2568 10.2 tokyo JDK 문제 팁입니다.[질문아님] [1] 제이트 2018.03.08 233
» ems서버 에서 post관련 종결자 2019.08.26 231
2566 안드로이드앱 개발 시 파일저장 방법 [1] Xownd 2019.08.22 217
2565 컴포넌트 아이콘 표시가 안나올때 [1] file 건들다맞지 2018.06.14 314
2564 Delphi 10.2 사용자 정의 컴포넌트 등록후 디자인타임에 안보임 file 미스터몽키 2019.08.23 365
2563 VB구조체를 받는 문법 질문 드립니다. [2] 초보델팡이 2019.08.20 209
2562 라이센스 문제 이영진 2019.08.22 172
2561 처음보는 현상 폼 크기가 작아지면서 전체적으로 작아짐 써치 2019.08.22 229
2560 델파이Xe2 에서 ExportGridToXLSX 엑셀 다운로드시 건수 [1] 가나다 2019.08.19 386