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

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

звонилка

_MAD_ ©   (2003-02-27 21:00:00) 

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

---

_MAD_   (2003-03-03 20:49:00) [1]

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

---

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

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

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-02 20:31:00) [3]

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

---

_MAD_   (2003-03-02 19:32:00) [4]

спасибо

---

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


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;


---

Snap   (2003-03-01 23:58:00) [6]

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

---

_MAD_   (2003-03-01 23:55:00) [7]

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

---

wal   (2003-02-28 00:49:00) [8]

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
);

---

Наверх