Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > ошибка при повторном подключении инета

Автор: BLACK_KOT 23.11.2008, 08:34

выкладываю проект с модулем - это пример как включить,выключить интернет.
всёбы хорошо, иннернет он включает, и даже отключает, но вот при повторном подключении выдаёт сообщение "подключение было прервано". вобщем второй раз включить инет не удаётся, тока после перезапуска проги включает.одноразовая какая то прога получается. понять не могу , почему так происходит, мож кто баг найдёт, или подскажет дельное чего - напишите вобяз.

Автор: ecspertiza 25.11.2008, 14:56

Код


var
  cmd, par, fil, dir: PChar;
begin
  if connect=false then
   begin
    cmd := 'open';
    fil := 'rasdial.exe';
    par := PChar(Name.Text + ' ' + Login.Text + ' ' + Pass.Text);
    dir := 'C:';
    ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);
    connect:=true;
    email:=mail.Text;
    emailLogin:=eLogin.Text;
    emailpass:=ePass.Text;
   end
  else
   begin
      cmd := 'open';
      fil := 'rasdial.exe';
      par := PChar(Name.Text + ' /DISCONNECT');
      dir := 'C:';
      ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);
   end;

вот попробуй где Name.text - имя соединения с инетом созданного на компе,
Login.text - стало быть логин,
Pass.text - стало быть поролллл.