XML2HTML

Computer/Java 2003. 6. 22. 00:20
개념 :
String으로 저장된 xml을 xsl이용해서 html로 생성하기

소스 :

invalid-file

첨부파일 참고





Posted by Gu Youn
,
Nested loop join

2 정규화 위반 예
ex) Table A(a_pk) , Table  intersection(a_pk,b_pk), Table B(b_pk)
interscetion 테이블의 컬럼이 a_pk에만 종속 되는 경우 2정규화 위반

3 정규화 위반
Table A(a_pk)
  A 테이블의 컬럼이 a_pk의 종속 관계가 아니고 속성끼리 종속성을 같는 경우

퍼포먼스는 I/O 문제 결국 쿼리 실행시 block size가 어떻게 되는지에 따라서 퍼포먼스 차이 발생

'Computer > Database' 카테고리의 다른 글

MySQL 팁  (0) 2005.07.10
MS-SQL - ConnectionString 샘플  (0) 2005.07.10
MS-SQL - 패치및 서비스팩 적용에 따른 버전 정보  (0) 2005.07.10
Oracle 기본 정리  (0) 2003.03.26
두개 이상의 인스턴스 EM에 등록하기  (0) 2002.11.04
MS-SQL 기본 정리  (0) 2002.10.07
Posted by Gu Youn
,

출처 :  http://community.borland.com/article/0,1410,16878,00.html

개념 : TColor값을 ColorToRGB 함수를 이용해서 rgb값으로 변경한후 RGB 순으로 조합한다.

소스 :

procedure TForm1.Button1Click(Sender: TObject);
var
  TheRgbValue : TColorRef;
begin
  if ColorDialog1.Execute then begin
    TheRgbValue := ColorToRGB(ColorDialog1.Color);
    ShowMessage(Format('%.2x%.2x%.2x',
                       [GetRValue(TheRGBValue),
                        GetGValue(TheRGBValue),
                        GetBValue(TheRGBValue)]));
  end;
end;
Posted by Gu Youn
,
개념 : 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;
Posted by Gu Youn
,
1. Building Secure Software : How to Avoid Security Problems the Right Way, Addison Wesely,2001

2. Writing Secure Code, Microsort Press, 2001

3. Hack Proofing Your Web Applications, Syngress 2001
Posted by Gu Youn
,
개념 : 1픽셀 점에 clRed(FF)를 그린후 그 픽셀의 데이터 값이 FF인지 FF0000인지 비교한다.
FF이면 BGR이고 FF0000이면 RGB이다.

소스 :
var
BMP : TBitmap;
P : PDWORD;
begin
BMP := TBitmap.Create;
BMP.PixelFormat := pf32bit;
BMP.Width := 1;
BMP.Height := 1;
BMP.Canvas.Pixels[0,0] := clRed;

P := BMP.ScanLine[0];
if P^ = $FF then
   //BGR 지원
else
   //RGB 지원
end;

BMP.Free;

end;
Posted by Gu Youn
,
자세한 사항은 오브젝트 파스칼 문서 참고
주의 : 가변타입을 위한 case에는 end;를 붙이지 않고 record끝에만 end;를 사용한다.
 
TMessageData = record
    case MessageType : integer of
      KOMAROO_MEMO :(MemoInfo : TMemoDataStruct);
  end;
Posted by Gu Youn
,
개념 : Move함수 이용해서 Char배열에 문자열 복사하기

소스 :
FMemo: PChar;
FMemoSize : integer;

TMemoDataStruct = packed record
    FSenderID: String[50];
    MemoContent : array[1..1024] of char;
  end;

  FillChar(memoinfo, sizeof(TMemoDataStruct), #0);
  memoinfo.FSenderID := FSenderID;
  Move(FMemo^,memoinfo.MemoContent,FMemoSize);
Posted by Gu Youn
,