seltsamer Fehler beim Mappen von Laufwerken

[5etH]

Hallo Zusammen,

Ich hab mal wieder ein Problem bei dem jegliche logik versagt xD

Zum Ablauf ich will ein Netzwerklaufwerk mappen und überbege Laufwerksbuchstabe,Pfad,User,PW

Der fehler tritt auf sobald ich den Pfad nichtmehr im Quellcode angebe sondern ihn aus einer Listbox auslese,
sobald ich aber den Selben String laut debugger übergebe klappt es nichtmehr ich hoffe ihr könnt mir helfen.

hier die Procedure

Delphi-Quellcode:

function NetzlaufwerkVerbinden(Laufwerk: string; Pfad: string;
  Username: string; Password: string; RestoreAtLogon: Boolean): DWORD;
var
  NetResource: TNetResource;
  dwFlags: DWORD;
begin
  with NetResource do
  begin
    dwType := RESOURCETYPE_DISK;
    lpLocalName := PChar(Laufwerk);
    lpRemoteName := PChar(Pfad);
    lpProvider := nil;
    dwdisplaytype := RESOURCEDISPLAYTYPE_DOMAIN;
    dwusage :=   RESOURCEUSAGE_CONNECTABLE;

  end;

  if (RestoreAtLogon) then
    dwFlags := CONNECT_UPDATE_PROFILE
  else
    dwFlags := 0;

  Result := WNetAddConnection2(NetResource, PChar(Password),
    PChar(Username), dwFlags);
end;

und hier Das Quellcode Stück

Delphi-Quellcode:

   for y := 0 to listbox2.Items.count - 1 do
   begin
     if (NetzlaufwerkVerbinden(listbox1.items[y],{'\\10.15.121.9\adminchat$}listbox2.Items[y];, 
// Die Statische eingabe mit der es Funktioniert ist auskommentiert, und in der Listbox ist laut Debugger der Richtige Pfad
     (combobox1.Items[combobox1.ItemIndex]+'\'+form1.edit1.text), form1.edit2.text, False) = 0) then
      begin
  //....

Schonmal vielen Dank
Gruß Manu

[soulies]

hoi,

Zitat:

if (NetzlaufwerkVerbinden(listbox1.items[y],{'\\10.15.121.9\adminchat$}listbox2.Items[y];,
// Die Statische eingabe mit der es Funktioniert ist auskommentiert, und in der Listbox ist laut Debugger der Richtige Pfad
(combobox1.Items[combobox1.ItemIndex]+'\'+form1.edit1.text), form1.edit2.text, False) = 0) then
begin

was passiert wenn du 'listbox1.items[y]' durch 'listbox1.items.strings[y]' ersetzt ?

und

'{'\\10.15.121.9\adminchat$}listbox2.Items[y];' - stört das ';' ?

[5etH]

das ";" war nich beabsichtigt ist auch schon aus dem code drausen was aber nichts mit dem fehler zu tun hat werde das mit dem strings mal testen

[5etH]

also vielen dank für deine antwort aber der Fehler lag in der DB aus der ich den Pfad ziehe ... da war noch ein Leerzeichen am ende -.-"

Wenn 10 min nachdenken eine Stunde Fehlersuche ersparen würden XD :wall:

Trotzdem nochmals vielen dank für die schnellen antworten ^^ :dp: