Delphi Delphi/꿀팁 [LockBox] AES 암/복호화 하기 uses .., uTPLb_Constants, uTPLb_Codec, uTPLb_CryptographicLibrary; function EncString(AStr: string): string; var tmpCodec: TCodec; tmpLibrary: TCryptographicLibrary; begin Result := ''; tmpLibrary := TCryptographicLibrary.Create(nil); tmpCodec := TCodec.Create(nil); try tmpCodec.CryptoLibrary := tmpLibrary; tmpCodec.StreamCipherId := BlockCipher_ProgId; tmpCodec.BlockCipherId := Format(AES_ProgI.. Delphi/정보나누기 Instagram 토큰 발급받기 1. WebBrowser로 URL을 호출하고 인스타그램에 사용자 로그인 및 권한을 요청합니다.var url: string; param: string;begin url := 'https://api.instagram.com'; param := '/oauth/authorize?client_id=xxx&redirect_uri=https://developist.tistory.com/&scope=user_profile&response_type=code'; //인스타그램 개발자 페이지에서 발급받은 앱 ID와 Code를 받을 Redirect 주소를 입력합니다. WebBrowser1.Navigate(url + param);end;2. 인스타그램에서 사용자 계정에 앱을 추가합니다.승인을 누르게 되면 위에 설정한 주소로 C.. Delphi/꿀팁 XML 파싱하기 - 2 var I, J: Integer; XMLDocument: IXMLDOMDocument; XMLNodeList: IXMLDOMNodeList; XMLChildNodeList: IXMLDOMNodeList; XMLTempNode: IXMLDOMNode; begin XMLDocument := CoDOMDocument.Create; XMLDocument.loadXML('XML Data..'); //Node 선택 XMLNodeList := XMLDocument.selectNodes('Node 선택..'); //선택한 Node의 리스트 for I := 0 to XMLNodeList.length - 1 do begin XMLChildNodeList := XMLNodeList.item[I].childNodes; //필.. 이전 1 ··· 9 10 11 12 13 14 15 ··· 66 다음
