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

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

Подключение удаленного доступа к сети / отключение

iskatel ©   (2005-08-15 09:55:00) 

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

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

---

Карелин Артем   (2005-10-23 08:28:00) [1]

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

---

$hade   (2005-10-21 09:14:00) [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);
код "после сборки обработать напильником" =)

---

Winni   (2005-10-20 20:35:00) [3]

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

---

Наверх