обмен данными с сервером

[BioS]

Сообщение от Prowler

sleep(X), где X целое число в мс.

спасибо


а вопрос про ip открыт

[zetrix]

uses
  WinSock;

function GetLocalIP: String;
const WSVer = $101;
var
  wsaData: TWSAData;
  P: PHostEnt;
  Buf: array [0..127] of Char;
begin
  Result := '';
  if WSAStartup(WSVer, wsaData) = 0 then begin
    if GetHostName(@Buf, 128) = 0 then begin
      P := GetHostByName(@Buf);
      if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
    end;
    WSACleanup;
  end;
end;

[BioS]

Сообщение от zetrix

uses
  WinSock;

function GetLocalIP: String;
const WSVer = $101;
var
  wsaData: TWSAData;
  P: PHostEnt;
  Buf: array [0..127] of Char;
begin
  Result := '';
  if WSAStartup(WSVer, wsaData) = 0 then begin
    if GetHostName(@Buf, 128) = 0 then begin
      P := GetHostByName(@Buf);
      if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
    end;
    WSACleanup;
  end;
end;

а если не сложно, не обясните, как это работает

[zetrix]

uses
WinSock;

function GetLocalIP: String;
const WSVer = $101;
var
wsaData: TWSAData;
P: PHostEnt;
Buf: array [0..127] of Char;
begin
Result := '';
if WSAStartup(WSVer, wsaData) = 0 then begin //WSAStartup - запускаем WinSock, WSVer - версия, wsaData - структура, куда будет записана инфа о текущем состоянии
if GetHostName(@Buf, 128) = 0 then begin //получаем имя машины, и записываем в наш буфер Buf
P := GetHostByName(@Buf); //возвращает IP машины по её имени
if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^ ); //преобразуем ип в строку (здесь я не очень понимаю)
end;
WSACleanup; //завершаем работу с WinSock
end;
end;

[BioS]

о спасибо! эта проблема решена. а вот что с остановкой программы? мне надо чтоб остановилось не все, а только та процедура, в которой будет стоять функция остановки

[Prowler]

Сообщение от BioS

о спасибо! эта проблема решена. а вот что с остановкой программы? мне надо чтоб остановилось не все, а только та процедура, в которой будет стоять функция остановки

Во как... сколькож процедур у тебя испоняется одновременно. Судя по тому, что ты новичок, я думаю одна - главная, до потоков ты ещё не дорос. И есстественно если ты её останавливаешь, то и останавливается выполнение единственного кода в памяти...