Скачать: CL | DM;

RasGetEntryDialParams - не могу получить номер телефона   Найти похожие ветки 

← →
BlackSun ©   (2003-06-26 18:42) [0]

Есть следующая процедура, которая получает по имени соединения имя пользователя и пароль, но я не могу получить
номер телефона, почему? Получаю только пустую строку.

procedure TMainF.GetData;
var
fp: LongBool;
r: Longint;
c: Array[0..100] of Char;
phone:string;
dialparams: TRasDialParams;
begin
FillChar(dialparams, SizeOf(TRasDialParams), 0);
with dialparams do
begin
dwSize := Sizeof(TRasDialParams);
StrPCopy(szEntryName, EnumBox.Items[EnumBox.ItemIndex]);//В EnumBox - имя соединения
end;
r := RasGetEntryDialParams(nil, dialparams, fp);
if r = 0 then
with dialparams do
begin
phone:=szPhoneNumber;// всегда =""
UserLogin.Text := szUserName;
if fp then
UserPas.Text := szPassword;
end
else
begin
RasGetErrorStringA(r, c, 100);
( "Ошибка - " + c) Есть следующая процедура, которая получает по имени соединения имя пользователя и пароль, но я не могу получить
номер телефона, почему? Получаю только пустую строку.

procedure TMainF.GetData;
var
fp: LongBool;
r: Longint;
c: Array[0..100] of Char;
phone:string;
dialparams: TRasDialParams;
begin
FillChar(dialparams, SizeOf(TRasDialParams), 0);
with dialparams do
begin
dwSize := Sizeof(TRasDialParams);
StrPCopy(szEntryName, EnumBox.Items[EnumBox.ItemIndex]);//В EnumBox - имя соединения
end;
r := RasGetEntryDialParams(nil, dialparams, fp);
if r = 0 then
with dialparams do
begin
phone:=szPhoneNumber;// всегда =""
UserLogin.Text := szUserName;
if fp then
UserPas.Text := szPassword;
end
else
begin
RasGetErrorStringA(r, c, 100);
ShowMessage("Ошибка - " + c);
end;
end;

---

← →
Sha ©   (2003-06-27 14:14) [1]

http://delphimaster.net/view/6-1055312630/

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c