char txbuffer[4] = {"123"};
char rxbuffer[4];
void __fastcall TForm1::FormCreate(TObject *Sender)
{
     ServerSocket1->Port = 5000;
     ServerSocket1->Active = true;
     ClientSocket1->Port = 5000;
     ClientSocket1->Host = "localhost";
     ClientSocket1->Active = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
     ServerSocket1->Socket->Connections[0]->SendBuf(txbuffer,4);
     ClientSocket1->Socket->ReceiveBuf(rxbuffer,4);
     Edit1->Text = rxbuffer;
}

1x 1 Form mit server

1x 1 Form mit Client

dan beide zur selben zeit laufengelassen und es klappt super.. habe auch einen kleinen chat für das geschäft intern programmiert

Dein Code funktioniert bei mir.
Aber bei mir bekomme ich ne Fehlermeldung auf deinem Port.
Mein Rechner meinte das der Port schon von einer andern Anwendung benutz wird.
Du solltest mal den Port ändern.
Versuche doch mal beispielsweise Port 80.
Ich hoffe das bringt was.

LG raven

Mein Rechner meinte das der Port schon von einer andern Anwendung benutz wird.

Und genau das ist der Punkt! Jeder Socket belegt genau EINEN Port. D.h. Wenn dein Server den Port 5000 belegt, wird dein Client den nicht mehr nutzen können.

Hab leider ichts hier um das mal durchzutesten!

was bedeutet es?

Gruß,
S.mathi

Hi ich bekomme fehlermeldung: Der Index der Liste überschreitet das Maximum(0);

Wie wär's wenn du die Suche nutzt? Wie wärs wenn du nen eigenen Thread dazu aufmachst, als in einem zu posten, der aber auch rein gar nichts mit deinem Problem zu tun hat?

Stichwort: Index out of Bounds

Folgendes funktioniert:

//-----------------------------------------------
// Client
//-----------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
     ClientSocket1->Port = 5000;
     ClientSocket1->Address = "192.168.2.101";     //IP des Clients
     ClientSocket1->Host    = "192.168.2.100";	   //IP des Servers
     ClientSocket1->Active = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
     ClientSocket1->Socket->ReceiveBuf(&a,2);		//Daten vom Server
     Edit1->Text = a;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
     test = TrackBar1->Position;
     Edit1->Text = TrackBar1->Position;
     ClientSocket1->Socket->SendBuf(&test,2);		//Daten zum Server
}

//-------------------------------------------------------
// SERVER
//-------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
     ServerSocket1->Port = 5000;
     ServerSocket1->Active = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
    Form1->Edit1->Text = "CONNECT";			//Sobald Client startet tritt das Ereigniss auf
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
     Socket->ReceiveBuf(&test,2);			//Daten vom Client 	
     Edit2->Text = test;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
     test = TrackBar1->Position;
     ServerSocket1->Socket->Connections[0]->SendBuf(&test,2); //Daten zum Client
}

Habe aber immer noch ein Problem wenn ich einen anderen Port wähle

Hieraus schliesse ich, dass sich beide Eigenschaften auf den Server beziehen. In deinem Code ist das etwas anders

//-----------------------------------------------
// Client
//-----------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
     ClientSocket1->Port = 5000;
     ClientSocket1->Address = "192.168.2.101";     //IP des Clients
     ClientSocket1->Host    = "192.168.2.100";       //IP des Servers
     ClientSocket1->Active = true;
}

Bin mir nicht sicher ob das ein Grund mit ist.
Evi48

ClientSocket1->Address = "192.168.2.101"; //IP des Clients
ist die Host Adresse des Clients

ClientSocket1->Host = "192.168.2.100"; //IP des Servers
ist die Host Adresse des Servers.

Ich habe heute auf der Arbeit im LAN ein wenig rumprobiert und habe
eine von mir programmierte Testsoftware mit einem ClientSocket versehen.
Auf einem anderen Rechner lief ein Server mit dem ich die Testsoftware
über LAN Fernsteuern konnte.
Da die ganze Sache funktionierte also sind die Angaben oben richtig.

Allerdings versuche ich das ganze im WAN und nicht im LAN, leider klappt
das nicht.
ClientSocket->Adresse = "meine WAN IP"
ClientSocket->Host = "WAN IP eines Kollegen"

Ich muss dazu sagen das ich hinter einem DSL Router hänge.

1. hast du den Hinweis von PuppetMaster2k befolgt und den router konfiguriert ?
2. hast du versucht mit ping eine Verbindung zu testen ?
3. hast du einen anderen port versucht?

ClientSocket1->Host = IP;

wobei ich aber

ClientSocket1->Adress

nichts zuweise.

[edit] Port wird natürlich auch angegeben [/edit]

Wenn du übers W-LAN gehn willst, dann geh so vor, wie AndreasW schon sagte!

Checkliste

1. hast du den Hinweis von PuppetMaster2k befolgt und den router konfiguriert ?
2. hast du versucht mit ping eine Verbindung zu testen ?
3. hast du einen anderen port versucht?

Bei dem Router habe ich die Firewall disabled.
Die Verbindung wurde mit Ping getestet.
Allerdings habe ich als "Client Host Adresse" die Adresse des Rechners und nicht die WAN IP angegeben, ist das vieleicht das Problem?

Die Frage ist jetzt, willst du damit übers Internet (WAN) eine Verbindung aufbauen oder über das W-LAN? Wenn übers Internet, dann kommst du mit deiner lokalen IP nicht weit, weil du dann die IP, die dir dein Provider zugewiesen hat, benötigst.

LAN-> LOCAL ARRAY NET //Intranet
WAN-> WIDE ARRAY NET //Internet
W-LAN-> ?????WIDE-LOCAL ARRAY NET oder Wireles-LAN ??????

Mit dem Problem hat das aber nicht wirklich etwas zu tun, und das Problem hat eigentlich auch nichts mehr mit dem BCB zu tun.
Du musst deinen DSL-Router so konfigurieren, dass er Anfragen, die auf einem bestimmten Port (hier 5000) hereinkommen, an den Rechner im lokalen Netz weiterleitet, auf dem deine Serveranwendung läuft. Das ist das sogenannte port forwarding, das PuppetMaster2k bereits erwähnte.

mfg devilempire81