在三层数据库中，应用层如何限制和控制IP地址,得到用户IP地址(100分)

Delphi + DCOM +SQL2K
是DCOMConnection连接好，还是SocketConnection连接好

firewall?
internet or internat?

得到计算机IP:
function GetComputerIP : string;
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe : PHostEnt;
pptr : PaPInAddr;
Buffer : array [0..63] of char;
I : Integer;
GInitData : TWSADATA;
begin
WSAStartup($101, GInitData);
Result := '';
GetHostName(Buffer, SizeOf(Buffer));
phe :=GetHostByName(buffer);
if phe = nil then
Exit;
pptr := PaPInAddr(Phe^.h_addr_list);
I := 0;
while pptr^ <> nildo
begin
result:=StrPas(inet_ntoa(pptr^^));
Inc(I);
end;
WSACleanup;
end;

这个讨论很多了，相信你查找看看会有答案的。
推荐使用：http://www.richsearch.com

谁能告诉我这两种方法的优劣？

去看看李维的那本书，或者《DELPHI5从入门到精通》都讲得很详细。