Hallo,
ich bin gerade dabei einen Server für ein eigenes Chatprogramm zu entwickeln. Dabei bin ich auf folgendes Problem gestoßen:
Der Server soll multithreaded sein, d.h. er soll für jeden neuen Client einen neuen Thread erstellen. Zum Erstellen der Threads möchte ich die WinAPI Funktionen CreateThread() oder BeginThread() benutzen. Als Parameter möchte ich den Threads eine TSocket (WinSock.pas) Variable übergeben.

zusammenfalten · markieren

Delphi-Quellcode:

...

function ThreadFunk(param: Pointer): Longint; stdcall;
var
  client: TSocket;
begin
  // Übergabeparameter in ein TSocket zurückführen
  client := param^; // >> Muss hier nicht noch irgenteine Typumwandlung folgen? Da ich vermute das die Fehler die ich im Serverprogramm bekomme darauf zurückzuführen sind, das hier irgendwas nicht stimmt
  ..
end;

...

var
  // Socket welches als Parameter übergeben werden soll
  sckt: TSocket;

begin
  // Parameter vorbereiten
  arg := @sckt;
  // Thread mit dem Parameter starten
  BeginThread(nil, 0, TFNThreadStartRoutine(@ThreadFunk), arg, 0, ThreadID);
end;

Danke für alle Antworten schon mal im vorraus
engel90

TSocket ist ein ganz normaler 32bit-Wert genauso wie ien Pointer. Hier reicht ein einfacher Typecast.

markieren

Delphi-Quellcode:

function ThreadFunk(client: TSocket): Longint; stdcall;

...

BeginThread(nil, 0, TFNThreadStartRoutine(@ThreadFunk), pointer(sckt), 0, ThreadID);

danke

mfg
engel

Zitat von sirius:

TSocket ist ein ganz normaler 32bit-Wert genauso wie ien Pointer. Hier reicht ein einfacher Typecast.

markieren

Delphi-Quellcode:

function ThreadFunk(client: TSocket): Longint; stdcall;

...

BeginThread(nil, 0, TFNThreadStartRoutine(@ThreadFunk), pointer(sckt), 0, ThreadID);

wenn ich innerhalb des Threads die Funktion recv() aus der WinSock.pas aufrufe kommt als Fehlermeldung immer "Ein Vorgang bezog sich auf ein Objekt, das kein Socket ist". Ich habe die Funktion folgendermaßen aufgerufen:
recBytes := Recv(clients, buff, SizeOf(buf), 0);

Mit anderen Worten: "clients" enthält kein Sockethandle.

Hast du mal überprüft, ob der Inhalt der Variablen (sckt und client) identisch ist? Sollte eigentlich funktionieren.

Und die Funktion Socket (und evtl. bind/connect) hast du auch aufgerufen.

Zitat von sirius:

Hast du mal überprüft, ob der Inhalt der Variablen (sckt und client) identisch ist? Sollte eigentlich funktionieren.

Und die Funktion Socket (und evtl. bind/connect) hast du auch aufgerufen.

Zum überprüfen hab ich einfach an den Anfang der Threadfunktion folgendes geschrieben:

markieren

Delphi-Quellcode:

  EnterCriticalSection(mutex_state);
  if (client = sckt) then begin
    Writeln('parameter und orginal gleich');
  end;
LeaveCriticalSection(mutex_state);

Dabei kommt heraus, das die Handles client und sckt nich gleich sind. Die Funktionen WSAStartUp(), Socket(), Bind(), und Listen() wurden erfolgreich ausgeführt.

mfg
engel

AHHHH!
Nimm mal das stdcall hinter deiner Threadfunktion weg! Du benutzt doch Beginthread.

Edit: Ein einfacher Breakpoint hätte es auch getan

Zitat von sirius:

AHHHH!
Nimm mal das stdcall hinter deiner Threadfunktion weg! Du benutzt doch Beginthread.

Edit: Ein einfacher Breakpoint hätte es auch getan

Alles klar hat funktioniert

Herzlichen Dank

mfg
engel