Problem mit Funktion WNetAddConnection2

[Mackhack]

Nil (Delphi) NULL(c++) laut MSDN

[Christian Seehase]

Moin Mackhack,

vielleicht solltest Du Dir, beispielsweise, mal das PSDK bei MS runterladen, oder die MSDN-Library.
In der Dokumentation zu RegConnectRegistry steht dann auch, was als Rückgabewert möglich ist.

Nimm aber bloss nicht das SDK, das bei Delphi mitgeliefert wird, das ist nicht aktuell.
[EDIT]
Ich hab' jetzt mal in der D2006-Hilfe (SDK) nachgeschaut:
Es ist zwar vom Februar 2003, aber bezüglich RegConnectRegistry dürfte die Doku stimmen.
[/EDIT]

[Mackhack]

Zitat von Christian Seehase:

Moin Mackhack,

vielleicht solltest Du Dir, beispielsweise, mal das PSDK bei MS runterladen, oder die MSDN-Library.
In der Dokumentation zu RegConnectRegistry steht dann auch, was als Rückgabewert möglich ist.

Nimm aber bloss nicht das SDK, das bei Delphi mitgeliefert wird, das ist nicht aktuell.
[EDIT]
Ich hab' jetzt mal in der D2006-Hilfe (SDK) nachgeschaut:
Es ist zwar vom Februar 2003, aber bezüglich RegConnectRegistry dürfte die Doku stimmen.
[/EDIT]

Ich habe sowohl online als auch in der BDS2006 Hilfe nachgeschaut! Beidesmal kam raus dass wenn der \\Computername nil ist dass dann automatisch auf die lokale Registry zugegriffen wird! Daher fragte ich wie ich das auf Nil ueberpruefen kann wenn der Rueckgabewert doch ein LongInt ist in meiner Function!

[Muetze1]

Nil ist als Ordinaltyp in Form eines Ganzzahltyps 0! Das wurde aber zuvor schon geschrieben...

[Mackhack]

Hi Muetze1,

also Result einfach auf <> 0 pruefen fuer wenn es nil ist oder = 0 fuer nil *AufDerLeitungSteh*?

Sorry, ich frag nur nochmal zwecks Verstaendnis!

[Muetze1]

Ich habe nur darauf hingewiesen, dass NIL = 0 wäre. Ob nun Gleichheit oder nicht hängt von der Doku ab. Wenn die MSDN nun als sagt, dass ein Parameter bei bestimmten Bedingungen Nil ist, dann würdest du ja theoretisch schrieben: If var = Nil Then - da dies nun nicht geht, nehmen wir den ersten Teil und ersetzen Nil mit dem oben angegebenen Ersatzwert: If Var = 0 Then .

Wenn die Variable ungleich Nil/NULL sein sollte laut Doku, dann sollte man das entsprechend anpassen...

[Mackhack]

Danke!

[Mackhack]

Hi,

ich habe nochmal ne Frage hier:

mit meiner jetzigen Funktion die soweit so aussieht

Delphi-Quellcode:

function TfoMain.RegLoginAndConnectRegistry(lpMachineName: String; hKey: HKEY;
           var phkResult: HKEY; User, Password: String): LongInt;
var
  lpNetResource: TNetResource;
begin
  with lpNetResource do
  begin
    dwType := RESOURCETYPE_ANY;
    lpLocalName := nil;
    lpProvider := nil;
    lpRemoteName := PChar(lpMachineName + '\IPC$');
  end;
  Result := WNetAddConnection2(lpNetResource, PChar(Password), PChar(User), 0);
  if ( Result = NO_ERROR ) then
  begin
    Result := RegConnectRegistry(PChar(lpMachineName), hKey, phkResult);
    if ( Result = 0 ) then
    begin
      ShowMessage('Error occurred: ' + SysErrorMessage(GetLastError) +
                   #10#13#10#13 + 'Error Code: 0x' + IntToHex(GetLastError, 8));
      Exit;
    end;
  end;
end;

bekomme ich bei (eigentlich) Erfolgreichem Login- und Verbindungsversuch die letzte ShowMessage um die Ohren gehauen mit dieser Meldung

[QUOTE
---------------------------
Keysearcher
---------------------------
Error occurred: Overlapped I/O operation is in progress


Error Code: 0x000003E5
---------------------------
OK
---------------------------
[/QUOTE]

und anschliessend kommt das richtige Ergebnis. Aufgerufen wird die Function so:

  if ( RegLoginAndConnectRegistry(foNetworkConnection.RemoteComputerName, Key, UsersKey, Username, Password) <> 0 ) then Danke!

[edit=Christian Seehase]Doppelpost gelöscht. Mfg, Christian Seehase[/edit]

[Christian Seehase]

Moin Mackhack,

Du hast doch die Doku zu RegConnectRegistry gelesen.
Bei erfolgreichem Aufruf gibt diese ERROR_SUCCESS zurück, warum fragst Du dort dann auf = 0 ab?
ERROR_SUCCESS hat den Wert 0.

Um einen Fehler zu ermitteln, müsstest Du also auf <> ERROR_SUCCESS bzw. <> 0 abfragen.

[EDIT]
Ausserdem ist Zeilenvorschub #13#10 und nicht #10#13
[/EDIT]

[Mackhack]

Hallo Christian,

ich dachte ich ueberpruefe (laut Muetze1) ob das Result Nil ist:

Zitat:

Parameters

lpMachineName
[in] The name of the remote computer. The string has the following form:

\\computername

The caller must have access to the remote computer or the function fails.

If this parameter is NULL, the local computer name is used.