본문 바로가기

Developist

Delphi/꿀팁 SAP RFC 내보내기 - 2 2021.10.14 - [Delphi/꿀팁] - SAP RFC 가져오기 - 1 const RESULT_CODE = 1; RESULT_MESSAGE = 2; var oLogon: TSAPLogonControl; oSAPFunction: TSAPFunctions; varFunction: Variant; varReturn: Variant; varItem: Variant; varItemsRow: Variant; begin oLogon := TSAPLogonControl.Create(nil); oSAPFunction := TSAPFunctions.Create(nil); varConnection := RFC.Logon.NewConnection; varConnection.ApplicationServer := ''; ..
Delphi/끄적이기 Form의 사이즈 조절을 윈도우 메시지로 제어하기 Form의 BorderStyle로 제어할 수 없는 상황이 생겨, 윈도우 메시지를 사용했습니다. type TForm1 = class(TForm) .. private fFormResize: Boolean; protected procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; procedure WMSetCursor(var Msg: TMessage); message WM_SETCURSOR; end; procedure TForm1.WMSetCursor(var Msg: TMessage); function isBorder(AParam: Word): Boolean; begin Result := (AParam = HTTOP) or (AParam ..
Delphi/꿀팁 SAP RFC 가져오기 - 1 별도 class로 만들어서 관리하고 있으나, 최소 로직으로만 간단하게 적어보았습니다. const RESULT_CODE = 1; RESULT_MESSAGE = 2; var I: Integer; oLogon: TSAPLogonControl; oSAPFunction: TSAPFunctions; varConnection: Variant; varFunction: Variant; varTable: Variant; varReturn: Variant; begin oLogon := TSAPLogonControl.Create(nil); oSAPFunction := TSAPFunctions.Create(nil); varConnection := oLogon.NewConnection; varConnection.Applicati..

티스토리툴바