Ich habe ein Beispiel von diesem Forum folgende Beispiel ausprobiert:

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;
}

Solange alles in eine Form sind alles Funktioniert. Ich will aber 2 Datei haben.damit auf einen anderen Rechner übertragen kann.
Meine Frage ist: muss ich auf beidem Form server & client socket unter bringen?

wenn nein. sendet man von client zu Server? order Server zu Client?

Es werden jeweils die Trackbar->Position des Servers zum Client sowie
die TrackBar->Position des Clients zum Server übertragen.

//-----------------------------------------------
// Client IP 192.168.2.101
//-----------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{

     ClientSocket1->Active = false;
     ClientSocket1->Port = 5000;
     ClientSocket1->Address = "192.168.2.101";    //IP des Clients oder "localhost" 
     ClientSocket1->Host    = "192.168.2.100";   //IP des Servers (Bei gleichem Rechner "localhost"
     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 IP 192.168.2.100
//-------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
     ServerSocket1->Active = false;
     ServerSocket1->Port = 5000;
     ServerSocket1->Active = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
    Form1->Edit1->Text = "CONNECT";			//Sobald der Client startet tritt das Ereigniss auf
    Edit4->Text = Socket->RemoteAddress;          //IP des Client Host
}
//---------------------------------------------------------------------------
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
}

Was mich allerdings noch interssieren würde, wie kann ich bei einem Connect
eines Clients dessen IP ermitteln?
Und wie ist es wenn noch ein weiterer Client mit IP 192.168.2.102 Port 5000
nutzt und der Server nun unterschiedliche Daten an Client 192.168.2.101 oder 192.168.2.102 senden möchte

Gruß Mathi

Was mich allerdings noch interssieren würde, wie kann ich bei einem Connect
eines Clients dessen IP ermitteln?
Und wie ist es wenn noch ein weiterer Client mit IP 192.168.2.102 Port 5000
nutzt und der Server nun unterschiedliche Daten an Client 192.168.2.101 oder 192.168.2.102 senden möchte

Die Clients werden alle im ServerSocket gespeichert. ServerSocket1->Socket->Connections[index] (oder so ähnlich). Darüber kannst du alles ermitteln was du möchtest.

Alternativ kannst du im OnClientConnect-Event das TCustomSocket Objekt nutzen. (Ist aber in diesem Fall kein Array sondern nur EIN Client, nämlich der Verbindende)

TSocketNotifyEvent ist der Typ für Ereignisbehandlungsroutinen, die auf Ereignisse während der Erzeugung oder Verwendung einer Socket-Verbindung reagieren.

typedef void __fastcall (__closure *TSocketNotifyEvent)(System::TObject* Sender, TCustomWinSocket* Socket);

Beschreibung

Der Parameter Sender ist die Socket-Komponente oder das Windows-Socket-Objekt, zu dem die Ereignisbehandlungsroutine gehört.

Der Parameter Socket ist das TCustomWinSocket-Objekt, das den Endpunkt der Verbindung repräsentiert.

Wenn die Ereignisbehandlungsroutine zu einem Client-Windows-Socket-Objekt gehört, sind diese beiden Parameter identisch. Bei Server-Windows-Socket-Objekten, repräsentiert der Parameter Sender die wartende Verbindung, während der Parameter Socket die Client-Verbindung repräsentiert.

//---------------------------------------------------------------------------
void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
    Socket->  //und jetzt mal warten bis die Code-Completion kommt
}

Hast du dir auch mal die Eigenschaften von TCustomWinSocket angesehn?

//---------------------------------------------------------------------------
void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
    Edit1->Text = "CONNECT";
    Client_IP->Text = Socket->RemoteAddress;
    Index->Text    = Socket->LocalPort;
    handle = Socket->Handle;
}

Ich finde das die Borland Hilfe manchmal mehr verwirrt als hilft.

Vielen Dank

//---------------------------------------------------------------------------
void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
    ...
    handle = Socket->Handle;
}

Wofür machst du das?

Noch eine Frage zur Borland Hilfe.

typedef void __fastcall (__closure *TSocketNotifyEvent)(System::TObject* Sender, TCustomWinSocket* Socket);

Was heisst
(__closure *TSocketNotifyEvent)

Und ich habe immer noch keine Möglichkeit gefunden den Index zu bekommen.

for(int x=0;x<UserAnzahl;x++)
{
    ServerSocket1->Socket->Connections[x]->SendText(Message);
}

über ServerSocket1->Socket->Connections[x]->.. kannst du an einenbestimmten user die nachricht schicken..
jedesmal wenn ein user sich beim server anmeldet kommt er automatisch dort rein.
ich habe aber noch ne Listbox gemacht, wo alle IPs abgespeichert werden, so kann ich über die listbox und oben gennanter code die user einfach auseinander halten und ansprechen(gibt aber probleme bei gleicher ips von verschiedenen clienten)

[edit] UserAnzal ist bei mir ein int wobei bei "clientconnect" UserAnzahl++ und bei "clientdisconnect" UserAnzahl-- gerechnet wird

Zu closure musst du mal die Hilfe befragen. Eins ist jeden Fall klar, dass

typedef void __fastcall (__closure *TSocketNotifyEvent)(System::TObject* Sender, TCustomWinSocket* Socket);

ist ein Funktionspointer.
Rückgabewert:__closure TSocketNotifyEvent
Parameter: TObject und TCustomWinSocket*