Delphi JSON 파싱하여 ListView 에 표시하기

System.Json 은 Delphi XE6 이상부터 동작합니다. 간단한 JSON 문자열을 파싱하고, 결과를 출력하는 Delphi 프로시저입니다. JSON 문자열의 각 키-값 쌍을 출력하기 위해 TJSONObject의 반복자를 사용했습니다. https://docwiki.embarcadero.com/Libraries/Alexandria/en/System.JSON.TJSONObject

  • format_list_bulleted Programming/Delphi
  • · 2023. 6. 28.
  • textsms

TComport 한글 깨짐

델파이 Seattle에서 TComport 를 통해 시리얼단말기(신용카드 단말기) 인쇄시 한글이 깨진다. ComPort1.WriteStr('abcd 1234테스트 페이지 ***********'+ #13#10); 기존에 델파이 2007에서 잘되던 부분이다. TStringStream, TBytes 등으로 해결했다는내용도 검색되었지만 내 경우에는 실패했다. 결국 CPort.pas 파일을 수정해서 해결했다. 문자열을 인쇄하는 ComPort1.WriteStr() 함수는 function TCustomComPort.WriteStr(Str: string): Integer; 으로 정의되어 있다.이것을 파라미터 타입을 AnsiString으로 바꾸었다.function TCustomComPort.WriteStr(Str: Ans..

  • format_list_bulleted Programming/Delphi
  • · 2016. 11. 22.
  • textsms