Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.01;
Скачать: 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 вся ветка

Текущий архив: 2003.09.01;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
1-1422
cult
2003-08-19 13:56
2003.09.01
Проблемы с DCOM-взаимодействием в WinXP


14-1568
Иксик
2003-08-07 09:57
2003.09.01
---|Ветка была без названия|---


1-1473
LuLu
2003-08-18 14:04
2003.09.01
изменение формы


3-1346
slgeo
2003-08-06 12:25
2003.09.01
Как вставить в поле VARCHAR пустую строку?


3-1309
malamba
2003-08-07 19:07
2003.09.01
О выборе базы