Umstellung eines Progs von Indy 9 nach Indy 10

[moelski]

Moin !

Es gibt hier:
http://delphi.about.com/od/interneti.../aa012004a.htm
ein nettes Progrämmchen was die Verwendung von TCP Client / Server demonstriert. Das basiert aber auf Indy 9 und ich würde es gerne in Indy 10 verwenden.

Einige Teile kriege ich ja umgestellt, aber bei drei Sachen fehlt mir die Erklärung...

1) IdThreadMgr, IdThreadMgrDefault
Gibt es die in Indy 10 überhaupt noch (oder gibt es da einen Ersatz für)? Mein Delphi 2007 kann mit den Units rein gar nichts anfangen. Eine Suche hat mich auch nicht weitergebracht.

2) Was muss ich für AThread.Data und AThread.Terminated nutzen?

Delphi-Quellcode:

procedure TMainFormServer.TCPServerExecute(AContext: TIdContext);
var
  Client : PClient;
  Command : string;
  Size : integer;
  PicturePathName : string;
  ftmpStream : TFileStream;
begin
  if not AThread.Terminated and AContext.Connection.Connected then
  begin
    Client := PClient(AThread.Data);
    Client.LastAction := Now;
....

3) Bei einem Connect eines Clients wird einem Record ein Thread übergeben. Wie muss ich das anpassen?

Delphi-Quellcode:

type
  PClient   = ^TClient;
  TClient   = record
    PeerIP      : string[15];            { Cleint IP address }
    HostName    : String[40];            { Hostname }
    TakeShot    : boolean;
    Connected,                           { Time of connect }
    LastAction  : TDateTime;             { Time of last transaction }
    Thread      : Pointer;               { Pointer to thread }
  end;

procedure TMainFormServer.TCPServerConnect(AContext: TIdContext);
var
  NewClient: PClient;
begin
  GetMem(NewClient, SizeOf(TClient));

  NewClient.PeerIP      := AContext.Connection.Socket.Binding.PeerIP;
  NewClient.HostName    := GStack.HostByAddress(NewClient.PeerIP);
  NewClient.TakeShot    := False;
  NewClient.Connected   := Now;
  NewClient.LastAction  := NewClient.Connected;
  NewClient.Thread      := AThread;   // <<<<<----------

  AThread.Data := TObject(NewClient);

[moelski]

Moin !

Im Anhang mal mein "übersetztes" Programm. Ich habe IdThreadMgr & IdThreadMgrDefault aus den Uses entfernt. Auswirkungen hat es erstmal keine. Ich bin mir aber nicht sicher ob das so korrekt ist.

Compilieren kann ich nun Server und Client. Aber leider werden keine Daten übertragen.

Evtl. kann ja jemand mal drauf schaun ? :gruebel:

[moelski]

Moin !

Habs schon hinbekommen. Die Übertragung eines TMemoryStreams ist mit Delphi 10 viel einfacher geworden. Das ganze funzt nun mit einer Zeile für die Übertragung:

Delphi-Quellcode:

IdTCPClient.IOHandler.Write(Fstream,0,true);

Auch der Empfang ist einfacher:

Delphi-Quellcode:

AContext.connection.IOHandler.ReadStream(fstream);

Thema soweit erstmal erledigt. Es sei denn mir kann noch jemand die IdThreadMgr & IdThreadMgrDefault Sache erklären.