Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Интернет и сети \ TCP/IP \ Как преобразовать длинный IP адрес в короткий адрес-порт

Как преобразовать длинный IP адрес в короткий адрес-порт

Некоторые старые internet протоколы (такие как FTP) посылают IP адреса и номера портов в шестизначном формате XXX.XXX.XXX.XXX.XX.XXX Следующий код позволяет преобразовать такой адрес к нормальному четырёхзначному IP адресу.

procedure LongIPToShort(aLongIPAddress: string;
out ShortIPAddress: string; out PortNumber: Integer);
var
  i, DotPos, tempPort: Integer;
  tempAddy, temp: string;
  TempStr: string;
begin
  tempAddy := '';
  tempStr := '';
  // Определяем, какой символ использует отправитель
  // в качестве разделителя длинного IP: , или .
  if (POS(',', aLongIPAddress) <> 0) then
    TempStr := ','
  else
    TempStr := '.';

  for I := 1 to 4 do
  begin
    DotPOS := POS(TempStr, aLongIPAddress);
    tempAddy := tempAddy + (Copy(aLongIPAddress, 1, (DotPos - 1)));
    if I <> 4 then
      TempADdy := TempAddy + '.';
    Delete(aLongIpAddress, 1, DotPos);
  end;
  DotPos := Pos(TempStr, aLongIpAddress);
  temp := Copy(aLongIpAddress, 1, (DotPos - 1));
  tempPort := (StrToInt(temp) * 256);
  Delete(aLongIpAddress, 1, DotPos);
  TempPort := tempPort + StrToInt(ALongIpAddress);
  ShortIPAddress := TempADdy;
  PortNumber := tempPort;
end;

Название: Как преобразовать длинный IP адрес в короткий адрес-порт
Дата публикации: 2004-09-02 (2388 Прочтено)

 
 

 

Page generation 0.046 seconds