TCPServer sendet an TCPClient

Jakane · Beiträge: 257

Hallo Delphi-Helfer

ich bin schon ganz am verzweifeln

Ich habe 2 Exen.
Eine soll den Server darstellen, der andere den Client.

Das Senden von Nachrichten vom Client zum Server geht problemlos.
Aber ich krieg es nicht hin das der Server "Gelesen" zum Client zurück schickt.

Habe schon viele Foren durchschaut, aber die helfen mir leider nicht.

Kann mir jemand sagen wo ich angreifen muss und womit?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:

unit ServerHaupt;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Web.Win.Sockets, Vcl.StdCtrls;

type
  TFServerHaupt = class(TForm)
    Server: TTcpServer;
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ServerAccept(Sender: TObject; ClientSocket: TCustomIpClient);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  FServerHaupt: TFServerHaupt;

implementation

{$R *.dfm}

uses dataKreta;

procedure TFServerHaupt.Button1Click(Sender: TObject);
begin
  if Server.Active then
  begin
    Server.Active := False;
    Button1.Caption := 'Server aus';
  end
  else
  begin
    Server.Active := True;
    Button1.Caption := 'Server an';
  end;
end;

procedure TFServerHaupt.Button2Click(Sender: TObject);
begin
  Server.Sendln('Gelesen');
end;

procedure TFServerHaupt.ServerAccept(Sender: TObject;
  ClientSocket: TCustomIpClient);
begin
  Memo1.Lines.Add('Client (' + FormatDateTime('hh:mm', Now) + '): ' + ClientSocket.Receiveln);
  ClientSocket.Sendln('Gelesen');
end;

procedure TFServerHaupt.FormCreate(Sender: TObject);
begin
  DMKreta := TDMKreta.Create(Self);
  Server.LocalHost := DMKreta.ServerHost;
  Server.RemoteHost := DMKreta.ServerHost;
  Server.LocalPort := DMKreta.ServerPort;
  Server.RemotePort := DMKreta.ServerPort;
end;

end.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:

unit ClientHaupt;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Web.Win.Sockets, Vcl.StdCtrls;

type
  TFClientHaupt = class(TForm)
    Client: TTcpClient;
    Edit1: TEdit;
    Button2: TButton;
    Memo1: TMemo;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure ClientReceive(Sender: TObject; Buf: PAnsiChar;
      var DataLen: Integer);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  FClientHaupt: TFClientHaupt;

implementation

{$R *.dfm}

uses dataKreta;

procedure TFClientHaupt.Button1Click(Sender: TObject);
begin
  Client.Receiveln;
end;

procedure TFClientHaupt.Button2Click(Sender: TObject);
begin
  Client.Active := True;
  Client.Sendln(Edit1.Text);
  Client.Active := False;
end;

procedure TFClientHaupt.ClientReceive(Sender: TObject; Buf: PAnsiChar;
  var DataLen: Integer);
begin
  Memo1.Lines.Add('Server (' + FormatDateTime('hh:mm', Now) + '): ' + Buf + ' (' + inttostr(datalen) + ')');
end;

procedure TFClientHaupt.FormCreate(Sender: TObject);
begin
  DMKreta := TDMKreta.Create(Self);
  Client.RemoteHost := DMKreta.ServerHost;
  Client.RemotePort := DMKreta.ServerPort;
end;

end.

_________________
Die Welt besteht aus Zahlen, also ist alles möglich.
[Delphi 5] - [Delphi XE5]

mandras · Verfasst: Di 18.08.15 00:18

vielleicht hilft Dir dies:

www.delphipraxis.net...n-und-empfangen.html

Jakane · Beiträge: 257

Leider nicht

Dieser Thread ist einer wo ich ewig gegrübbelt und versucht habe

Moderiert von Narses: Beiträge zusammengefasst

Wenn der Server active ist, und mein Client sendet etwas, bekomm ich "3" zurück.
Ist der Server inactive, und mein Client sendet etwas, bekomme ich "-1" zurück.
Wenn der Server etwas senden will, bekomme ich immer "-1" zurück.

Ist das vlt. ein Hinweis auf irgendwas?

Wenn ich alle Client-Ereignisse mit einem Memo1.Lines.Add(...) versehe, reagiert der Client nicht wenn der Server was sendet

_________________
Die Welt besteht aus Zahlen, also ist alles möglich.
[Delphi 5] - [Delphi XE5]

Muck · Verfasst: Di 18.08.15 19:13

Hallo

check doch mal Button2Click in Deinem Client Programm.

Du sendest was zum Server gefolgt von einem Disconnect vom Server. Das setzen von Active auf False ist wie ein disconnect.
Also, lass den Client mal Active und Du solltest zumindest eine Antwort sehen.

Wie auch immer verweise ich auf Tutorials hier, insbesondere auf das Einsetzen von Protokolls bei der Datenuebertragung via TCP/IP besonders wenn Internet im spiel ist.
Beispiel: Ein gesendetes 'GELESEN' kann als GEL und ESEN empfangen werden.

Viel Spass

Markus

_________________
Computers are like air conditioners. They work fine until you start opening windows!

Jakane · Beiträge: 257

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TFClientHaupt.Button2Click(Sender: TObject);
begin
  Client.Active := True;
  Client.Sendln(Edit1.Text);
  Client.Active := False;
end;

Mein Problem ist nicht das Senden vom Client zum Server, das funktioniert tadellos und so wie es soll

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TFServerHaupt.Button2Click(Sender: TObject);
begin
  Server.Sendln('Gelesen');
end;

bzw.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TFServerHaupt.ServerAccept(Sender: TObject;
  ClientSocket: TCustomIpClient);
begin
  ClientSocket.Sendln('Gelesen');
end;

ist das was nicht funktioniert

Ich will das der Server etwas zum Client sendet

_________________
Die Welt besteht aus Zahlen, also ist alles möglich.
[Delphi 5] - [Delphi XE5]

mandras · Verfasst: Di 18.08.15 20:23

Der tcpClient empfängt im Gegensatz zum tcpServer nur, wenn ihm das explizit gesagt wurde.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button2Click(Sender: TObject);
begin
 tcpclnt1.Active := True;
 tcpclnt1.Sendln(Edt1.Text);
 tcpclnt1.Receiveln;                         // <-----!!!!
 tcpclnt1.Active := false;
end;

Moderiert von Narses: Delphi-Tags hinzugefügt

Jakane · Beiträge: 257

Und ich hab die ganze Zeit versucht mit einem "Lesen" schalter die Nachricht zu kriegen, aber so reicht mir das auch völlig aus

danke

_________________
Die Welt besteht aus Zahlen, also ist alles möglich.
[Delphi 5] - [Delphi XE5]

mandras · Verfasst: Mi 19.08.15 21:59

Da müßtest Du wirklich schnell klicken können.
Solange der ClientSocket nicht auf empfangen gestellt ist (wie mittels zB ReceiveLn) werden alle eingehenden Daten auf diesen verworfen. Es erfolgt keine Zwischenspeicherung durch die Komponente oder das Betrübssystem.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme