技巧分享：計算機二級考試DELPHI基礎開發(fā)技巧

　　◇[DELPHI]SQL顯示多數(shù)據(jù)庫/表

　　SELECT DISTINCT A.bianhao,a.xingming, b.gongzi FROM "jianjie.dbf" a, "gongzi.DBF" b

　　WHERE A.bianhao=b.bianhao

　　◇[DELPHI]RFC(Request For Comment)相關

　　IETF(Internet Engineering Task Force)維護RFC文檔http://www.ietf.cnri.reston.va.us

　　RFC882:報文頭標結(jié)構(gòu)

　　RFC1521:MIME第一部分,傳輸報文方法

　　RFC1945:多媒體文檔傳輸文檔

　　◇[DELPHI]TNMUUProcessor的使用

　　var inStream,outStream:TFileStream;

　　begin

　　inStream:=TFileStream.create(infile.txt,fmOpenRead);

　　outStream:=TFileStream(outfile.txt,fmCreate);

　　NMUUE.Method:=uuCode;{UUEncode/Decode}

　　//NMUUE.Method:=uuMIME;{MIME}

　　NMUUE.InputStream:=InStream;

　　NMUUE.OutputStream:=OutStream;

　　NMUUE.Encode;{編碼處理}

　　//NMUUE.Decode;{解碼處理}

　　inStream.free;

　　outStream.free;

　　end;

　　◇[DELPHI]TFileStream的操作

　　//從文件流當前位置讀count字節(jié)到緩沖區(qū)BUFFER

　　function read(var buffer;count:longint):longint;override;

　　//將緩沖區(qū)BUFFER讀到文件流中

　　function write(const buffer;count:longint):longint;override;

　　//設置文件流當前讀寫指針為OFFSET

　　function seek(offset:longint;origin:word):longint;override;

　　origin={soFromBeginning,soFromCurrent,soFromEnd}

　　//從另一文件流中當前位置復制COUNT到當前文件流當前位置

　　function copyfrom(source:TStream;count:longint):longint;

　　//讀指定文件到文件流

　　var myFStream:TFileStream;

　　begin

　　myFStream:=TFileStream.create(OpenDialog1.filename,fmOpenRead);

　　end;

　　[javascript]檢測是否安裝IE插件Shockwave&Quicktime

　　var myPlugin = navigator.plugins["Shockwave"];

　　if (myPlugin)

　　document.writeln("你已經(jīng)安裝了 Shockwave!")

　　else

　　document.writeln("你尚未安裝 Shockwave!")

　　var myPlugin = navigator.plugins["Quicktime"];

　　if (myPlugin)

　　document.writeln("你已經(jīng)安裝了Quicktime!")

　　else

　　document.writeln("你尚未安裝 Quicktime!")