tutorial zum verwenden von Internetmodulen im bcb

speedtouch92

Hallo,

ich suche ein tutorial, in dem beschrieben wird, wie ich mit dem Internet arbeiten kann.

Es gibt ja im BCB oben in den Reitern mehrere für das Thema internet.
Dazu vieleicht ein tutorial.

speedtouch92

Ich denke da genauer an ClientSocket und ServerSocket.

Christian Sonder

Tutorial for creating a threaded socket server and client application:
http://thecoadletter.com/article/0,1410,26276,00.html

Introduction to Sockets:
http://www.functionx.com/bcb/sockets/socket.htm

speedtouch92

Danke, werde dies mal durchsehen:
http://www.functionx.com/bcb/sockets/socket.htm

Dies habe ich durch zufall auch noch gefunden:

http://web8.fulda019.server4you.de/privatepages/joachim-rothkegel.de/tutorials/%5BC++%5D%20Streams%20mit%20dem%20Borland%20C++%20Builder%20verschicken.php

Ich habe nur den Teil genommen, wo nur Text versendet wird und bekomme diese Meldung, wenn ich den Clienten starte:

Eine Anforderung zum Senden oder Empfangen von Daten wurde verhindert, da der Socket nicht verbunden ist und (beim Senden über einen Dataframmsocket mit einem sendto-Aufruf) keine Addresse angegeben wurde.

Der Serversocket läuft, und der port ist gleich, IP ist 127.0.0.1

Christian Sonder

Hallo,
ich kann Dir leider nicht weiterhelfen, da ich mich auch erst vor ein paar Tagen zum ersten Mal mit Socket-Programmierung beschäftigt habe. Aber immerhin eines: überleg mal, was 127.0.0.1 macht. Da steht doch extra ganz dick dran: "Hier das IP des Zielrechners - auch im OI einstellbar".
Viele Grüße,
Christian

speedtouch92

Nunja, 127.0.0.1
ist immer die IP des eigenen rechners.
Daher dachte ich ich könnte die nehmen.

localhost = 127.0.0.1
127.0.0.1:80 -->localer Http-Server
127.0.0.1:21 -->localer FTP-Server
über Internet-Browser

speedtouch92

Also was muss ich ändern?

Ich benutze für die Sockets dem Port 3658

Rostfrei**

Am besten Du postet mal ein wenig Source.

Du kannst natürlich 127.0.0.1/localhost nehmen. Den ServerSocket kannst Du während der Entwicklungszeit schon auf Active = true setzen.
Den Client musst Du während der Laufzeit mit Open() verbinden lassen.

Gruss

speedtouch92

Server:

void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
Memo1->Lines->Add(Socket->ReceiveText());        
}
//---------------------------------------------------------------------------

Client:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
ClientSocket1->Active = true;
ClientSocket1->Socket->Connect(0); //Verbindet
}

Einstellungen:

Client:
ClientType = ctNonBlocking
Address =
Service =

Server:
ServerType = stNonBlocking

Habe eben nochmal versucht, ClientType und ServerType umzustellen, und ich habe keine Fehlermeldung mehr bekommen, dafür hat der Server nicht mehr reagiert. Ich musste dem Prozess mit [Strg]+[Alt]+[Entf] beenden.