Netzwerkverbindung XP

[Harry M.]

bai mir funtz dat nich. habe win2kpro. es wird fehlerfrei erzeugt und ausgeführt aber passieren tut nichts :gruebel: weiß jemand warum?

[alcaeus]

Zitat:

Zitat von delphicus

bai mir funtz dat nich. habe win2kpro. es wird fehlerfrei erzeugt und ausgeführt aber passieren tut nichts :gruebel: weiß jemand warum?

:roll: "Ruhig Blut Andreas...irgendwann lernen sie es auch noch" :roll:
Was heisst hier "es passiert nichts"? Es passiert nichts im Garten, oder es passiert nichts sichtbares, oder der PC macht danach ueberhaupt nichts mehr, ...
Ein paar Infos waeren (milde gesagt) mal nicht schlecht.
Und auch ein bisschen Code hat noch keinen DP-Leser umgebracht :roll:

Greetz
alcaeus

[Harry M.]

da ist der code der nicht funzt

Code:

procedure NetzlaufwerkVerbinden;
var
   NetResource: TNetResource;
   dwFlags:     DWORD;
   Laufwerk, Pfad, Username, Password : String;
   Verbunden : Boolean;

begin
     NetResource.dwType := RESOURCETYPE_DISK;
     NetResource.lpLocalName := PChar(Laufwerk);
     NetResource.lpRemoteName := PChar(Pfad);
     NetResource.lpProvider := nil;
     dwFlags := 0;

     Laufwerk := 'x:';
     //Pfad := '\\Rechnername\FreigabeOrdner';
     Pfad := '\\127.0.0.1\C$';
     Username := 'administrator';
     Password := ********';

     Verbunden := WNetAddConnection2(NetResource, PChar(Password),
                  PChar(Username),dwFlags) = NO_ERROR;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  NetzlaufwerkVerbinden;
end;

und es passiert eben nichts, jedenfalls nichts sichtbares, und der debugger meldet sich auch nicht

[DasZiesel]

Ist doch auch logisch das der Code nicht funktioniert, oder? :roll: Versuche es doch mal so, vielleicht fällt dir was auf! :thumb:

Delphi-Quellcode:

procedure NetzlaufwerkVerbinden;
var
   NetResource: TNetResource;
   dwFlags:     DWORD;
   Laufwerk, Pfad, Username, Password : String;
   Verbunden : Boolean;

begin
     Laufwerk := 'x:';
     //Pfad := '\\Rechnername\FreigabeOrdner';
     Pfad := '\\127.0.0.1\C$';
     Username := 'administrator';
     Password := ********';

     NetResource.dwType := RESOURCETYPE_DISK;
     NetResource.lpLocalName := PChar(Laufwerk);
     NetResource.lpRemoteName := PChar(Pfad);
     NetResource.lpProvider := nil;
     dwFlags := 0;

     Verbunden := WNetAddConnection2(NetResource, PChar(Password),
                  PChar(Username),dwFlags) = NO_ERROR;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  NetzlaufwerkVerbinden;
end;

[Harry M.]

nee, das einzigste was mir aufgeffalen ist, ist, das ich beim password das " ' " vergessen habe, was dann auch vom compiler mit "Ausdruck erwartet, aber "*" gefunden" bemerkert wird. sonst fällt mir leider nichts auf ausser das die syntax bei dir wie oben mehr blau ist als bei meinem code. mir will aber grad überhaupt icht einleuchten wieseo... :wall: was aber eigendlich sagt das es ein string ist

[alcaeus]

Hi delphicus,

du hast den Code so:

Code:

//...
     NetResource.dwType := RESOURCETYPE_DISK;
     NetResource.lpLocalName := PChar(Laufwerk);
     NetResource.lpRemoteName := PChar(Pfad);
     NetResource.lpProvider := nil;
     dwFlags := 0;

     Laufwerk := 'x:';
     //Pfad := '\\Rechnername\FreigabeOrdner';
     Pfad := '\\127.0.0.1\C$';
     Username := 'administrator';
     Password := '********';
//...

Probier es mal so:

Code:

//...
     Laufwerk := 'x:';
     //Pfad := '\\Rechnername\FreigabeOrdner';
     Pfad := '\\127.0.0.1\C$';
     Username := 'administrator';
     Password := '********';

     NetResource.dwType := RESOURCETYPE_DISK;
     NetResource.lpLocalName := PChar(Laufwerk);
     NetResource.lpRemoteName := PChar(Pfad);
     NetResource.lpProvider := nil;
     dwFlags := 0;
//...

Beachte die Reihenfolge der einzelnen Anweisungen. Weiters koennte auch der Rueckgabewert von WNetAddConnection2 hilfreich sein.

Greetz
alcaeus

[Harry M.]

nun ist es mir auch endlich aufgeafallen. nun funzt dat. danké