Wie sende ich einen Text an einen anderen Client bzw Server?

ich verstehe das voll nicht ich weiß nicht mal wie man mit dem anderen Client/server verbindet und das beispiel in internet->chat verstehe ich auch nicht wirklich ich brauche dringend hilfe

Für die Kommunikation über LAN oder WAN benötigst Du einen Client- und einen Serversocket.

Beide Komponenten müssen dem selben Port nutzen. Während der Designzeit kannst Du schon Active des Servers auf true setzten, d.h., dass der Server wenn das Prog gestartet wird aktiv ist und auf eingehende Verbindungen wartet.

Den Client kannst Du z.B. durch einen Buttonklick mit Connect() verbinden. Dabei musst Du die IPAdresse des Servers angeben.

Zum Senden siehe folgendes:
Client:

ClientSocket1->Socket->SendText("Hello world");

Server:

int Verbindungen = ServerSocket1->Socket->ActiveConnections;
for(int x = 0; x <= Verbindungen - 1; x++)
  ServerSocket1->Socket->Connections[x]->SendText("Hello world);

Auf der anderen Seite muss der Text entsprechend ausgelesen werden.

Gruss

siehe dazu auch das mitgelieferte Chat-Beispiel unter <BCB-Path>\Examples\Internet\Chat.

bis bald
akari

Dieses Thema scheint heute sehr beliebt zu sein...

Für die Kommunikation über LAN oder WAN benötigst Du einen Client- und einen Serversocket.

Beide Komponenten müssen dem selben Port nutzen. Während der Designzeit kannst Du schon Active des Servers auf true setzten, d.h., dass der Server wenn das Prog gestartet wird aktiv ist und auf eingehende Verbindungen wartet.

Den Client kannst Du z.B. durch einen Buttonklick mit Connect() verbinden. Dabei musst Du die IPAdresse des Servers angeben.

Zum Senden siehe folgendes:
Client:

ClientSocket1->Socket->SendText("Hello world");

Server:

int Verbindungen = ServerSocket1->Socket->ActiveConnections;
for(int x = 0; x <= Verbindungen - 1; x++)
  ServerSocket1->Socket->Connections[x]->SendText("Hello world);

Auf der anderen Seite muss der Text entsprechend ausgelesen werden.

Gruss

Danke ich werde es sofort probieren

akari schrieb:

Hallo

siehe dazu auch das mitgelieferte Chat-Beispiel unter <BCB-Path>\Examples\Internet\Chat.

bis bald
akari

Siehe auch meinen ersten post ich werde aus dem beispiel nicht wirklich schlau deshalb frage ich hier

void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
      // Server liest aus, d.h. Client hat geschrieben
      AnsiString ClientWrittenText = Socket->ReceiveText();
      // Ausgabe verarbeiten
      Dosomething(ClientWrittenText);
      // Ausgabe auf Label
      Label1->Caption = ClientWrittenText; 
}

hast du denn das Beispiel überhaupt mal gestartet und die BCB-Hilfe zu den einzelnen Teilen durchgeschaut? Es sind ja doch nur ein dutzend Zeilen, die sollten doch überblickbar sein.
Das Auslesen empfangener Daten übernimmt der Event T...Socket::OnRead

void __fastcall TChatForm::ServerSocketClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
  Memo2->Lines->Add(Socket->ReceiveText());  
}

bis bald
akari

OnClick auf Button

ClientSocket1->Active=true;
int verbinden = StrToInt(Edit2->Text);
ClientSocket1->Socket->Connect(verbinden);

ClientSocket1->Active=true; 
int verbinden = StrToInt(Edit2->Text); 
ClientSocket1->Socket->Connect(verbinden);

ist ja auch logisch irgendwie
dennoch ist die IP kein gültiger Integerwert aber wie soll es denn sonst gehen?

Es muss sichergestellt sein, dass der Server aktiv ist und das Client und Server auf dem gleichen Port laufen!

ClientSocket1->Host = "localhost"; // oder eine IPAdresse
ClientSocket1->Connect();

so gehts net
Fehler ist das Connect kein Element von ClientSocket1 ist

ClientSocket1->Host = Edit2->Text;
ClientSocket1->Socket->Connect();
ClientSocket1->Active=true;

so auch net
Fehler ist das zu wenig Parameter für Connect eingegeben wurde

ClientSocket1->Host = Edit2->Text;
ClientSocket1->Open();

Das Active musst Du weglassen, da Open() automatisch Active auf true setzt. Schau einfach in der Hife nach.

dann kommt eine fehlermeldung...
"Asynchroner Socket-Fehler 10060"

LAN:

ShowMessage("Eigene IP Adresse:\n" + Powersock1->LocalIP);

Gruss

Indy 10 läuft bei mir irgendwie nicht und Indy 9 finde ich nirgends zu downloaden

http://www.indyproject.org/Sockets/Download/Borland.en.iwp

Das Indy 10 nicht mit dem Builder läuft ist allg. bekannt

Zwischen

"Ich finde die Version/Download nicht"
und
"Ich kann es nicht installieren"

ist ein erheblicher Unterschied

Wurde Indy nicht mal auf den BCB-CDs mitgeliefert?

http://www.indyproject.org/KB/

hilft auch nicht?

Wurde Indy nicht mal auf den BCB-CDs mitgeliefert?

Als BCB6 herauskam, wurde die 4er oder 5er mitgeliefert. Im BCB 2006 ist 9er und 10er dabei und wir auch installiert (die 10er nicht für C++)