| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Копирование файла на другую машину [D6, Win2k]

Dark Hunter ©   (2002-09-16 17:19:00) 

Мастера!!! Ай нид хелп!
Функцией WNetAddConnection2A подключаю диск с другой машины в сети под именем B:
Как можно туда скопировать свой файл?

---

REA   (2002-09-16 18:02:00) [1]

А чего ты @Var[1] пишешь вместо PСhar()?
А что за ошибка 123 - переведи в текст?
Может слэшей много (хотя вряд ли)?

---

Dark Hunter   (2002-09-16 17:28:00) [2]

Ага!:)
смотри
**********************************************

LocalName:="B:"+#0;
SrcSvcFile:=ExtractFileDir(Application.ExeName)+"\rcsvc.exe";
DstSvcFile:="b:\winnt\system32\rcsvc.exe";
for index:=1 to ComputersCount do
begin
if LowerCase(Computers[index])<>LowerCase(MashineName) then continue;
FillChar(ResInfo, SizeOf(ResInfo), 0);
With ResInfo do
begin
dwType:=2; //disc resources
lpLocalName:=@LocalName[1];
FillChar(CompName, 25, #0);
CompName:="\\INET08\C$"; //Computers[index];
//lpRemoteName:=StrPas(CompName);
lpRemoteName:=@CompName[1];
lpProvider:=nil;
end;
Result:=WNetAddConnection2A(ResInfo,
@Password[1],
@Login[1],
0);//Примаунтили диск...
if Result=NO_ERROR then
begin
CopyFile(@SrcSvcFile[1], @DstSvcFile[1], True);
FSErrorCode:=GetLastError;
ShowMessage("ошибка "+IntToStr(FSErrorCode)+" на шаге {2.5}");
WNetCancelConnection2A(ResInfo.lpRemoteName,
0,
True);
end
else //ERROR_ACCESS_DENIED
begin
ErrorCode:=GetLastError;
ShowMessage("ошибка "+IntToStr(ErrorCode)+" на шаге {2}");
halt(1);
end;
end;

******************************************

CopyFile даёт ошибку 123

но я в упор не вижу где здесь я перепутал пути или имена

файл ExtractFileDir(Application.ExeName)+"\rcsvc.exe"

существует однозначно

Обьясните мне, если можно, в каком месте я глупый? :)

---

Anatoly Podgoretsky   (2002-09-16 17:23:00) [3]

CopyFile :-)

---

Наверх