Подготовка к сборке проекта...
Генерация кода целевого языка
Компоновка проекта...
Command line: fpc.exe '"C:\Program Files\HiAsm\Elements\delphi\code\MRA.pas"' -Sd -Mdelphi '"-FEC:\Program Files\HiAsm\Elements\Delphi\Example\Internet\"' '"-FUC:\Program Files\HiAsm\Elements\delphi\code\units"' -FDtools\ -CX -dF_P
Free Pascal Compiler version 1.9.6 [2004/12/31] for i386
Copyright (c) 1993-2004 by Florian Klaempfl
Target OS: Win32 for i386
Compiling C:\Program Files\HiAsm\Elements\delphi\code\MRA.pas
Compiling C:\Program Files\HiAsm\Elements\delphi\code\hiMRA_Base.pas
Compiling C:\Program Files\HiAsm\Elements\delphi\code\mra_client.pas
Compiling C:\Program Files\HiAsm\Elements\delphi\code\mra_pworks.pas
mra_pworks.pas(74,17) Error: Identifier not found "Format"
mra_pworks.pas(207,4) Fatal: There were 1 errors compiling module, stopping
Error: C:\Program Files\HiAsm\compiler\fpc\ppc386.exe returned an error exitcode (normal if you did not specifiy a source file to be compiled)
Сборка завершена.

#pas
function HostToIP;
var
  hostName : array [0..255] of char;
  hostEnt : PHostEnt;
  addr : PChar;
begin
  Result := '0.0.0.0';
  gethostname (hostName, sizeof (hostName));
  StrPCopy(hostName, Host);
  hostEnt := gethostbyname (hostName);
  if Assigned (hostEnt) and Assigned (hostEnt^.h_addr_list) then
  begin
    addr := hostEnt^.h_addr_list^;
    if Assigned (addr) then
    begin
      Result := Format ('%d.%d.%d.%d', [byte (addr [0]),
        byte (addr [1]), byte (addr [2]), byte (addr [3])]);
    end;
  end;
end;