[DELPHI]: Copia di file in rete locale (LAN) con autenticazione

[Dalton]

Su questo forum ho trovato il seguente tips:

"Salve,

Ho realizzato un programmino in delphi per inviare dei file di aggiornamento su altri pc collegati in rete lan, il tutto sembra funzionare perfettamente ma ho notato che su alcuni pc protetti da password non funziona.

C'è un modo con delphi per autenticarsi prima d'inviare il file ?

La procedura che uso per la copia è questa:

copyfile(pchar(nomefile),pchar('\\indirizzo ip\cartella...'),false)

Aiutatemi "

io ho usato questa procedura copyfile(pchar('c:\lxbt.log'),pchar('\\192.168.50. 33\c\'),false), ma senza ottenere risultati, ovvero nessun file inviato. Mi illuminate gentilmente!, come risolvo?
grazie tante

[Dalton]

ok risolto . Cmq a chi puo servire:

Unit: IdGlobal

copyfileto(pchar('c:\lxbt.log'),pchar('\\192.168.5 0.33\c\lxbt.log'))

[Dalton]

domanda, e se vorrei inviare una cartella intera? grazie ciao!

[Dalton]

risoltoanche questo ecco il codice:

procedure TForm1.Button1Click(Sender: TObject);
var
fileOp: TShFileOpStruct;
fromDir: string;
toDir: string;
begin
fromDir := 'c:\*.mdb*';
toDir := '\\192.168.50.33\c\audio\';


with fileOp do begin
wnd := Handle;
wfunc := FO_COPY;
pFrom := PChar(fromDir);
pTo := PChar(toDir);
fFlags := FOF_ALLOWUNDO;
fAnyOperationsAborted := false;
hNameMappings := nil;
lpszProgressTitle := nil;
end;


SHFileOperation(fileOp);
end;

ciaooooooo!