Server(COM/DCOM程序)端：
    PRocedure TTestDCOM.Send4(Size: Integer; D1: OleVariant);
    type
         TData=array [0..999] of Byte;
    Var
         Data:TData;
         i:Integer;
    begin
         for i:=0 to Size-1 do begin
              Data[i]:=D1[i];
         end;
    end;

    Cleint端:

    Var
        D1:OleVariant;
    begin
        D1:=VarArrayCreate([0,99],varByte);

        {
        D1[1]:=45;
           ....  file://將值存入D1中

            }
        S.Send4(99,D1);  file://S是TestDCOM對象
    end;

作者：高素梅

　　配置數(shù)據(jù)引擎(BDE、SQL Link)的簡單方法

　　在數(shù)據(jù)庫程序分發(fā)時(shí)，需要攜帶數(shù)據(jù)引擎(BDE、SQL Link)，并且在客戶端安裝完程序后還需要配置數(shù)據(jù)引擎，如用戶名(username)、密碼(PassWord)等等。如果手工配置的話，工作量比較大，這時(shí)，我們可利用InstallShield For Delphi輕松實(shí)現(xiàn)配置。在用InstallShield For Delphi制作安裝程序時(shí)，在生成安裝程序的目錄里有一個(gè)*.iwz的文本文件，只要在[IDAPI Alias]片段中手工加入即可。 例如：

　　[IDAPI Alias]

　　username=SYSDBA

　　password=masterkey

　　安裝程序后數(shù)據(jù)引擎自動配置完畢。

　　制做快速按鈕條的方法

　　快速按鈕條上的每一個(gè)圖形按鈕都代表著一項(xiàng)常用的功能，同時(shí)，這些圖形按鈕尺寸較普通的圖標(biāo)大，可以放置更大、更形象的圖形，甚至可以帶上簡短的提示，這對于用戶執(zhí)行最常用的功能很有幫助。基于上述原因，越來越多的Windows應(yīng)用程序采用快速按鈕條來改善應(yīng)用程序的界面。筆者在用Delphi編程時(shí)，采用了兩種不同的方法來實(shí)現(xiàn)快速按鈕條，本文結(jié)合制作一個(gè)具有兩組、共六個(gè)按鈕的快速按鈕條的實(shí)例，列出了這兩種方法的具體設(shè)計(jì)步驟。

　　1.組合生成法

　　(1)在窗體上放置一個(gè)Panel1對象，作為圖形按鈕的載體。

　　(2)設(shè)置Panel1的屬性Caption為空，屬性Align為alTop,調(diào)整其高度至合適尺寸。

　　(3)在Panel1上放置六個(gè)SpeedButton按鈕(選用SpeedButton，是因它具有浮動特性)。

　　(4)在Panel1上放置兩個(gè)Bevel對象，調(diào)整其位置和大小，用于分隔按鈕組。

　　(5)調(diào)整SpeedButton1的大小及在Panel1中的位置。

　　(6)選擇SpeedButton1，設(shè)置其屬性Flat為True。

　　(7)單擊SpeedButton1的屬性Glyph所對應(yīng)的省略號小按鈕，打開PictureEditor窗口，選擇一個(gè)象征“查詢”的圖標(biāo)。設(shè)置屬性ShowHint為True,屬性Hint為“查詢”。

　　(8)按步驟（5）至（7）的方法，分別設(shè)置好其余幾個(gè)SpeedButton按鈕的屬性。

　　這樣，一個(gè)快速按鈕條就制作完成了。運(yùn)行時(shí)，快速按鈕均以浮動方式顯示，當(dāng)鼠標(biāo)移至其上時(shí)，即顯示按鈕外框，并顯示小提示。

　　2.借用ToolBar生成法

　　(1)在窗體上放置一個(gè)ToolBar1對象。

　　(2)設(shè)置ToolBar1的屬性EdgeBorders.ebLeft、ebTop、ebRight、ebButtom均為True；屬性Flat為True;調(diào)整ToolBar1的大小至合適尺寸。

　　(3)選擇ToolBar1，用右鍵點(diǎn)出快速選單，分別點(diǎn)擊NewButton和NewSeparator增加六個(gè)按鈕ToolButton和兩條分隔欄線。

　　(4)任意選擇一個(gè)ToolButton按鈕，調(diào)整其大小至合適尺寸，所有的ToolButton也同時(shí)被調(diào)整好。

　　(5)設(shè)置ToolBar1的屬性BorderWidth為3，以調(diào)整ToolButton的位置。

　　(6)在窗體上放置一個(gè)ImageList1對象，設(shè)置它的屬性Height和Width的數(shù)值，以適應(yīng)較大尺寸的圖像。

　　(7)雙擊ImageList1，通過“Add”按鈕分別裝入六個(gè)圖像，與ToolBar1中的六個(gè)ToolButton一一對應(yīng)。

　　(8)設(shè)置ToolBar1的屬性Images為ImageList1。

　　(9)設(shè)置六個(gè)ToolButton的屬性ShowHint為True，并分別設(shè)置各自的小提示屬性Hint。

　　(10)還可以設(shè)置ToolBar1的HotImages指定鼠標(biāo)指向按鈕時(shí)的圖片集。

　　采用ToolBar實(shí)現(xiàn)的快速按鈕條在外觀上與第一種方法制作的類似。

　　以上兩種方法均能實(shí)現(xiàn)快速按鈕條，但各有千秋：第一種設(shè)計(jì)過程較為簡單；第二種方法則提供了更多的功能，如可用HotImages指定鼠標(biāo)指向按鈕時(shí)的圖片集。讀者不妨從中選擇一種，并可繼續(xù)完善其功能。

　　建立臨時(shí)表的方法

　　數(shù)據(jù)輸入是開發(fā)數(shù)據(jù)庫程序的必然環(huán)節(jié)。在Client/Server結(jié)構(gòu)中，客戶端可能要輸入一批數(shù)據(jù)后，再向服務(wù)器的后臺數(shù)據(jù)庫提交，這就需要在本地(客戶端)建立臨時(shí)數(shù)據(jù)表來存儲用戶輸入的數(shù)據(jù)，待提交后，清除本地?cái)?shù)據(jù)表。這種方法的好處是：提高輸入效率，減小網(wǎng)絡(luò)負(fù)擔(dān)。

　　由于用戶一次輸入的數(shù)據(jù)量一般情況下較小(不會超過幾百條記錄)，所以臨時(shí)表可以建立在內(nèi)存中，這樣處理速度較快。臨時(shí)表創(chuàng)建有如下兩種方法：

　　1.使用查詢控件創(chuàng)建臨時(shí)表

　　第1步：在窗體上放入查詢控件(TQuery)，并設(shè)置好所連接的數(shù)據(jù)表。

　　第2步：添加如下語句：

　　TQuery. CachedUpdates=True;

　　TQuery. RequestLive=True。

　　第3步：在原有的SQL語句后加入一條Where子語句，要求加入這條Where子語句后SQL查詢結(jié)果為空。

　　例如：

　　SELECT Biolife."Species No", Category, Common_Name, Biolife."Species Name", Biolife."Length (cm)", Length_In, Notes, Graphic

　　FROM "biolife.db" Biolife

　　where Biolife.Category=′A′ and Biolife.Category=′B′

　　這樣臨時(shí)表就建立好了。

　　2.使用代碼創(chuàng)建臨時(shí)表

　　函數(shù)代碼如下：

　　function CreateTableInMemory(const AFieldDefs:TFieldDefs):

　　TDataSet;

　　var TempTable:TClientDataSet;

　　begin

　　TempTable:=nil;

　　Result:=nil;

　　if AFieldDefs〈〉nil then

　　begin

　　try

　　TempTable:=TClientDataSet.Create(application);

　　TempTable.FieldDefs.Assign(AFieldDefs);

　　TempTable.CreateDataSet;

　　Result:=(TempTable as TDataSet);

　　Except

　　if TempTable〈〉nil then TempTable.Free;

　　Result:=nil;

　　raise;

　　end

　　end

　　end;

　　在程序中按如下方法調(diào)用：

　　procedure TForm1.Button1Click(Sender: TObject);

　　var ADataSet:TDataSet;

　　begin

　　ADataSet:=TDataSet.Create(Self);

　　with ADataSet.FieldDefs do

　　begin

　　Add(′Name′,ftString,30,False);

　　Add(′Value′,ftInteger,0,False);

　　end;

　　with DataSource1 do

　　begin

　　DataSet:=CreateTableInMemory(ADataSet.FieldDefs);

　　DataSet.Open;

　　end;

　　ADataSet.Free;

　　end;

　　這樣，臨時(shí)表就創(chuàng)建完成。

　　方法1使用簡單，但由于利用了查詢控件，清空數(shù)據(jù)時(shí)需要查詢服務(wù)器后臺數(shù)據(jù)庫，所以速度稍慢，而且不適用于臨時(shí)表中各個(gè)字段由幾個(gè)數(shù)據(jù)表的字段拼湊而成的情況。方法2適用范圍廣、速度快，但需要編寫代碼。

　　在InterBase數(shù)據(jù)庫中使用函數(shù)

　　程序員可能在用InterBase作為后臺數(shù)據(jù)庫時(shí)，常會為其提供的函數(shù)過少而感到使用不便(只有四個(gè))，無法方便地編寫出復(fù)雜的存儲過程。InterBase本身無法編寫函數(shù)，但它可以使用外部函數(shù)(調(diào)用DLL中的函數(shù))。下例中說明如何在InterBase 中聲明SUBSTR函數(shù)。

　　DECLARE EXTERNAL FUNCTION SUBSTR

　　CSTRING(80), SMALLINT, SMALLINT

　　RETURNS CSTRING(80)

　　ENTRY_POINT "IB_UDF_substr" MODULE_NAME "ib_udf"

　　其中：MODULE_NAME為DLL的名稱，ENTRY_POINT為函數(shù)名。

　　聲明后便可以使用，例如：

　　select SUBSTR(country)

　　from country

　　本例使用的是Delphi安裝時(shí)自帶的IBLocal數(shù)據(jù)庫，用戶也可以自己編寫函數(shù)來擴(kuò)充InterBase

用Delphi實(shí)現(xiàn)遠(yuǎn)程屏幕抓取
山東巨力股份有限公司CAD中心
檀革勤
---- 在網(wǎng)絡(luò)管理中，有時(shí)需要通過監(jiān)視遠(yuǎn)程計(jì)算機(jī)屏幕來了解網(wǎng)上微機(jī)的使用情況。雖然，市面上有很多軟件可以實(shí)現(xiàn)該功能，有些甚至可以進(jìn)行遠(yuǎn)程控制，但在使用上缺乏靈活性，如無法指定遠(yuǎn)程計(jì)算機(jī)屏幕區(qū)域的大小和位置，進(jìn)而無法在一屏上同時(shí)監(jiān)視多個(gè)屏幕。其實(shí)，可以用Delphi自行編制一個(gè)靈活的遠(yuǎn)程屏幕抓取工具，簡述如下。

---- 一、軟硬件要求。

---- Windows95/98對等網(wǎng)，用來監(jiān)視的計(jì)算機(jī)（以下簡稱主控機(jī)）和被監(jiān)視的計(jì)算機(jī)（以下簡稱受控機(jī)）都必須裝有TCP/ip 協(xié)議，并正確配置。如沒有網(wǎng)絡(luò)，也可以在一臺計(jì)算機(jī)上進(jìn)行調(diào)試。

---- 二、實(shí)現(xiàn)方法。

---- 編制兩個(gè)應(yīng)用程序，一個(gè)為VClient.exe，裝在受控機(jī)上，另一個(gè)為VServer.exe，裝在主控機(jī)上。VServer.exe指定要監(jiān)視的受控機(jī)的IP地址和將要在受控機(jī)屏幕上抓取區(qū)域的大小和位置，并發(fā)出屏幕抓取指令給VClient.exe，VClient.exe得到指令后，在受控機(jī)屏幕上選取指定區(qū)域，生成數(shù)據(jù)流，將其發(fā)回主控機(jī)，并在主控機(jī)上顯示出抓取區(qū)域的BMP圖象。由以上過程可以看出，該方法的關(guān)鍵有二：一是如何在受控機(jī)上進(jìn)行屏幕抓取，二是如何通過TCP/IP協(xié)議在兩臺計(jì)算機(jī)中傳輸數(shù)據(jù)。

---- UDP(User Datagram Protocol，意為用戶報(bào)文協(xié)議)是Internet上廣泛采用的通信協(xié)議之一。與TCP協(xié)議不同，它是一種非連接的傳輸協(xié)議，沒有確認(rèn)機(jī)制，可靠性不如TCP，但它的效率卻比TCP高，用于遠(yuǎn)程屏幕監(jiān)視還是比較適合的。同時(shí)，UDP控件不區(qū)分服務(wù)器端和客戶端，只區(qū)分發(fā)送端和接收端，編程上較為簡單，故選用UDP協(xié)議，使用Delphi 4.0提供的TNMUDP控件。

---- 三、創(chuàng)建演示程序。

---- 第一步，編制VClient.exe文件。新建Delphi工程，將默認(rèn)窗體的Name屬性設(shè)為“Client”。加入TNMUDP控件，Name屬性設(shè)為“CUDP”；LocalPort屬性設(shè)為“1111”，讓控件CUDP監(jiān)視受控機(jī)的1111端口，當(dāng)有數(shù)據(jù)發(fā)送到該口時(shí)，觸發(fā)控件CUDP的OnDataReceived事件；RemotePort屬性設(shè)為“2222”，當(dāng)控件CUDP發(fā)送數(shù)據(jù)時(shí)，將數(shù)據(jù)發(fā)到主控機(jī)的2222口。

---- 在implementation后面加入變量定義

const BufSize=2048;{ 發(fā)送每一筆數(shù)據(jù)的緩沖區(qū)大小 }
var
  BmpStream:TMemoryStream;
  LeftSize:Longint;{ 發(fā)送每一筆數(shù)據(jù)后剩余的字節(jié)數(shù) }

為Client的OnCreate事件添加代碼：
procedure TClient.FormCreate(Sender: TObject);
begin
  BmpStream:=TMemoryStream.Create;
end;

為Client的OnDestroy事件添加代碼：
procedure TClient.FormDestroy(Sender: TObject);
begin
  BmpStream.Free;
end;

為控件CUDP的OnDataReceived事件添加代碼：
procedure TClient.CUDPDataReceived(Sender: TComponent;
  NumberBytes: Integer; FromIP: String);
var
  CtrlCode:array[0..29] of char;
  Buf:array[0..BufSize-1] of char;
  TmpStr:string;
  SendSize,LeftPos,TopPos,RightPos,BottomPos:integer;
begin
  CUDP.ReadBuffer(CtrlCode,NumberBytes);{ 讀取控制碼 }
  if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]='show' then
  begin { 控制碼前4位為“show”表示主控機(jī)發(fā)出了抓屏指令 }
if BmpStream.Size=0 then { 沒有數(shù)據(jù)可發(fā)，必須截屏生成數(shù)據(jù) }
    begin
TmpStr:=StrPas(CtrlCode);
TmpStr:=Copy(TmpStr,5,Length(TmpStr)-4);
LeftPos:=StrToInt(Copy(TmpStr,1,Pos(':',TmpStr)-1));
TmpStr:=Copy(TmpStr,Pos(':',TmpStr)+1,Length(TmpStr)
-Pos(':',TmpStr));
TopPos:=StrToInt(Copy(TmpStr,1,Pos(':',TmpStr)-1));
TmpStr:=Copy(TmpStr,Pos(':',TmpStr)+1,Length(TmpStr)-
Pos(':',TmpStr));
RightPos:=StrToInt(Copy(TmpStr,1,Pos(':',TmpStr)-1));
BottomPos:=StrToInt(Copy(TmpStr,Pos(':',TmpStr
)+1,Length(TmpStr)-Pos(':',TmpStr)));
ScreenCap(LeftPos,TopPos,RightPos,BottomPos); {
 截取屏幕 }
    end;
if LeftSize>BufSize then SendSize:=BufSize
else SendSize:=LeftSize;
BmpStream.ReadBuffer(Buf,SendSize);
LeftSize:=LeftSize-SendSize;
if LeftSize=0 then BmpStream.Clear;{ 清空流 }
CUDP.RemoteHost:=FromIP; { FromIP為主控機(jī)IP地址 }
CUDP.SendBuffer(Buf,SendSize); { 將數(shù)據(jù)發(fā)到主控機(jī)的2222口 }
  end;
end;

其中ScreenCap是自定義函數(shù)，截取屏幕指定區(qū)域，
代碼如下：
procedure TClient.ScreenCap(LeftPos,TopPos,
RightPos,BottomPos:integer);
var
  RectWidth,RectHeight:integer;
  SourceDC,DestDC,Bhandle:integer;
  Bitmap:TBitmap;
begin
  RectWidth:=RightPos-LeftPos;
  RectHeight:=BottomPos-TopPos;
  SourceDC:=CreateDC('DISPLAY',',',nil);
  DestDC:=CreateCompatibleDC(SourceDC);
  Bhandle:=CreateCompatibleBitmap(SourceDC,
RectWidth,RectHeight);
  SelectObject(DestDC,Bhandle);
  BitBlt(DestDC,0,0,RectWidth,RectHeight,SourceDC,
LeftPos,TopPos,SRCCOPY);
  Bitmap:=TBitmap.Create;
  Bitmap.Handle:=BHandle;
  BitMap.SaveToStream(BmpStream);
  BmpStream.Position:=0;
  LeftSize:=BmpStream.Size;
  Bitmap.Free;
  DeleteDC(DestDC);
  ReleaseDC(Bhandle,SourceDC);
end;
 存為“C:VClientClnUnit.pas”和“C:VClientVClient.dpr”，
并編譯。

---- 第二步，編制VServer.exe文件。新建Delphi工程，將窗體的Name屬性設(shè)為“Server”。加入TNMUDP控件，Name屬性設(shè)為“SUDP”；LocalPort屬性設(shè)為“2222”，讓控件SUDP監(jiān)視主控機(jī)的2222端口，當(dāng)有數(shù)據(jù)發(fā)送到該口時(shí)，觸發(fā)控件SUDP的OnDataReceived事件；RemotePort屬性設(shè)為“1111”，當(dāng)控件SUDP發(fā)送數(shù)據(jù)時(shí)，將數(shù)據(jù)發(fā)到受控機(jī)的1111口。加入控件Image1，Align屬性設(shè)為“alClient”；加入控件Button1，Caption屬性設(shè)為“截屏”；加入控件Label1，Caption屬性設(shè)為“左：上：右：下”；加入控件Edit1，Text屬性設(shè)為“0:0:100:100”；加入控件Label2，Caption屬性設(shè)為“受控機(jī)IP地址”；加入控件Edit2，Text屬性設(shè)為“127.0.0.1”；
在implementation后面加入變量定義
const BufSize=2048;
var
  RsltStream,TmpStream:TMemoryStream;

為Server的OnCreate事件添加代碼：
procedure TServer.FormCreate(Sender: TObject);
begin
  RsltStream:=TMemoryStream.Create;
  TmpStream:=TMemoryStream.Create;
end;

為Client的OnDestroy事件添加代碼：
procedure TServer.FormDestroy(Sender: TObject);
begin
  RsltStream.Free;
  TmpStream.Free;
end;

為控件Button1的OnClick事件添加代碼：
procedure TServer.Button1Click(Sender: TObject);
var ReqCode:array[0..29] of char;ReqCodeStr:string;
begin
  ReqCodeStr:='show'+Edit1.Text;
  StrpCopy(ReqCode,ReqCodeStr);
  TmpStream.Clear;
  RsltStream.Clear;
  SUDP.RemoteHost:=Edit2.Text;
  SUDP.SendBuffer(ReqCode,30);
end;

為控件SUDP的OnDataReceived事件添加代碼：
procedure TServer.SUDPDataReceived(Sender: TComponent;
  NumberBytes: Integer; FromIP: String);
var ReqCode:array[0..29] of char;ReqCodeStr:string;
begin
  ReqCodeStr:='show'+Edit1.text;
  StrpCopy(ReqCode,ReqCodeStr);
  SUDP.ReadStream(TmpStream);
  RsltStream.CopyFrom(TmpStream,NumberBytes);
  if NumberBytes< BufSize then { 數(shù)據(jù)已讀完 }
  begin
RsltStream.Position:=0;
Image1.Picture.Bitmap.LoadFromStream(RsltStream);
TmpStream.Clear;
RsltStream.Clear;
  end
  else
  begin
TmpStream.Clear;
ReqCode:='show';
SUDP.RemoteHost:=Edit2.Text;
SUDP.SendBuffer(ReqCode,30);
  end;
end;

存為“C:VServerSvrUnit.pas”和
“C:VServerVServer.dpr”，并編譯。

---- 四、測試。
---- 1、本地機(jī)測試：在本地機(jī)同時(shí)運(yùn)行Vserver.exe和VClient.exe，利用程序的默認(rèn)設(shè)置，即可實(shí)現(xiàn)截屏。查看“控制面板”-“網(wǎng)絡(luò)”-“TCP/IP”-“IP地址”，將程序的“客戶IP地址”設(shè)為該地址 ，同樣正常運(yùn)行。

---- 2、遠(yuǎn)程測試：選一臺受控機(jī)，運(yùn)行VClient.exe；另選一臺主控機(jī)，運(yùn)行VServer.exe，將“受控機(jī)IP地址”即Edit2的內(nèi)容設(shè)為受控機(jī)的IP地址，“截屏”即可。以上簡要介紹了遠(yuǎn)程屏幕抓取的實(shí)現(xiàn)方法，至于在主控機(jī)上一屏同時(shí)監(jiān)視多個(gè)受控機(jī)，讀者可自行完善。以上程序，在Windows98對等網(wǎng)、Delphi 4.0下調(diào)試通過。