Problème de Partage

cs_theantho07 Messages postés 12 Date d'inscription samedi 15 octobre 2005 Statut Membre Dernière intervention 22 janvier 2008 - 22 janv. 2008 à 09:30
cs_theantho07 Messages postés 12 Date d'inscription samedi 15 octobre 2005 Statut Membre Dernière intervention 22 janvier 2008 - 22 janv. 2008 à 16:05
Bonjour,

Alors depuis quelques jours je n'arrive toujours pas à acceder à mon partage, je m'explique.
Mon code marche bien, il me dit que le partage à bien marché, mais quand j'essaye d'accéder à mon partage à partir d'un autre pc 'accès refusé'.
Mon code:

unit test;

interface

uses
  SysUtils, Windows;

type
_SHARE_INFO_2 = record
   shi2_netname: LPWSTR;
   shi2_type: DWORD;
   shi2_remark: LPWSTR;
   shi2_permissions: DWORD;
   shi2_max_uses: DWORD;
   shi2_current_uses: DWORD;
   shi2_path: string;
   shi2_passwd: LPWSTR;
end;
PSHARE_INFO_2= ^_SHARE_INFO_2;

var
Share: PSHARE_INFO_2;
ParamErr: lpdword;
Rep : longint;

const
 STYPE_DISKTREE = 0;
 STYPE_PRINTQ = 1;
 STYPE_DEVICE = 2;
 STYPE_IPC = 3;
 STYPE_DFS = 100;
 STYPE_SPECIAL = $80000000;

 ACCESS_NONE = 0;
 ACCESS_READ  = 1;
 ACCESS_WRITE = 2;
 ACCESS_CREATE = 4;
 ACCESS_EXEC = 8;
 ACCESS_DELETE = 16;
 ACCESS_ATRIB = 32;
 ACCESS_PERM = 64;
 ACCESS_ALL = (ACCESS_READ+ACCESS_WRITE+ACCESS_CREATE+ACCESS_EXEC+ACCESS_DELETE+ACCESS_ATRIB+ACCESS_PERM);

function NetShareAdd(servername: LPWSTR;level: DWORD;buf: pSHARE_INFO_2;parm_err: LPDWORD):LongWord; stdcall; external 'netapi32.dll';

implementation

Function AddShare(StrName: string):Boolean;
begin
  new(share);
  Share^.shi2_netname := 'Test';
  Share^.shi2_type := STYPE_DISKTREE;
  Share^.shi2_remark := 'Test';
  Share^.shi2_permissions := ACCESS_ALL;
  Share^.shi2_max_uses := 4;
  Share^.shi2_current_uses := 0;
  Share^.shi2_path := StrName;
  Share^.shi2_passwd := Nil;
 
  rep := NetShareAdd(nil, 2, SHARE, ParamErr);
  if rep = 0 then MessageBox(0,pChar('OK Share Added'),'Success', MB_OK)
  else MessageBox(0,'Error Adding Share','Error',MB_OK);

  dispose(share);
end;

begin
  AddShare('c:\test');
end.

Merci d'avance pour vos réponses

2 réponses

cs_theantho07 Messages postés 12 Date d'inscription samedi 15 octobre 2005 Statut Membre Dernière intervention 22 janvier 2008
22 janv. 2008 à 11:00
Oups, j'ai oublié de dire que mon OS et Windows Xp.
0
cs_theantho07 Messages postés 12 Date d'inscription samedi 15 octobre 2005 Statut Membre Dernière intervention 22 janvier 2008
22 janv. 2008 à 16:05
Après plus de recherches, je suis tombé sur une erreur étrange:
Je partage des dossiers, certains marchent et d'autres non ('accès refusé').
Merci d'avance à ceux qui me répondront.
0