DFÜ Verbindung starten mit Password und Benutzer eingabe

[Mr. Bean]

Hallo PhilGo,

Ja so in der Art, aber für die DFÜ. Ich weiß nicht wie du dich in C++ auskennst aber hier ist mal ein Listing wie es in C++ Gelöst wurde.

Code:

bool RasDial(AnsiString slEntry)
{
  // Variablen
  RASDIALPARAMS pRasDialParams;
  BOOL blPw = true;
  HRASCONN hndConnection = NULL;
  DWORD dwError = 0;

  // RASDIALPARAMS-Struktur füllen:
  ::ZeroMemory(&pRasDialParams, sizeof(pRasDialParams));
  pRasDialParams.dwSize = sizeof(RASDIALPARAMS);
  strcpy(pRasDialParams.szEntryName, slEntry.c_str());
  if(RasGetEntryDialParams(NULL, &pRasDialParams, &blPw))
    return false;
  if(!blPw) // falls Kennwort nicht gespeichert, fragen:
  {
   // Passwort eingabe oder eintrag
    AnsiString slPw = "Hier das Passwort eingeben";
    if(slPw !=EmptyStr) strcpy(pRasDialParams.szPassword, slPw.c_str());
    else return false;
  }
  // Einwählen_
  dwError = ::RasDial(NULL, NULL, &pRasDialParams, 0,
    NULL, &hndConnection);
  if(dwError) return false;
  else return true;
}

Das Problem an der ganzen Sache ist das ich mich in C++ auch nicht sonderlich gut auskenne.
Deshalb kann ich auch nicht den C++ Code in Delphi übertragen.

Gruß
Mr Bean