Einen Chat mit den Sockets programmieren

[chrisx]

Zitat:

Zitat von Ultimator

Du musst sie dynamisch erstellen. Vergiss aber nicht, die Unit ScktComp einzubinden.
Wenn du nicht genau weißt, wie man sie dynamisch erstellt, dann schau dir mal das Tutorial zum Thema dynamische Komponentenerstellung auf www.delphi-source.de an ;-)

wo genau finde ich das tutorial?
ich habe geschaut, kann aber nix finden...

[Ultimator]

Oh, sorry, es heißt ja auch "Komponentenerstellng zur Laufzeit"
Du findest es hier :wink:

[chrisx]

ich komme mit dem tutorial bzw. der erstellung der komponente leider nicht zurecht, hier ist mein quelltext:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, AppEvnts, ExtCtrls, ScktComp;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Timer1: TTimer;
    ApplicationEvents1: TApplicationEvents;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  ScktComp1: TScktComp;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var ScktComp1: TScktComp;

begin
 ScktComp1 := TScktComp1.Create(self);
 ScktComp1.Parent := Form1;
 ScktComp1.Show;

end;

end.

beim ausführen wird folgender fehler angezeigt:
Unit1.pas(7): Lesefehler bei 'c:\programme\borland\delphi7\Lib\ScktComp.dcu

[Ultimator]

Wenn du einen ServerSocket erstellen möchtest, so musst du die globale Variable von Typ TServerSocket definieren, für einen ClientSocket von Typ TClientSocket.

Etwa so:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, AppEvnts, ExtCtrls, ScktComp;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Timer1: TTimer;
    ApplicationEvents1: TApplicationEvents;
    procedure ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket);  
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  ServerSocket1: TServerSocket;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1 := TServerSocket.Create(nil);
ServerSocket1.OnClientRead:=Form1.ServerSocket1ClientRead;
ServerSocket1.OnClientConnect:=Form1.ServerSocket1ClientConnect;
end;

procedure ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); 
begin
//Der Code, der ausgeführt werden soll, wenn ein Text von einem Client ankommt
end;

procedure ServerSocket1ClientConect(Sender: TObject; Socket: TCustomWinSocket);
begin
//Der Code, der ausgeführt werden soll, wenn ein  Client sich verbindet
end; 

end.

Und eben immer die Events selbst schreiben :-)

[chrisx]

vielen dank, ich versuche es mal

[chrisx]

ich habe den quelltext jetzt angepasst, aber es sind noch mindestens 2 probleme da:


ich weis nicht wi und wo ich folgende zeilen aus deinem tutorial einbauen soll:

Zitat:

Das wäre eigentlich schon fast alles für den Client, bloß das fehlt noch:

Delphi-Quellcode:

ClientSocket1.Socket.SendText(Edit3.Text +' hat den Chat verlassen.'); delay(500); ClientSocket1.Close; end;

Wir schicken nun einen Text, der die anderen Teilnehmer darüber informiert, dass man den Chat verlassen hat. Dann warten wir eine halbe Sekunde, damit der Text auch wirklich durch die Leitung ist. Danach schließen wir den Socket.

und es kommt immernoch die fehlermaldung
"Unit1.pas(7): Lesefehler bei 'c:\programme\borland\delphi7\Lib\ScktComp.dcu" und die 2. zeile der uses wird rot makiert
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, AppEvnts, ExtCtrls, ScktComp;

hier nochmal der quelltext (verändert) :

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, AppEvnts, ExtCtrls, ScktComp;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Timer1: TTimer;
    ApplicationEvents1: TApplicationEvents;
    procedure FormCreate(Sender: TObject);
    procedure ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); 
    procedure ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Delay(time: word);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  ServerSocket1: TServerSocket;
  Label6.Caption:=IdIPWatch1.LocalIP; //Damit oben im Fenster schon beim FormCreate die aktuelle IP-Adresse angezeigt wird
  Button1.Enabled:=false;//Damit man nicht schon vorher draufdrückt
  Button2.Enabled:=false;// -''-

implementation

{$R *.dfm}
procedure TForm1.delay(time:word);
var Start: Integer;
begin Start:=GetTickCount;
while (GetTickCount)-(Start) <= time do Application.ProcessMessages;
end;

procedure TForm1.FormCreate(Sender: TObject);


begin
 ServerSocket1 := TServerSocket.Create(nil);
 ServerSocket1.OnClientRead:=Form1.ServerSocket1ClientRead;
 ServerSocket1.OnClientConnect:=Form1.ServerSocket1ClientConnect;
end;


procedure ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); 
begin 
Form1.Show;
Memo1.Lines.Add(Socket.ReceiveText);//Der Code, der ausgeführt werden soll, wenn ein Text von einem Client ankommt 
end;

procedure ServerSocket1ClientConect(Sender: TObject; Socket: TCustomWinSocket); 
begin 
//Der Code, der ausgeführt werden soll, wenn ein  Client sich verbindet 
end; 



procedure TForm1.Button3Click(Sender: TObject);
begin
Nickname:=Edit3.Text;
Button3.Enabled:=false;
Edit3.Enabled:=false;
Button2.Enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ClientSocket1.Host:=Edit2.Text;
ClientSocket1.Active:=true;
Button2.Enabled:=false;
Edit2.Enabled:=false;
Button1.Enabled:=true;
Nachricht:=Edit3.Text+' hat den Raum betreten'; delay(500);
ClientSocket1.Socket.SendText(Nachricht);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if (ClientSocket1.Active=true) and (Edit1.Text<>'')then
ClientSocket1.Socket.SendText(NickName+': '+Edit1.Text);
Edit1.Text:='';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label3.Caption:=IdIPWatch1.LocalIP;
end;

end.

[Ultimator]

Tut mir leid, aber ich kann das nich nachvollziehen, bei mir läuft nämlich Alles wie geschmiert. :gruebel:
Mach am besten einen neuen Thread auf, da kann dir sicher geholfen werden ;-)

Und der angesprochene Teil des Sourcecodes mus in das OnClose-Event der Hauptform, das muss ich wohl irgendwie übersehen haben :-)

[Äfan]

Kann man die dclsockets70.bpl irgendwo runterladen ? Bei mir is die net dabei :(

MFG

[Ultimator]

Nein, kann man nicht, aber ich hab doch schon geschrieben, wie du die Sockets mit Delphi 7 PE nutzen kannst:
Dynamisch per Hand zur Laufzeit erzeugen ;-)
Was'n Satz :mrgreen:

[Äfan]

Häää :gruebel: Wo steht des *nix mehr ceckt*

:freak:

[Ultimator]

Ungefähr hier ;-)

[Äfan]

Oh, bisschen daneben geschaut, aber ich habe es gelesen, nur net realisiert oder besser compiliert :-D :stupid: :nerd: :tongue: :hello:

greez

[hardy1234]

Ganz nett, nur

1. Warum immer die Indy's?
2. Warum das ganze immer mit Timern?

Ich hab das mit den Delphi7-Internetkomponenten realisiert und das vollständig Event-gesteuert und mit Threads veranstaltet. Allerdings ist hierfür ein Proxy-Server zu programmieren, der die Web-IP's der Clients vorhält. Schließlich soll das Ding ja auch im Internet funzen.

Notwendig ist hierfür:

1. Über www.dyndns.org oder www.no-ip.com sich einen Alias-Namen besorgen (kost nix)
2. Der Client muß sowohl eine TcpClient- und TcpServer-Komponente haben.

Nach anfänglichen Problemen mit den Delphi-Komponenten hab ich die Unit kopiert und noch ein paar Änderungen vorgenommen. Z.B. TcpCustomClient.ReadStream. Das funzt prima.
Etwas aufwendig ist die Kiste mit den Threads, das leidige Problem der Online-Hilfe bzw. dem Handbuch ist ja bekannt.

Ist der Server(Client) gestartet horcht der fröhlich am Port auf ankommende Nachrichten und erzeugt sofort einen Thread in dem die Vorverarbeitung stattfindet (eigenes IP-Protokoll nötig).
Damit der Client nun auch seine Web-IP bekommt sendet er eine Anforderung an den Proxy-Server der sofort mit der Web-IP antwortet. Das ganze natürlich verschlüsselt und mit einem Zertifikat versehen. Die Zeitabläufe entsprechen etwa einem normalen Ping, ca. 70-80 ms. Wenn das nix ist?

Der Server hält eine Firebird-Datenbank vor, in der die Web-IP's der Clients gespeichert werden und so für alle Clients mit dem entsprechenden Zertifikat weltweit vorgehalten werden. Sollte der Client zwischendurch seine Web-IP ändern, teilt er das per Thread allen Online-Clients selber mit. Da das über einen Thread läuft merkt der Anwender nichts davon. Das ist gar keine schwierige Übung, man sendet einfach einen Header mit dem entsprechenden Befehl und der Serversocket im empfangend Client hat automatisch die neue IP (Client.LookUpHostAddr(Client.HostName)). Vorbedingung ist lediglich, das der Nickname je Client eineindeutig ist.

Vorteil bei diser Vorgehensweise ist, das der Serversocket im Client nur dann etwas tut wenn er auch Daten empfängt. Ob der Client dann stundenlang nix tut oder nicht ist schißkujennum. Er belastet anders als beim IRC den Server(Proxy) nicht.

Besonders lustig ist bei der ganzen Sache, das die Kiste auch im internen Netzt klappt. Das einzige Problem, das ich noch lösen muß ist die Weiterleitung ins interne Netz wenn der Client von dort gesendet hat und die gemeinsame Web-IP benutzt um einen Client irgendwo auf der Welt zu erreichen.

Wenn jemand Spaß daran hat bei dem Projekt ein bißchen mit zu tun dann bei mir melden. Da ist noch ne Menge Arbeit dran. Das ganze ist auch bezüglich Threads und Netzwerk-Programmierung lehrreich und echt spannend.

Am Besten an der ganzen Sache ist, daß man das Website-Geschisse und den Browser nicht braucht. Das funzt mit nem ganz normalen Programm und damit sicherer und schneller als jedes Script das je könnte.

[Ultimator]

Ja, das ist auch eine gute Möglichkeit, aber ich wollte hier in dem Tutorial ja an einem einfachen, auch für Anfänger leicht nachzuvollziehenden Beispiel erklären, wie man die Sockets nutzt, um nen Chat zu schreiben ;-)

Klar, ich könnte das auch anders machen, aber dann würd es vermutlich nicht mehr den o.g. Bedingungen entsprechen ;-)

[nico525]

*netallesgenaudurchgelesen*
aber ich kann sagn irgendwie funzt der dwnload net *heul*
könnt ihr mir sagen wie as jetzt mit dem chat geht

[Ultimator]

Hmmm, also das mit dem separaten Link kann nicht mehr funktionieren, da ich meinen Webspace anderweitig nutze :mrgreen:

Aber hast du mal die angehängte PDF-Datei mit "Ziel speichern unter.." herunterzuladen versucht?
Bei mir klappt nämlich komischerweise alles :-|

[nico525]

geht net entweder hab ich keinen zugriff auf die datei oder si existiert net

[Matrix Scripter]

Holla!
Ich hab das Problem das im Memofeld des Clients nix steht.
Aber in dem des Servers schon...
Woran könnte das liegen?

mfG Matrix Scripter :angel:

[alcaeus]

Hallo Matrix Scripter,

wie ich im andern Thema geschrieben habe, musst du die Ereignisse zuweisen, wenn du die Sockets dynamisch erstellst, bzw. auch wenn du die Sockets zur Designtime auf die Form setzt, und die Ereignisse nicht im OI zuweist.
Hast du dies auch für TClientSocket.OnRead gemacht? Das OnClientRead-Ereignis ist ein Ereignis des ServerSockets, für das ClientSocket musst du noch eines schreiben.

Greetz
alcaeus

[Matrix Scripter]

Okay ist das dann

Delphi-Quellcode:

client.OnRead := clientRead;

? :oops:
Und steht das auch im Tutorial, wenn ja dann hab find ichs nicht^^

mfG Matrix Scripter

[Goldesel]

So. Hab grad n kleines Problem. Bei mir gibt unter dem Reiter "Internet" keinen "ClientSocket" und auch keinen "Server- Socket". Kann mir da jemand weiterhelfen. Benutz die englische Delphi 7 Enterprise.

Danke

[Ultimator]

Wie damals schon hier im Thread geschrieben ;)
Geh aufs Menü "Komponente"->"Packages installieren"->"Hinzufügen"->Ins Verzeichnis "\Delphi7\Bin" wechseln->Datei "dclsockets70.bpl" doppelklicken->Ins Register "Internet" schauen und freuen :mrgreen:

[freak4fun]

Hallo :hi:,
oder nimm die Indy-Komponenten. Die Sockets wurden bestimmt nicht zu Unrecht raus genommen.
Hier im Forum muesstest du einiges dazu finden. ;)

MfG
freak

[mymuschy]

Cooles Tutotial.

Aber ich als Socket Newbie muss mal ne warscheinlich ganz blöde Frage stellen.

Ich verstehe nicht warum ich beim Client mich am Server mit der IP 127.0.0.1 anmelde obwohl der Server mir als Aktuelle IP Adresse was ganz anderes anzeigt. Wie kann das gehen? Auch der Client zeigt mir dir gleiche aktuelle IP an wie der Server.

Kann da jemand für mich Licht ins Dunkel bringen?

Gruß
Stephan

[sirius]

127.0.0.1 ist dein eigener Rechner. Dann wirst du wahrscheinlich einen Router haben und eine IP so ähnlich wie 192.168.1.10 haben. Ob das Datenpaket nun gleich an der Netzwerkkarte oder erst am Router zu dir zuückkommt (oder erst am ISP) sieht für dich gleich aus. Du kannst alle verwenden.

[DeddyH]

Der Gag dabei ist, dass 127.0.0.1 oder localhost auch dann funktioniert, wenn Du gar keine Netzwerkkarte im Rechner hast.

[PhilmacFLy]

geht das ganze auch mit 05 pe weil ich krieg immer probleme mit dem delay.

[dajuhsa]

hallo :mrgreen:
ich hab das tut mal ausprobiert und es hat auch so ziemlich alles geklappt(das programmieren)und ich habs sogar verstanden :thumb:
bloß blöd dass ich nicht mal mit mir selbst chatten kann, denn:
1.ASynchroner-Socket Fehler schon beim IP eingeben, auch wenn der Server geöffnet ist(Port auf 1000 auch beim Client, Server.Open auch alles gemacht), auch wenn ich als ip 127.0.0.1 eingebe.
2.Ich hab leider so ein Router-Modem-Allesineinem-Ding und der idIPWatch zeigt mir nur die 192.168.blabla IP an, und ich bezweifle, dass irgendein client was damit anfangen kann.

[dajuhsa]

kann mir da bitte jemand helfen

[everdream]

Zitat:

Zitat von Ultimator

Es werden dabei TClientSocket und TServerSocket verwendet.

Ich fühle mich grade ein bischen wie ein Kastrierter im Bordell... es ist alles total einfach, nur irgendwas Grundlegendes fehlt.
Genauer gesagt habe ich jetzt eine Viertel Stunde lang die o.g. Komponenten gesucht. Wo genau find' ich die / welche uses brauche ich?

edit:

Zitat:

Zitat von dajuhsa

Ich hab leider so ein Router-Modem-Allesineinem-Ding und der idIPWatch zeigt mir nur die 192.168.blabla IP an, und ich bezweifle, dass irgendein client was damit anfangen kann.

Gute Frage, komm ich da um Forwarding+dynDNS irgendwie rum?

[bigben37]

Zitat:

Zitat von everdream

Zitat:

Zitat von Ultimator

Es werden dabei TClientSocket und TServerSocket verwendet.

Ich fühle mich grade ein bischen wie ein Kastrierter im Bordell... es ist alles total einfach, nur irgendwas Grundlegendes fehlt.
Genauer gesagt habe ich jetzt eine Viertel Stunde lang die o.g. Komponenten gesucht. Wo genau find' ich die / welche uses brauche

In der Toolpalette unter Internet.

Wenn es da nicht ist, dann

Zitat:

Zitat von Ultimator

Wie damals schon hier im Thread geschrieben ;)
Geh aufs Menü "Komponente"->"Packages installieren"->"Hinzufügen"->Ins Verzeichnis "\Delphi7\Bin" wechseln->Datei "dclsockets70.bpl" doppelklicken->Ins Register "Internet" schauen und freuen :mrgreen:

[everdream]

Okay, Vielen Dank (Bei wars dclsockets90.bpl statt 70)

Jetzt is alles da ^_^

[bigben37]

Zitat:

Zitat von everdream

Okay, Vielen Dank (Bei wars dclsockets90.bpl statt 70)

Jetzt is alles da ^_^

Bei mir ist es dclsockets100.bpl

Ich denke, das kommt auf die Version von Delphi an.

[xZise]

Naja ;) BDS 2005 wird wie "D9" verwendet ;)

Also sozusagen ist es folgender String:

Delphi-Quellcode:

FileName := Format('dclsockets%d0.bpl', [Delphiversion]);

(ACHTUNG: Dieser Code funktioniert so nicht!)

Also bei 7 ist es "70" und bei TD/BDS2006 ist es 100.

MfG
xZise

[WinAPI]

Hallo :) Ich habe eben gerade mich durch das Tutorial gekämpft...
aber irgendwie klappts an einer stelle nicht =(

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMan, StdCtrls, ScktComp, ExtCtrls;

type
  TForm1 = class(TForm)
    Client: TClientSocket;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    GroupBox3: TGroupBox;
    Button3: TButton;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Button4: TButton;
    Memo1: TMemo;
    XPManifest1: TXPManifest;
    Server: TServerSocket;
    Button5: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Delay(time: word);
    procedure ClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure Button4Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Nickname: String;


implementation


{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
Server.Active := True;
Label1.Font.Color := clgreen;
Label1.Caption := 'Server gestartet';

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Server.Close;
Server.Active := False;
Label1.Font.Color := clred;
Label1.Caption := 'Server nicht gestartet';
end;

procedure TForm1.ServerClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var I: Integer;
    test: String;
begin
  test := Socket.ReceiveText;
  For I := 0 to Server.Socket.ActiveConnections - 1 do
   begin with Server.Socket.Connections [I] do
    if (Connected) then SendText(test);
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Client.Host := Edit2.Text;
Client.Active := True;
Nickname := Edit1.Text;
Label4.Caption := 'Verbunden mit : ' + Client.Host;
Label4.Font.Color := clgreen;
Delay(500);
Client.Socket.SendText(Nickname + ' hat sich angemeldet.')
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Client.Active := False;
Label4.Caption := 'Nicht Verbunden';
Label4.Font.Color := clred;

end;

procedure TForm1.delay(time:word);
var Start: Integer;
begin
Start:=GetTickCount;
while (GetTickCount)-(Start) <= time do
Application.ProcessMessages;
end;

procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(Socket.ReceiveText);  [b]<<< Hier stoppt es[/b]
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Client.Socket.SendText(Edit3.Text);
end;

end.

Es kommt eine Zugriffsverletzung...

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project2.exe ist eine Exception der Klasse EAccessViolation aufgetreten. Meldung: 'Zugriffsverletzung bei Adresse 00456EFC in Modul 'Project2.exe'. Lesen von Adresse 00000220'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.




Danke für eure Antworten :)

[Die Muhkuh]

Überprüf mal auf Socket <> nil

[WinAPI]

Nicht verfügbarer Wert beim Debuggen der Server sendet allerdings das richtige ab...

Socket = ()...

[WinAPI]

Habe es =) :zwinker:
Danke trotzdem für die Hilfe :)
Da war irgendwie ein Memofeld buggy^^

MfG WinAPI

[Spitfire]

Hi ...

Ich habe das selbe Problem, was hier schonmal angesprochen, allerdings nicht richtig beantwortet wurde:


Beim Setzen der IP im Client: "Asynchronous socket error 10049."
Auf meinem Vista PC lautet sie wie folgt: "Windows socket error: Die angeforderte Adresse ist in diesem Kontext ungültig (10049), on API 'connect'".

Irgendwer meinte, dass in diesem Fall der Client zu viele Signale hinternander sendet, aber wie kann man das beheben?


Vielen Dank im Voraus ...

[bob_aus_der_flasche]

der fehler kommt bei mir auch

wie soll das denn funzen xDDD

kapier nix von dem prog