Forum: Netzwerke
by Luckie,
19. Mär 2005
Ich hatte gerade, als ich du das über blocking und non-blocking geschrieben hast, etwas im Internet gestöbert. da wurde allgemein gesagt, dass man non-blocking sockets nicht verwenden sollte.
Ich habe mir das so überlegt: Die Nachricht wird in einen gloablen String geschrieben. Jedesmal, wenn was ankommt, feuert der ClientThread einen Event und der ServerThread, der die ClientThreads...
Forum: Netzwerke
by Luckie,
18. Mär 2005
Aaaah. Danke, das war meine Wissenslücke. Ich habe jetzt für jeden neuen Client einen eigenen Thread. Nur habe ich jetzt ein konzeptionelles Problem:
function ClientThread(p: Pointer): Integer;
var
Sock: TSocket;
MsgBuffer: array of Char;
resourcestring
rsMsg = 'Client: %s';
begin
Sock := PClientThreadParams(p)^.Sock;
Forum: Netzwerke
by Luckie,
18. Mär 2005
Ich bin gerade dabei einen kleinen Chat mit Server und Clients zu programmieren. Dabei benutze ich keine Komponenten. Der Server wartet dabei in einem Thread auf Clients, die sich verbinden. Jeder Client kommt in ein Array. Dann geht der Server im Thread jedes mal dieses Array durch und guckt, ob vom entsprechenden Client was kommt:
function ServerThread(p: Pointer): Integer;
var
...