Chat Problem
Sorry das ich schonwieder ein Thema aufmache, aber ich finde einfach keine Lösung zu meinem Problem:
Ich habe nach dieser Anleitung (http://www.delphipraxis.net/21622-ei...rammieren.html) einen Chat erstellt. Leider habe ich ein paar Probleme: Ich lasse Client und Server auf meinem Rechner laufen. Wenn ich im Client den Nick eingebe u. bestätige kein Problem. Wenn ich dann zur IP des Servers komme und diese bestätige, bekomme ich die Fehlermeldung: "Asynchroner Socket-Fehler 10061". Wenn ich das ganze mit einem 2. Client mache (anderer Rechner, trotzdem im Heimnetzwerk). Funktioniert das, bis ich eine Nachricht senden will, dann bekomme ich den selben Fehler nur mi "10060". Ich poste mal meinen Code. Habe trotzdem das Gefühl, das ich was vergessen habe (ClientConnect, stand aber auhc nicht in der Anleitung). Client
Delphi-Quellcode:
PS: Edit1 & Button1 --> Nachrichtenfeld & "Senden"-Button; Edit2 & Button2 --> Namensfeld & "Namen setzen"-Button; Edit3 & Button3 --> IP-Adresse Feld & "Bestätigen"-Button;
unit MainUnit;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ScktComp, ExtCtrls, IdBaseComponent, IdComponent, IdIPWatch, AppEvnts; type TForm1 = class(TForm) Memo1: TMemo; Label1: TLabel; Label2: TLabel; Label3: TLabel; ApplicationEvents1: TApplicationEvents; IdIPWatch1: TIdIPWatch; Timer1: TTimer; ClientSocket1: TClientSocket; GroupBox1: TGroupBox; Label4: TLabel; Edit1: TEdit; Label5: TLabel; Edit2: TEdit; Label6: TLabel; Edit3: TEdit; Button3: TButton; Button2: TButton; Button1: TButton; Label7: TLabel; procedure Delay (time: word); procedure FormCreate(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); procedure Timer1Timer(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private-Deklarationen } public { Public-Deklarationen } end; var Form1: TForm1; Name: String; Nachricht: String; //Stand nicht im Toturial, wenn nicht angegeben, dann Fehlermeldung in Z. 78 (da 'Nachricht' nicht deklariert ist) implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if (ClientSocket1.Active=true) and (Edit1.Text<>'') then ClientSocket1.Socket.SendText(Name+': ' + Edit1.Text); Edit1.Text := ''; end; procedure TForm1.Button2Click(Sender: TObject); begin Name := Edit2.Text; Button2.Enabled := false; Edit2.Enabled := false; Button3.Enabled := true; end; procedure TForm1.Button3Click(Sender: TObject); begin ClientSocket1.Host := Edit3.Text; ClientSocket1.Active := true; Button3.Enabled := true; Edit3.Enabled := true; Button1.Enabled := true; Nachricht := Edit2.Text + ' hat den Raum betreten.'; delay(500); ClientSocket1.Socket.SendText(Nachricht); end; procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); begin Form1.Show; Memo1.Lines.Add(Socket.ReceiveText); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin ClientSocket1.Socket.SendText(Edit2.Text +' hat den Chat verlassen.'); delay(500); ClientSocket1.Close; end; procedure TForm1.FormCreate(Sender: TObject); begin Label3.Caption := IdIpWatch1.LocalIP; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Label3.Caption := IdIpWatch1.LocalIP; end; procedure TForm1.delay(time:word); var Start: Integer; begin Start:=GetTickCount; while (GetTickCount)-(Start) <= time do Application.ProcessMessages; end; end. Server
Delphi-Quellcode:
unit MainUnit;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdIPWatch, ScktComp; type TForm1 = class(TForm) Memo1: TMemo; ServerSocket1: TServerSocket; IdIPWatch1: TIdIPWatch; Label1: TLabel; Label2: TLabel; Label3: TLabel; procedure FormCreate(Sender: TObject); procedure ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private-Deklarationen } public { Public-Deklarationen } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin ServerSocket1.Close; Memo1.Lines.SaveToFile('Chatlog.txt'); end; procedure TForm1.FormCreate(Sender: TObject); begin Label3.Caption:=IdIPWatch1.LocalIP; end; // Fehlt hier nicht 'OnClientConnection'?! procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); var Text:string; i: Integer; begin Text := Socket.ReceiveText; Memo1.Lines.add(Timetostr(now)+': '+Text); For I := 0 to ServerSocket1.Socket.ActiveConnections - 1 do begin with ServerSocket1.Socket.Connections [I] do if (Connected) then SendText(Text); end; end; end. Danke für eure Unterstützung Lukas |
AW: Chat Problem
Und was ist Socketfehler 10060?
|
AW: Chat Problem
Sorry, "Asynchroner Socket-Fehler", habs oben nochmal editiert.
|
AW: Chat Problem
Ok. Und was sagt die Foren- oder Googlesuche dazu?
|
AW: Chat Problem
Forensuche sagt, das oft das Problem ist, das niemand den Port einträgt. Ich habe 30033 (TCP) auf meinen Rechner weitergeleitet. Es hieß auch, das es bei manchen auch über die loakle IP 127.0.0.1 gehen würde, doch da tritt bei mir auch der fehler auf :(
|
AW: Chat Problem
Hab mein Problem gelöst, aber trotzdem danke.
|
AW: Chat Problem
Es wäre noch schön, wenn du auch sagst wie.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:15 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