AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi Ansynchroner Socket-Fehler 10060: Wieso?
Thema durchsuchen
Ansicht
Themen-Optionen

Ansynchroner Socket-Fehler 10060: Wieso?

Ein Thema von napsterxx · begonnen am 19. Mai 2007 · letzter Beitrag vom 19. Mai 2007
 
napsterxx

Registriert seit: 18. Mär 2007
Ort: Borland
556 Beiträge
 
Delphi 7 Enterprise
 
#1

Ansynchroner Socket-Fehler 10060: Wieso?

  Alt 19. Mai 2007, 15:13
So auch ich habe diesen blöden Sockt Fehler bzw. Fehlermeldung. Server funtzt einwandfrei, Client nicht. Mein Ziel war es mit hilfe eines Timers ständig nach dem Server zu suchen, wenn dieser nicht online ist, und diesen dann zu connecten. Tja das genau ist das Problem. Ich wollte das wie gesagt Timer solange der Rechner an ist, den Server sucht und ihn dann connectet. Da ich nicht glaube das jemand ohne Quelltext weiterkommt, hier is er:

Delphi-Quellcode:
procedure TForm1.ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  //Server benachrichtigen dass Client online ist
  Socket.SendText('online');
  Memo1.Lines.Add('Client online');
  Timer1.Enabled := False;
  Memo1.Lines.Add('Timer ended');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //Server benachrichtigen dass Client offline ist
  Client.Socket.SendText('offline');
  Memo1.Lines.Add('Client offline');
  Timer1.Enabled := False;
end;

procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
  //Empfangene Nachricht einer Variable zuweißen
  Nachricht_E := Socket.ReceiveText;
  //IP des Senders einer Variable zuweißen
  IP := Socket.RemoteHost;

  //Wenn empfangene Nachricht = close dann
  if Nachricht_E = 'closethen
  begin
  //Verbindung trennen
  Memo1.Lines.Add('Server closed');
  Client.Active := False;
  Timer1.Enabled := True;
  end;
  if Nachricht_E = 'acceptthen
  begin
  Timer1.Enabled := False;
  Memo1.Lines.Add('Timer ended');
  Memo1.Lines.Add('Client accepted');
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not (Client.active) then
begin
Client.Active := True;
Memo1.Lines.Add('Online sended');
end;
if (Client.active) then
begin
Timer1.Enabled := False;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Client.Active := True;
if not (Client.active) then
begin
Timer1.Enabled := True;
Memo1.Lines.Add('Timer started');
end;
if (Client.active) then
begin
Timer1.Enabled := False;
end;
end;
Kurz zur Fehlermeldung. Sie kommt nach einiger Zeit und lautet so:
Ansynchroner Socket-Fehler 10060 Was da jetzt los ist ... Bitte um Hilfe


mfg NapsterXX
  Mit Zitat antworten Zitat
 


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 02:28 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz