Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Копирование файла по сети

Страницы: 1 2 3 >
Bora.ru © (2007-08-28 19:15:00)
данная программа по замыслу должна запускаться на удаленном компе и скопировать файл на мой комп в папку Shared, в которой установлен полный доступ.
вот весь код:
var
sourcefile,destfile:pchar;
begin
sourcefile:='d:\file.rar';
destfile:='\\MyComp\Shared\file.rar';
CopyFile(sourcefile,destfile,false);
end.

Запускаю эту прогу на том компе, но безрезультатно. Хотя с моего компа в его расшаренную папку ф-ция CopyFile копирует без проблем. А также если копировать тот файл в какую-нибудь папку на его компе, то также работает. Но а вот по сети, блин, не хочет.
Что здесь не так?

Reindeer Moss Eater (2007-09-01 18:24:00) [1]
Давно бы уже включил аудит и посмотрел бы, кто именно ломится в шары и кто обламывается.

sniknik (2007-09-01 15:54:00) [2]
обратном порядке одно из двух либо запускаешь программку не из под гостя (что очевидно при посто запуске, не через телнет) либо у него в общей папке стоят более широкие разрешения т.е. и на запись для гостей.

Bora.ru (2007-09-01 14:47:00) [3]
но в обратном порядке же работает - если с моего компа в его общую папку.

Reindeer Moss Eater (2007-08-31 22:36:00) [4]
Тебе еще вчера по-русски и открытым текстом сказали, что не хватает логона на удаленныйхост. Ты туда ломишься под гостем и получаешь свой законный access denied.
Запущен локальнокак какой-то пользователь, а на удаленномхосте ты гость. И гостю там в шаре по записи - большой и жирный болт.

Bora.ru (2007-08-31 19:25:00) [5]

> Reindeer Moss Eater © (31.08.07 17:58) [44]

другими словами, ты хочеш сказать что прога моя должна запускатся под пользователем с правами администратора?

Reindeer Moss Eater (2007-08-31 17:58:00) [6]
Ну и что из этого?
Если ты уверен, что доступ есть, а GetLastError говорит что нет, то это означает что либо ты неправ, и доступа нет, либо вы с ним про разные аккаунты говорите.

Ты уверен, что доступ для Фомы есть, а гетластеррор сообщает, что прога твоя ломится на шару под Еремой и что доступ ему запрещен.

Bora.ru (2007-08-31 17:54:00) [7]

> Reindeer Moss Eater © (30.08.07 22:48) [42]
> Запускает удаленно из под телнета.

в том то и фишка, что - не удаленно. На том компе запущен сервер Remote Administrator и у меня есть таким образом:
1) доступ к его дискам
2) доступ к его коммандной строке.
в первом случае я могу скопировать в любое место на его компе свою прогу, а во втором - запустить ее там.

Да, и просьба не делать замечаний типа "какой смысл копировать файлы своей программой, если это может делать RAdmin". Здесь есть свои ньюансы.

Reindeer Moss Eater (2007-08-30 22:48:00) [8]
Запускает удаленно из под телнета. А логона на удаленный хост не было - вот и весь сказ. Винда ему честно говорит, что access denied, а он плачет, но продолжает упорно есть кактус.

Reindeer Moss Eater (2007-08-30 22:41:00) [9]
короче GetLastError всеравно выдает ошибку "отказано в доступе". Но я на 100% уверен, что к файлу доступ есть.

Священный долг любого новичка не верить тому, что говорит гетластеррор.
И ты не исключение.

Leonid Troyanovsky (2007-08-30 21:34:00) [10]

> Bora.ru (30.08.07 21:08) [39]

> через Telnet запускается

Акаунту телнета разрешен доступ к share?
Что показывает net view \\MyComp?

И в чем, собс-но, смысл этого приложения, если все
можно (если можно) сделать из телнета.

--
Regards, LVT.

Bora.ru (2007-08-30 21:08:00) [11]

> Leonid Troyanovsky © (30.08.07 19:58) [34]
> Что за приложение

в первом сообщении написано - это и есть вся программа

> как запускается?

через Telnet запускается

Leonid Troyanovsky (2007-08-30 20:27:00) [12]

> Bora.ru (30.08.07 20:10) [36]

> Просто проект без форм

И?

Если сложно, то, конечно, можно не отвечать.

--
Regards, LVT.

Leonid Troyanovsky (2007-08-30 20:25:00) [13]

> Riply © (30.08.07 20:06) [35]

Принимается.
Да, ИШ как-то приводил здесь примеры,
но были там "нормальные условия" не упомню.

--
Regards, LVT.

Bora.ru (2007-08-30 20:10:00) [14]

> Leonid Troyanovsky © (30.08.07 19:58) [34]

> Что за приложение, как запускается?

Просто проект без форм

Riply (2007-08-30 20:06:00) [15]
> [31] Leonid Troyanovsky © (30.08.07 19:48)
>Под некоторым дебугером? :)
Чесно говоря, я в них(дебугерах) не очень разбираюсь,
но под Delphi этот код даст исключение:
Handle := CreateEvent(nil, True, True, nil); NtClose(Handle); NtClose(Handle);
а в Help'e, (например для CloseHandle) написано:
Closing an invalid handle raises an exception when the application is running under a debugger.
This includes closing a handle twice, and using CloseHandle on a
handle returned by the FindFirstFile function.
P.S.
Sorry, что зафлудила ветку.

Leonid Troyanovsky (2007-08-30 19:58:00) [16]

> Bora.ru (30.08.07 19:52) [32]

> Но я на 100% уверен, что к файлу доступ есть. А в папке
> установлен доступ для записи.

Что за приложение, как запускается?

--
Regards, LVT.

Leonid Troyanovsky (2007-08-30 19:56:00) [17]

> Bora.ru (30.08.07 16:31) [17]

> CopyFile(sourcefile,destfile,false);
> assignfile(f,'error.txt');
> rewrite(f);
> write(f,'no errors');
> closefile(f);
> except
> e:=getlasterror;

Конечно, вызов CloseHandle из closefile прошел успешно.
Кто ж так ошибки обрабатывает? Учись, студент:

Win32Check(CopyFile(..));

--
Regards, LVT.

Bora.ru (2007-08-30 19:52:00) [18]
короче GetLastError всеравно выдает ошибку "отказано в доступе". Но я на 100% уверен, что к файлу доступ есть. А в папке установлен доступ для записи. Ну люди, не смейтесь - помогите

Leonid Troyanovsky (2007-08-30 19:48:00) [19]

> Riply © (30.08.07 19:41) [30]

> С тем, что некоторые API генерят исключения под дебугером,
> все согласны ?

Под некоторым дебугером? :)

--
Regards, LVT.

Riply (2007-08-30 19:41:00) [20]
>[27] Reindeer Moss Eater © (30.08.07 18:47)
>.... И там все, как и должно быть у нормальных людей:
С тем, что некоторые API генерят исключения под дебугером, все согласны ?
Вот меня и интересует: может есть и такие, которые сгенерят и в "нормальных" условиях ?

Страницы: 1 2 3 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »