в надежде на теплую беседу :), обьясняю почему такие требования: есть старый проект написанный на д7, его никто перепиливать не будет на новую дельфю. в этом и нет никакого смысла. к нему надо припаять функциональность которая есть в перл скрипте, городить огород с запуском внешнего скрипта желания нет, к томуже сам скрипт весьма прост, тело файла делится на блоки и отправляется с хидером в порт. я просто с перлом не знаком хорошо чтобы сделать это самостоятельно, поэтому прошу помощи кто в нем шарит

Окай) я просто часто попадал в похожие запросы на форумах. Спрашиваешь одно, а тебе: надо писать на этом и переделать это. Вот тогда и горело))

ну как я и сказал

Как и я) медали нам)

А чего его переписывать) Там изменений не много.

д7 не обязательно, главное реализовать на компонетах ICS. я потом перенесу под д7. кто шарит в перле и готов помочь, пишите в личку

И что в интернетах нет примеров как передать по сети файл при помощи ics?

Я вот не поверю в это

скорее всего прямо в демках в поставке. но не хочет человек заниматься - его право

А я тут с модальными окнами в FMX воюю 🙈

я шарю в перле, и готов помочь консультациями, но писать то же на Д7 - не, увольте )))

три операции (запись, чтение, удаление) на перле на 5 КБ? хм

Мне как-то заказали софт на D7, студент, я с дуру согласился))

ну и опыт показывает, что если есть дока/спецификация, то не стоит портировать кем-то написанное на непонятном языке... лучше сделать по спецификации )

Где, Align, где margins, где дженерики))

сори, даже 6.5кб
вырезка функции:

sub writeFile
{
   my ($host, $src, $dst) = @_;
   my ($total, $percent);
   my $s = IO::Socket::INET->new(PeerAddr => $host, PeerPort => DEFAULT_PORT,
                                 Proto => 'tcp') or die;

   die "Can't open source $src.\n" unless -f $src and -r $src and
       open FILE, $src;

   my ($mode, $len) = (stat FILE)[2,7];
   my $buf = pack 'CNNA*', WRITE_FILE_CMD, $mode, $len, $dst;
   print $s pack('n', length $buf), $buf;

   $| = 1;
   print 'Sending...    ';

   my $startTime = time;
   while (read FILE, $buf, 1024)
   {
       print $s $buf;
       $total += length $buf;
       my $p = int($total / $len * 100 + .5);
       printf "\b\b\b\b%3d%", ($percent = $p) if $p > $percent;
   }

   sysread($s, $buf, 1) or die "Can't read result.\n";
   close $s;
   my $result = unpack 'C', $buf;

   my $endTime = time;
   $endTime++ unless $endTime - $startTime;

   print "\b\b\b\b", $result ? "done." : "failed.";
   printf " %d bytes/sec\n", int($total / ($endTime - $startTime));
}

6500 символов

я вот тоже не так давно подвизался доработать софт на Д7 на предмет ФЗ-54...
и суть даже не в синтаксисе языка )))
на самом деле, там первая причина неприятия была в том, что это писал  КТО-ТО... и этот кто-то писал, очевидно, "я не программист, пишу как умею" ))
сплошной хардкод и копипаста ...
ну а сама Д7 добавила дискомфорта отладки

263 строки 6.5кбайт

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

читать - да.. возможно )) с трудом соглашусь ))
но я взялся его не только читать )))