Hallo, bei mir is ein Fehler aufgetreten, Fehler 10061, ich hab mine Firewall auch deaktiviert aber es geht nicht....
Was soll ich tun

Moin!

Unknown hat folgendes geschrieben:

bei mir is ein Fehler aufgetreten, Fehler 10061

Der Fehler bedeutet, dass der Client sich nicht zum Server verbinden kann.

Unknown hat folgendes geschrieben:

ich hab mine Firewall auch deaktiviert aber es geht nicht.... Was soll ich tun

Vielleicht ist das Serverprogramm nicht gestartet? Du kannst dir in einer Kommandozeile mit netstat -a anzeigen lassen, welche Ports auf dem lokalen PC "abgehört" werden (=auf eine Verbindung warten).

cu
Narses

Ich weiß schon das Fehler 10061 bedeutet und das ich den Server "aufmachen" muss (sehe ich etwa so dumm aus ).
Naja, das mit netstat -a funzt net, aber ich glaube es liegt am Host, welche IP muss ich da angeben, vll 127.0.0.1 oder so.
Oder gibt es einen Befehl GetWindowsIP????

aber thx schonmal

Moin!

Unknown hat folgendes geschrieben:

Ich weiß schon das Fehler 10061 bedeutet und das ich den Server "aufmachen" muss

Fein.

Unknown hat folgendes geschrieben:

Naja, das mit netstat -a funzt net,

Was auch immer "funzt net" konkret heißen mag...

Unknown hat folgendes geschrieben:

aber ich glaube es liegt am Host, welche IP muss ich da angeben, vll 127.0.0.1 oder so.

Das hängt davon ab, wo der Server läuft und wie der Client ihn erreichen kann. Wenn du beide Programme auf der gleichen Maschine laufen lässt, dann wäre als Host für den Server "localhost" oder "127.0.0.1" korrekt; wenn der Server auf einer anderen Maschine läuft, als der Client, dann musst du natürlich die IP des Server-PCs eingeben (auf dem Server in einer Konsole ipconfig /all eingeben und ablesen).

cu
Narses

Hi leutz!!!!

ich habe ma ne frage oder problemm mit meinem Delphi .
ich benutzte Delphi turbo 2006 und habe naturlich "dclsockets70.bdl" nicht
und wolte das chat programm denn dynamisch erzeugen hat aber nicht geklapt er zeigt mir ne fehler meldung beim form1Creade an :

Delphi-Quelltext    ausgeblendet	markieren
1: 2: 3: 4: 5: 6: 7: procedure TForm1.FormCreate(Sender: TObject); begin ClientSocket1 := TClientSocket.Create(Form1); ClientSocket1.OnConnect [u]:=[color=red]DynConnectEvent[/color];[/u] ClientSocket1.Port := MY_Port; ClientSocket1.Active := TRUE; end;

wenn jemand ne lösung hat bitte posten.......

ps:sry meine ausdruckweise ich bin noch noobi in delphi

Moderiert von raziel: Delphi-Tags hinzugefügt

Moin und im Forum!

Kuyatzu hat folgendes geschrieben:

das chat programm denn dynamisch erzeugen hat aber nicht geklapt er zeigt mir ne fehler meldung beim form1Creade an : Delphi-Quelltext    ausgeblendet markieren 1: 2: 3: 4: 5: 6: 7: procedure TForm1.FormCreate(Sender: TObject); begin ClientSocket1 := TClientSocket.Create(Form1); ClientSocket1.OnConnect := DynConnectEvent;[/u] ClientSocket1.Port := MY_Port; ClientSocket1.Active := TRUE; end;

Du hast vermutlich diese Methode nicht als Mitglied der Formularklasse deklariert (also so: procedure TForm1.Dyn...).

Schau mal in den ersten Beitrag am Ende im Anhang ist eine Version mit dynamisch erzeugten Socket-Komponenten, da ist das in der Praxis zu sehen und hier ist es auch nochmal ausführlich erklärt.

cu
Narses

erstma möchte ich mich um die sehr schnelle antwort bedanken
und werde versuchen das problem zu lösen
wenn ich noch mehr fragen habe dann weiß ich das ich auf diesem Forum bleibe das ist ihr echt geil

jo danke funst jetzt habe ich wohl einfach übersehen in meiner eifer mit delphi zu coden

Gute Tutorials. Haste gut gemacht! dafür bekommste zwei Daumen hoch.

lg elundril

hi tut mir ja leid aber ich habe schon wieder ein fehler obwohl ich es genau so gemachr habe wie du es gesagt hast

procedure DynConnectEvent(Sender: TObject; Socket: TCustomWinSocket);
//hir ist ein Fehler "Ungenügende Forward- oder Externale-Deklaration:'TForm1.DynConnectEvent'

kannst du mir bitte helfen danke

Moin!

Ich schätze mal, dass du (korrekterweise) in der Deklaration das "TForm1." beim Prozedurnamen weggelassen hast, aber bei der Methode (also da, wo dann der Code der Prozedur folgt) muss ein "TForm1." hin, sonst klappt´s nicht.

cu
Narses

so mir reicht es ich weiß nicht was ich noch machen kann es funtzt immer noch nicht bitte um hilfe
hir quelltext

Delphi-Quelltext    ausgeblendet

markieren

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: unit Unit_v0_01Beta; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ScktComp, StdCtrls, XPMan, jpeg, ExtCtrls; procedure FormCreate(Sender: TObject);     procedure Form1.DynConnectEvent(Sender: TObject; Socket: TCustomWinSocket);      //hir ist ein Fehler "Ungenügende Forward- oder Externale-Deklaration:'TForm1.DynConnectEvent' procedure TForm1.FormCreate(Sender: TObject); begin   ClientSocket1 := TClientSocket.Create(Form1);   ClientSocket1.OnConnect :=DynConnectEvent; // und hir auch   ClientSocket1.Active := TRUE;   ClientSocket1.Port := 73954; end; end.

Moderiert von Tino: Delphi-Tags hinzugefügt.

Moin!

Vorweg: Bitte verwende die Delphi-Tags für Quelltext, das kann man sonst nicht lesen (einfach den Quelltext im Editor markieren und dann auf das "+" neben "Delphi" klicken, fertig)!

Kuyatzu hat folgendes geschrieben:

ich weiß nicht was ich noch machen kann es funtzt immer noch nicht

Ich habe dir bereits geschrieben, was man da machen kann; du hast es nur nicht gemacht...

Probier das mal so:

Delphi-Quelltext    ausgeblendet

markieren

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);     procedure DynConnectEvent(Sender: TObject; Socket: TCustomWinSocket);   private     { Private-Deklarationen }   public     ClientSocket1: TClientSocket;   end; //... procedure TForm1.FormCreate(Sender: TObject); begin   ClientSocket1 := TClientSocket.Create(Form1);   ClientSocket1.OnConnect := DynConnectEvent;   ClientSocket1.Port := 12345; // Portnummer muss im Bereich 1025..65535 sein!   ClientSocket1.Active := TRUE; // erst Port setzen, dann öffnen! end; procedure TForm1.DynConnectEvent(Sender: TObject; Socket: TCustomWinSocket); begin   ShowMessage('Connect'); end;

cu
Narses

aso danke habs jetzt verstanden bin noch anfänger

Ist es möglich, dass ich zu Hause einen Server starte und zu ihm connecte, und jemand über das Internet auch darauf zugreift? Geht das auch, wenn ich einen Router habe?
Und zuletzt, welche IPAdresse würde man eingeben müssen, um sich zu meinem Server zu verbinden, da ich ja eine Lokale Adresse und eine öffentliche Internet-IP habe.

mfg
Zeus

Moin und im Forum!

IamZeus hat folgendes geschrieben:

Ist es möglich, dass ich zu Hause einen Server starte und zu ihm connecte, und jemand über das Internet auch darauf zugreift?

Ja, das geht.

IamZeus hat folgendes geschrieben:

Geht das auch, wenn ich einen Router habe?

Ja, allerdings nur, wenn du ein Port-Forwarding im Router einrichtest.

IamZeus hat folgendes geschrieben:

Und zuletzt, welche IPAdresse würde man eingeben müssen, um sich zu meinem Server zu verbinden, da ich ja eine Lokale Adresse und eine öffentliche Internet-IP habe.

Narses im ersten Beitrag hat folgendes geschrieben:

und ist durchaus auch über das Internet nutzbar. Allerdings braucht man hier dann die öffentliche IP-Adresse des PCs, auf dem das Server-Programm läuft. Diese lässt sich z.B. leicht in einem Browser über die Seite www.whatismyip.com abfragen. Vorsicht Falle: Wenn ein (DSL-)Router im Einsatz ist, dann ist noch ein Portforwarding (heißt auch manchmal "virtual Server") notwendig, sonst können sich Clients aus dem Internet nicht zum Server verbinden. Genaueres kann ich hier nicht allgemeingültig beschreiben, bitte gegebenenfalls im Forum nachfragen bzw. die Suchfunktion benutzen. Nochmal Falle: Wird ein Client auf dem selben PC wie der Server gestartet, bleibt es für diesen Client weiterhin bei "localhost" als Serveradresse (ist ja auch auf dem selben PC)! Nur Clients, die von ausserhalb des LANs eine Verbindung aufbauen wollen, brauchen die öffentliche IP des Routers.

cu
Narses

danke

Hey Leute,
ich wollte mal versuchen, ob ich auch mit dem simplen Chat eine Art Mini-Lan-Spiel zu basteln. Funktioniert auch einwandfrei, nur wenn ich versuche mehrere Strings hintereinander zuversenden, passiert es, dass sie sich zu einem zusammentun. An jeden Befehl den ich schcicke hänge ich eine Endung dran, um ihn auf der Gegenseite identifizieren u können. Beispiel:

Delphi-Quelltext    ausgeblendet	markieren
1: 2: 3: Client.Socket.SendText('starten.xy'); Client.Socket.SendText('pause.xy'); Client.Socket.SendText('beenden.xy');

Auf der Gegenseite, bzw. auch schon beim Server kommt folgendes an:

starten.xypause.xybeenden.xy

Wie kann ich das verhindern?
Mit sleep habe ich es schon versucht und auch mit dem versenden von Leerstrings zwischendrin!
Vielen Dank schon mal im voraus!

Mann aus Delphi

Moin!

Mann_aus_Delphi hat folgendes geschrieben:

Funktioniert auch einwandfrei, nur wenn ich versuche mehrere Strings hintereinander zuversenden, passiert es, dass sie sich zu einem zusammentun.

Funktioniert einwandfrei, nur klappt nicht richtig? (sorry, aber der musste raus)

Hier ist der Grund und hier die Lösung. Steht aber auch alles im ersten Beitrag.

cu
Narses

AntiVir erkennt neuerdings in beiden Beispiel-Archiven den Trojaner TR/ATRAPS.Gen - Kannste ja mal bei Gelegenheit als False Positiv melden.

- Verdächtigte Datei: Server.exe
- Scan mit Jotti:

Quelltext    ausgeblendet

markieren

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: Scan taken on 24 Aug 2008 13:19:52 (GMT)   A-Squared             Found nothing  AntiVir               Found TR/ATRAPS.Gen   ArcaVir               Found nothing  Avast                 Found nothing  AVG Antivirus         Found nothing  BitDefender           Found nothing  ClamAV                Found nothing  CPsecure              Found nothing  Dr.Web                Found nothing  F-Prot Antivirus      Found nothing  F-Secure Anti-Virus   Found nothing  Fortinet              Found nothing  Ikarus                Found nothing  Kaspersky Anti-Virus  Found nothing  NOD32                 Found nothing  Norman Virus Control  Found Sandbox: W32/Malware; [ General information ] * File length: 163328 bytes. [ Changes to registry ] * Accesses Registry key "HKCU\Software\Borland\Locales". * Accesses Registry key "HKLM\Software\Borland\Locales". * Accesses Registry key "HKCU\Software\Borland\Delphi\Locales". [ Security issues ] * Scans for NetBus affected machines. [ Process/window information ] * Creates an event called .   Panda Antivirus       Found nothing  Sophos Antivirus      Found nothing  VirusBuster           Found nothing  VBA32                 Found nothing

- Wenn ich das Projekt selbst kompiliere mit D7PE gibt es keine Meldung mehr.

Moin!

GTA-Place hat folgendes geschrieben:

AntiVir erkennt neuerdings in beiden Beispiel-Archiven den Trojaner TR/ATRAPS.Gen

Danke für den Hinweis.

Das kommt leider häufig vor, wenn man Listening-Sockets in UPX-gepackten EXEn hat... Einfach die EXE löschen und selbst neu übersetzen, dann ist das "Problem" weg.

GTA-Place hat folgendes geschrieben:

Kannste ja mal bei Gelegenheit als False Positiv melden.

Aha wusste bisher gar nicht, dass das geht...

cu
Narses