Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.26;
Скачать: CL | DM;

Вниз

Копирование файла на другую машину   Найти похожие ветки 

 
Dark Hunter ©   (2002-09-16 17:19) [0]

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


 
Anatoly Podgoretsky ©   (2002-09-16 17:23) [1]

CopyFile :-)


 
Dark Hunter ©   (2002-09-16 17:28) [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"

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

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


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

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



Страницы: 1 вся ветка

Текущий архив: 2002.09.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
14-85684
AlexeyBl
2002-09-02 09:23
2002.09.26
Откуда можно скачать Delphi 7 ?


8-85616
Yaro
2002-01-13 04:29
2002.09.26
Fast draw from array


3-85389
vlad40
2002-09-05 11:04
2002.09.26
Ошибка BDE для CGI application


1-85542
Yuri-7
2002-09-13 15:43
2002.09.26
XLS export filter for FastReport 2.4


1-85500
id_privin
2002-09-13 12:39
2002.09.26
Как унаследовать форму из одного пакета в другом