Форум: "Сети";
Текущий архив: 2003.04.24;
Скачать: [xml.tar.bz2];

Вниз

звонилка   Найти похожие ветки 

← →
_MAD_   (2003-02-27 21:00) [0]

помогите мне плиз я пишу звонилку но не знаю как получить номер телефона диалапного сединения

---

← →
wal   (2003-02-28 00:49) [1]

DWORD RasEnumEntries (

LPTSTR reserved, // reserved, must be NULL
LPTSTR lpszPhonebook, // pointer to full path and filename of phone-book file
LPRASENTRYNAME lprasentryname, // buffer to receive phone-book entries
LPDWORD lpcb, // size in bytes of buffer
LPDWORD lpcEntries // number of entries written to buffer
);

---

← →
_MAD_   (2003-03-01 23:55) [2]

а можно где нить примерчик нарыть ато я так чего то не совсем понял?

---

← →
Snap   (2003-03-01 23:58) [3]

Спросить у юзера

---

← →
Набережных С.   (2003-03-02 15:46) [4]


var
aSize, aCount, aTmp: integer;
Ptemp, pEntries: LPRasEntryName;
pParams: LPRasEntryA;
Res, n: integer;
begin
aSize:=SizeOf(TRasEntryName); aCount:=0; pEntries:=nil;
try
repeat
ReallocMem(pEntries, aSize);
pEntries.dwSize:=SizeOf(TRasEntryName);
Res:= RasEnumEntries(nil, nil, pEntries, aSize, aCount);
until Res <> ERROR_BUFFER_TOO_SMALL;

if Res <> ERROR_SUCCESS then raise ERasError.CreateOnCode(Res);

Ptemp:=pEntries;
GetMem(pParams, SizeOf(TRasEntryA));
try
pParams.dwSize:=SizeOf(TRasEntryA);

for n:=0 to Pred(aCount) do with Memo1.Lines, pEntries^ do
begin
Add(szEntryName);
aSize:=pParams.dwSize;
if
RasGetEntryPropertiesA(nil, @szEntryName[0],
pParams, aSize, nil, aTmp) = ERROR_SUCCESS
then with pParams^ do
begin
Add(#9"PhoneNumber: "#9+szLocalPhoneNumber);
Add(#9"DeviceType: "#9+szDeviceType);
Add(#9"DeviceName: "#9+szDeviceName);
end;
Inc(pEntries);
end;

finally
FreeMem(pParams);
end;
finally
FreeMem(Ptemp);
end;
Memo1.Lines.Add(StringOfChar("#",48));
end;


---

← →
_MAD_   (2003-03-02 19:32) [5]

спасибо

---

← →
_MAD_   (2003-03-02 20:31) [6]

а вот и проблемка что в uses писать надо ато он компайлиться не хочет

---

← →
Набережных С.   (2003-03-02 22:08) [7]

Мог бы и сам такое нарисовать.

ERasError = class(EOSError)
public
constructor CreateOnCode(Error: integer);
end;

constructor ERasError.CreateOnCode(Error: integer);
var
s: string;
n: integer;
begin
ErrorCode:=Error;
n:=RasGetErrorString(Error, nil, 0);
SetLength(s, n);
RasGetErrorString(Error, PChar(s), n);
Message:=PChar(s);
end;
</code
Ну и модуль с импортом RasApi.


---

← →
_MAD_   (2003-03-03 20:49) [8]

ага теперь вроде бы понятно а нет ли у кого ссылки на рабочий пример?

---

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

Форум: "Сети";
Текущий архив: 2003.04.24;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.008 c