В сеть из консоли

Вопросы программирования на Free Pascal, использования компилятора и утилит.

Модератор: Модераторы

В сеть из консоли

Сообщение tema » 24.06.2012 04:12:28

Киньтесь примером или ссылкой, пожалуйста...
У меня линукс. Программа в терминале.
Есть windows сеть. Там есть расшаренная папка. Как программно достать из этой папки нужный мне файл.
tema
постоялец
 
Сообщения: 376
Зарегистрирован: 24.03.2011 20:19:27

Re: В сеть из консоли

Сообщение Brainenjii » 24.06.2012 11:09:41

я бы предложил решить задачу через возможности самого линукса:
sudo mount -t cifs -o rw,uid=1000,user=<DomainUserName>,password=<DomainUserPassword> //<ServerAddress>/path/to/share
Аватара пользователя
Brainenjii
энтузиаст
 
Сообщения: 1351
Зарегистрирован: 10.05.2007 00:04:46

Re: В сеть из консоли

Сообщение v-t-l » 24.06.2012 12:11:27

Монтировать не обязательно. Можно воспользоваться консольной утилитой smbclient (команды как у ftp).
Код: Выделить всё
vital@vitalin:~$ smbclient '//F1SHBONE/прикольные картинки'
Enter vital's password:
Domain=[F1SHBONE] OS=[Windows 5.1] Server=[Windows 2000 LAN Manager]
smb: \> get file1.zip
v-t-l
энтузиаст
 
Сообщения: 740
Зарегистрирован: 13.05.2007 16:27:22
Откуда: Belarus

Re: В сеть из консоли

Сообщение tema » 24.06.2012 16:04:02

Сегодня попробую варианты, спасибо.
Т.е. что-то типа
Код: Выделить всё
Var S : Longint;

begin
  S:=fpSystem('smbclient ''//F1SHBONE/прикольные картинки''');
  Writeln ('Command exited wwith status : ',S);
end.

А как дальше? Как выполнить
smb: \> get file1.zip


А если монтировать, то откуда файл открыть? Хотя тут, наверное проще... Можно просто проверить: я когда доберусь до компа попробую просто выполнить эту команду и посмотрю какой путь получится...
tema
постоялец
 
Сообщения: 376
Зарегистрирован: 24.03.2011 20:19:27

Re: В сеть из консоли

Сообщение v-t-l » 24.06.2012 21:41:21

tema писал(а):А как дальше? Как выполнить

smb: \> get file1.zip

Код: Выделить всё
Var S : Longint;

begin
  S:=fpSystem('bash -c ''echo "get FILE1.ZIP" | smbclient -N "//F1SHBONE/прикольные картинки" ''');
  Writeln ('Command exited wwith status : ',S);
end.
v-t-l
энтузиаст
 
Сообщения: 740
Зарегистрирован: 13.05.2007 16:27:22
Откуда: Belarus


Вернуться в Free Pascal Compiler

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9

Рейтинг@Mail.ru