본문 바로가기

분류 전체보기590

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.
MS SQL server연결에 대한 작은 것 델파이, MS SQL server연결에 대한 작은 것 ======================================== 작성자 : 윤석천 / likesam@hitel.net 작성일 : 2000-02-25 버전 : 0.0.0.1 (전혀 Debugging이 되어 있지 않음) 게시사이트 : 델파이코리아(http://www.delphikorea.com), Hitel vtool동호회 저작권 : Free. 부탁글 : Delphi의 사용방법, 혹은 delphi-MS SQL과의 연결 방법에 대한 일체 편지나 문의를 받지 않습니다. 아래의 code에서 보시면 아시겠지만 저또한 완전 초보이며, 제가 대답할 실력이 되지 않습니다, ^^; [차례] 1. 서론 2. 응용프로그램에서의 DB연결용 설정 3. 많이들 궁금해 .. 2008. 7. 24.
rxRichedit 컨트롤에 이미지 넣기 function ConvertBitmapToRTF(const Bitmap: TBitmap): string; var bi, bb: string; bis, bbs: Cardinal; achar: string[2]; Buffer: string; I: Integer; type PWord = ^Word; begin GetDIBSizes(Bitmap.Handle, bis, bbs); SetLength(bi, bis); SetLength(bb, bbs); GetDIB(Bitmap.Handle, Bitmap.Palette, PChar(bi)^, PChar(bb)^); SetLength(Buffer, (Length(bb) + Length(bi)) * 2); i := 1; for bis := 1 to Length(bi) .. 2008. 7. 24.

티스토리툴바