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
