Konsol/TCP

Du opretter en klasse med Metoderne på :

//Det er MEGET vigtigt klassen hedder noget med hest.
Type
  THest = class
  Public
  procedure OnExecute(AThread: TIdPeerThread);
  end;

HUSK er oprette din kalsse ! Du ved Create finden ....

Og så er det blot at mappe det op :
  TCP.OnExecute := Execute etc
Jeg vil anbefale du laver en klasse til at styre logikken

Okay det hjalp da lidt, men nu får jeg fejlen: [Error] fserver.dpr(14): Unsatisfied forward or external declaration: 'TTCPclass.onExecute'

...Når sourcen ser sådan ud: (Mon der er for lidt hest??? :D )

program fserver;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  IdTCPServer,
  IdThreadMgrDefault,
  IdStatus, Sockets;

Type
  TTCPclass = class
  Public
  procedure onExecute(AThread: TIdPeerThread);
  end;

var
TCP : TIdTCPServer;
ITMgr : TIdThreadMgrDefault;
port : integer;
sendbuffer, cmdline : string;
TCPclass : TTCPclass;

procedure TCPConnect(AThread: TIdPeerThread);
begin
writeLn('Client Connected...');
readLn;
end;

procedure TCPDisconnect(AThread: TIdPeerThread);
begin
writeLn('Client Disconnected...');
readLn;
end;

procedure TCPExecute;
var
AThread : TIdPeerThread;
begin
  begin
    writeLn(AThread.Connection.readLn(#0));
    AThread.Connection.writeLn(sendbuffer+#0);
  end;
end;

procedure TCPStatus(axSender: TObject;
  const axStatus: TIdStatus; const asStatusText: String);
begin
writeLn(asStatusText);
end;

procedure TCPIntercept;
Begin
WriteLn('interceptet');
end;

procedure readline(line: String);
begin
if (line = 'quit') then
begin
exit;
end;
readLn(cmdLine);
readline(cmdLine);
end;

begin
TCPclass := TTCPclass.Create;
WriteLn('-------------------------------');
WriteLn(' Server');
WriteLn('-------------------------------');
WriteLn('');
Write('Server Port: ');
Readln(port);
TCP := TIdTCPServer.Create(nil);
TCP.DefaultPort := port;
TCP.TerminateWaitTime := 5000;
TCP.Active := true;
WriteLn('');
WriteLn('Server Running');
readLn(cmdLine);
readline('cmdline');
TCPclass.Free;
end.


program fserver;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  IdTCPServer,
  IdThreadMgrDefault,
  IdStatus, Sockets;

Type
  TTCPclass = class
  Public
  procedure onExecute(AThread: TIdPeerThread);
  end;

var
TCP : TIdTCPServer;
ITMgr : TIdThreadMgrDefault;
port : integer;
sendbuffer, cmdline : string;
TCPclass : TTCPclass;

procedure TCPConnect(AThread: TIdPeerThread);
begin
writeLn('Client Connected...');
readLn;
end;

procedure TCPDisconnect(AThread: TIdPeerThread);
begin
writeLn('Client Disconnected...');
readLn;
end;

procedure TCPExecute;
var
AThread : TIdPeerThread;
begin
  begin
    writeLn(AThread.Connection.readLn(#0));
    AThread.Connection.writeLn(sendbuffer+#0);
  end;
end;

procedure TCPStatus(axSender: TObject;
  const axStatus: TIdStatus; const asStatusText: String);
begin
writeLn(asStatusText);
end;

procedure TCPIntercept;
Begin
WriteLn('interceptet');
end;

procedure readline(line: String);
begin
if (line = 'quit') then
begin
exit;
end;
readLn(cmdLine);
readline(cmdLine);
end;

begin
TCPclass := TTCPclass.Create;
WriteLn('-------------------------------');
WriteLn(' Server');
WriteLn('-------------------------------');
WriteLn('');
Write('Server Port: ');
Readln(port);
TCP := TIdTCPServer.Create(nil);
TCP.DefaultPort := port;
TCP.TerminateWaitTime := 5000;
TCP.Active := true;
WriteLn('');
WriteLn('Server Running');
readLn(cmdLine);
readline('cmdline');
TCPclass.Free;
end.

Ups! Doppelt source :)

Du skal implemtere din Metode :-)

Jens B

Det går ikke så godt for blå hold i aften :-)

implemtere? *g* Ja, nu spørg jeg nok dumt...Men hvordan gør jeg det...

Et hvert hold ville tape med maven fuld af hestekød...!? Så er det lige meget om de er blå...

Hvis du have dit TTcpServer på en form så ville du gå i din Object Inspector, og så ville du skrive noget kode i OnExecute. Hvis altså det er det event du ønsker at implementere ....

Det samme kode skriver du i

  TTCPclass.onExecute();

Jens B

Nu er jeg sq ikke helt med mere...
Jow, altså hvis du mener at der skal skrives noget kode i proceduren...
Men ellers har jeg sq ik helt fatten det...du kunne vel ik prøve at skrive hele koden ud i et...?

Okay...nu har jeg forenklet kode så meget jeg ku, men jeg får stadig fejl...

[Error] Project2.dpr(50): Incompatible types: 'TIdServerThreadEvent' and 'procedure, untyped pointer or untyped parameter'
[Error] Project2.dpr(14): Unsatisfied forward or external declaration: 'TTCPclass.onExecute'



program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  IdTCPServer,
  IdThreadMgrDefault,
  IdStatus, Sockets;

Type
  TTCPclass = class
  Public
  procedure onExecute(AThread: TIdPeerThread); <-- Fejl her!!!
  end;

var
TCP : TIdTCPServer;
ITMgr : TIdThreadMgrDefault;
port : integer;
cmdline : string;
TCPclass : TTCPclass;
myThread : TIdPeerThread;

Procedure onExecute(AThread: TIdPeerThread);
begin

end;

procedure readline(line: String);
begin
if (line = 'quit') then
begin
exit;
end;
readLn(cmdLine);
readline(cmdLine);
end;

begin
TCPclass := TTCPclass.Create;

Write('Server Port: ');
Readln(port);

TCP := TIdTCPServer.Create(nil);
TCP.DefaultPort := port;
TCP.TerminateWaitTime := 5000;
TCP.Active := true;
TCP.OnExecute := TCPclass.onExecute(myThread);  <-- Fejl Her

WriteLn('Server Running');

readLn(cmdLine);
readline('cmdline');

TCPclass.Free;
end.