| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

RasGetEntryDialParams - не могу получить номер телефона

BlackSun ©   (2003-06-26 18:42:00) 

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

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:00) [1]

http://www.delphimaster.ru/cgi-bin/forum.pl?look=1&id=1055312630&n=4

---

Наверх