Главная страница
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.015 c
14-1669
Eclipse
2003-08-12 11:17
2003.09.01
Помогите начать с 3D


14-1660
kaif
2003-08-12 14:57
2003.09.01
Вирус в HTML ?


3-1322
OlkaGTS
2003-08-07 13:49
2003.09.01
Как сделать Refresh для одной записи ClientDataSet


3-1301
DarkFiend
2003-08-06 18:13
2003.09.01
не хочу БДЕ!!!


14-1670
Шишкин Илья
2003-08-12 12:59
2003.09.01
Кто-нибудь разбирается в музыке?