AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi Neue Anwahl bei besetzt

Neue Anwahl bei besetzt

Ein Thema von Styler · begonnen am 20. Feb 2004
Antwort Antwort
Styler

Registriert seit: 18. Feb 2004
7 Beiträge
 
#1

Neue Anwahl bei besetzt

  Alt 20. Feb 2004, 15:50
hallo!

ich habe ein wählprogramm das sich sonntags ins inet einwählen soll. Die Anwahldaten stehen in einer Datenbank. Ist es möglich, dass wenn eine Nummer besetzt ist die nächste gleich direkt danach automatishc angewählt wird?

das ist der quellcode für die anwahlprozedur:
Delphi-Quellcode:
{Timer Anwahl}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 If InTimer Then Exit;
 InTimer:=True;
 If DialStep<>0 Then Begin
  With PBar Do Begin
   If Position=Max Then Position:=0;StepBy(1);
  End;
 End;
 Case DialStep Of
  0 : Begin
       Connected:=GetStatus;
       If Connected Then Begin
        Button1.Enabled:=False;
        Button1.Caption:='trennen';
        Panel4.Caption:='Verbunden über '+DFUEName+' als '+Edit1.Text;
        StaticText3.Caption:=Edit1.Text;
        DialStep:=3;
       End;
      End;
  1 : If DFUEName<>'Then Begin
       If DoDial(Edit1.Text,Edit2.Text,Edit3.Text) Then Begin
        Protokoll.Clear;
        DialStep:=2;
        Tick:=0;
        Button1.Enabled:=False;
        OldState:=-1;
       End ELSE DialStep:=0;
      End;
  2 : Begin
       If (OldState<>RASCS_Connected) Or (GetStatus=False) then begin
        Inc(Tick);

        If Tick=StrToInt(Edit97.Text)*2 Then Begin

         Button1.Enabled:=True;
         If RasHandle<>0 Then RasHangup(RasHandle);
         DialStep:=9;
         Protokoll.Lines.Add('Time-Out bei Verbindungsaufbau');
        End;
       End ELSE Begin
        Connected:=True;
        Button1.Enabled:=True;
        Button1.Caption:='trennen';
        Panel4.Caption:='verbunden über '+DFUEName+' als '+StaticText1.Caption;
        StaticText3.Caption:=Edit1.Text;
        DialStep:=3;
       End;
      End;
  3 : Begin
       Connected:=GetStatus;
       If Connected=False Then Begin
        Protokoll.Lines.Add('trennen');
        DialStep:=9;
       End;
      End;
  4 : Begin
       If RasHandle<>0 Then Begin
        Protokoll.Lines.Add('trennen');
        RasHangup(RasHandle);
       End;
       DialStep:=5;
      End;
  5 : Begin
       Connected:=GetStatus;
       If Connected=False Then Begin
        Protokoll.Lines.Add('getrennt');
        DialStep:=9;
       End;
      End;
  6 : Begin
       If RasHandle<>0 Then Begin
        Protokoll.Lines.Add('trennen');
        RasHangup(RasHandle);
       End;
       DialStep:=7;
      End;
  7 : Begin
       Connected:=GetStatus;
       If Connected=False Then Begin
        Close;
       End;
      End;
  9 : Begin
       Panel4.Caption:='getrennt';
       Button1.Caption:='verbinden';
       Button1.Enabled:=True;
       DialStep:=0;
       PBar.Position:=0;
      End;
  98: Begin
       DialStep:=99;
       Tick:=0;
      End;
  99: Begin
       Inc(Tick);
       If Tick>5 Then Begin
        WindowState:=wsMinimized;
        DialStep:=0;
        PBar.Position:=0;
       End;
      End;
 End;

 InTimer:=False;
end;



{Verbinden-Button}
procedure TForm1.Button1Click(Sender: TObject);
begin
 If DialStep=0 Then DialStep:=1;
 If DialStep=3 Then DialStep:=4;
end;

thx im vorraus
styler
Wär Rächtschreibfäler finded dav se behalden *gg*
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:38 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz