Скачать: CL | DM;

Подключение удаленного доступа к сети / отключение   Найти похожие ветки 

← →
iskatel ©   (2005-08-15 09:55) [0]

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

подключение
ping ya.ru
отключение
подключение
.....
и т.д.

---

← →
Winni   (2005-10-20 20:35) [1]

.......
implementation uses IdTCPClient, IdGlobal, WinInet;
........

procedure TForm1.SpeedButton1Click(Sender: TObject);
Var PBuf: array[0..600] of Char ; PP: PChar; Tex: String;
begin Tex := "ping "+ edHost.Text;
PP:=  StrPCopy(PBuf,Tex);
WinExec(PP,SW_SHOWNA);
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
 If not (InternetAttemptConnect(0) = ERROR_SUCCESS) then
 memStatus.Lines.Append("InternetAttemptConnect - Error") else
 memStatus.Lines.Append("InternetAttemptConnect - succesful ");
end;

---

← →
$hade   (2005-10-21 09:14) [2]

через RAS
FCurrentEntryName - название подключения (существующего,например "GPRS")
hCurrentConnection - handle текущего соединенияж

function Dial: integer;
var
Stat  : TRasConnStatus;
 R                   : Integer;
 C                   : Array[0..100] of Char;
 ErrS                : String;
 DialParams          : TRasDialParams;
begin
 FillChar(DialParams, SizeOf(TRasDialParams), 0);
 with DialParams do
 begin
   dwSize:=Sizeof(TRasDialParams);
   StrPCopy(szEntryName, FCurrentEntryName);
 end;

 R:=RasGetEntryDialParams(nil, DialParams, Fp);
 if R<>0 then
 begin
   Result:=R;
   Exit;
 end;

   hCurrentConnection:=0;
   // Sunc dial
   R:=RasDial(nil, nil, DialParams, 0, nil, hCurrentConnection);
   if R<>0 then
   begin
     RasGetErrorString(R,C,100);
     ShowMessage(C);
   end;

 Result:=R;
end;

для "отключить" - RasHangUp(hCurrentConnection);
код "после сборки обработать напильником" =)

---

← →
Карелин Артем ©   (2005-10-23 08:28) [3]

Посмотри на torry.net в разделе RAS файлик d_ras.zip

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c