MultiThreads

det kan du gøre med indy, der er også nogle eks.

/ZIRON

Vil gerne have det lidt mere specifikiseret mht. metode teoretisk..

arrr okay, men prøv at se på det eks. jeg gider ikke at skrive lige nu...

/ZIRON

Hvis du feks bruger standard ServerSocket som er med Delphi, så får hver
Client tildelt et nummer når de connecter til server Socketen.

Nedenstående kode sender f.eks til alle connections, så som du kan se
så har alle connections deres eget uniqe ID, det er så op til dig at holde
øje med hvem som er hvem, og evt tildele dem en tråd hver.


Var
i:integer;

begin
  for I := 0 to ServerSocket.Socket.ActiveConnections - 1 do
    ServerSocket.Socket.Connections[I].SendText(\'Hesten er citronblå \');
end;

Når du opretter din tråd skal du så føre en kopi af ServerSocket med over, i nedenstående
kan du se hvordan jeg opretter en tråd til at connecte til en serial enhed (det er ganske vist en indyclient men det kan du selv rette til.



her kaldets deklarationer:

private
    { Private declarations }
    procedure WriteState(State : Integer); reintroduce;
    procedure WriteStatus(Status : String);
    procedure WriteError(Error : String);

og her selve kaldet:

if not IdTCPClient.Connected then
  begin
    With TLogOnController.Create do
    begin
      OnStateEvent := WriteState;
      OnStatusEvent := WriteStatus;
      OnErrorEvent := WriteError;
      OnControllerConnectedEvent := WriteControllerConnect;
      IPNo := //\'Dit IP\';
      Port := //Din port;
      FClientSocket := IdTCPClient;
      WriteDelay := 0;
      resume;
    end;
  end else
    IdTCPClient.Disconnect;




Og her tråden:

unit tLogOn;

interface

uses
  Classes, Dialogs, Controls, SysUtils, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient;

type
  TStateEvent  = procedure(State : Integer) of object;
  TStatusEvent  = procedure(Status : String) of object;
  TErrorEvent  = procedure(Error : String) of object;
  TConnectEvent = procedure(ControllerConnected : Boolean) of object;
  TLogOnController = class (TThread)
  private
    FOnStateEvent : TStateEvent;
    FOnStatusEvent : TStatusEvent;
    FOnErrorEvent : TErrorEvent;
    FOnConnectEvent : TConnectEvent;
    procedure SetOnStateEvent(const Value: TStateEvent);
    procedure SetOnStatusEvent(const Value: TStatusEvent);
    procedure SetOnErrorEvent(const Value: TErrorEvent);
    procedure SetOnConnectEvent(const Value: TConnectEvent);
  protected
    procedure Execute; override;
  public
    FClientSocket : TIdTCPClient;
    IPNo : String;
    Port : Integer;
    WriteDelay : Integer;
    Constructor Create;
    Destructor Destroy; override;
    property OnStateEvent : TStateEvent read FOnStateEvent write SetOnStateEvent;
    property OnStatusEvent : TStatusEvent read FOnStatusEvent write SetOnStatusEvent;
    property OnErrorEvent : TStatusEvent read FOnStatusEvent write SetOnStatusEvent;
    property OnControllerConnectedEvent : TConnectEvent read FOnConnectEvent write SetOnConnectEvent;
  end;

implementation


var
  InStr : String;
  State : Integer;
{ TDataopsamling }

constructor TLogOnController.Create;
begin
  inherited Create(true);
  FreeOnTerminate := false;
end;


destructor TLogOnController.Destroy;
begin
  inherited;
end;

procedure TLogOnController.execute;
var
  TmpStr : String;
  //i : Integer;
begin
  inherited;
  FOnConnectEvent(False);
  FOnStateEvent(1);
  FOnStatusEvent(\'Trying to connect: Ip \'+IPNo+\':\'+IntToStr(Port));
  FClientSocket.Host := IPNo;
  FClientSocket.Port := Port;
  FClientSocket.Connect;
  if not FClientSocket.Connected then
  begin
    FOnErrorEvent(\'Could not connect to: Ip \'+IPNo+\':\'+IntToStr(Port));
    Exit;
  end;
  Sleep(WriteDelay);
  FClientSocket.Write(#27);
  FOnStateEvent(2);
  FOnStatusEvent(\'Handshaking....\');
  InStr :=  FClientSocket.ReadLn(\'> \', -2);
  FOnStateEvent(3);
  FOnStatusEvent(\'Connected to: Ip \'+IPNo+\':\'+IntToStr(Port));
  if FClientSocket.Connected then
    FOnConnectEvent(True)
  else
    FOnConnectEvent(False);
end;

procedure TLogOnController.SetOnStateEvent(const Value: TStateEvent);
begin
  FOnStateEvent := Value;
end;

procedure TLogOnController.SetOnStatusEvent(const Value: TStatusEvent);
begin
  FOnStatusEvent := Value;
end;

procedure TLogOnController.SetOnErrorEvent(const Value: TErrorEvent);
begin
  FOnErrorEvent := Value;
end;

procedure TLogOnController.SetOnConnectEvent(const Value: TConnectEvent);
begin
  FOnConnectEvent := Value;
end;

end.

Takker mange gange :)

morten_s: jeg kører lidt rundt i det endnu - kan du evt. sende et grafisk eksempel til min e-mail?