bind() in console application

[Lyan]

Hallo,

ich würde gerne einen Client auf 0.0.0.0:9000 lauern lassen.
Nachdem ich das UDP-Socket erstellt habe und via bind auf den Port gebunden habe, stellt sich für mich noch die Frage wie ich das mit den Messages mache.

Habe eine Funktion:

procedure TClientClass.SocketMessage(var msg: TMessage);

in der ich auch recvFrom calle.

Diese sollte die msg abfangen, bzw. die routine soltle zumidnest gecallt werden oder?

Meine Main, sieht dann so aus:

Code:

var
  ClientClass : TClientClass;
  Msg: TMsg;
  bRet: Integer;

begin
  ClientClass := TClientClass.Create;
  repeat
    bRet := Integer(GetMessage(Msg, 0, 0, 0));

    if bRet = -1 then
    begin
      // error
      Break;
    end
    else
    begin
      TranslateMessage(Msg);
      DispatchMessage(Msg);
    end;
  until bRet = 0;
end.

Ich denke mal das Problem liegt an TMEssage und TMsg, oder?
Danke im voraus