Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Asender.Thread.Data wert zuweisen (https://www.delphipraxis.net/64203-asender-thread-data-wert-zuweisen.html)

m0sch3r 28. Feb 2006 19:19


Asender.Thread.Data wert zuweisen
 
tach an alle

ich habe eine Struktur vom Typ

Delphi-Quellcode:
TUqueueFile = record
                      MD5           : string;
                      IP           : string;
                      User         : string;
                      Status       : TDstatus;
                      Speed        : String;
               end;
Und möchte diese in die Eingenschaft des TidTCPServer Asender.Thread.Data einfügen (commandhandler und im OnExecute) wie kann ich das am besten machen...!?

Wenn ich z.B
Delphi-Quellcode:
var
      temp       :  PTUQueueFile;
begin
     new(temp);
     Temp^.MD5         := asender.Params[0];
     TEmp^.User       := Asender.Params[1];
     temp^.IP         := Asender.Thread.Connection.Socket.Binding.PeerIP;
     temp^.Status  

     Asender.Thread.Data                     := temp;
Weigert sich der Kompiler...


Bin für jeden Vorschlag dankbar...)))

chaosben 1. Mär 2006 06:08

Re: Asender.Thread.Data wert zuweisen
 
Hi ho!

Du willst doch sicher mit diesem Code erreichen, das dein Objekt versandt wird. Falls dem so ist, kannst du es so erreichen:
Delphi-Quellcode:
AThread.Connection.WriteStream({BliBlaBlubber});
AThread.Connection.WriteBuffer({BliBlaBlubber});
AThread.Connection.WriteXXXXX({BliBlaBlubber});

Jens Schumann 1. Mär 2006 07:26

Re: Asender.Thread.Data wert zuweisen
 
Hallo,
es wäre schön wenn Du auch die Compilermeldung angegeben hättest.
Es wird aber wahrscheinlich daran liegen, dass ASender.Thread.Data
vom Type TObject ist.

Überführe den Record also in ein Object -> dann sollte es funktionieren.


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:16 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz