Вытащить из строки с ип адресом последние цифры

[AppData]

спасибо помогли!!!!

[macomics]

У различных компиляторов свои заморочки в описаниях системных вызовов. У моего описания функций выглядят так

    function inet_addr(cp:pchar):cardinal;external winsockdll name 'inet_addr';
    function inet_ntoa(i : TInAddr):pchar;external winsockdll name 'inet_ntoa';

Если разбираться с описанием, то функция inet_addr во входном параметре требует число представляющее адрес в памяти по которому начинается массив символов представляющий строку и оканчивающийся #0. Как в моем описании так и в вашем, но у вас там эти данные дополнительно типизированы несколькими разными именами. От чего это не изменяет сами данные, но дополнительно создает контроль типов со стороны компилятора во время сборки. У вас есть нужное число, но компилятор из-за контроля типов не дает вам его передать функции. Поэтому появляются дополнительные преобразования типа PWideChar(Integer(PChar(str)) + 6).

Но все эти заморочки в любом случае сводятся к элементарным определениям языка Pascal. До них просто надо уметь докопаться и разрабатывать программы станет проще. В оболочке Delphi/Lazarus уже давно реализованы механизмы для быстрого нахождения любых описаний, но иногда приходится копаться очень долго пока разберетесь. В этом вся прелесть программирования.

По мимо уже упомянутых мной щелчков мыши с нажатой Ctrl и использования окна автоподстановки, стоит сказать еще про поиск в файлах. К нему приходится прибегать, когда не можете найти в каком конкретно модуле находится описание непонятной вам конструкции.

Как правило поиск в файлах стоит производить рекурсивно в каталоге <DelphiPath>\include\*.* или /usr/include/lazarus/*

[AppData]

var
  str: MarshaledAString;
  sin: IN_ADDR;
begin
  str := PAnsiChar(GetLocalIP);
  sin.S_addr := inet_addr(str);
  sin.S_un_b.s_b4 := AnsiChar(20);
  str := inet_ntoa(sin);
  Result := str;
end;

не работает (

почему то нули 0.0.0.20

[macomics]

Кликаете правее номера строки содержащей str := PAnsiChar(GetLocalIP); и она становится красной.
Потом выбираете пункт Вид->Отладка->Локальные переменные (может отличаться в вашей версии).
Нажимаете зеленую стрелочку (запуск) и программа останавливается на выделенной красным строке.
Потом кнопкой F7 или F8 продолжаете пошаговое исполнение программы параллельно наблюдая за значениями в окне Локальные переменные. Так можно выяснить на каком этапе вы получили ошибку в данных.

[AppData]

Ошибок нет, просто он показывает 0.0.0.20

[macomics]

var
  str: MarshaledAString;
  sin: IN_ADDR;
begin
  str := '127.127.192.0';
  sin.S_addr := inet_addr(str);
  sin.S_un_b.s_b4 := AnsiChar(20);
  str := inet_ntoa(sin);
  Result := str;
end;

Так тоже 0.0.0.20?

var
  str: MarshaledAString;
  sin: IN_ADDR;
begin
  str := MarshaledAString(GetLocalIP);
  sin.S_addr := inet_addr(str);
  sin.S_un_b.s_b4 := AnsiChar(20);
  str := inet_ntoa(sin);
  Result := str;
end;

А так?

[AppData]

macomics, когда вручную прописан, нормально работает а через

 str := MarshaledAString(GetLocalIP);

и через

str := PAnsiChar(GetLocalIP);

почему-то нули.. ((

[macomics]

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

{$EXTERNALSYM inet_addr}
function inet_addr(cp: MarshaledAString): u_long; stdcall; {PInAddr;}  { TInAddr }

но мне это не помогло

Найдите это определение и ткните в нем еще раз с нажатым Ctrl по inet_addr.
Вы должны перейти к строчке вида (она ниже по тексту):

function inet_addr; external <winsockdll> name <'inet_addr'>;

Элементы что я выделил <> могут отличаться от объявленных у вас, но мне интересна эта строчка.
Потом с нажатым Ctrl щелкайте по winsockdll. Мне интересно ее определение.
Возможно вы перейдете не к вышеприведенной строке экспорта, а к функции типа

function inet_addr(cb: MarshalledAString): u_long;
begin
...
end;l

Мне это тоже интересно.

Суть проблемы в том, что у вас Unicode символы занимающие по 2 байта (и второй байт в каждом символе равен #0 - конец строки) передаются как есть в функцию ожидающую ASCII символы занимающие 1 байт.
Решить это можно либо переопределив экспортируемую функцию в соответствии с ее прототипом из внешней справки: см. мой комментарий выше, где я приводил определение этих функций из моего компилятора; либо разобраться с именованием типов у вашего компилятора и передать функции строку в правильном формате без преобразования.
ADD: Еще стоит проверить результат выполнения функции GetLocalIP. Возможно она возвращает строку '0.0.0.0';

[AppData]

правильно я все понял?

[macomics]

да. просто этих библиотек с интерфейсами API несколько в Windows. wsock32.dll, ws2.dll, ws2_32.dll
Все содержат приблизительно одинаковый набор функций, но есть и небольшие различия.
Хотя в основном они делают одно и тоже.

Для начала стоит пойти по пути наименьшего сопротивления. Сразу после слова implementation в модуле с вашей формой добавьте эти строчки:

const winsock32dll = 'wsock32.dll';
function inet_addr_ext(cp:pchar):cardinal;external winsock32dll name 'inet_addr';
function inet_ntoa_ext(i : IN_ADDR):pchar;external winsock32dll name 'inet_ntoa';

и в функции измените имена на новые

var
  str: PChar;
  sin: IN_ADDR;
begin
  str := GetLocalIP;
  sin.S_addr := inet_addr_ext(str);
  sin.S_un_b.s_b4 := #20;
  str := inet_ntoa_ext(sin);
  Result := str;
end;