Форум: "Сети";
Текущий архив: 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.007 c