invalid-file'Computer > Java' 카테고리의 다른 글
| 클러스터링된 오라클 jdbc 연결 설정 (2) | 2007.01.01 |
|---|---|
| UNIX에서 OCI 드라이버 사용 참고자료. (4) | 2005.11.01 |
| 여러 컴퓨터에서 작업시 한글이 깨지는 경우 (4) | 2003.08.05 |
| JSP/Servlet 스펙별 지원하는 서버 정보 (4) | 2003.03.27 |
'html'에 해당되는 글 2건
- 2003.06.22 XML2HTML 4
- 2003.05.09 HTML에 문자 추가하기 154
개념 : TWebBrowser에서 Document 인터페이스를 얻어서 body 부분에 문자를 추가할 수 있다.
var
HTMLDocument : IHTMLDocument2;
WebBrowser1 : TWebBrowser
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
HTMLDocument.body.insertAdjacentHTML('BeforeEnd','안녕하세요...<br>');
//참고 게시물
http://www.delmadang.com/cwb-bin/CrazyWWWBoard.exe?db=dmdlec&mode=read&num=1471&page=1&backdepth=1
/////////////////////////////////////////
//델마당 강좌 4000king님 작성 소스
procedure TFormMain.AddChatText(iRoomType:integer;sColor,sChatText:string);
var
sWhere:Olevariant;
sAddText:Olevariant;
begin
sWhere:='beforeEnd';
sAddText:='<font size=2 color='+'#'+sColor+'>'+sChatText+'</font><br>';
if iRoomType=rtChatRoom then begin
WebBrowserChat.OleObject.Document.Body.InsertAdjacentHTML(sWhere, sAddText);
WebBrowserChat.OleObject.Document.Body.scrollTop:=20000; // pixel
inc(ChatTextLineCount);
end else if iRoomType=rtDateRoom then begin
WebBrowserChatDate.OleObject.Document.Body.InsertAdjacentHTML(sWhere, sAddText);
WebBrowserChatDate.OleObject.Document.Body.scrollTop:=20000;
inc(ChatTextLineCount);
end;
if ChatTextLineCount >=1000 then begin
ClearWebbrowserChat(iRoomType);
ChatTextLineCount:=0;
end;
end;
var
HTMLDocument : IHTMLDocument2;
WebBrowser1 : TWebBrowser
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
HTMLDocument.body.insertAdjacentHTML('BeforeEnd','안녕하세요...<br>');
//참고 게시물
http://www.delmadang.com/cwb-bin/CrazyWWWBoard.exe?db=dmdlec&mode=read&num=1471&page=1&backdepth=1
/////////////////////////////////////////
//델마당 강좌 4000king님 작성 소스
procedure TFormMain.AddChatText(iRoomType:integer;sColor,sChatText:string);
var
sWhere:Olevariant;
sAddText:Olevariant;
begin
sWhere:='beforeEnd';
sAddText:='<font size=2 color='+'#'+sColor+'>'+sChatText+'</font><br>';
if iRoomType=rtChatRoom then begin
WebBrowserChat.OleObject.Document.Body.InsertAdjacentHTML(sWhere, sAddText);
WebBrowserChat.OleObject.Document.Body.scrollTop:=20000; // pixel
inc(ChatTextLineCount);
end else if iRoomType=rtDateRoom then begin
WebBrowserChatDate.OleObject.Document.Body.InsertAdjacentHTML(sWhere, sAddText);
WebBrowserChatDate.OleObject.Document.Body.scrollTop:=20000;
inc(ChatTextLineCount);
end;
if ChatTextLineCount >=1000 then begin
ClearWebbrowserChat(iRoomType);
ChatTextLineCount:=0;
end;
end;
'Computer > Delphi' 카테고리의 다른 글
| Visual Basic에서 만든 dll 호출하기 (14) | 2005.07.10 |
|---|---|
| 유니코드 변환 코드 (5) | 2003.12.17 |
| DLL 호출 관련 정리(임시) (16) | 2003.12.14 |
| 테이블에 트랜잭션과 파라미터 이용해서 인서트 (2) | 2003.11.16 |
| TColor 값을 HTML color 로 변경하는 코드 (2) | 2003.05.14 |
| 그래픽 카드가 RGB or BGR 지원 하는지 체크하기 (153) | 2003.04.28 |
| C의 Union과 비슷하게 Record로 가변 타입 만들기 (158) | 2003.04.24 |
| 메모리 복사하기 (2) | 2003.04.23 |
| 델파이에서 WM_COPYDATA 이용한 데이타 전달 (2) | 2003.04.15 |
| 델파이에서 사용자 정의 메시지 및 프로시져 추가 (2) | 2003.04.15 |
