Входящии звонки

← →
tararasyk (2002-10-04 23:54) [0]

Как можна из Delphi запустить сервер удаленного доступа в режим ожидания входящих звонков а потом запретить принимать входящие звонки.

Заране благодарен за все ответы.

← →
Rouse_ (2002-10-05 00:08) [1]

Каких звонков?

← →
tararasyk (2002-10-05 00:32) [2]

> Rouse_ © (05.10.02 00:08)
> Каких звонков?

Любые звонки.

← →
Rouse_ (2002-10-05 01:10) [3]

Как ты себе это представляешь? Я понимаю еще что модем ждет звонка, но вот сервер (т.е. программа). Конкретнее поставь вопрос, а то никак не могу сообразить что ты хочешь.

Желаю успехов

← →
tararasyk (2002-10-05 01:26) [4]

> Rouse_ © (05.10.02 01:10)
> Как ты себе это представляешь? Я понимаю еще что модем ждет
> звонка, но вот сервер (т.е. программа). Конкретнее поставь
> вопрос, а то никак не могу сообразить что ты хочешь.
>
> Желаю успехов

Система такая :
есть компьютер с модемом настроеный на прием входящих звонков, реализовано в системе Win2000 через удаленный доступ к сети принимать входящие подлючения.
Нужно зделать чтоб управлять времени приема звонков, тоесть вкл\выкл прием (поднимание трубки модемом)

Удачи...

← →
Rouse_ (2002-10-05 01:45) [5]

А вот оно что, тебе нужно управлять модемом. Ща поищу инфу, гдето у меня было что-то подобное.

ЗЫ: но могу и не найти

← →
Rouse_ (2002-10-05 01:50) [6]

Как програмно отключить соединение с сетью. [D6, Win95/98]

Beginner © (21.03.02 18:30)
Как програмно отключить соединение с сетью или точнее модем.

»» Перемещено из конференции "Общие вопросы"
--------------------------------------------------------------------------------
Набережных С. (21.03.02 20:49)

uses
windows;

procedure CloseConnections;

implementation

const
RAS_MaxDeviceType = 16;
RAS_MaxEntryName = 256;
RAS_MaxDeviceName = 128;
RASAPI = "rasapi32.dll";
type
THRasConn = Longint;
TRasConnState = Integer;

LPRasConn = ^TRasConn;
TRasConn = record
dwSize : Longint;
hrasconn : THRasConn;
szEntryName : Array[0..RAS_MaxEntryName] of AnsiChar;
szDeviceType : Array[0..RAS_MaxDeviceType] of AnsiChar;
szDeviceName : Array[0..RAS_MaxDeviceName] of AnsiChar;
end;

TRasConnStatus = record
dwSize : Longint;
rasconnstate : TRasConnState;
dwError : LongInt;
szDeviceType : Array[0..RAS_MaxDeviceType] of AnsiChar;
szDeviceName : Array[0..RAS_MaxDeviceName] of AnsiChar;
end;

function RasGetConnectStatus(hConn: THRasConn; var lpStatus: TRasConnStatus): Longint; stdcall;
external RASAPI name "RasGetConnectStatusA";

function RasEnumConnections(RasConnArray: LPRasConn; var lpcb: Longint; var lpcConnections: Longint): Longint; stdcall;
external RASAPI name "RasEnumConnectionsA";

function RasHangUp(hConn: THRasConn): Longint; stdcall;
external RASAPI name "RasHangUpA";

procedure CloseConnections;
var
Buf: array[0..15] of TRasConn;
n,aConn,aSize:integer;
St:TRasConnStatus;
begin
aSize:= SizeOf(Buf);
FillChar(Buf,aSize,0);
Buf[0].dwSize:=SizeOf(TRasConn);
n:=RasEnumConnections(@Buf[0],aSize,aConn);
if(n = 0)and(aConn > 0)then
while aConn > 0 do
begin
Dec(aConn);
RasHangUp(Buf[aConn].hrasconn);
while RasGetConnectStatus(Buf[aConn].hrasconn ,St) = 0 do
Sleep(0);
end;

← →
Rouse_ (2002-10-05 03:38) [7]

{
Users can choose to work offline by selecting Work Offline on the
File menu in Internet Explorer 4.0 and later. When Work Offline is selected,
the system enters a global offline state independent of any current network
connection, and content is read exclusively from the cache.
}

uses wininet;

// Get offline state
// Alhaiseb Misurata Libya

function IsGlobalOffline: Boolean;
var
State, Size: DWORD;
begin
Result := False;
State := 0;
Size := SizeOf(DWORD);
if InternetQueryOption(nil, INTERNET_OPTION_CONNECTED_STATE, @State, Size) then
if (State and INTERNET_STATE_DISCONNECTED_BY_USER) <> 0 then
Result := True;
end;

//Set offline state

procedure SetGlobalOffline(fGoOffline: Boolean);
var
ci: INTERNET_CONNECTED_INFO;
begin
if fGoOffline then
begin
ci.dwConnectedState := INTERNET_STATE_DISCONNECTED_BY_USER;
ci.dwFlags := ISO_FORCE_DISCONNECTED;
end
else
ci.dwConnectedState := INTERNET_STATE_CONNECTED;
InternetSetOption(nil, INTERNET_OPTION_CONNECTED_STATE, @ci, SizeOf(ci));
end;

Посмотри http://www.swissdelphicenter.ch

Входящии звонки Найти похожие ветки