Delphi/400 Client/Server Suite

The Delphi/400 Client/Server Suite is based upon Borland's
Delphi Client/Server Suite 2.0 for Windows 95 and Windows
NT, and AS/400-compatible connectivity and development
technology recently licensed by Borland from TCIS TCIS -
Tactical Command Information System
TCIS - Tactical Communications Interface Software
TCIS - Taejon Christian International School (Korea)
TCIS - Targys Customer Inquiry System
TCIS - Taux de Chômage à Inflation Stationnaire (French:
Non-Accelerating-Inflation Rate of Unemployment)
TCIS - Thai Chinese International School
TCIS - TIE Control and Integration Subsystem
TCIS - Traitement Cooperatif et Integration des Systèmes of
Paris, France. It represents the only high-performance RAD
tool Any program or utility that speeds up the development
and programming of an application. Visual programming tools
are widely used to quickly develop graphical front ends.
..... Click the link for more information. that combines the
ease and productivity of visual component-based design, the
power of the world's fastest optimizing 32-bit native-code
compiler, and the flexibility of an open, scalable database
architecture in a robust object-oriented environment. With
the addition of the ScreenDesigner/400 specialized object
classes and ClientObject/400's APPC AS/400 connectivity,
Delphi/400 Client/Server Suite delivers an easy-to-use
Windows interface for the AS/400 that is secure, fast, and
capable of meeting the ever-increasing demands of rapid
client/server development.

"Delphi/400 Client/Server Suite is a great addition to the
AS/400 development tool chest," said Mark R. Buckner,
president of Astech Solutions, Inc., a leading AS/400
consulting and development firm based in Aurora, Ontario.
"AS/400 developers can now realize major productivity
improvements with Delphi's easy-to-use visual design tools,
high-performance database connections, and open component
model. This is definitely a product to watch."

function GetIPFromHost
(var HostName, IPaddr, WSAErr: string): Boolean; 
type 
  Name = array[0..100] of Char; 
  PName = ^Name; 
var 
  HEnt: pHostEnt; 
  HName: PName; 
  WSAData: TWSAData; 
  i: Integer; 
begin 
  Result := False;     
  if WSAStartup($0101, WSAData) <> 0 then begin 
    WSAErr := 'Winsock is not responding."'; 
    Exit; 
  end; 
  IPaddr := ''; 
  New(HName); 
  if GetHostName(HName^, SizeOf(Name)) = 0 then
  begin 
    HostName := StrPas(HName^); 
    HEnt := GetHostByName(HName^); 
    for i := 0 to HEnt^.h_length - 1 do 
     IPaddr :=
      Concat(IPaddr,
      IntToStr(Ord(HEnt^.h_addr_list^[i])) + '.'); 
    SetLength(IPaddr, Length(IPaddr) - 1); 
    Result := True; 
  end
  else begin 
   case WSAGetLastError of
    WSANOTINITIALISED:WSAErr:='WSANotInitialised'; 
    WSAENETDOWN      :WSAErr:='WSAENetDown'; 
    WSAEINPROGRESS   :WSAErr:='WSAEInProgress'; 
   end; 
  end; 
  Dispose(HName); 
  WSACleanup; 
end;

Suppose ur file name is "ThisIsMyFile" which is in folder 
c:\abc... then go to cmd line,

C:\>cd abc

C:\abc>th
& press Tab key, it will display the whole file name as,

C:\>cd abc

C:\abc>ThisIsMyFile.txt