delphi - Problem med Indy TCPServer/Client - Udvikleren.dk

Tags: delphi

Bruger #4468 @ 04.02.05 00:27

Jeg har lavet følgende (forholdsvis enkle) prøve program men kan ikke få det til at virke. Det eneste der sker når jeg connecter er at der kommer en fejllyd på den anden computer.

Client:
Client1 er en TCPClient, Server1 er en TCPServer

Kode

procedure TForm1.Server1Connect(AThread: TIdPeerThread);
begin
Client1.Disconnect;
Client1.Host:= AThread.Connection.Binding.PeerIP;
Client1.Connect;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Server1.Active:= True;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Server1.Active:= False;
end;

procedure TForm1.Server1Execute(AThread: TIdPeerThread);
begin
if Client1.ReadLn() = 'hej' then Client1.WriteLn('hej');
end;

end.

Server:
Connections er en Listbox, Client1 en TCPClient, Server1 en TCPServer.

Kode


procedure TForm1.Server1Connect(AThread: TIdPeerThread);
begin
Connections.Items.add(AThread.Connection.Binding.PeerIP);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Server1.Active:= True;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Server1.Active:= False;
end;

procedure TForm1.ConnectionsDblClick(Sender: TObject);
begin
Edit1.Text:= Connections.Items.Strings[Connections.Itemindex];
Button1.Click;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Client1.Disconnect;
Client1.Host:= Edit1.Text;
Client1.Connect;
Client1.WriteLn('hej');
end;

procedure TForm1.Server1Execute(AThread: TIdPeerThread);
begin
Memo1.Lines.Add(Client1.ReadLn());
end;

end.

Håber der lige er en der gider tage et kig på min kode og prøve at finde fejlen da dette er noget jeg her bøvlet en del med

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

7 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 1 karma

Sorter efter stemmer Sorter efter dato

Bruger #2330 @ 05.02.05 13:07

444

Kunne godt lyde som om du har CommandHandlers slået til. Slå dette fra ovre i Object Inspectoren for din server komponent.

MH.

The-Freak

Livet er for kort til at kede sig.

Hmm findes ikke noget der hedder command havdlers.
Har både en client og en server på begge for at den ene kan oprette forbindelse tilabage til den client der oprettede forbindelse til den.
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Der er en CommandHandlers property på TIdTCPServer. Den er sat til True som default. Den skal være False.

MH.

The-Freak

Livet er for kort til at kede sig.

Bruger #2330 @ 04.02.05 15:51

444

Jeg har lavet følgende (forholdsvis enkle) prøve program men kan ikke få det til at virke. Det eneste der sker når jeg connecter er at der kommer en fejllyd på den anden computer.

Client:
Client1 er en TCPClient, Server1 er en TCPServer

Kode
procedure TForm1.Server1Connect(AThread: TIdPeerThread);
begin
Client1.Disconnect;
Client1.Host:= AThread.Connection.Binding.PeerIP;
Client1.Connect;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Server1.Active:= True;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Server1.Active:= False;
end;

procedure TForm1.Server1Execute(AThread: TIdPeerThread);
begin
if Client1.ReadLn() = 'hej' then Client1.WriteLn('hej');
end;

end.
Server:
Connections er en Listbox, Client1 en TCPClient, Server1 en TCPServer.

Kode
procedure TForm1.Server1Connect(AThread: TIdPeerThread);
begin
Connections.Items.add(AThread.Connection.Binding.PeerIP);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Server1.Active:= True;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Server1.Active:= False;
end;

procedure TForm1.ConnectionsDblClick(Sender: TObject);
begin
Edit1.Text:= Connections.Items.Strings[Connections.Itemindex];
Button1.Click;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Client1.Disconnect;
Client1.Host:= Edit1.Text;
Client1.Connect;
Client1.WriteLn('hej');
end;

procedure TForm1.Server1Execute(AThread: TIdPeerThread);
begin
Memo1.Lines.Add(Client1.ReadLn());
end;

end.
Håber der lige er en der gider tage et kig på min kode og prøve at finde fejlen da dette er noget jeg her bøvlet en del med

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Hvorfor har du server i client og client i server ????

MH.

The-Freak

Livet er for kort til at kede sig.

Bruger #2330 @ 04.02.05 15:53

444

Kunne godt lyde som om du har CommandHandlers slået til. Slå dette fra ovre i Object Inspectoren for din server komponent.

MH.

The-Freak

Livet er for kort til at kede sig.

Bruger #4468 @ 04.02.05 22:45

221

Kunne godt lyde som om du har CommandHandlers slået til. Slå dette fra ovre i Object Inspectoren for din server komponent.

MH.

The-Freak

Livet er for kort til at kede sig.

Hmm findes ikke noget der hedder command havdlers.
Har både en client og en server på begge for at den ene kan oprette forbindelse tilabage til den client der oprettede forbindelse til den.
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Bruger #4468 @ 12.02.05 23:57

221

Der er ingen der hedder Commandhandler eller noget som helst i den stil ved mig. Kan det være fordi indy er en for gammel version?
Der står det er version 8.25 mener jeg,
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Bruger #4468 @ 19.02.05 00:12

221

Okay fandt ud af at jeg kunne slå Commandhandlers fra via af kode.

Men det virker stadig ikke og jeg er ved at være godt frustreret nu! For kan simpelthen ikke finde grunden! Så håber der er en derude der kan hjælpe mig.
Her er hele uniten for serveren:

Kode

unit receiver;

interface

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

type
  TForm1 = class(TForm)
    Client1: TIdTCPClient;
    Server1: TIdTCPServer;
    Image2: TImage;
    Image1: TImage;
    Button1: TButton;
    Edit1: TEdit;
    Connect: TGroupBox;
    Memo1: TMemo;
    Connections: TListBox;
    Label1: TLabel;
    Timer1: TTimer;

    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ConnectionsDblClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Server1Execute(AThread: TIdPeerThread);
    procedure Server1Connect(AThread: TIdPeerThread);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 Server1.CommandHandlersEnabled:= False;
 Server1.Active:= True;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 Server1.Active:= False;
end;

procedure TForm1.ConnectionsDblClick(Sender: TObject);
begin
 Edit1.Text:= Connections.Items.Strings[Connections.Itemindex];
 Button1.Click;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Client1.Disconnect;
 Client1.Host:= Edit1.Text;
 Client1.Connect;
 Client1.WriteLn('hej');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if (Client1.Connected = true) and (Server1.Active = True) then
  begin
   Image1.Hide;
   Image2.Show;
  end
 else
  begin
   Image1.Show;
   Image2.Hide;
  end;
end;

procedure TForm1.Server1Execute(AThread: TIdPeerThread);
begin
Memo1.Lines.Add(Client1.ReadLn());
end;

procedure TForm1.Server1Connect(AThread: TIdPeerThread);
begin
 Connections.Items.Add(AThread.Connection.Socket.Binding.PeerIP);
end;

end.

og hele uniten for clienten:

Kode

unit sender;

interface

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

type
  TForm1 = class(TForm)
    Client1: TIdTCPClient;
    Server1: TIdTCPServer;
    procedure Server1Connect(AThread: TIdPeerThread);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Server1Execute(AThread: TIdPeerThread);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Server1Connect(AThread: TIdPeerThread);
begin
 Client1.Disconnect;
 Client1.Host:= AThread.Connection.Socket.Binding.PeerIP;
 Client1.Connect;
 Client1.WriteLn('hej');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Server1.CommandHandlersEnabled:= False;
Server1.Active:= True;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Server1.Active:= False;
end;

procedure TForm1.Server1Execute(AThread: TIdPeerThread);
begin
if Client1.ReadLn() = 'hej' then Client1.WriteLn('hej');
end;

end.

På forhånd tak

Bruger #4468 @ 08.07.05 01:44

221

Kode

unit receiver;

interface

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

type
  TForm1 = class(TForm)
    Client1: TIdTCPClient;
    Server1: TIdTCPServer;
    Image2: TImage;
    Image1: TImage;
    Button1: TButton;
    Edit1: TEdit;
    Connect: TGroupBox;
    Memo1: TMemo;
    Connections: TListBox;
    Label1: TLabel;
    Timer1: TTimer;

    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ConnectionsDblClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Server1Execute(AThread: TIdPeerThread);
    procedure Server1Connect(AThread: TIdPeerThread);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 Server1.CommandHandlersEnabled:= False;
 Server1.Active:= True;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 Server1.Active:= False;
end;

procedure TForm1.ConnectionsDblClick(Sender: TObject);
begin
 Edit1.Text:= Connections.Items.Strings[Connections.Itemindex];
 Button1.Click;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Client1.Disconnect;
 Client1.Host:= Edit1.Text;
 Client1.Connect;
 Client1.WriteLn('hej');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if (Client1.Connected = true) and (Server1.Active = True) then
  begin
   Image1.Hide;
   Image2.Show;
  end
 else
  begin
   Image1.Show;
   Image2.Hide;
  end;
end;

procedure TForm1.Server1Execute(AThread: TIdPeerThread);
begin
Memo1.Lines.Add(Client1.ReadLn());
end;

procedure TForm1.Server1Connect(AThread: TIdPeerThread);
begin
 Connections.Items.Add(AThread.Connection.Socket.Binding.PeerIP);
end;

end.

og hele uniten for clienten:

Kode

unit sender;

interface

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

type
  TForm1 = class(TForm)
    Client1: TIdTCPClient;
    Server1: TIdTCPServer;
    procedure Server1Connect(AThread: TIdPeerThread);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Server1Execute(AThread: TIdPeerThread);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Server1Connect(AThread: TIdPeerThread);
begin
 Client1.Disconnect;
 Client1.Host:= AThread.Connection.Socket.Binding.PeerIP;
 Client1.Connect;
 Client1.WriteLn('hej');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Server1.CommandHandlersEnabled:= False;
Server1.Active:= True;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Server1.Active:= False;
end;

procedure TForm1.Server1Execute(AThread: TIdPeerThread);
begin
if Client1.ReadLn() = 'hej' then Client1.WriteLn('hej');
end;

end.

På forhånd tak

Kan ligeså godt lukke.. Får aldrig svar på dette anyway.

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Problem med Indy TCPServer/Client

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler