본문 바로가기

Application/Delphi Lecture126

웹사이트 로그인 처리 var idhttp : TIdHttp; aData : TStringList; ms : TMemoryStream; mime : TIdMultiPartFormDataStream; i : Integer; aURL : String; ResultStr : String; begin ResultStr := ''; aURL := 'http://id.naver.com/nidlogin.login'; idhttp := TIdHttp.Create; aData := TStringList.Create; ms := TMemoryStream.Create; mime := TIdMultiPartFormDataStream.Create; try // idhttp init idHttp.Host := URL; idHttp.Request.Ref.. 2008. 8. 13.
UTF-8을 WideString로 function UTF8ToWideString(SourceBuf:String): WideString; var DestBuf : WideString; PSourceBuf : PChar; OutLength : Integer; begin GetMem ( PSourceBuf, Length(SourceBuf) ); try StrPCopy( PSourceBuf, SourceBuf ); OutLength := MultiByteToWideChar(CP_UTF8, 0, PSourceBuf, -1, nil, 0); SetLength(DestBuf, OutLength); MultiByteToWideChar(CP_UTF8, 0, PSourceBuf, -1, PWideChar(DestBuf), OutLength); Result.. 2008. 8. 13.
HTML 소스 코드에서 텍스트 코드를 분리하기 procedure TForm1.btnPassingClick(Sender: TObject); var MyDocument: OleVariant; begin MyDocument := WebBrowser1.Document; // HTML 소스 보기 memTest.Lines.Add(MyDocument.Body.InnerHTML); // HTML 소스 // 일반 텍스트 보기 memTest.Lines.Add(MyDocument.Body.InnerText); // Text 소스 end; 위의 코드만으로는 Access Violation 에러가 발생합니다. 웹브라우저에 문서가 완전히 내려오기전에 접근을 하기 때문이구요. 문서에 접근 하기 전에 while WebBrowser1.ReadyState READYSTATE_COMP.. 2008. 8. 13.
UTF8Encode() UTF8Decode() system.pas 에 있군요. function UnicodeToUtf8(Dest: PChar; Source: PWideChar; MaxBytes: Integer): Integer; overload; deprecated; function Utf8ToUnicode(Dest: PWideChar; Source: PChar; MaxChars: Integer): Integer; overload; deprecated; // UnicodeToUtf8(4): // UTF8ToUnicode(4): // MaxDestBytes includes the null terminator (last char in the buffer will be set to null) // Function result includes the nul.. 2008. 8. 13.

티스토리툴바