Der Quellcode sieht so aus:
Delphi-Quellcode:
begin
Reset;
try
Result := True;
b1 := Context.Connection.Socket.ReadByte;
b2 := Context.Connection.Socket.ReadByte;
PacketLen := PackEONumber(b1, b2);
Context.Connection.Socket.ReadBytes(PacketBuf, PacketLen, False);
SetLength(fData, PacketLen);
move(PacketBuf[0], fData[1], PacketLen);
if PacketLen < 2 then exit;
if not Raw then Decode;
fPacketType := ord(fData[2]);
fPacketAction := ord(fData[1]);
fData := copy(fData, 3, length(fData));
except
Result := False;
end;
end;
Hmm sind die files "IdIOHandlerSocket" und "TIdIOHandlerSocket" das selbe? (wer es nicht sieht, bei dem zweiten ist ein "T" davor)
Wenn nicht, fehlt mir die datei
Ok ich weiss nun was mir fehlt. Und zwar
Indy.Sockets! Ich würd gern wissen wie man das Installiert... Dazu bräuchte ich ein ordentliches Tut
