Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Копирование файлов по сети

Автор: jotun 8.10.2007, 11:10

Здравствуйте. У меня вопрос: имеется расшаренная папка в сети из которой нужно скопировать файл в Делфи7 . Вот код:

Код


procedure TForm1.Button2Click(Sender: TObject);
var
  SHFileOpStruct : TSHFileOpStruct;
  From,tto : array [0..255] of Char;
begin
    SetCurrentDirectory(Pchar('c:\1\'));
      //from:='d:\new.gdb';
      from:='\\192.168.0.10\c:\as\a.dbf';
      tto:='c:\1\';
     with  SHFileOpStruct do
   begin
   Wnd:=handle;
   wFunc:=FO_COPY;
   pFrom:=from;
   pto:=tto;
   fFlags:=0;
   fAnyOperationsAborted:=false;
   hNameMappings:=nil;
   lpszProgressTitle:=nil;
   end;
   SHFileOperation( SHFileOpStruct);

end;

Выдает ошибку: "Не удается произвести чтение из файла или каталога". Когда копирую со своей машины все нормально. Ответьте пожалуйста в чем причина. Спасибо за внимание.

Автор: jotun 8.10.2007, 11:26

Извините туплю smile

Нашел ошибку
from:='\\192.168.0.10\as\a.dbf';

Тему можно закрывать.