Übertragungsprotokoll für TSocket ???

[jokerfacehro]

ähm

kannn sein, dass ich dich falsch verstanden habe, sirius.

also in paketer wird der buffer ausgewertet:

Delphi-Quellcode:

type TPacket = record
      GlobalID:Word;
      LocalID:Word;
      CMD:Word;
      Data:string;
      end;


procedure packeter(buffer:string);
var check:boolean;
    i:integer;
begin
if Copy(buffer,3,2)=#0#1 then begin
        setLength(Packets,Length(Packets)+1);

        Packets[Length(Packets)-1].GlobalID:=Byte(buffer[1])+Byte(buffer[2]);
        Packets[Length(Packets)-1].LocalID:=Byte(buffer[3])+Byte(buffer[4]);
        Packets[Length(Packets)-1].CMD:=Byte(buffer[5])+Byte(buffer[6]);
        Delete(buffer,1,6);
        Packets[Length(Packets)-1].Data:=buffer;

        end
        else begin
        {check:=false;
        for i:=0 to Length(Packets)-1 do
          if Packets[i].GlobalID=Byte(buffer[1])+Byte(buffer[2])then begin
            check:=true;
            break;
          end;
        Delete(buffer,1,4);
        if check then}
           Delete(buffer,1,4);
          Packets[0].Data:=Packets[0].Data+buffer;
        end;

end;

Das ist alles hier grad erst mal testweise hingeschrieben, deswegn auch Packets[0] ganz unten,
da ich eh erstmal nur ein Packet übertrage, nämlich das fürs bild