N
Привет всем, нужна помощь (не за бесплатно) надо перекодить 5кб перла с сетевыми функциями в паскаль. Под D7+ICSv844
Вот маленькая вырезка кода:
sub writeFile
{
my ($host, $src, $dst) = @_;
my ($total, $percent);
my $s = IO::Socket::INET->new(PeerAddr => $host, PeerPort => DEFAULT_PORT,
Proto => 'tcp') or die;
Предложения пишите в личку, по оплате договоримся.
Вот маленькая вырезка кода:
sub writeFile
{
my ($host, $src, $dst) = @_;
my ($total, $percent);
my $s = IO::Socket::INET->new(PeerAddr => $host, PeerPort => DEFAULT_PORT,
Proto => 'tcp') or die;
Предложения пишите в личку, по оплате договоримся.