Indy: Server an Client

[Major1337]

Danke, ich habe jetzt beim Server für jede Port eine Execute gemacht. Jetzt möchte ich mit dem Client eine Portadresse aus der Listbox auswählen - mit der er sich dann verbindet.

Delphi-Quellcode:

// Client

procedure TForm1.Button1Click(Sender: TObject);
begin


if not TCPClient.Connected then
TCPClient.Connect
else
TCPClient.IOHandler.WriteLn(Edit1.Text);

end;


procedure TForm1.ListBox1Click(Sender: TObject);
var i : Integer;

begin
  for i := 0 to ListBox1.Count - 1 do

  if ListBox1.Selected[i] then
  TCPClient.Port := StrToInt(ListBox1.Items.Strings[i]);

  end;

Delphi-Quellcode:

// Server

procedure TForm2.FormCreate(Sender: TObject);
begin

IDTCPServer1.DefaultPort := 10;
IDTCPServer1.Active := true;

IDTCPServer2.DefaultPort := 20;
IDTCPServer2.Active := true;
end;

procedure TForm2.IdTCPServer2Execute(AContext: TIdContext);
begin
Memo1.Lines.Add('Port:  ' + IntToStr(IDTCPServer2.DefaultPort) + '   ' +  acontext.Connection.IOHandler.ReadLN);
end;

procedure TForm2.IdTCPServer3Execute(AContext: TIdContext);
begin
Memo1.Lines.Add('Port:  ' + IntToStr(IDTCPServer3.DefaultPort) + '   ' +  acontext.Connection.IOHandler.ReadLN);
end;

usw.

Beim Server zeigt er mir aber so immer den selben Port an, jetzt weiss ich nicht wenn ich auf einem anderen Port sende, ob er tatsächlich über den Port senden und nur die falsche Portnummer anzeigt.

[blackfin]

So geht das natürlich nicht
Du brauchst, um dich an mehrere Ports zu binden, auch mehrere Instanzen des IDTCPServer.
EIN Server bindet sich immer an EINEN Port, willst du mehrere aufmachen, brauchst du mehrere Instanzen.

Was ist überhaupt dein Vorhaben, wieso brauchst du mehrere Ports?
Im Normalfall reicht eigentlich ein offener Port pro Applikation, ausser du willst, wie ChrisE bereits gesagt hatte, mehrere Server für verschiedene Protokolle aufmachen.

Entschuldige mich, wenn ich falsch liege, aber mir kommt es jetzt irgendwie so vor, als würdest du annehmen, für mehrere Clients brauchst du auch mehrere offene Ports am Server. Das stimmt so nicht, du kannst mit einem TCP-Server viele Client-Verbindungen auf einem offenen Port laufen lassen.
(Beispiel Webserver: ein Standard-Webserver läuft auf Port 80 (EIN offener Port), aber kann viele Clients bedienen, die sich immer auf Port 80 verbinden)

[Major1337]

hmm Ich habe doch IDTCPServer1, IDTCPServer2, IDTCPServer3... usw.

[blackfin]

Oh, sorry, das habe ich übersehen, aber dann stimmt dein Code irgendwie nicht, du setzte die Ports für Server 1 und 2 (3 nicht), die Execute-Routinen sind aber für 2 und 3? Jetzt bin ich etwas verwirrt.

Was willst du eigentlich genau machen?
Falls du einen Server-Port "on the fly" umschalten willst, musst du auch die Bindings des Servers umschalten, die eventuell bereits bestehen:

Delphi-Quellcode:

IdTCPServer2.DefaultPort := 20;

for I := 0 to IdTCPServer2.Bindings.Count-1 do
begin
   IdTCPServer2.Bindings[I].Port := IdTCPServer2.DefaultPort;
end;

IdTCPServer.Active := True;

[Major1337]

Im Anhang sieht man mein Vorhaben. Wenn ich das jetzt richtig verstehe bin ich der Server und der Client ist in diesem Fall Sick. Ich bekomme somit vom Client auf verschiedenen Ports etwas, welche der Client verarbeiten soll.

[DataCool]

Hi,

das Bild sagt in meinen Augen noch nicht aus was Du machen möchtest.
Könntest Du den Sinn & Zweck mal versuchen in Worte zu fassen ?

Greetz Data

[taveuni]

Zitat von Major1337:

Im Anhang sieht man mein Vorhaben. Wenn ich das jetzt richtig verstehe bin ich der Server und der Client ist in diesem Fall Sick. Ich bekomme somit vom Client auf verschiedenen Ports etwas, welche der Client verarbeiten soll.

Du möchtest also mit einem Sick RFID kommunizieren.
Dazu benötigst Du nur einen Port. Ausser wenn die unidirektionalen 50007 und 50008 für send/receive benutzt.
Die anderen unterscheiden sich in der Schnittstelle (HTTP, Socket, SSH) und teilweise im Protokoll.
Für Deine Versuche ist vermutlich 2112 mit STX/ETX am ehesten geeignet. Bist Du im Besitz des Protokolls?

[Major1337]

Ich bin noch nicht im Besitz des RFID. Ich möchte das ganze aber mit einem Client und Server simulieren. Ich benötige mehrere Portadressen.

Ich möchte folgendes:

Der Client schickt über Port 10 etwas an Server - der Server erkennt den Port und führt den für diesen Port bestimmten Event aus. Das gleiche sollte auch für andere Ports gelten.