Indy TCPServer -> Client

[Neutral General]

Ich bekomme es beim besten Willen nicht hin vom Server eine Nachricht an den Client zu schicken :roll:

Mein Server :

Delphi-Quellcode:

unit mbknet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdTCPServer, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, StdCtrls;

type
  TForm1 = class(TForm)
    IdTCPServer1: TIdTCPServer;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    IdTCPClient1: TIdTCPClient;
    procedure FormCreate(Sender: TObject);
    procedure IdTCPServer1Execute(AThread: TIdPeerThread);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  IDTCPServer1.Active := true;
end;

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
  with AThread.Connection do
  begin
    WriteLn('Hello from Basic Indy Server server.');
    end;
end;

end.

Mein Client

Delphi-Quellcode:

unit mbknet_client;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  StdCtrls, ExtCtrls, IdTCPServer;

type
  TForm1 = class(TForm)
    IdTCPClient1: TIdTCPClient;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Button2: TButton;
    Timer1: TTimer;
    IdTCPServer1: TIdTCPServer;
    IdTCPClient2: TIdTCPClient;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
IDTCPClient1.Host := Edit1.Text;
 with IDTCPClient1 do begin
    Connect;
    Caption := ReadLn;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  IDTCPClient1.WriteLn('HALLO SERVER'); // kläglicher versuch an den Server eine Nachricht zu senden
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if IDTCPClient1.Connected then
  Form1.Caption := IDTCPClient1.ReadLn()  // kläglicher Versuch Nachrichten vom Server zu empfangen
end;

end.

Das Meiste ist aus einem Tutorial übernommen... bis auf das was nicht funktioniert :mrgreen:
Wobei ich das aus dem Tutorial wohl verstehe... Ich komme nur nicht mehr weiter :(

[SirThornberry]

kommt die Nachricht denn beim Server an? und hast du mal versucht die Nachricht im OnExecute des Clients abzufragen?

[Neutral General]

Das einzigste was ankommt ist

Delphi-Quellcode:

WriteLn('Hello from Basic Indy Server server.');

beim Client.
Und der Client hat gar kein OnExecute-Ereignis.
Außerdem wird soweit ich weiß OnExecute nur beim Verbinden ausgeführt.

[SirThornberry]

jetzt bin ich verwirrt, erst schreibst du

Zitat:

Ich bekomme es beim besten Willen nicht hin vom Server eine Nachricht an den Client zu schicken

und dann schreibst du das

Zitat:

WriteLn('Hello from Basic Indy Server server.');

beim client ankommt. Das heißt doch aber das die nachricht vom Server doch an den Client geschickt wurde

Zum OnExecute

Zitat:

OnExecute is an event handler for TIdServerThreadEvents. OnExecute occurs when a TIdPeerThread attempts to perform the TIdPeerThread.Run method. OnExecute receives AThread as a parameter, representing the TIdPeerThread thread that will be started.

[jfheins]

TIdTCPServer.Execute() wird immer ausgeführt, wenn es was zu tun gibt. Dass kann ein vonnect sein, das kann aber auch eine nachricht sein ;)

Und was den Client angeht: der muss immer in einer Schleife ein ReadLn() machen, damit er Nachrichten bekommt.

Du müsstest z.B. dem Client über AThread.Connection.WriteLn() direkt eine antwot sen den können ;)

[Neutral General]

Ja danke !!
Ich glaube ich habs raus :)

[prinz_inzide]

am besten bringste die schleife in nem eigenen thread unter!

[Neutral General]

Naja sagen wir ich habs zur hälfte raus :mrgreen:
Ich kann zwar jetzt dem Server Nachrichten senden aber der Server nicht dem Clienten.
Außer halt direkt bei OnExecute. Aber das bringt mir bei einem Chat nichts. Da sollen ja Nachrichten geschickt werden wenn der Benutzer es will.

Der Server kann nun so Nachrichten empfangen :

Delphi-Quellcode:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
  with AThread.Connection do
  begin
   WriteLn('Hello from Basic Indy Server server.');
   Form1.Caption := ReadLn;
  end;
end;

Der Client kann einfach so

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  IDTCPClient1.WriteLn('HALLO SERVER');
end;

dem Server eine Nachricht schicken, die auch ankommt.
Aber gibt es keine Möglichkeit vom Server dem Clienten eine Nachricht zu schicken auf ButtonClick ?

[mschaefer]

Moin, moin,

also Indy ist eigentlich nicht mein Gebiet, aber wie ist es denn wenn Du auf beiden Seiten
jeweils Client und Server ins Formular nimmst?

Grüße // Martin

[Neutral General]

Ja ich denke das würde gehen aber geht es nicht anders ?
Im Notfall würde ich das machen ...