Форум: "Сети";
Текущий архив: 2003.09.01;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.012 c