Forum: Object-Pascal / Delphi-Language
by Major1337,
12. Jul 2010
hmm.. Ich bekomme aber einen Port zurück (3209) den ich gar nicht im Client deklariert habe o_O
procedure TForm2.IdTCPServer1Execute(AContext: TIdContext);
begin
Memo1.Lines.Add(acontext.Connection.Socket.ReadLn);
AContext.Connection.IOHandler.WriteLn(IntToStr(AContext.Connection.Socket.Binding.PeerPort) ' : Erfolgreich übermittelt!');
end;
Forum: Object-Pascal / Delphi-Language
by Major1337,
12. Jul 2010
Vielen Dank, werde Variante 1 und dann 3 ausprobieren.
PS:
AContext.Connection.Socket.Binding.PeerPort
;)
Forum: Object-Pascal / Delphi-Language
by Major1337,
11. Jul 2010
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.
Forum: Object-Pascal / Delphi-Language
by Major1337,
9. Jul 2010
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.
Forum: Object-Pascal / Delphi-Language
by Major1337,
9. Jul 2010
hmm Ich habe doch IDTCPServer1, IDTCPServer2, IDTCPServer3... usw.
Forum: Object-Pascal / Delphi-Language
by Major1337,
9. Jul 2010
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.
// Client
procedure TForm1.Button1Click(Sender: TObject);
begin
Forum: Object-Pascal / Delphi-Language
by Major1337,
9. Jul 2010
Hallo!
Ich habe einen Server der auf verschiedenen Portadressen etwas an den Client sendet. Kann ich im Client mehr als ein Port freigeben und besteht die Möglichkeit für den Client herauszufinden auf welchem Port er gerade etwas erhält?
Gruß
Major1337