Daten über eigenen Port / reservierten Port schicken

[Manado]

Hallo!
Ich möchte zwischen zwei an ein lokales Netzwerk angebundenen Rechnern Daten hin und her schicken- Der verwendete Port ist dabei eigentlich egal, solange es nicht Port 80 ist . Aber ich weis nicht, wie und ob das so geht.

Ich stelle mir vor, dass in Delphi-Programm 1 an Rechner 1 irgendeine Prozedur existiert, die dann ausgeführt wird, wenn über das Netzwerk von Rechner 2 mit Delphi-Programm 2 z.B. ein Zeichen (z.B. 'x') oder auch eine ganze Datei ('machwas.txt') gesendet wird.
(Im Hinterkopf hab ich die Funktionsweise einer direkten seriellen Verbindung, die sich Chars Hin- und Her schickt...So mit EventChar & Co... )

Kennt jemand also ein Modul oder eine Methode, um Daten von Delphi-Programm zu Delphi-Programm übers Netzwerk zu schicken?

Danke schonmal

[oki]

FTP oder Sockets

Gruß

[Manado]

Jaahh. Hmm. Geht das über die Indy-Komponente?

[oki]

Jooop, einer Client, einer Server.

[Manado]

ah,ok, check ich mal aus.

[Cyf]

ALternativ kannst du auch TClientSocket und TServerSocket oder TTcpClient und TTcpServer nehmen, die alle Teil der VCL sind (von letzteren würd ich für den Einstieg aber abraten, weil sie Borlands Cross-Plattform Versuchsobjekte sind und um einiges schwerer zu handhaben). Die Socket Komponenten werden eventuell je nach Delphi-Version nicht automatisch angezeigt sind aber immer vorhanden, im Zweifelsfall unter Kombonenten -> Packages installieren die dclsocketsXXX.bpl im bin-Ordner auswählen. (XXX hängt denke ich von der Delphiversion ab.)

[Manado]

Ah, das mit den Sockets ist interessant.
Ist das Ereignis, das beim Server dann etwas auslöst, wenn der Client etwas schickt, "OnClientWrite" ?
Und, was muss ich beim Client für HOST und ADRESS angeben? ..oder gibt es irgendwo dazu ein Beispielprogramm, bei dem eine enfachste kommunikation aufgezeigt ist? Ich glaube, das ist genau das, was ich brauchen, mit den Sockets !!!

[Cyf]

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);

Tritt ein wenn du Daten von einem Client empfangen kannst, Socket ist der Socket auf dem Daten reinkommen.

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientWrite(Sender: TObject;
  Socket: TCustomWinSocket);

Tritt ein wenn der Serversocket(!) Daten senden muss. Das ist imho nur der Fall direkt nach dem Connect, wenn der neue Port dem Client bekannt gemacht wird.

[Edit]Beim Client wird in Adress die IP des Servers eingetragen und in Host die DNS, falls du beides einträgst hat die DNS Vorang.

[Manado]

Ah, Ok.
Also die Kommuniaktion funktioniert bei mir sehr gut in Richtung Client --> Server, aber nicht andersrum.

Wenn ich vom Server an den Client was schicke, gibts nen Fehler. Ich hab einfach folgenden Code benutzt:

ServerSocket.Socket.SendText('test'); auf dem Client will ich damit empfangen :

Delphi-Quellcode:

procedure TFrmClient.ClientSocketRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add (Socket.ReceiveText)
end;

Irgendwie muss man ja wo angeben können, an WELCHEN CLIENT der Server was schicken soll. In der Fehlermeldung steht was ähnliches...(datagrammsocket ohne adresse...)


Danke!

[Manado]

Ah, ok habs. Wie blöd:

serversocket1.socket.connections[0].sendtext('na sie!');
Der trick ist dieses Connections[0].