Написал программу , нужна помощь в тестировании (утилита настройки VPN pptp)
Модератор: Модераторы разделов
-
Ism
- Сообщения: 1261
- Статус: Никто, по сути быдло
Написал программу , нужна помощь в тестировании
Написал утилиту для автоматического создания VPN соединения pptp на lazarus
На своем дистрибутиве и провайдере, то она работает , но хотелось бы посмотреть как она поведет себя на других (у меня openSuse 11.1) .
Вот ссылка на сайт с архивом http://workism.narod.ru/ ( надеюсь модераторы не посчитают это спамом , а если посчитают , то просьба подсказать как все сделать корректно )
там все инструкции по установке и использованию.
Буду благодарен за помощь , результаты можете писать прямо в гостевую , желательно с обратной связью .
На своем дистрибутиве и провайдере, то она работает , но хотелось бы посмотреть как она поведет себя на других (у меня openSuse 11.1) .
Вот ссылка на сайт с архивом http://workism.narod.ru/ ( надеюсь модераторы не посчитают это спамом , а если посчитают , то просьба подсказать как все сделать корректно )
там все инструкции по установке и использованию.
Буду благодарен за помощь , результаты можете писать прямо в гостевую , желательно с обратной связью .
-
KernelPanic
- Бывший модератор
- Сообщения: 2060
- Статус: Brain Атаке
- ОС: Debian squeeze/sid/exp
Re: Написал программу , нужна помощь в тестировании
А скриншоты нынче не в моде?
-
Ism
- Сообщения: 1261
- Статус: Никто, по сути быдло
Re: Написал программу , нужна помощь в тестировании
http://linuxforum.ru/index.php?act=attach&...st&id=15080
http://linuxforum.ru/index.php?act=attach&...st&id=15079
вот главное окно и настроечное , все просто
http://linuxforum.ru/index.php?act=attach&...st&id=15079
вот главное окно и настроечное , все просто
-
кодировщик
- Сообщения: 974
- Статус: зарёган в пятницу 13
- ОС: Linux
Re: Написал программу , нужна помощь в тестировании
У меня такое выдал
У меня нет libglib1.2, только libglib2.0-0
Код: Выделить всё
error while loading shared libraries: libglib-1.2.so.0: cannot open shared object file: No such file or directoryУ меня нет libglib1.2, только libglib2.0-0
-
Ism
- Сообщения: 1261
- Статус: Никто, по сути быдло
Re: Написал программу , нужна помощь в тестировании
попробуй установить пакет glib
какой у тебя дистрибутив ?
какой у тебя дистрибутив ?
-
кодировщик
- Сообщения: 974
- Статус: зарёган в пятницу 13
- ОС: Linux
-
Ism
- Сообщения: 1261
- Статус: Никто, по сути быдло
Re: Написал программу , нужна помощь в тестировании
дело в том что нужная библиотека обнаружилась именно в glib (для SuSe 11.1 это так)
это разные пакеты libglib1.2 и glib ( посмотри , нет ли пакета с таким названием в репозитории)
к сожалению я не знаю сайтов для поиска по deb а то б нашел что тебе нужно
это разные пакеты libglib1.2 и glib ( посмотри , нет ли пакета с таким названием в репозитории)
к сожалению я не знаю сайтов для поиска по deb а то б нашел что тебе нужно
-
KernelPanic
- Бывший модератор
- Сообщения: 2060
- Статус: Brain Атаке
- ОС: Debian squeeze/sid/exp
Re: Написал программу , нужна помощь в тестировании
Странно как-то, Вы вроде кдешник, а пишите программу в неизвестно каком виде. Может уж на C++ с использованием QT, или хотя бы с gtk2.0, благо в кедах всегда были утилиты, способные привести gtk-приложения к нормальному виду. А то как-то из ряда вон смотрится приложение на фоне 4-х кед.
Кстати, не проще (эффективнее) ли было сделать скрипт, который бы последовательно задал пользователю все необходимые вопросы, а потом выполнил необходимые действия?
К примеру, скрипт бы имел один входной аргумент, показывающий, что ему делать, типа connect - соединяйся, disconnect - разъединяйся, config - режим конфигурирования, когда он задает пользователю вопросы по соответствующим полям в окне настройки Вашей программы, после чего производит настройку.
У нас с этим все в норме, если нужно найти пакет по названию, то первое поле, если нужно найти, в како пакет входит такой-то файл - второе поле.
Кстати, не проще (эффективнее) ли было сделать скрипт, который бы последовательно задал пользователю все необходимые вопросы, а потом выполнил необходимые действия?
К примеру, скрипт бы имел один входной аргумент, показывающий, что ему делать, типа connect - соединяйся, disconnect - разъединяйся, config - режим конфигурирования, когда он задает пользователю вопросы по соответствующим полям в окне настройки Вашей программы, после чего производит настройку.
У нас с этим все в норме, если нужно найти пакет по названию, то первое поле, если нужно найти, в како пакет входит такой-то файл - второе поле.
-
Ism
- Сообщения: 1261
- Статус: Никто, по сути быдло
Re: Написал программу , нужна помощь в тестировании
слово скрипт для простого смертного звучит как сово "Бабай" . который на тебя может прыгнуть из окна терминала , Именно поэтому я пишу на лазарусе ( на чем то другом под линукс пока не умею ) . А он староват и собран под gtk а не gtk2 .
Главное чтоб программа справлялясь со своими обязанностями , а уж потом как нибудь оптимизиукем
кстати если положить библиотеку в папку с программой найдет ли она ее ? можно было б тогда прешить этот вопрос
Главное чтоб программа справлялясь со своими обязанностями , а уж потом как нибудь оптимизиукем
кстати если положить библиотеку в папку с программой найдет ли она ее ? можно было б тогда прешить этот вопрос
-
кодировщик
- Сообщения: 974
- Статус: зарёган в пятницу 13
- ОС: Linux
Re: Написал программу , нужна помощь в тестировании
2Ism а статически её нельзя прикрутить
-
Ism
- Сообщения: 1261
- Статус: Никто, по сути быдло
Re: Написал программу , нужна помощь в тестировании
откомпилировал под gtk2 , исполняемый файл на сайте
-
RasenHerz
- Сообщения: 1341
- ОС: Arch Linux amd64
Re: Написал программу , нужна помощь в тестировании
во-первых, нет сборки для x86_64 - ну ладно, я установил ia32, но и это не помогло - программа вылетела с тучей ошибок.
во-вторых, интерфейс просто ужасен, я за минут 10 набросал сие чудо (оно тоже не идеал, но выглядит менее "страшно"):

в-третьих, имхо, бросайте этот lazarus и перепишите все на С/C++ с использованием GTK или Qt соответственно.
во-вторых, интерфейс просто ужасен, я за минут 10 набросал сие чудо (оно тоже не идеал, но выглядит менее "страшно"):
в-третьих, имхо, бросайте этот lazarus и перепишите все на С/C++ с использованием GTK или Qt соответственно.
-
Ism
- Сообщения: 1261
- Статус: Никто, по сути быдло
Re: Написал программу , нужна помощь в тестировании
Какие именно ошибки ? (для GTK(первая пргорамма) или GTK2 )
Чувствую проще будет действительно создать настроечный скрипт , хотя без ГУИ все далеко не так хорошо
Чувствую проще будет действительно создать настроечный скрипт , хотя без ГУИ все далеко не так хорошо
-
RasenHerz
- Сообщения: 1341
- ОС: Arch Linux amd64
Re: Написал программу , нужна помощь в тестировании
первая программа вылетает по той же причине, что написал кодировщик.
вторая - со множеством ошибок(в основном ошибки в библиотеках gtk), которые мне было просто лень разбирать - Vpn я не пользуюсь, так что разбор полетов мне не интересен.
-
Goodvin
- Ведущий рубрики
- Сообщения: 4333
- Статус: ⚝⚠⚒⚑⚖☭☞☣☤&
Re: Написал программу , нужна помощь в тестировании
RasenHerz писал(а): ↑10.04.2009 03:01во-первых, нет сборки для x86_64 - ну ладно, я установил ia32, но и это не помогло - программа вылетела с тучей ошибок.
во-вторых, интерфейс просто ужасен, я за минут 10 набросал сие чудо (оно тоже не идеал, но выглядит менее "страшно"):
в-третьих, имхо, бросайте этот lazarus и перепишите все на С/C++ с использованием GTK или Qt соответственно.
Ничего так выглядит, аккуратненько и со вкусом.
Совет: в тех поля, где вписываются IP-адреса, каждая группа цифр в отдельном поле, я бы между полями точки жирные нарисовал.
Оно было бы нагляднее.
-
Ism
- Сообщения: 1261
- Статус: Никто, по сути быдло
Re: Написал программу , нужна помощь в тестировании
Вообщето такой компонент как MaskEdit , можно из нескольких таких составить , но это все косметика , главное щас выяснить как исполняемый файл ведет себя на других дистрибутивах и сетях VPN . Например скрипты которые я использовал работали на всех дистрибутивах , в отличие от kvpnc .
Поэтому если у кого есть время попробуйте запустить и бросайте сюда вывод ошибок . Нужно узнать что ей не хватает . На худой конец можно rpm собрать .
Единственное что настораживает , это вывод команды ldd , уж больно много библиотек проге нужно, хотя если они стандартные ...
Поэтому если у кого есть время попробуйте запустить и бросайте сюда вывод ошибок . Нужно узнать что ей не хватает . На худой конец можно rpm собрать .
Единственное что настораживает , это вывод команды ldd , уж больно много библиотек проге нужно, хотя если они стандартные ...
-
RasenHerz
- Сообщения: 1341
- ОС: Arch Linux amd64
Re: Написал программу , нужна помощь в тестировании
ну, если вам это поможет:
библиотеки ia32 установлены. как видите, исполняемый файл запускается нена всех дистрибутивах и платформах.
P.S. попробую собрать программу у себя на компе. О результате отпишусь.
Код: Выделить всё
negativ@negativ-zet:~/Desktop$ ./project1
(project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64
(project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64
(project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64
(project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64
(project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64
(project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64
(project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64
(project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64
(project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64
(project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64
(project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64
(project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64
(project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64
(project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64
(project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64
(project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64
[FORMS.PP] ExceptionOccurred
Sender=EInOutError
Exception=Invalid filename
Stack trace:
$0808521E
$08079C1E
$080795E8
$08069319
$08147014
$0807A33B
$0814E448
$08145147
$0807C861
$081487AD
$0814BA5B
$08069319
$08147014
$0807A33B
$0814E448
$081530AD
$080792DF
TApplication.HandleException Invalid filename
Stack trace:
$0808521E
$08079C1E
$080795E8
$08069319
$08147014
$0807A33B
$0814E448
$08145147
$0807C861
$081487AD
$0814BA5B
$08069319
$08147014
$0807A33B
$0814E448
$081530AD
$080792DF
negativ@negativ-zet:~/Desktop$библиотеки ia32 установлены. как видите, исполняемый файл запускается нена всех дистрибутивах и платформах.
P.S. попробую собрать программу у себя на компе. О результате отпишусь.
-
кодировщик
- Сообщения: 974
- Статус: зарёган в пятницу 13
- ОС: Linux
Re: Написал программу , нужна помощь в тестировании
RasenHerz писал(а): ↑12.04.2009 01:35ну, если вам это поможет:
Код: Выделить всё
negativ@negativ-zet:~/Desktop$ ./project1 (project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64 (project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64 (project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64 (project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64 (project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64 (project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64 (project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64 (project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64 (project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64 (project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64 (project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64 (project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64 (project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64 (project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64 (project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64 (project1:8302): Gtk-WARNING **: /usr/lib/gtk-2.0/2.10.0/engines/libclearlooks.so: неправильный класс ELF: ELFCLASS64 [FORMS.PP] ExceptionOccurred Sender=EInOutError Exception=Invalid filename Stack trace: $0808521E $08079C1E $080795E8 $08069319 $08147014 $0807A33B $0814E448 $08145147 $0807C861 $081487AD $0814BA5B $08069319 $08147014 $0807A33B $0814E448 $081530AD $080792DF TApplication.HandleException Invalid filename Stack trace: $0808521E $08079C1E $080795E8 $08069319 $08147014 $0807A33B $0814E448 $08145147 $0807C861 $081487AD $0814BA5B $08069319 $08147014 $0807A33B $0814E448 $081530AD $080792DF negativ@negativ-zet:~/Desktop$
библиотеки ia32 установлены. как видите, исполняемый файл запускается нена всех дистрибутивах и платформах.
P.S. попробую собрать программу у себя на компе. О результате отпишусь.
у меня точно такое
-
Ism
- Сообщения: 1261
- Статус: Никто, по сути быдло
Re: Написал программу , нужна помощь в тестировании
В лазарусе можно собрать на 64 бита платформу , Компилиться должно без вопросов .
-
Portnov
- Модератор
- Сообщения: 1786
- Статус: Матёрый линуксоид
- ОС: Debian testing/unstable
Re: Написал программу , нужна помощь в тестировании
А насчёт скрипта - уж давно в мандриве/мандрейке есть скрипт pptp-command, который как раз всё настраивает.
Работа: Ubuntu 9.10
Дом: Debian testing/unstable и на всякий случай winxp в virtualbox.
Для разнообразия: моя домашняя страница -http://iportnov.ru
Дом: Debian testing/unstable и на всякий случай winxp в virtualbox.
Для разнообразия: моя домашняя страница -http://iportnov.ru
-
RasenHerz
- Сообщения: 1341
- ОС: Arch Linux amd64
Re: Написал программу , нужна помощь в тестировании
у меня в репозиториях он отсутствует, так же как и fpc - для этих случаев и выкладывают бинарники под все поддерживаемые платформы.
-
Ism
- Сообщения: 1261
- Статус: Никто, по сути быдло
Re: Написал программу , нужна помощь в тестировании
К сожалению не получилось скомпилить под 64
А насчет скрипта, если его написали, так тем более не имеет смысла создавать велосипед
А вот програмка которая проста в использовании и , главное, работает на максимуме VPN сетей , это уже интересно
Судя по моему опыту , в pptp и pppd существует множество опций , которые имеют второстепенное значение , а значит их можно исключить . Вы можете убедиться - срипты и конфиги в моей программе элементарны. Можно просто их тупо брать и дописывать параметры своей сети . И оно должно заработать (если полько ваш проавйдер не использует чтото особое )
А насчет скрипта, если его написали, так тем более не имеет смысла создавать велосипед
А вот програмка которая проста в использовании и , главное, работает на максимуме VPN сетей , это уже интересно
Судя по моему опыту , в pptp и pppd существует множество опций , которые имеют второстепенное значение , а значит их можно исключить . Вы можете убедиться - срипты и конфиги в моей программе элементарны. Можно просто их тупо брать и дописывать параметры своей сети . И оно должно заработать (если полько ваш проавйдер не использует чтото особое )
-
KernelPanic
- Бывший модератор
- Сообщения: 2060
- Статус: Brain Атаке
- ОС: Debian squeeze/sid/exp
Re: Написал программу , нужна помощь в тестировании
Portnov написал про мандриву/мандрейк, так что, если Вы разобрались, что куда прописывать и так далее, то могли бы и скриптик состряпать, а то как-то на грустной ноте Вы закончили свои попытки ;).
-
Ism
- Сообщения: 1261
- Статус: Никто, по сути быдло
Re: Написал программу , нужна помощь в тестировании
Хм , а не проще будет положить в папочку шаблонные скрипты с подробными комментариями , и бросать каждому жаждущему, ежли б мне такое в свое время попалось , сколко бы времени сэкономил.
А pptp-command слишком сложен ,хотя и , может быть , функционален, имхо
И еще я удивлен , что у всех кто пытался запустить мою утилиту 64 бит платформы.
А pptp-command слишком сложен ,хотя и , может быть , функционален, имхо
И еще я удивлен , что у всех кто пытался запустить мою утилиту 64 бит платформы.
-
KernelPanic
- Бывший модератор
- Сообщения: 2060
- Статус: Brain Атаке
- ОС: Debian squeeze/sid/exp
-
кодировщик
- Сообщения: 974
- Статус: зарёган в пятницу 13
- ОС: Linux
Re: Написал программу , нужна помощь в тестировании
а ещё неплохо было бы прикрутить к ней окно с выводом логов, типа как pon с параметрами debug dump logfd etc..
-
RasenHerz
- Сообщения: 1341
- ОС: Arch Linux amd64
Re: Написал программу , нужна помощь в тестировании
я что в этом удивительного? все у кого более-менее новая рабочая станция обладают x86_64 процессором (большинство). Думаю я не менее удивился, когда не увидел бинарника под x64 =)))
-
Ali1
- Сообщения: 2250
Re: Написал программу , нужна помощь в тестировании
Код: Выделить всё
2.6.27.21-170.2.56.fc10.x86_64 #1 SMP Mon Mar 23 23:08:10 EDT 2009 x86_64 x86_64 x86_64 GNU/Linux
[ali@aliCQ ~]$ cd VPN_now/besbashvpn/
$ objdump -f project1
project1: file format elf64-x86-64
architecture: i386:x86-64, flags 0x00000112:
EXEC_P, HAS_SYMS, D_PAGED
start address 0x0000000000485ef0Перебрано lazarus`ом с удалением какой-то ошибки, не вникал.
UPD Pen.Cosmetic = True нет
зачем она в конце работы просит в pts пароль и сбивает терминал?
Код: Выделить всё
$ /opt/besbashvpn/project1
[WARNING] Out of OEM specific VK codes, changing to unassigned
[WARNING] Out of unassigned VK codes, assigning $FF
ppp0: error fetching interface information: Device not found
[sudo] password for ali: Убито
$
[AУ вас нет необходимых прав для просмотра вложений в этом сообщении.
-
Ism
- Сообщения: 1261
- Статус: Никто, по сути быдло
Re: Написал программу , нужна помощь в тестировании
Окно конфигурации параметров соединения и скрипты работают только из под root, конечтно это недостаток , но без коррекции sudoers не заработает,именно поэтому программа (а точнее скрипт попросила пароль ). вся информация на сайте
Итог - чтоб работала насторйка нужно быть рутом, а просто для соединения и разьединения можно быть обычным пользователем но прописать в sudoers вот это
Cmnd_Alias SSS = /opt/besbashvpn/connections/*/connect , /opt/besbashvpn/connections/*/disconnect
Host_Alias LOC = ALL
user LOC = NOPASSWD: SSS
И очень важно чтоб папка с программой besbashvpn лежала в /opt потому что программа использует абсолютный путь .
Черт , както сложно все получается. Кстати кто нибудь знает как получить текущую диекторию ( например какой нибудь коммандой ) . Это бы решило вопрос с привязкой утилиты к одному месту.
Попробуй , должно заработать ( опасности вирусов нет , так как ты ее сам компилируешь и все можно проверить )
Итог - чтоб работала насторйка нужно быть рутом, а просто для соединения и разьединения можно быть обычным пользователем но прописать в sudoers вот это
Cmnd_Alias SSS = /opt/besbashvpn/connections/*/connect , /opt/besbashvpn/connections/*/disconnect
Host_Alias LOC = ALL
user LOC = NOPASSWD: SSS
И очень важно чтоб папка с программой besbashvpn лежала в /opt потому что программа использует абсолютный путь .
Черт , както сложно все получается. Кстати кто нибудь знает как получить текущую диекторию ( например какой нибудь коммандой ) . Это бы решило вопрос с привязкой утилиты к одному месту.
Попробуй , должно заработать ( опасности вирусов нет , так как ты ее сам компилируешь и все можно проверить )
-
Ali1
- Сообщения: 2250
Re: Написал программу , нужна помощь в тестировании
Ism
Спасибо я о путях понял.
Цель моего сообщения продемонстрировать, что программа под x86_64 и gtk2 собирается и запускается( я брал исходник под gtk1).
Проверить функциональность генерируемого скрипта я не смогу, т.к. не имею vpn подключения.
http://www.freepascal.org/docs-html/rtl/
Спасибо я о путях понял.
Цель моего сообщения продемонстрировать, что программа под x86_64 и gtk2 собирается и запускается( я брал исходник под gtk1).
Проверить функциональность генерируемого скрипта я не смогу, т.к. не имею vpn подключения.
Код: Выделить всё
program Example64;
Uses Linux;
Var S : String;
begin
GetDir (0,S);
Writeln ('Current directory is : ',S);
end.Код: Выделить всё
./Example64
Current directory is : /home/alihttp://www.freepascal.org/docs-html/rtl/